作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/13 07:01:09
我想得到的结果是,特定单元格为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不再改变
等等
opp 其实是一个切换按钮.我没有学过vb,在工作中用到excel.突然想学了.
我想得到的结果是,特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去.我点击其他单元格,依
用这个宏,当点击是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 = 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 Su