脚本之家 服务器常用软件
快捷导航
您的位置：主页 > 软件教程 > 办公软件 > excel >

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

百度经验   发布时间：2019-02-14 16:13:00   作者：gaocegao123   我要评论
excel表格怎么利用VBA制作闪烁的我爱中国效果？excel表格中想要制作一个闪烁的我爱中国的文字，该怎么制作呢？下面我们就来看看使用vba制作的教程，需要的朋友可以参考下

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

Office 2016专业增强版 2022.2 中文免费正式版(附安装教程) 64位

  • 类型：办公软件
  • 大小：1.9GB
  • 语言：简体中文
  • 时间：2022-02-15
查看详情

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

最新评论

关注微信公众号

扫一扫