Question

基本上我现在有这个：https://i.gyazo.com/5890c00b96526f86c8bea8b5f4fe3a85.png

我需要的是：

如果单元格1 = 0，则将单元格2的值设置为10，将单元格3设置为0，如果单元格1 = 1，则将单元格3的值设置为10，将单元格2设置为0.

我尝试了什么：

If cell1 = 1 Then
    cell2 = 10
Else
    ActiveCell.Offset(0, 2).Select
    ActiveCell.Value = 10
    cell2 = 0
End If

适用于cell2但不适用于cell3。（#VALUE！）

有什么想法吗？

Answer 1

假设活动单元格为单元格1，稍微修改一下代码，并按要求运行，请尝试告诉我

Sub test()
'assuming activecell as cell 1

If ActiveCell.Value = 0 Then 'cell 1
    ActiveCell.Offset(0, 2).Value = 10 'cell 2
    ActiveCell.Offset(0, 4).Value = 0 'cell 3
End If
   If ActiveCell.Value = 1 Then 'cell 1
    ActiveCell.Offset(0, 2).Value = 0  'cell 2
    ActiveCell.Offset(0, 4).Value = 10 'cell 3
End If
End Sub

Excel VB - 设置依赖于另一个单元格的单元格值

1 个答案: