具有两个不同标准的 Msgbox

Question

我有一张excel表格，A、B、C、D列都有。

C 和 D 编号一直在变化（它们有不同的标准），因为它是根据实时获取的库存数据计算的。

当 C 和 D 与我的目标值匹配时，我需要弹出消息框，并在 A 列中显示代码，在 B 列中显示名称，在 C/D 中显示数字。

在只有 C 列时，我知道代码：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.column = 3 And Target.value >= -4 And Target.value <= 4 Then
    Call MsgBoxMacro(Target.value, Target.column, Target.row)
  End If
End Sub

Sub MsgBoxMacro(value, column, row)
    MsgBox "Ticker: " & Cells(row, column - 2) & vbNewLine & "Stock Name: " & Cells(row, column - 1) & vbNewLine & "Variable Value: " & value
End Sub

---

当我想将 D 列数据添加到代码中时，我不知道该怎么做。 （所以当 D 号达到标准时，我可以弹出消息框）请帮助。

谢谢！

Answer 1

通过将另一个参数传递给函数 MsgBoxMacro 将解决您的问题：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.column = 32 And Target.value >= -4 And Target.value <= 4 Then
    Call MsgBoxMacro(Target.value, Target.column, Target.row, 0)
  End If
  If Target.column = 33 And Target.value >= -4 And Target.value <= 4 Then
    Call MsgBoxMacro(Target.value, Target.column, Target.row, 1)
  End If
End Sub

Sub MsgBoxMacro(value, column, row, counter)
    MsgBox "Ticker: " & Cells(row, column - 31 - counter) & vbNewLine & "Stock Name: " & Cells(row, column - 30 - counter) & vbNewLine & "Variable Value: " & value
End Sub

希望这会有所帮助。

Answer 2

像这样的东西，离你所拥有的不远。这将出现在要进行更改的工作表中。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
    If ((Target.Offset(0, -1).Value > -4 And Target.Offset(0, -1).Value < 4) And _
                        (Target.Value > -4 And Target.Value < 4)) Then
        '   Msgbox here
    Else

    End If

End If
End Sub