VBA Wenn Zelle unter eine bestimmte Länge markieren und display-Meldung

Ich versuche ein Makro schreiben, das untersucht eine bestimmte Spalte in einer Excel-Tabelle suchen Sie nach Einträgen, die kürzer als 9 Zeichen ist, aber größer als 2 ist, und wenn gefunden, wird eine Meldung angezeigt, und markieren Sie die Zelle, in der dieser Wert gefunden wurde. Es könnte passieren mehrmals. Ich habe geschrieben das folgenden code:

Sub Highlight()
Dim c As Range
Dim LR As Integer
Dim intCell As Long
LR = Worksheets("Basket").Cells(Rows.Count, 6).End(xlUp).Row
For intCell = 1 To 8
For Each c In Range("G20:G" & LR).Cells
    If Len(c.Value) < 9 And Len(c.Value) > 2 Then
    MsgBox "One or more of the codes is invalid.  Correct the highlighted values."
    c.Cells(intCell).Interior.Color = vbYellow
    End If
Next
Next
End Sub

Ich kann nicht herausfinden, was ich falsch mache. Jegliche Hilfe würde sehr geschätzt werden.

  • Also, was ist der Unterschied zwischen die tatsächliche versus erwartete Verhalten?
  • +1 zu pnuts Vorschlag.
InformationsquelleAutor user2611396 | 2013-08-13
  1. 3

    Nur raten, was Sie hervorheben möchten

    Sub Highlight()
Dim c As Range
Dim LR As Integer
Dim numProbs as long
Dim sht as Worksheet

Set sht=Worksheets("Basket")

numProbs=0
LR = sht.Cells(Rows.Count, "G").End(xlUp).Row
For Each c In sht.Range("G20:G" & LR).Cells
    If Len(c.Value) < 9 And Len(c.Value) > 2 Then
        c.entirerow.cells(1).Resize(1,8).Interior.Color = vbYellow
        numProbs=numProbs+1
    End If
Next

if numProbs>0 Then
    msgbox "There were issues with " & numProbs & " rows. See yellow cells"
end if 


End Sub
    InformationsquelleAutor Tim Williams
  2. 1

    Versuchen Sie den folgenden code:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:a10")) Is Nothing Then
     If Len(Target) <= 9 And Len(Target) >= 2 Then
     MsgBox " Length of string is " & Len(Target)
     Target.Font.Bold = True
     End If
End If
End Sub

    Habe ich verwendet, Bereich A1:A10 für die Studie.

    InformationsquelleAutor rangan
  3. 0

    Dieser wird über alle Zellen, die mit nichts in der Farbe, in der diejenigen, die aus Ihrem Bereich, und warnen an, wie viele Zellen sind falsch.

    Dim sheetName As String
Dim startRow As Integer, startCol As Integer
Dim endRow As Integer, endCol As Integer
Dim row As Integer, col As Integer
Dim c As Integer

sheetName = "Sheet1" 'Your sheetname

With Sheets(sheetName)

    startRow = 1 'start row for the loop
    startCol = 1 'start column for the loop

    endRow = .UsedRange.SpecialCells(xlCellTypeLastCell).row 'Last Used Row
    endCol = .UsedRange.SpecialCells(xlCellTypeLastCell).Column 'Last Used Column

    c = 0

    For row = startRow To endRow Step 1 'Loop through rows

        For col = startCol To endCol - 1 Step 1 'Loop through columns

            If Len(.Cells(row, col)) > 2 and Len(.Cells(row, col)) < 9 Then 'If value of cell is wrong

                .Cells(row, col).Interior.Color = vbYellow 'mark cell in red
                c = c + 1

            End If

        Next col
    Next row

    MsgBox "There were issues with " & c & " entries. See yellow cells" 'Warns that there are errors

End With
    InformationsquelleAutor MRobinson
Schreibe einen Kommentar