excel表格怎么利用VBA制作闪烁的我爱中国效果?

百度经验   发布时间:2019-02-14 16:13:00   作者:gaocegao123   我要评论

excel表格怎么利用VBA制作闪烁的我爱中国效果?excel表格中想要制作一个闪烁的我爱中国的文字,该怎么制作呢?下面我们就来看看使用vba制作的教程,需要的朋友可以参考下

VBA是Excel自动化的重要组成部分,Excel表格用于表示或展示数据,VBA则是对数据进行处理。今天我们就来看看使用vba制作闪烁的我爱中国文字的教程。

软件名称:
Office 2016专业增强版 中文免费正式版(附安装教程) 64位
软件大小:
1.05GB
更新时间:
2019-04-22

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 k
Cells.ClearFormats
End Sub

4、返回Excel表格,在Sheet1工作表任意空白处单击,就可以看到“I❤中国文字按笔画顺序变红,之后红色心形中心在“扑通扑通”闪烁。至此大功告成啦。

以上就是EXCEL用VBA制作我爱中国的教程,希望大家喜欢,请继续关注脚本之家。

相关推荐:

excel中VBA怎么设置共享工作簿权限?

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

excel怎么使用vba判断最后一个单元格是否为空?

相关文章

  • 利用excel vba编程在窗体上画路灯

    路灯不仅在夜晚为行人照明,现今更成为一道独特的风景。今天小编就为大家详细分享利用excel vba编程在窗体上画路灯方法,不会的朋友可以参考本文,希望能对大家有所帮助
    2016-08-22
  • excel vba编程画喇叭花方法

    喇叭花,一种很坚韧也很美丽的花,所以,喇叭花是我最喜爱的花卉。这篇教程是向脚本之家的朋友分享excel vba编程画喇叭花方法,不会的朋友可以参考本文,来看看吧
    2016-08-22
  • 在excel表格中vba使用day函数方法介绍

    有时在编写VBA程序时,会发现没有与Excel函数相对应的VBA指令,在此情况下,只能想办法通过引用Excel函数来达到目地,下面小编就为大家介绍在excel表格中vba使用day函数方
    2016-08-22
  • excel vba制作一个数字时钟

    这篇教程是向脚本之家的朋友分享excel vba制作一个数字时钟方法,教程真的很不错,值得大家学习,推荐到脚本之家,喜欢的朋友可以参考本文,来看看吧
    2016-08-19
  • excel表格中的日期怎么通过vba计算日期所在季度?

    excel表格中的日期怎么通过vba计算日期所在季度?excel表格中有很多日期,想知道这些日期都是哪个季度的,该怎么办呢?下面我们就来看看求出日期所在季度的教程,需要的朋
    2016-08-19
  • excel如何使用vba函数计算指定间隔月后的日期?

    excel如何使用vba函数计算指定间隔月后的日期?很多朋友并不是很清楚,所以下面小编就为大家详细介绍一下,不会的朋友可以参考本文,希望能对大家有所帮助
    2016-08-19
  • 利用excel vba编程在窗体上画盆子

    今天小编为大家分享利用excel vba编程在窗体上画盆子方法,教程很不错,值得大家学习,推荐到脚本之家,一起来学习吧
    2016-08-19
  • excel vba编程制作一个恶作剧小程序

    这篇教程主要是向脚本之家的朋友分享excel vba编程制作一个恶作剧小程序方法,教程比较基础,但很不错,推荐过来,一起来学习吧
    2016-08-17
  • excel怎么借助vba画一个简笔画西红柿?

    excel怎么借助vba画一个简笔画西红柿?excel中可以使用vba变成来绘制一些图形,今天我们就来看看绘制一个简笔画番茄的教程,很简单,需要的朋友可以参考下
    2016-08-17
  • excel vba编程怎么画西红柿?

    这篇教程是向脚本之家的朋友分享excel vba编程怎么画西红柿方法,教程很不错,值得大家学习,推荐过来,一起来学习吧
    2016-08-17

最新评论