Wie kann ich die Nummern in der Reihenfolge suchen?

Question

Mein Problem ist, das wie folgt:

• Ich habe 3 Spalten und 20 Zeilen, die Zahlen enthält.
• Es gibt eine Zeile mit Zahlen zwischen 1 bis 20 in der Reihenfolge Crescente, die anderen Zellen enthält größere Zahlen als 100 oder was auch immer.

Meine Hausaufgaben ist, dass ich ein VBA-Code zu schreiben, die Farbe, um die Zellen zu füllen, die die Zeile enthält. Auf diese Weise werde ich eine "bunte Schlange" aus den Zellen haben, die die Zahlen zwischen 1 bis 20 enthält.

• Natürlich ist die Startnummer Zelle „A1“
• die Endung Zelle kann überall sein im Bereich „A1: C20“
• die Substanz die gefärbten Zellen, die Zahlen, um folgen müssen Anwesenheit!

Answer 1

Sub MeykEhYewowSnakhey() 
     Dim r, c 
     Dim ws As Worksheet 
     Set ws = ThisWorkbook.Worksheets(1) 
     For r = 1 To ws.UsedRange.Rows.Count 
      For c = 1 To ws.UsedRange.Columns.Count 
       If ws.Cells(r, c).Value < 100 Then 
        ws.Cells(r, c).Interior.ColorIndex = 6 
       End If 
      Next 
     Next 
    End Sub 

bereit.

Answer 2

Es gibt wahrscheinlich einen viel effizienteren Weg, dies zu lösen, aber das ist meine Lösung.

Sub Snake() 
    Dim wbk As Workbook 
    Dim ws As Worksheet 
    Dim mySnake As Integer, x As Integer, y As Integer 

    Set wbk = Workbooks("Book1.xlsm") 
    Set ws = wbk.Worksheets("Sheet1") 
    x = 1 
    y = 1 
    With ws 
     For mySnake = 1 To 20 
      If .Cells(x, y) = mySnake Then 
       .Cells(x, y).Interior.Color = vbYellow 
       'Check cell below 
       If .Cells(x + 1, y) = mySnake + 1 Then 
        x = x + 1 
       'Check cell to right 
       ElseIf .Cells(x, y + 1) = mySnake + 1 Then 
        y = y + 1 
       'Check cells to left if y <> 1 
       ElseIf y <> 1 Then 
        If .Cells(x, y - 1) = mySnake + 1 Then 
         y = y - 1 
        End If 
       'Check cells above if x <> 1 
       ElseIf x <> 1 Then 
        If .Cells(x - 1, y) = mySnake + 1 Then 
         x = x - 1 
        End If 
       End If 
      End If 
     Next mySnake 
    End With 
End Sub