新用戶掃碼下載
掃碼下載APP
及時接收最新考試資訊及
備考信息
快速定位單元格實例
【例】在選擇某一個學(xué)生的成績的時候，往往會發(fā)生錯行的情況，而這個程序可以使您在選擇某一個成績時，自動選中該成績所在行的第一列的單元格。
編寫代碼為：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column <> 1) Then
Cells(Target.Row, 1).Select
End If
End Sub
首先，按【ALT】+【F11】鍵，就能打開代碼編輯窗口；
其次，我們看到代碼窗口上方有兩個下拉列表框，左邊的是“Worksheet”，右邊的是“SelectionChange”，這表示當(dāng)前的代碼寫在Worksheet工作簿的Sheet1工作表的SelectionChange事件中；這個事件的觸發(fā)條件是當(dāng)前選中的單元格發(fā)生變化，也就是說如果之前你選中了A1單元格，那么現(xiàn)在如果你又左鍵單擊選擇了B1單元格，這個事件就會被觸發(fā)，里面的代碼就會被執(zhí)行。這個事件還帶了一個參數(shù)，名字叫“Target”，這個參數(shù)的類型是Range，即單元格區(qū)域類型，所以這個參數(shù)表示的是對當(dāng)前最新被選中的單元格的引用。
那么我們是怎么實現(xiàn)上述程序的目的的呢？讓我們繼續(xù)看一看程序的代碼，其中是一個分支判斷選擇結(jié)構(gòu)的IF語句，判斷的條件是：當(dāng)前被選中的單元格所對應(yīng)的列序號如果不是1（也就是說當(dāng)前被選中的不是A列的單元格），如果條件成立那么就執(zhí)行其中的代碼，“Cells”是對工作表所有單元格集合的引用，有兩個參數(shù)，第一個是表示行序號，第二個表示列序號，如果給定了這兩個參數(shù)，那么也就是指定了在SHEET1工作表的所有單元格集合中符合當(dāng)前給定行序號和列序號的唯一單元格的引用；看下這里指定的兩個參數(shù)是什么呢？行序號被指定為當(dāng)前被選中單元格所在行的行序號，列序號被指定為1，即A列單元格，那么現(xiàn)在就通過“Select”方法使由行序號和列序號兩個參數(shù)指定的單元格集合中的這個單元格成為當(dāng)前被選中的單元格。這樣就實現(xiàn)了我們之前定義的這個程序的目的。
現(xiàn)在你可以嘗試一下選中非A列單元格的操作，看看是否自動變?yōu)檫x中了同行的行首第一個單元格。
責(zé)任編輯：zoe
上一篇：VBA實例精解（一）
下一篇：如何取得單元格的超鏈接地址？
相關(guān)資訊
實務(wù)學(xué)習(xí)指南
距6月報稅結(jié)束還有天
新用戶掃碼下載
京公網(wǎng)安備 11010802044457號