VBA是Excel自動化的重要組成部分，Excel表格用于表示或展示數據，VBA則是對數據進行處理。今天我們就來看看使用vba制作閃爍的我愛中國文字的教程。

1、首先，我們在Excel表格中如圖按升序將數字輸入表格，以方便在VBA中進行讀取和處理操作。如圖：

2、進入VBA環境，可以按鍵盤上的“Alt+F11”進入。雙擊“Microsoft Excel對象”下面的sheet1（sheet1），為表格sheet1添加代碼

3、在sheet1代碼編輯窗口中添加如下代碼：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)    Dim i, j, k, introw, intcol As Integer    For k = 1 To 184    For i = 4 To 26      For j = 2 To 31          If Sheets(1).Cells(i, j).Value = k Then             Application.Wait (Now + TimeValue("00:00:01") * 0.5)             Sheets(1).Cells(i, j).Interior.ColorIndex = 3          End If      Next j    Next i    Next k        For k = 1 To 6    Application.Wait (Now + TimeValue("00:00:01") / 1.5)    For i = 5 To 23        For j = 6 To 12          If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 0) Then              Sheets(1).Cells(i, j).Interior.ColorIndex = 3          End If          If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 1) Then              Sheets(1).Cells(i, j).Interior.ColorIndex = 0          End If        Next j    Next i    Next kCells.ClearFormatsEnd Sub

4、返回Excel表格，在Sheet1工作表任意空白處單擊，就可以看到“I❤中國”文字按筆畫順序變紅，之后紅色心形中心在“撲通撲通”閃爍。至此大功告成啦。

以上就是EXCEL用VBA制作我愛中國的教程，希望大家喜歡，請繼續關注錯新站長站。

相關推薦：

excel中VBA怎么設置共享工作簿權限?

excel怎么使用vba快速重命名未打開的文件?

excel怎么使用vba判斷最后一個單元格是否為空?