Excel VBA：在字符串范围上重复 IF 语句到追溯行

Question

我正在努力寻找我需要的答案，希望有人能提供帮助。我觉得我编写的代码需要以不同的方式来实现我想要实现的目标。

我已经生成了一些代码，这些代码在一个单元格上生成一个 IF 语句，并在旁边的另一个单元格中显示相应的描述，我还添加了代码以确保它在此值更改时自动更新。这行得通。

我现在需要扩展代码，以便循环单元格并重复相同的功能。检查 IF 语句并在其旁边的相应单元格中显示相应的描述。

工作表 VBA：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Me.Range("A2:A10")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  On Error GoTo Finalise
  Call Material_String
  Finalize:
  Application.EnableEvents = True
End Sub

模块：

Sub Material_String()
  Dim MaterialOption As String
  Dim MaterialDetail As String
  MaterialOption = Range("A2").Value
  If MaterialOption = "a" Then MaterialDetail = "a is bloody good"
  If MaterialOption = "b" Then MaterialDetail = "b is excellent"
  If MaterialOption = "c" Then MaterialDetail = "c is most good"
  If MaterialOption = "d" Then MaterialDetail = "d is simply the best"
  If MaterialOption = "e" Then MaterialDetail = "e's are just amazing"
  Range("C2").Value = MaterialDetail
End Sub

任何指针将不胜感激。

Answer 1

您可能不想遍历所有行。您可能只想处理已更改的单元格。

您可以通过更改您的“工作”子例程（即Material_String）来接受一个单元格作为参数，并更改您的Worksheet_Change 事件以传递已更改的单元格。

工作表 VBA：

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Me.Range("A2:A10")) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  On Error GoTo Finalise
  Dim c As Range
  'Loop through each changed cell, just in case there is more than one
  For Each c In Intersect(Target, Me.Range("A2:A10")).Cells
      Call Material_String(c)
  Next
  Finalize:
  Application.EnableEvents = True
End Sub

模块：

Sub Material_String(c As Range)
  Dim MaterialOption As String
  Dim MaterialDetail As String
  MaterialOption = c.Value
  If MaterialOption = "a" Then MaterialDetail = "a is bloody good"
  If MaterialOption = "b" Then MaterialDetail = "b is excellent"
  If MaterialOption = "c" Then MaterialDetail = "c is most good"
  If MaterialOption = "d" Then MaterialDetail = "d is simply the best"
  If MaterialOption = "e" Then MaterialDetail = "e's are just amazing"
  c.Offset(0, 2).Value = MaterialDetail
End Sub