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

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

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