Wie erstellt man ein Meldungsfeld für mehr als 160 Zeilen (10836), um Text in mehreren Spalten anzuzeigen, abhängig davon, welche Zeile ausgewählt ist?

Question

Ich verwende den folgenden Code, um ein Meldungsfeld zu erstellen, das anzeigt, wenn Zellen A1, A2, A3 ... bis A9 ausgewählt werden, die dann den Text in den Anführungszeichen sowie Text in Zellen V1 (+21) anzeigen , W1 (+22) und X1 (+23) für, wenn zum Beispiel A1 gewählt wird, wenn A2 gewählt wird, wird es die Zeichenkette im folgenden Code sowie Text in den Zellen V2, W2 und X2 und so weiter anzeigen . Ich muss dies für alle 10836-Zeilen tun, aber es scheint, als wären 160 Fälle die Grenze, die diese Methode verwendet. Gibt es einen effizienteren Weg, dies zu tun? Jede Hilfe würde geschätzt werden

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
If Target.Count > 1 Then Exit Sub 
If Target.Column = 1 Then 
Select Case Target.Row 
    Case 1, 2, 3, 4, 5, 6, 7, 8, 9 
     MsgBox "Changes : " & Cells(Target.Row, Target.Column + 22) & vbNewLine & " ABC Comments: " & Cells(Target.Row, Target.Column + 23) & vbNewLine & "XYZ Comments: " & Cells(Target.Row, Target.Column + 21), vbInformation, "Comments" 
    Case Else: 
End Select 
End If 
End Sub 

Answer 1

Ich dachte in die gleiche Richtung wie Darren Bartrup-Cook; hier ist es in voller:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    Dim LastRow As Integer 
    LastRow = 10836 

    If Target.Count > 1 Then Exit Sub 
    If Target.Column = 1 Then 

    Select Case Target.Row 
     Case 1 To LastRow 
      MsgBox "Changes : " & Cells(Target.Row, Target.Column + 22) & vbNewLine & " ABC Comments: " & Cells(Target.Row, Target.Column + 23) & vbNewLine & "XYZ Comments: " & Cells(Target.Row, Target.Column + 21), vbInformation, "Comments" 
     Case Else: 
    End Select 
    End If 

    End Sub 

Answer 2

Ihr Code war fast da. Statt einer Case-Anweisung würde ich eine IF-Anweisung empfehlen.

' Event fired when the user changes the selected cells. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

    ' Has user selected a single cell in row A, between 1 to A10836? 
    If Target.Cells.Count = 1 And Target.Column = 1 And Target.Row <= 10836 Then 

     MsgBox "Changes: " & Cells(Target.Row, 23) & vbCrLf & _ 
       "ABC Comments: " & Cells(Target.Row, 24) & vbCrLf & _ 
       "XYZ Comments: " & Cells(Target.Row, 22) & vbCrLf 
    End If 
End Sub