欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

百度經(jīng)驗(yàn)   發(fā)布時(shí)間：2019-02-14 16:13:00   作者：gaocegao123   我要評(píng)論
excel表格怎么利用VBA制作閃爍的我愛中國(guó)效果？excel表格中想要制作一個(gè)閃爍的我愛中國(guó)的文字，該怎么制作呢？下面我們就來(lái)看看使用vba制作的教程，需要的朋友可以參考下

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

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快速重命名未打開的文件?

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

相關(guān)文章

  • 利用excel vba編程在窗體上畫路燈

    路燈不僅在夜晚為行人照明，現(xiàn)今更成為一道獨(dú)特的風(fēng)景。今天小編就為大家詳細(xì)分享利用excel vba編程在窗體上畫路燈方法，不會(huì)的朋友可以參考本文，希望能對(duì)大家有所幫助
    2016-08-22

  • excel vba編程畫喇叭花方法

    喇叭花,一種很堅(jiān)韌也很美麗的花,所以,喇叭花是我最喜愛的花卉。這篇教程是向腳本之家的朋友分享excel vba編程畫喇叭花方法，不會(huì)的朋友可以參考本文，來(lái)看看吧
    2016-08-22

  • 在excel表格中vba使用day函數(shù)方法介紹

    有時(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-19

  • excel表格中的日期怎么通過(guò)vba計(jì)算日期所在季度?

    excel表格中的日期怎么通過(guò)vba計(jì)算日期所在季度？excel表格中有很多日期，想知道這些日期都是哪個(gè)季度的，該怎么辦呢？下面我們就來(lái)看看求出日期所在季度的教程，需要的朋
    2016-08-19

  • excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期?

    excel如何使用vba函數(shù)計(jì)算指定間隔月后的日期？很多朋友并不是很清楚，所以下面小編就為大家詳細(xì)介紹一下，不會(huì)的朋友可以參考本文，希望能對(duì)大家有所幫助
    2016-08-19

  • 利用excel vba編程在窗體上畫盆子

    今天小編為大家分享利用excel vba編程在窗體上畫盆子方法，教程很不錯(cuò)，值得大家學(xué)習(xí)，推薦到腳本之家，一起來(lái)學(xué)習(xí)吧
    2016-08-19

  • excel vba編程制作一個(gè)惡作劇小程序

    這篇教程主要是向腳本之家的朋友分享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編程怎么畫西紅柿?

    這篇教程是向腳本之家的朋友分享excel vba編程怎么畫西紅柿方法，教程很不錯(cuò)，值得大家學(xué)習(xí)，推薦過(guò)來(lái)，一起來(lái)學(xué)習(xí)吧
    2016-08-17

最新評(píng)論