在哪編寫代碼呢?今天先學最常用的:插入 - 模塊。新建一個模塊來存放編寫的代碼。
插入(或雙擊)模塊後,在右側的空白位置就是編寫代碼的地方。
可以執行的VBA代碼(宏程序),結構是這樣的:
Sub 程序名(參數) 可以執行任務的代碼 End Sub輸入Sub 程序名()然後回車,End Sub就會自動輸入。
五、常用的VBA代碼
到了這一步,相信大家已經大概掌握了VBA的簡單操作,下面就讓我們來給大家分享幾個常用的VBA代碼吧,短短幾行,就能讓你的辦公效率得到質的飛躍~
示例1:批量取消隐藏工作表
如果需要取消隐藏的工作表很多,右鍵選擇【取消隐藏工作表】就會顯得很繁瑣,我們隻需要幾行VBA小代碼就刻意搞定啦!
Sub qxyc()
Dim sht As Worksheet
'定義變量
For Each sht In Worksheets
'循環工作簿裡的每一個工作表
sht.Visible = xlSheetVisible
'将工作表的狀态設置為非隐藏
Next
End Sub
示例2:判斷身份證号的位數是否正确
Sub 判斷身份證号位數正誤() With Sheets("IF判斷語句") For i = 2 To 10 If Len(.Cells(i, 1)) = 18 Then .Cells(i, 2) = "18位" End If Next i End WithEnd Sub
Line1:使用工作表“IF判斷語句”作為代碼中引用對象的統一父級對象;
Line2:規定循環變量i的範圍為2到10,因為我們是遍曆單元格,逐行判斷,所以循環變量應該以單元格的行号作為循環依據,所以是ROW2到ROW10;
Line3:Cells(i, 1)說明是某一行和第一列的交點單元格,當i變量為2,3,4,…,10時,對應的單元格地址就是A2,A3,A4,…,A10。用LEN函數提取單元格字符串的長度,判斷是否等于18;
Line4:如果判斷條件滿足,則Cells(i, 2)對應的B列單元格中輸入“18位”;
Line5:判斷語句的結束語句;
Line6:循環語句的結束語句;
Line7:With語句的結束語句。
示例3:批量重命名工作表
工作表默認的名稱是Sheet1這種,對我們查找數據時很不方便,我們想批量給他改名怎麼操作呢?
Sub 修改工作表名稱()Dim i As LongFor i = 2 To Sheets.Count Sheets(i).Name = Sheets(i).Range("C2")NextEnd Sub六、測試、執行、保存代碼
有話要說...