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

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

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

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

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)限?

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

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

相關(guān)文章

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

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

    喇叭花,一種很堅韌也很美麗的花,所以,喇叭花是我最喜愛的花卉。這篇教程是向腳本之家的朋友分享excel vba編程畫喇叭花方法,不會的朋友可以參考本文,來看看吧
    2016-08-22
  • 在excel表格中vba使用day函數(shù)方法介紹

    有時在編寫VBA程序時,會發(fā)現(xiàn)沒有與Excel函數(shù)相對應(yīng)的VBA指令,在此情況下,只能想辦法通過引用Excel函數(shù)來達(dá)到目地,下面小編就為大家介紹在excel表格中vba使用day函數(shù)方
    2016-08-22
  • excel vba制作一個數(shù)字時鐘

    這篇教程是向腳本之家的朋友分享excel vba制作一個數(shù)字時鐘方法,教程真的很不錯,值得大家學(xué)習(xí),推薦到腳本之家,喜歡的朋友可以參考本文,來看看吧
    2016-08-19
  • excel表格中的日期怎么通過vba計算日期所在季度?

    excel表格中的日期怎么通過vba計算日期所在季度?excel表格中有很多日期,想知道這些日期都是哪個季度的,該怎么辦呢?下面我們就來看看求出日期所在季度的教程,需要的朋
    2016-08-19
  • excel如何使用vba函數(shù)計算指定間隔月后的日期?

    excel如何使用vba函數(shù)計算指定間隔月后的日期?很多朋友并不是很清楚,所以下面小編就為大家詳細(xì)介紹一下,不會的朋友可以參考本文,希望能對大家有所幫助
    2016-08-19
  • 利用excel vba編程在窗體上畫盆子

    今天小編為大家分享利用excel vba編程在窗體上畫盆子方法,教程很不錯,值得大家學(xué)習(xí),推薦到腳本之家,一起來學(xué)習(xí)吧
    2016-08-19
  • excel vba編程制作一個惡作劇小程序

    這篇教程主要是向腳本之家的朋友分享excel vba編程制作一個惡作劇小程序方法,教程比較基礎(chǔ),但很不錯,推薦過來,一起來學(xué)習(xí)吧
    2016-08-17
  • excel怎么借助vba畫一個簡筆畫西紅柿?

    excel怎么借助vba畫一個簡筆畫西紅柿?excel中可以使用vba變成來繪制一些圖形,今天我們就來看看繪制一個簡筆畫番茄的教程,很簡單,需要的朋友可以參考下
    2016-08-17
  • excel vba編程怎么畫西紅柿?

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

最新評論