Excel-VBA從文本框中的字母等效項獲取數字

Question

我有一個用戶窗體，要求將列引用輸入到TextBox中。 我正在嘗試使數字替換代碼中的字母。 我正在使用Cells（a，b）格式執行此操作。 這就是為什么我需要用數字代替字母。

Worksheets("AIO").Cells(X, TextBox3).Value = Worksheets("FDSA").Cells(Y, TextBox4).Value

因此，在前面的代碼中，何時：x = 2，TextBox3.Value = A，y = 4和TextBox4.Value = AA

該代碼將作為

Worksheets("AIO").Cells(2, 1).Value = Worksheets("FDSA").Cells(4, 27).Value

我唯一能想到的就是if語句是否像我這樣編寫類似的東西：

If textbox3.value ="A" then
textbox3.value=1
elseif textbox3.value=E then
textbox3.value=5
.......
.......
textbox3.value=AD then
textbox3.value=30

End If

Answer 1

從字符串獲取列號的方法：

Sub ColumnNumber()
  Dim s As String
  Dim L As Long
  s = "AB"
  L = Cells(1, s).Column
  MsgBox L
End Sub

Answer 2

如果您想保持簡單， .Cells可以使用列字符串代替數字

Sub test()
    'From sheet module
    Debug.Print Me.Cells(1, 1).Address 'prints $A$1
    Debug.Print Me.Cells(1, "A").Address 'also prints $A$1 
End Sub

您可能必須驗證它是一個有效的列ID，但甚至可能需要將其轉換為數字。