你好：我想得到的结果是，特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去。 我点击其他单元格，依

发布网友 发布时间：2022-04-28 11:27

我来回答

共1个回答

热心网友 时间：2023-10-05 10:33

用这个宏，当点击是D、E、F列时不改变，点击其他列的单元格，按要求赋值给D2、E2...，当然也可以用个opp来切换，就是用个公用变量来记录切换的情况就行了。或者直接用F1来记录切换的情况吧，添加个按钮，然后添加如下的代码就可以了。

Private Sub CommandButton1_Click()
If Cells(1, 6) = 1 Then
Cells(1, 6) = 0
Else
Cells(1, 6) = 1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 6) = 1 Then Exit Sub
If Selection.Column <= 6 And Selection.Column >= 4 Then Exit Sub
i = Cells(1, 4) '借助D1、E1来保存已经赋值的单元格的行和列。
j = Cells(1, 5)
If i < 2 Then i = 2
If j < 4 Then j = 3
j = j + 1
If j > 6 Then
j = 4
i = i + 1
End If
Cells(1, 4) = i
Cells(1, 5) = j
Cells(i, j) = Cells(Selection.Row, Selection.Column)
End Sub来自：求助得到的回答

热心网友 时间：2023-10-05 10:33

用这个宏，当点击是D、E、F列时不改变，点击其他列的单元格，按要求赋值给D2、E2...，当然也可以用个opp来切换，就是用个公用变量来记录切换的情况就行了。或者直接用F1来记录切换的情况吧，添加个按钮，然后添加如下的代码就可以了。

Private Sub CommandButton1_Click()
If Cells(1, 6) = 1 Then
Cells(1, 6) = 0
Else
Cells(1, 6) = 1
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 6) = 1 Then Exit Sub
If Selection.Column <= 6 And Selection.Column >= 4 Then Exit Sub
i = Cells(1, 4) '借助D1、E1来保存已经赋值的单元格的行和列。
j = Cells(1, 5)
If i < 2 Then i = 2
If j < 4 Then j = 3
j = j + 1
If j > 6 Then
j = 4
i = i + 1
End If
Cells(1, 4) = i
Cells(1, 5) = j
Cells(i, j) = Cells(Selection.Row, Selection.Column)
End Sub来自：求助得到的回答