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