我想得到的结果是,特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去.我点击其他单元格,依在D2,E2,F2,D3,E3,F3,D4,E4,F4等中赋予值.第一次赋予D2,然后D2固定下来.第二次赋予e2.然后e2固定下来.然后
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 19:37:36
![我想得到的结果是,特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去.我点击其他单元格,依在D2,E2,F2,D3,E3,F3,D4,E4,F4等中赋予值.第一次赋予D2,然后D2固定下来.第二次赋予e2.然后e2固定下来.然后](/uploads/image/z/1774968-24-8.jpg?t=%E6%88%91%E6%83%B3%E5%BE%97%E5%88%B0%E7%9A%84%E7%BB%93%E6%9E%9C%E6%98%AF%2C%E7%89%B9%E5%AE%9A%E5%8D%95%E5%85%83%E6%A0%BC%E4%B8%BAD2%2CE2%2CF2%2CD3%2CE3%2CF3%2CD4%2CE4%2CF4%E7%AD%89%E4%B8%80%E7%9B%B4%E5%BE%AA%E7%8E%AF%E4%B8%8B%E5%8E%BB.%E6%88%91%E7%82%B9%E5%87%BB%E5%85%B6%E4%BB%96%E5%8D%95%E5%85%83%E6%A0%BC%2C%E4%BE%9D%E5%9C%A8D2%2CE2%2CF2%2CD3%2CE3%2CF3%2CD4%2CE4%2CF4%E7%AD%89%E4%B8%AD%E8%B5%8B%E4%BA%88%E5%80%BC.%E7%AC%AC%E4%B8%80%E6%AC%A1%E8%B5%8B%E4%BA%88D2%2C%E7%84%B6%E5%90%8ED2%E5%9B%BA%E5%AE%9A%E4%B8%8B%E6%9D%A5.%E7%AC%AC%E4%BA%8C%E6%AC%A1%E8%B5%8B%E4%BA%88e2.%E7%84%B6%E5%90%8Ee2%E5%9B%BA%E5%AE%9A%E4%B8%8B%E6%9D%A5.%E7%84%B6%E5%90%8E)
我想得到的结果是,特定单元格为D2,E2,F2,D3,E3,F3,D4,E4,F4等一直循环下去.我点击其他单元格,依在D2,E2,F2,D3,E3,F3,D4,E4,F4等中赋予值.第一次赋予D2,然后D2固定下来.第二次赋予e2.然后e2固定下来.然后
我想得到的结果是,特定单元格为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等一直循环下去.我点击其他单元格,依在D2,E2,F2,D3,E3,F3,D4,E4,F4等中赋予值.第一次赋予D2,然后D2固定下来.第二次赋予e2.然后e2固定下来.然后
用这个宏,当点击是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 Sub