我想得到的结果是,特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去.我点击其他单元格,依在D2,E2,F2,D3,E3,F3,D4,E4,F4等中赋予值.第一次赋予D2,然后D2固定下来.第二次赋予e2.然后e2固定下来.然后下一个.d2=第一次激活的单元格,d2不再改变,e2=第二次激活的单元格,d2,e2不再改变、f2=第三次激活的单元格,d2,e2,f2不再改变
网友回答
用这个宏,当点击是D、E、F列时不改变,点击其他列的单元格,按要求赋值给D2、E2...,当然也可以用个opp来切换,就是用个公用变量来记录切换的情况就行了.或者直接用F1来记录切换的情况吧,添加个按钮,然后添加如下的代码就可以了.
Private Sub CommandButton1_Click()
If Cells(1,6) = 1 Then
Cells(1,6) = 0
ElseCells(1,6) = 1
End IfEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1,6) = 1 Then
Exit SubIf Selection.Column = 4 Then Exit Sub
i = Cells(1,4) '借助D1、E1来保存已经赋值的单元格的行和列.
j = Cells(1,5)
If i If j j = j + 1If j > 6 Thenj = 4i = i + 1End IfCells(1,4) = i
Cells(1,5) = j
Cells(i,j) = Cells(Selection.Row,Selection.Column)
End Sub