excel VBA高手请进！这些代码怎么整改？

Question

excel列号转列名称代码如下：
Private Function getChar(intS As Integer) As String
If intS <= 26 Then
getChar = Chr(intS + 64)
Else
getChar = Chr((intS - 1) \ 26 + 64) & Chr((intS - 1) Mod 26 + 65)
End If
End Function
一般getChar（1）类此数值就没问题。可是我要用intS的值是个变量，比如x=1，getChar（x）；这样就出错误，上述代码怎么整改不出错？

Answer 1

需要先定义X的类型
在复制X=1之前加入Dim x As Integer即可
如下
Sub a()
Dim x As Integer
x = 1
MsgBox getChar(x)
End Sub