subaaaaaaa()dimaasrangedimbasintegerforeachainrange("a1:e4")b=int((999.9-100+1)*rnd+100)a=bifinstr(b,"7")thena.interior.colorindex=3elsea.interior.colorindex=0endifnextendsub。
- 历史问答
- 答案列表
vba流程:vba中三种基本结构[朗读]
1、启动word,关闭所有打开的文档;2、键入alt+f11切换到vba编辑环境;3、键入ctrl+r激活左边的“工程资源管理器”,双击其中的“normal-microsoftword对象。
dimdatayouasrange'定义一个range变量datayoudimsumasinteger'定义统计保存0单元格的数量的变量sumsum=0foreachdatayouinsheet1.range("a1:cv300")'在这个区域里循环ifdatayou.value=0then'如果找到有单元格的值为0datayou.value=datayou.value+5'对此单元格进行+5的操作sum=sum+1'累加为0元的数量endifnextmsgbox"出现0的单元格的数量一共为"&sum。
正文:程序员最基本和最重要的工作就是要告诉计算机何时要做出什么样的动作.就像一个交通警察指挥大量的车辆和行人何时该走、何时该停、该项哪边走一样.流程?
顺序结构、分支结构、循环结构。