|
編按：哈嘍，大家好！前段時間和大家提到了讓excel自殺的VBA代碼，引起了不少小伙伴的討論，都說想看部落窩分享更多關(guān)于excel中VBA的知識，別催別催，這不就來了嗎。學(xué)習(xí)更多技巧，請收藏部落窩教育excel圖文教程。 說在【前言】前面的話 如果你已經(jīng)準(zhǔn)備開始學(xué)習(xí)EXCEL VBA，或者看了此文后對學(xué)習(xí)EXCEL VBA有了絲絲興趣，還想繼續(xù)跟隨作者“由淺入深”的學(xué)習(xí)VBA，那就在評論區(qū)留言“繼續(xù)VBA！”，點一下“在看”、“關(guān)注”不迷路，你的“打Call”就是作者寫作的動力。 【前言】 一座冰山浮出海面，我們看得到浮在海面以上的部分，還有一部分卻是浸在海面以下的，如果不考慮海水的密度和水的密度的差異，那么“海面以上體積:海面以下的體積≈1:9”。在EXCEL中也有類似的一個比例，那就是“日常使用的知識:excel不會應(yīng)用的知識”，但是這個比例大概有多少就不好說了，因為每個人掌握EXCEL的程度是不一樣的，不敢說“九牛一毛”，但是大部分的同學(xué)還只是用到“皮毛而已”。當(dāng)你有一天真正的運用到了VBA，才會對EXCEL的運行原理有更加透徹的理解和使用。 【正文】 VBA在EXCEL中本質(zhì)上是對于操作對象的操作，是對被操作對象的各種屬性和方法的運用，將日常我們需要手工操作或者函數(shù)引用的內(nèi)容，編輯成VBA可以識別的語言，在觸發(fā)條件下實現(xiàn)自動化運行的過程。下面我們就來介紹幾種“RANGE（單元格區(qū)域）”時常會用到的操作。 一、SELECT屬性 英語中SELECT被譯作“選擇、選定”的意思，也就是我們常說的“選中單元格區(qū)域”，下面舉幾個例子。 1.選擇連續(xù)區(qū)域。例如，我們有一段代碼如下： Sub 選中單元格() Sheets("select").Range("A1:D6").Select End Sub 代碼含義：選中《select》工作表的A1:D6單元格區(qū)域。
2.選擇一個單元格。如果我們只需要執(zhí)行選擇一個單元格的操作，那可以按下面的寫法處理，如下： Sub 選中一個單元格1() Range("B1").Select End Sub Sub 選中一個單元格2() [C2].Select End Sub Sub 選中一個單元格3() Cells(3,4).Select End Sub 這里我們給出了三段代碼，運行效果如下：
為什么用了三種方式來寫，這里就需要講到單元格在VBA中的表示方法了。 <小知識> 在VBA中對于單元格的表達方式主要有三種：RANGE、CELLS、中括號。 （1）RANGE：書寫方式是在RANGE表達式后的括號中，寫出需要被引用的單元格區(qū)域，如上面的A1:D6，或者直接寫某一個單元格地址A1。注意單元格地址需要用英文狀態(tài)的雙引號括起來才能生效。 （2）中括號：這是一種單元格表達式的簡便寫法，如：[A1:D6]、[A1]，不需要加雙引號。 （3）CELLS：它是一種以行列號鎖定單元格的方式，語法為CELLS（行號,列號）。它只能選定一個單元格，如上面的CELLS（3,4）等同于RANGE（"D3"）或者[D3]。如果需要使用CELLS表示一個區(qū)域，可以結(jié)合RANGE，如RANGE（CELLS（1,1），CELLS（3,4）），就代表引用A1:D3區(qū)域。 相對于上面兩個小節(jié)的內(nèi)容，細心的同學(xué)一定可以看到，在我們的代碼中有的指定了工作表，如第1小節(jié)的代碼Sheets("select").Range("A1:D6")；有的沒有指定工作表，如第2小節(jié)的那三段代碼，此時我們就要引用一個新的概念：ACTIVESHEET。 其實我們在寫這兩個小節(jié)的內(nèi)容時，建立了兩個工作表，如下圖：
在寫第1小節(jié)的內(nèi)容時，我們是選中了“select”工作表之后操作的，此時的“select”工作表就是ACTIVESHEET工作表，也就是我們常說的“被選中的工作表”或者“前臺顯示的工作表”。 而當(dāng)我們的ACTIVESHEET 工作表是“select單元格”工作表時，同學(xué)們還“敢不敢”再運行一下“工程：選中單元格”呢？ Sub 選中單元格() Sheets("select").Range("A1:D6").Select End Sub 作者E圖表述知道你們都“膽大妄為”，但結(jié)果就是代碼報錯，因為SELECT屬性一定要在ACTIVESHEET表中才有效，如果ACTIVESHEET和代碼中SHEETS工作表名稱不一致，則不能運行。如果代碼中沒有指定SHEET，那么代碼默認只在ACTIVESHEET中運行。 3.選擇不連續(xù)區(qū)域。舉個例子，代碼如下： Sub 選中不連續(xù)區(qū)域() Range("A1:D6, E10, E1:F3").Select End Sub 在VBA中對于選中不連續(xù)區(qū)域的表達方式，就是用一個逗號間隔開地址，然后再用英文狀態(tài)下的雙引號將它們括起來，這樣就可以完成引用。
4.選擇區(qū)域的交集部分。舉個例子，代碼如下： Sub 選中交集區(qū)域() Range("A1:D6 D1:F3").Select End Sub 在例3中，逗號是聯(lián)合引用符，那么區(qū)域的交集部分，在EXCEL中是使用空格連接的。學(xué)習(xí)更多技巧，請收藏部落窩教育excel圖文教程。
這和我們使用工作表函數(shù)的道理是一樣的。怎么？你還不知道工作表函數(shù)的“交集引用”嗎？寫法都是一樣的，如下圖所示：
二、單元格賦值 “賦值”，顧名思義，其實就是給某一個對象的屬性“賦予一個值”，按照賦值的規(guī)則，賦予的內(nèi)容可以是“數(shù)值”、“文本”等等。當(dāng)然在VBA中值的格式有很多，我們可以先易后難，先了解日常使用的，再去考慮深入研究，這是一個很重要的學(xué)習(xí)方法，“先了解用法，再了解還可以怎么高級的運用！” 1.單元格賦值。給一個或者多個單元格賦值的過程，其實很簡單。想想我們在使用工作表函數(shù)的時候，是不是需要先輸入一個“=”，函數(shù)才能生效。這個“=”就是給單元格賦值的命令符，代碼如下： Sub 賦值1() Sheets("單元格賦值").Range("A3") = 6 Sheets("單元格賦值").Cells(4, 1) = "乘數(shù)" Sheets("單元格賦值").[A5] = "被乘數(shù)" End Sub
在代碼中，我們依然使用了三種單元格的表示方式，分別給A3、A4、A5單元格進行了賦值，這其中有數(shù)值，也有文本，當(dāng)然文本需要使用英文狀態(tài)的雙引號括起來，這個規(guī)則和工作表中函數(shù)的寫法是一樣的。 2.跨表引用，計算式結(jié)果賦值。我們在工作表“select”中設(shè)置了兩個數(shù)值，現(xiàn)在將兩個值的乘積賦值給B3單元格，代碼如下： Sub 賦值2() Sheets("單元格賦值").Cells(3, 2) = Sheets("select").Range("B2") * Sheets("select").Range("B3") End Sub
“select”工作表的B2單元格是4，B3是6，相乘等于24，用“=”號賦值給了“單元格賦值”工作表中的Cells（3,2）單元格（即B3單元格）。就是如此簡單，只要了解了代碼的表達式寫法，就可以寫出VBA代碼啦~ 3.工作表函數(shù)也能在VBA中使用。如果你要匯總一列數(shù)據(jù)，是不是馬上就會想到SUM函數(shù)，其實在VBA中一樣可以使用SUM函數(shù)。舉個例子，代碼如下： Sub 賦值3() Sheets("單元格賦值").[C1:C10] = 1 Sheets("單元格賦值").[C11] = Application.WorksheetFunction.Sum(Sheets("單元格賦值").[C1:C10]) End Sub
給一個區(qū)域賦同一個值，再使用SUM工作表函數(shù)對這個單元格區(qū)域匯總求和，Application.WorksheetFunction就是調(diào)用工作表函數(shù)的語句。 【編后語】 看完文章有沒有GET到一些VBA的入門知識呢？作者E圖表述認為，VBA不應(yīng)該有“初級知識”這種說法，因為高級語句也是由這些基礎(chǔ)知識構(gòu)建起來的，先學(xué)基礎(chǔ)，再積累思路，相信同學(xué)們一定可以自己寫出代碼。學(xué)習(xí)更多技巧，請收藏部落窩教育excel圖文教程。 ＊＊＊＊部落窩教育-VBA編程基礎(chǔ)教程＊＊＊＊ 原創(chuàng)：E圖表述/部落窩教育（未經(jīng)同意，請勿轉(zhuǎn)載） 更多教程：部落窩教育 |
|
|
