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

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

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

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

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

  • 类型:办公软件
  • 大小:1.9GB
  • 语言:简体中文
  • 时间:2021-11-10
查看详情

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判断最后一个单元格是否为空?

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/1336512.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-13
下一篇 2022-06-13

发表评论

登录后才能评论

评论列表(0条)

保存