今天無法錄制視頻，發(fā)段簡單的代碼！

大家設(shè)置表格時可以參考！

colorindex對應(yīng)56個值，小于1就是無色了！

大于56就要報錯了，大家可以測試！

下面時演示代碼:

Sub 按鈕1_Click()

? ? r = 1

? ? c = 1

? ? For j = 1 To 56

? ? ? ? r = r + 1

? ? ? ? Cells(r, c).Interior.ColorIndex = j

? ? ? ? Cells(r, c + 1) = j

? ? ? ? If r = 15 Then

? ? ? ? ? ? r = 1

? ? ? ? ? ? c = c + 2

? ? ? ? End If

? ? Next j

End Sub

下面圖片是執(zhí)行結(jié)果！