Excel Vba 英文字母轉換成數字

Excel Vba 英文字母轉換成數字(查看次數:2905)

回首頁

2011-11-18 16:48:31

[vb]
Private Sub CommandButton1_Click()
For i = 1 To 26
t = Chr(64 + i)
Cells(i, 1) = t
n = Asc(t) - 64
If n <= 9 Then
s = n
ElseIf n <= 18 Then
s = n - 9
Else
s = n - 17
End If
Cells(i, 2) = s
Next
End Sub
[/vb]

Excel Vba 英文字母轉換成數字
上一篇:如何在GoDaddy註冊購買網頁空間及網域名稱(1840)      下一篇:wc_admin_unsnooze_admin_notes(0)