字符函數
Chr():返回一個字符串,其中包含與指定的字符代碼關聯的字符。
如何輸入字符,在vba編程過程中是一個基本常識。
本節主要介紹一下,字符集對應的數值,以及如何輸入字符。
很顯然,函數Chr即可輸出相應數值的字符。
如下圖所示:
大寫字母
如要輸出大字字母A~Z
可以這樣來操作:
Dim xArr, i As LongReDim xArr(0 To 26)For i = 65 To 90xArr(i - 65) = Chr(i)Next iMsgBox VBA.Join(xArr)
小寫字母
輸出小寫字母:
Dim xArr, i As LongReDim xArr(0 To 26)For i = 97 To 122xArr(i - 97) = Chr(i)Next iMsgBox VBA.Join(xArr)
相應地還有一個函數,可以將字符轉換為數值。
Asc()
返回一個整數值,它表示與字符串中的第一個字母對應的字符代碼。
如將字母轉換為數值,可進行如下操作。
Asc(「A"),數字65
Asc(「a"),數字97
Asc()是Chr()的反函數,學習的時候要一併調試,這樣對字符的操作就比較有更深的記憶了 。
重點明白的是Asc函數分別返回字符串的第一個字母的數值。
如 :Asc("Asc") 返回數值65
字符掌握比較簡單,主要是對常用的字符進行一下記憶,其它不常用的需要的時候查詢對應表格即可以。
附本節代碼:
Private Sub CommandButton1_Click()Dim x As Longx = VBA.Trim(Me.ComboBox1.Value)If VBA.Len(x) = 0 Then Exit SubMe.TextBox1.Value = VBA.Chr(x)Me.TextBox1.Value = Me.TextBox1.Value & "__" & VBA.Asc(Me.TextBox1.Value)End Sub
歡迎關注、收藏