Vba If语句移位单元_Vba_Excel_If Statement

Vba If语句移位单元

vba excel if-statement

Vba If语句移位单元,vba,excel,if-statement,Vba,Excel,If Statement,我目前有这个If-MsgBox语句。如果选择vbYes，它将编辑单元格H8；如果选择vbNo，它将编辑该单元格（H11）下方的单元格3 编辑是相同的-唯一的区别是单元格向下偏移了3个单元格。在本例中，我只使用H8和H9，但在我的数据中，有更多的单元格正在更新。这使得我的代码很混乱。有没有一个简单的方法来巩固这一点 'Make a range first Set WorkingRange = '(YourRangeHere)' If MsgBox("Is X? ", vbYesNo, "Confi

我目前有这个If-MsgBox语句。如果选择vbYes，它将编辑单元格H8；如果选择vbNo，它将编辑该单元格（H11）下方的单元格3

编辑是相同的-唯一的区别是单元格向下偏移了3个单元格。在本例中，我只使用H8和H9，但在我的数据中，有更多的单元格正在更新。这使得我的代码很混乱。有没有一个简单的方法来巩固这一点

'Make a range first
Set WorkingRange = '(YourRangeHere)'
If MsgBox("Is X? ", vbYesNo, "Confirm") = vbNo Then
    Set WorkingRange = WorkingRange.Offset(3)
End If

'Do this with WorkingRange here

如果您想为不同的值循环i，这将非常快

For i = 8 to 200 Step 1
    'do soemthing using i
Next i

如果您想为不同的值循环i，这将非常快

For i = 8 to 200 Step 1
    'do soemthing using i
Next i

如果单元格的偏移量一致，您可以使用循环来设置以下行的值？如3.4.5.6.7和10.11.12.13.14？如果单元格的偏移量一致，您可以使用循环来设置值，如下所示？比如3.4.5.6.7和10.11.12.13.14？我最终使用了类似的东西-谢谢！！我最终使用了类似的东西-谢谢！！

For i = 8 to 200 Step 1
    'do soemthing using i
Next i