Question

您好，我想在选定的单元格而不是单个单元格上运行“带有命令按钮”的宏。

下面显示的代码适用于单个单元格，但是我希望它在选择范围内运行。

P.s。我只显示1个if语句，其中有100个。

Private Sub CommandButton1_Click()

x = ActiveCell.Value * 2

If x > 0 And x < 200 Then
y = 290 
End If 


ActiveCell.Offset(0,1) = y

我希望宏在选定的单元格上运行。

我已经尝试过：Selection.Offset(0,1)但这没用

Answer 1

尝试跟随子。根据需要进行修改。

Sub RunSelection()
Dim cel As Range
Dim x As Double

    For Each cel In Selection
    x = cel.Value * 2
        If x > 0 And x < 200 Then
            cel.Offset(0, 1) = 290
        End If
    Next cel

End Sub

如何在单元格选择而不是ActiveCell上运行宏

1 个答案: