小福利，用Excel vba设计一个变色小游戏

Option ExplicitPrivate Sub CommandButton1_Click()
Dim i, j
For i = 1 To 100For j = 1 To 100If i >= j ThenIf i Mod 2 = 1 And j Mod 2 = 1 ThenCells(i, j) = "zpsg"With Cells(i, j).Interior.Pattern = xlSolid.Color = vbGreenEnd WithElseCells(i, j) = i * jEnd IfElseCells(i, j) = ""End IfNext jNext iEnd SubPrivate Sub CommandButton2_Click()[a1:cv100] = ""
[a1:cv100].Interior.Color = vbWhiteEnd SubPrivate Sub CommandButton3_Click()
Dim i, j
For i = 1 To 100For j = 100 To 1 Step -1If i <= j ThenIf i Mod 2 = 1 And j Mod 2 = 1 ThenCells(i, j) = "zpsg"With Cells(i, j).Interior.Pattern = xlSolid.Color = vbRedEnd WithElseCells(i, j) = i * jEnd IfElseCells(i, j) = ""End IfNext jNext iEnd SubPrivate Sub CommandButton4_Click()Dim i, j
For i = 1 To 100For j = 1 To 100If i Mod 2 = 1 And j Mod 2 = 1 ThenCells(i, j) = "zpsg"With Cells(i, j).Interior.Pattern = xlSolid.Color = vbCyanEnd WithElseCells(i, j) = i * jEnd IfNext jNext iEnd SubPrivate Sub CommandButton5_Click()Dim i, j
For i = 1 To 100For j = 1 To 100If i Mod 2 = 0 And j Mod 2 = 0 ThenCells(i, j) = "zpsg"With Cells(i, j).Interior.Pattern = xlSolid.Color = vbBlueEnd WithElseCells(i, j) = i * jEnd IfNext jNext iEnd SubPrivate Sub CommandButton6_Click()
Dim i, j
Dim r1
For i = 1 To 100 Step 3For j = 1 To 100 Step 3If i Mod 2 = 1 And j Mod 2 = 1 ThenSet r1 = Range(Cells(i, j), Cells(i, j + 1))r1.Value = "zpsg"With r1.Interior.Pattern = xlSolid.Color = RGB(255, 0, 255)End WithElseCells(i, j) = i * jEnd IfNext jNext i
End Sub

如上图插入六个命令框，分别写入代码
效果展示如下

小福利，用Excel vba设计一个变色小游戏相关推荐

小福利，用Excel VBA设计一个查询小应用
小福利,用Excel VBA设计一个查询小应用 Option ExplicitSub 查询_Click()Dim rng1, rng2, rng As RangeDim firstaddressDim ...
Excel VBA 做一个抽奖小工具
小福利，用Excel VBA编程制作一个变色小游戏
小福利,用Excel VBA编程制作一个变色小游戏设计思想:在正方形的四条边上都是设置循环函数,不断改变颜色和单元格里面的数值. Option ExplicitSub 按钮1_Click() Dim ...
小福利，excel里面采用sumifs多条件判断来快速整理数据，将一维表转为二维表,countifs多条件计数数据
小福利,excel里面采用sumifs多条件判断来快速整理数据,将单记录数据转换成横纵坐标表格数据先看一下原数据,杂乱无章第一步对姓名字段进行排序,看结果第二步进行分类汇总分别显示三个层次的分 ...
Excel VBA设计测绘工程电子计算表格从入门到入土（待完结）- 开发方法举例
Excel VBA设计测绘工程表格从入门到入土从第一个宏程序入门如何设计电子表格如何使用VBA开发应用实际如何编辑VBA代码一.了解界面二.组织结构三.如何添加代码和窗口四.编辑代码 ...
python经典小游戏-用Python设计一个经典小游戏：猜大小
码农那点事儿关注我们,一起学习进步本文主要介绍如何用Python设计一个经典小游戏:猜大小. 游戏规则: 初始本金是1000元,默认赔率是1倍,赢了,获得一倍金额,输了,扣除1倍金额. 玩家选择下 ...
20行python代码的入门级小游戏-用Python设计一个经典小游戏
本文主要介绍如何用Python设计一个经典小游戏:猜大小. 在这个游戏中,将用到前面我介绍过的所有内容:变量的使用.参数传递.函数设计.条件控制和循环等,做个整体的总结和复习. 游戏规则: 初始本金是 ...
python经典小游戏-用Python设计一个经典小游戏
本文主要介绍如何用Python设计一个经典小游戏:猜大小. 在这个游戏中,将用到前面我介绍过的所有内容:变量的使用.参数传递.函数设计.条件控制和循环等,做个整体的总结和复习. 游戏规则: 初始本金是 ...
怎么用计算机求logo,pclogo小海龟里帮我设计一个复杂图
写过程急~~~~~~~~~~~~~~~~~~~~~~~~TO HJ FD 50 RT 45 FD 15 RT 90 FD 15 RT 45 FD 50 LT 45 FD 30 rt 135 fd 90 ...

小福利，用Excel vba设计一个变色小游戏

小福利，用Excel vba设计一个变色小游戏相关推荐

最新文章

热门文章