我是使用 excel 宏編輯的新手。我的電子表格基于輸入團隊分數。我有 4 列。A 列和 C 列是團隊編號，B 列和 D 列是他們的分數。所以我想這樣做，所以當在單元格 B2 中按下回車鍵而不是向下到 B3 時，它向右移動兩個，到 D2。去D2后，去B3。我有 4 排團隊，所以它一直持續到 D6。我嘗試使用宏，但沒有成功。
這就是我嘗試過的，但沒有奏效。當按下回車鍵以使用 Visual Basic 代碼選擇單元格時，我需要某種自動化方式。
uj5u.com熱心網友回復：
您沒有回答我的澄清問題...如果按 Enter 的單元格已被修改，則代碼很簡單。您已經收到處理此假設的答案。現在，如果您在不修改單元格的情況下需要所需的行為，請復制活動作業表代碼模塊中的下一個事件（右鍵單擊作業表名稱并選擇“查看代碼”）：
Option Explicit
Private prevAddress As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lastRow As Long, rngScore As Range, prCell As Range
If Target.cells.CountLarge > 1 Then Exit Sub
If prevAddress = "" Then
If Target.Column = 2 Or Target.Column = 4 Then
prevAddress = Target.Address: Exit Sub
End If
End If
lastRow = Me.Range("A" & Me.rows.count).End(xlUp).row
Set rngScore = Union(Me.Range("B2:B" & lastRow 1), Me.Range("D2:D" & lastRow 1))
If Not Intersect(Target, rngScore) Is Nothing Then
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Address = "$B$2" And prevAddress <> "D" & lastRow Then 'for CLICKING in B2
prevAddress = "$B$2"
Application.EnableEvents = True: Exit Sub
End If
If Target.Address = "$B$3" And (prevAddress = "$B$2" Or prevAddress = "$D$" & lastRow) Then
Target.Offset(-1, 2).Select: prevAddress = Target.Offset(-1, 2).Address
ElseIf prevAddress = Target.Offset(-1).Address Or _
Target.Offset(-2, 2).Address = prevAddress Then
Target.Offset(-1, 2).Select: prevAddress = Target.Offset(-1, 2).Address
Else
prevAddress = Target.Address
End If
Else 'for column 4:
If Target.row = lastRow 1 Then 'for the case of the last cell in the accepted range
Me.Range("B2").Select
Else
If prevAddress = Target.Offset(-1).Address Then
Target.Offset(0, -2).Select: prevAddress = Target.Offset(0, -2).Address
Else
prevAddress = Target.Address
End If
End If
End If
Application.EnableEvents = True
End If
End Sub
uj5u.com熱心網友回復：
只需在 Visual Basic 編輯器中的 Microsoft Excel 物件下雙擊要顯示此行為的作業表，即可打開附加到該作業集的代碼模塊：
并添加此代碼。“選項顯式”指令是可選的。
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2: Target.Offset(0, 2).Select
Case 4: Target.Offset(1, -2).Select
End Select
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/454700.html
上一篇：將單詞中的字母分類為元音和輔音