Meldungsfeld für die Zeilennummer, wenn mehrere Fehler angezeigt werden

Question

Ich verwende diesen Code, um jedes Mal eine Fehlermeldung zu erhalten, wenn in Spalte "W" ein Text eingefügt wird. Wenn dies geschieht, wird der Text gelöscht und eine Box-Meldung erscheint: "Die Zeile W" & r & "muss nur Ziffern enthalten!", die die Zeilennummer des Fehlers angibt. r - ist als Target.Row gesetzt

Mein Problem ist, dass, wenn ich einen Text im Bereich w10: w12 kopieren, erhalte ich die Fehlermeldung 3 mal, das ist großartig. In dem Meldungsfeld wird jedoch nur die Zeilennummer w10 - 3 mal angezeigt, d. H. "Die Zeile W10 darf nur Ziffern enthalten!". Wie kann ich den Code machen, um das Meldungsfeld mit w10, dann w11 und schließlich dann w12 anzuzeigen?

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range 
Dim r As Long 

r = Target.Row 

Application.EnableEvents = False 
For Each cell In Target 
    If Not Application.Intersect(cell, Range("w10:w10000")) Is Nothing Then 
     If Not IsNumeric(cell.Value) Then 
      MsgBox "The row W" & r & " must contain only digits!" 
      cell.Value = vbNullString 
     End If 
    End If 
    Next cell 
    Application.EnableEvents = True 

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range 

    Application.EnableEvents = False 
    For Each cell In Target 
     If Not Application.Intersect(cell, Range("w10:w10000")) Is Nothing Then 
      If Not IsNumeric(cell.Value) Then 
       MsgBox "The row W" & cell.row & " must contain only digits!" 
       cell.Value = vbNullString 
      End If 
     End If 
    Next cell 
    Application.EnableEvents = True 

Answer 2

[...] eine Fehlermeldung, jedes Mal, wenn in der Spalte "W", ein Text eingefügt wird erhalten. Wenn dies geschieht, wird der Text gelöscht und eine Boxmeldung erscheint: "Die Zeile W" & r & "darf nur Ziffern enthalten!"

Das Recht, was hier zu tun ist Datenvalidierung zu verwenden, um die möglichen Werte eine Zelle nehmen zu beschränken.

Sie können eine Fehlermeldung an, die Excel zeigt einen ungültigen Wert angegeben:

... und sogar ein Tooltip Nachricht, wenn die Zelle ausgewählt ist:

Hier habe ich Datenvalidierung für Zelle A1 konfiguriert :

Sie alles, was mit VBA-Code zu tun (mit dem Range.Validation API), aber wirklich, es gibt überhaupt keine Notwendigkeit.

Answer 3

Es wäre einfacher, durchschnittene Bereich und dann diese Zellen Kontrolle zu bekommen:

Sub F() 

    Dim cell As Range 
    Dim rngArea As Range 
    Dim rngIntersect As Range 

    Set rngIntersect = Intersect(Selection, [W10:W10000]) 
    If rngIntersect Is Nothing Then Exit Sub 

    For Each rngArea In rngIntersect.Areas 
     For Each cell In rngArea 
      '// The code... 
     Next 
    Next 

End Sub