excel表格怎么利用VBA制作閃爍的我愛中國效果?

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

Microsoft Office 2016專業(yè)增強(qiáng)版 2025.3 v16.0.5495 VL 中文正式版(附安裝教程) 64位
- 類型:辦公軟件
- 大?。?/span>2.0GB
- 語言:簡體中文
- 時間:2025-04-10
1、首先,我們在Excel表格中如圖按升序?qū)?shù)字輸入表格,以方便在VBA中進(jìn)行讀取和處理操作。如圖:
2、進(jìn)入VBA環(huán)境,可以按鍵盤上的“Alt+F11”進(jìn)入。雙擊“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 k Cells.ClearFormats End Sub
4、返回Excel表格,在Sheet1工作表任意空白處單擊,就可以看到“I❤中國”文字按筆畫順序變紅,之后紅色心形中心在“撲通撲通”閃爍。至此大功告成啦。
以上就是EXCEL用VBA制作我愛中國的教程,希望大家喜歡,請繼續(xù)關(guān)注腳本之家。
相關(guān)推薦:
excel中VBA怎么設(shè)置共享工作簿權(quán)限?
相關(guān)文章
- 路燈不僅在夜晚為行人照明,現(xiàn)今更成為一道獨(dú)特的風(fēng)景。今天小編就為大家詳細(xì)分享利用excel vba編程在窗體上畫路燈方法,不會的朋友可以參考本文,希望能對大家有所幫助2016-08-22
- 喇叭花,一種很堅韌也很美麗的花,所以,喇叭花是我最喜愛的花卉。這篇教程是向腳本之家的朋友分享excel vba編程畫喇叭花方法,不會的朋友可以參考本文,來看看吧2016-08-22
- 有時在編寫VBA程序時,會發(fā)現(xiàn)沒有與Excel函數(shù)相對應(yīng)的VBA指令,在此情況下,只能想辦法通過引用Excel函數(shù)來達(dá)到目地,下面小編就為大家介紹在excel表格中vba使用day函數(shù)方2016-08-22
- 這篇教程是向腳本之家的朋友分享excel vba制作一個數(shù)字時鐘方法,教程真的很不錯,值得大家學(xué)習(xí),推薦到腳本之家,喜歡的朋友可以參考本文,來看看吧2016-08-19
- excel表格中的日期怎么通過vba計算日期所在季度?excel表格中有很多日期,想知道這些日期都是哪個季度的,該怎么辦呢?下面我們就來看看求出日期所在季度的教程,需要的朋2016-08-19
excel如何使用vba函數(shù)計算指定間隔月后的日期?
excel如何使用vba函數(shù)計算指定間隔月后的日期?很多朋友并不是很清楚,所以下面小編就為大家詳細(xì)介紹一下,不會的朋友可以參考本文,希望能對大家有所幫助2016-08-19- 今天小編為大家分享利用excel vba編程在窗體上畫盆子方法,教程很不錯,值得大家學(xué)習(xí),推薦到腳本之家,一起來學(xué)習(xí)吧2016-08-19
- 這篇教程主要是向腳本之家的朋友分享excel vba編程制作一個惡作劇小程序方法,教程比較基礎(chǔ),但很不錯,推薦過來,一起來學(xué)習(xí)吧2016-08-17
- excel怎么借助vba畫一個簡筆畫西紅柿?excel中可以使用vba變成來繪制一些圖形,今天我們就來看看繪制一個簡筆畫番茄的教程,很簡單,需要的朋友可以參考下2016-08-17
- 這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法,教程很不錯,值得大家學(xué)習(xí),推薦過來,一起來學(xué)習(xí)吧2016-08-17