excel中使用vba查看字符串的asc值

1、首先我們打開一個工作樣表作為例子。

2、使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新模塊，在模塊編輯框中輸入以下代碼：

Option Explicit

Sub asc()

Dim Num1%, Num2%

Num1 = asc("Excel")  '返回69

Num2 = asc("e")  '返回101

[a1] = "Num1= ": [b1] = Num1

[a2] = "Num2= ": [b2] = Num2

End Sub

3、這里我們聲明變量類型的方式和原來的不一樣，使用的是%符號，其實代表的就是as  integer，效果是一樣的。

4、這里我們給兩個變量賦值，賦值的內容為字符串Excel和字符串e，但是并不是那么簡單，我們給的值是asc（）函數轉換的代碼。其中Excel使用asc（）函數只是取字符串首位字母的代碼。這里區分大小寫。

5、然后我們將值寫入單元格中，單元格可以直接用[]中括號加上序列表示，比如[a1]就代表的是a1單元格，所以這里表現就是在a1單元格中輸入num1字符串，并在a2單元格內輸入asc值。

6、插入一個按鈕并指定宏，我們運行后得到了正確的結果。另外，我的這個過程是可以正常運行，但是asc被指定按鈕時會報錯，大家可以選擇其他的過程名，就可以指定按鈕了。

相關推薦：

excel怎么借用VBA繪制小卡車?

excel中怎么利用VBA制作一個登錄數據驗證窗口?

excel怎么利用vba實現批量套打快遞單批量打印單據?