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。
正文:程式設計師最基本和最重要的工作就是要告訴計算機何時要做出什麼樣的動作.就像一個交通警察指揮大量的車輛和行人何時該走、何時該停、該項哪邊走一樣.流程?
順序結構、分支結構、循環結構。