快速定位單元格實(shí)例

來源: 編輯： 2009/06/03 14:28:02　　字體：大小

選課中心

實(shí)務(wù)會(huì)員買一送一

選課中心

資料專區(qū)

需要的都在這里

資料專區(qū)

課程試聽

搶先體驗(yàn)

課程試聽

高薪就業(yè)

從零基礎(chǔ)到經(jīng)理

高薪就業(yè)

　　【例】在選擇某一個(gè)學(xué)生的成績的時(shí)候，往往會(huì)發(fā)生錯(cuò)行的情況，而這個(gè)程序可以使您在選擇某一個(gè)成績時(shí)，自動(dòng)選中該成績所在行的第一列的單元格。

編寫代碼為：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If (Target.Column <> 1) Then
　　Cells(Target.Row, 1).Select
　 End If
　　End Sub

　　首先，按【ALT】+【F11】鍵，就能打開代碼編輯窗口；

　　其次，我們看到代碼窗口上方有兩個(gè)下拉列表框，左邊的是“Worksheet”，右邊的是“SelectionChange”，這表示當(dāng)前的代碼寫在Worksheet工作簿的Sheet1工作表的SelectionChange事件中；這個(gè)事件的觸發(fā)條件是當(dāng)前選中的單元格發(fā)生變化，也就是說如果之前你選中了A1單元格，那么現(xiàn)在如果你又左鍵單擊選擇了B1單元格，這個(gè)事件就會(huì)被觸發(fā)，里面的代碼就會(huì)被執(zhí)行。這個(gè)事件還帶了一個(gè)參數(shù)，名字叫“Target”，這個(gè)參數(shù)的類型是Range，即單元格區(qū)域類型，所以這個(gè)參數(shù)表示的是對(duì)當(dāng)前最新被選中的單元格的引用。

　　那么我們是怎么實(shí)現(xiàn)上述程序的目的的呢？讓我們繼續(xù)看一看程序的代碼，其中是一個(gè)分支判斷選擇結(jié)構(gòu)的IF語句，判斷的條件是：當(dāng)前被選中的單元格所對(duì)應(yīng)的列序號(hào)如果不是1（也就是說當(dāng)前被選中的不是A列的單元格），如果條件成立那么就執(zhí)行其中的代碼，“Cells”是對(duì)工作表所有單元格集合的引用，有兩個(gè)參數(shù)，第一個(gè)是表示行序號(hào)，第二個(gè)表示列序號(hào)，如果給定了這兩個(gè)參數(shù)，那么也就是指定了在SHEET1工作表的所有單元格集合中符合當(dāng)前給定行序號(hào)和列序號(hào)的唯一單元格的引用；看下這里指定的兩個(gè)參數(shù)是什么呢？行序號(hào)被指定為當(dāng)前被選中單元格所在行的行序號(hào)，列序號(hào)被指定為1，即A列單元格，那么現(xiàn)在就通過“Select”方法使由行序號(hào)和列序號(hào)兩個(gè)參數(shù)指定的單元格集合中的這個(gè)單元格成為當(dāng)前被選中的單元格。這樣就實(shí)現(xiàn)了我們之前定義的這個(gè)程序的目的。

　　現(xiàn)在你可以嘗試一下選中非A列單元格的操作，看看是否自動(dòng)變?yōu)檫x中了同行的行首第一個(gè)單元格。

責(zé)任編輯：zoe

上一篇：VBA實(shí)例精解（一）

下一篇：如何取得單元格的超鏈接地址？