新用戶掃碼下載
掃碼下載APP
及時接收最新考試資訊及
備考信息
快速定位單元格實例
【例】在選擇某一個學生的成績的時候，往往會發生錯行的情況，而這個程序可以使您在選擇某一個成績時，自動選中該成績所在行的第一列的單元格。
編寫代碼為：
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”，這表示當前的代碼寫在Worksheet工作簿的Sheet1工作表的SelectionChange事件中；這個事件的觸發條件是當前選中的單元格發生變化，也就是說如果之前你選中了A1單元格，那么現在如果你又左鍵單擊選擇了B1單元格，這個事件就會被觸發，里面的代碼就會被執行。這個事件還帶了一個參數，名字叫“Target”，這個參數的類型是Range，即單元格區域類型，所以這個參數表示的是對當前最新被選中的單元格的引用。
那么我們是怎么實現上述程序的目的的呢？讓我們繼續看一看程序的代碼，其中是一個分支判斷選擇結構的IF語句，判斷的條件是：當前被選中的單元格所對應的列序號如果不是1（也就是說當前被選中的不是A列的單元格），如果條件成立那么就執行其中的代碼，“Cells”是對工作表所有單元格集合的引用，有兩個參數，第一個是表示行序號，第二個表示列序號，如果給定了這兩個參數，那么也就是指定了在SHEET1工作表的所有單元格集合中符合當前給定行序號和列序號的唯一單元格的引用；看下這里指定的兩個參數是什么呢？行序號被指定為當前被選中單元格所在行的行序號，列序號被指定為1，即A列單元格，那么現在就通過“Select”方法使由行序號和列序號兩個參數指定的單元格集合中的這個單元格成為當前被選中的單元格。這樣就實現了我們之前定義的這個程序的目的。
現在你可以嘗試一下選中非A列單元格的操作，看看是否自動變為選中了同行的行首第一個單元格。
責任編輯：zoe
上一篇：VBA實例精解（一）
下一篇：如何取得單元格的超鏈接地址？
學員討論（0）
相關資訊
實務學習指南
距6月報稅結束還有天
新用戶掃碼下載
京公網安備 11010802044457號