當前位置:首頁 > 科技 > 正文

别害怕,VBA一點都不難!這篇入門教程超簡單,小白也能學~

哈喽,大家好呀,這裡是部落窩編輯部。 我相信有許多朋友都是很想學習Excel的王炸功能——VBA,但是礙于其難度系數,一直可望而不可及。

沒關系,今天就和小編一起從入門開始學習吧!
一、先認識一下VBA
VBA為廣大用戶提供了對Excel功能進行二次開發的平台。 我們可以借助VBA完成許多僅憑基本操作和公式無法實現的功能,并且可以實現工作自動化,提高工作效率。
二、打開VBA編輯器的三種方式
1.在功能區的“開發工具”中打開VBE界面 很多同學的Excel功能區中沒有“開發工具”選項的,我們可以通過“選項”中的“自定義功能區”,調用出這個功能。

然後選擇“開發工具”——Visual Basic功能鍵,就可以打開VBE界面。

2.在工作表标簽上單擊鼠标右鍵,打開菜單欄;


在彈出的菜單中,選擇“查看代碼”,也可以打開VBE界面。
3.ALT+F11組合鍵打開,這是最常用的打開方式。
注意:無論你使用何種方式打開VBE界面,都要記得,要打開某個工作薄之後,才可以使用VBE,畢竟EXCEL文件才是VBE的載體。
三、創建寫VBA代碼的地方

在哪編寫代碼呢?今天先學最常用的:插入 - 模塊。新建一個模塊來存放編寫的代碼。


四、開始寫代碼

插入(或雙擊)模塊後,在右側的空白位置就是編寫代碼的地方。

可以執行的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:判斷身份證号的位數是否正确



這樣的一組号碼,不考慮号碼的信息正誤,隻看位數,你很難知道它是否是18位,那麼此時用代碼來處理,就顯得很方便了,如下:

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
六、測試、執行、保存代碼

在編寫代碼時經常要測試是否正确。測試方式是把光标放在代碼行的任意位置,點擊運行小按鈕。 要想執行VBA代碼,我們隻需要右鍵點擊指定宏-選擇編寫的宏名稱即可。 另外,有個點要特别注意,我們在保存文檔的時候,【保存類型】要選擇為“啟用宏的工作簿”類型,這樣我們辛苦寫出來的VBA代碼才能保存下來。


代碼一兩行,工作再也不用忙斷腸。 今天的VBA入門課程,你都學會了嗎? 還有疑問的同學,歡迎留言評論區。

你可能想看:

有話要說...

取消
掃碼支持 支付碼