新用戶掃碼下載
掃碼下載APP
及時接收最新考試資訊及
備考信息
VBA實例精解（一）
【例】在選擇某一個學生的成績的時候，往往會發生錯行的情況，而這個程序可以使您在選擇某一個成績時，自動顯示該學生的所有信息。
代碼如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Column 1) Then
Cells(Target.Row, 1).Select
MsgBox "姓名： " & Me.Cells(Target.Row, 1) & Chr(13) _
& "語文： " & Me.Cells(Target.Row, 2) & Chr(13) _
& "數學： " & Me.Cells(Target.Row, 3) & Chr(13) _
& "英語： " & Me.Cells(Target.Row, 4) & Chr(13) _
& "物理： " & Me.Cells(Target.Row, 5) & Chr(13) _
& "化學： " & Me.Cells(Target.Row, 6) & Chr(13) _
& "地理： " & Me.Cells(Target.Row, 7) & Chr(13) _
& "歷史： " & Me.Cells(Target.Row, 8) & Chr(13) _
& "生物： " & Me.Cells(Target.Row, 9) & Chr(13) _
& "體育： " & Me.Cells(Target.Row, 10) & Chr(13) _
& "總分： " & Me.Cells(Target.Row, 11) & Chr(13) _
, vbOKOnly, "提示"
End If
End Sub
程序實現后的結果：
首先，這個代碼使用了一條語句，Msgbox，這條語句的作用是調用一個消息對話框，這個語句帶有三個參數，各個參數之間都用逗號分隔。
其次，我們看到該語句的第一個參數就占據了好幾行，那么大家可能會問，不是在上一講中提到了VBA識別判斷是否是一條語句就憑借換行符嗎？那么像這樣在多行中的語句為什么是屬于同一條語句呢？這個主要是因為有時候語句太長，如果在一行寫可能會導致格式混亂且不容易閱讀和理解，所以我們就使用下劃線（即：“_”）來將未寫完的代碼轉到下一行繼續寫，并告訴系統，該語句在這行沒有結束，下行還是屬于該語句的內容。讓我們仔細看看第一個參數的內容，總體上是一個字符串，該字符串由個部分構成，每個部分占據了一行，每個部分都是由工作表中的列標題字符串組成，“&”符號表示兩個字符串之間的連接符，通過該符號，后面跟了一串代碼，看起來也像個函數的樣子（為什么說像函數呢？也為有函數名、括號和括號里的參數），對，這個是一個集合，其中的“me”表示引用本工作表，例如這里就是指Worksheet1工作表，“Cells”表示本工作表的所有單元格的集合，其中的參數表示行序號和列序號，這個在昨天的講解中講過。其實這里省略了一個部分，完整的應該是這樣寫“Me.Cells(Target.Row, 1).Value”，即這里返回的是指定單元格內的值，為啥省略呢？由于Value屬性是Cells集合的默認屬性，所以可以省略不寫。最后，還跟了一個函數，即“Chr(13)”，這個函數的參數為一個整數值，作用是返回ASCII編碼表中對應該整數值的字符或不可打印符號的。比如這里的13，在ASCII表中就對應了換行符，那么通過這個函數就返回了一個換行符，這樣就可以讓每個列標題的部分在對話框中占據一行的位置。
責任編輯：zoe
上一篇：EXCEL如何實現奇偶頁打印？
下一篇：快速定位單元格實例
學員討論（0）
相關資訊
實務學習指南
距6月報稅結束還有天
新用戶掃碼下載
京公網安備 11010802044457號