Excelでセルを強調表示してから下に移動する

Question

私は0％VBAを知っています。私は助けが必要です。私は、セルの行を強調表示し、1を下に移動し、ボタンがクリックされると上記のプロセスを繰り返すVBAボタンを作成する必要があります。ここで

は、私が何を言っているかの抜粋です：

私は上記の次の行に下に移動し、それら3つの列と繰り返しを強調したいでしょう。

「x」個のデータ行に対してこれをどのように実装できるかご存知の方は教えてください。

ありがとうございました！

EDIT：コードは、その下に私が

Private Sub CommandButton1_Click() 
Sub Macro1() 
    With Selection.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Range("A12:C12").Select 
    With Selection.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
    Range("A13:C13").Select 
    With Selection.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
End Sub 

Answer 1

を試してみました、私は次のことを試したし、あなたが望んでいたとして、それが働いた：

Sub Button1_Click() 
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row 'Check the last row with data 
For i = 1 To LastRow 'loop until you find the last highlighted cell 
    If Sheet1.Cells(i, 1).Interior.Color = 65535 Then 
    x = i + 1 ' add one for the next row 
    End If 
Next i 

If x > 1 Then 
    Sheet1.Range("A" & x & ":C" & x).Interior.Color = 65535 'add colour to the next cell found in previous loop 
Else 
    x = 1 
    Sheet1.Range("A" & x & ":C" & x).Interior.Color = 65535 'if no cell found in previous loop, highlight the first row 
End If 
End Sub 

Answer 2

これは、選択した行をハイライト表示し、1行下に移動します。その後、次のボタンを押すのを待つ。

Option Explicit 

Private Sub HighlightSelectedRowAndMoveDown() 
    With Selection.EntireRow  'use the entire row of the selected cell 
     .Interior.Color = 65535 'color its background yellow 
     .Offset(1, 0).Select  'move selection one row down 
    End With 
End Sub