|
>度々、すみません。
>けんのすけです。
>
>先程、列を数字に変換するロジックを教えていただいたのですが、
>数字を列にするロジックについてもご教授願えないでしょうか?
>
>1の場合A
>2の場合B
>3の場合C
> :
>27の場合AA
>
>よろしくお願い致します。
'======================================
Sub test()
Dim retu_alpha As Variant
Dim retu_suuji As Variant
retu_alpha = "aa" '←ここに a とか Dとか入れて試してみてください
retu_suuji = 列を数字(retu_alpha)
MsgBox retu_alpha & "は、 " & retu_suuji
MsgBox retu_suuji & "は、" & 列を数字(retu_suuji, True)
End Sub
'===============================================================
Function 列を数字(Col As Variant, Optional reverse As Boolean = False) As Variant
On Error Resume Next
If reverse = False Then
列を数字 = Application.Columns(Col).Column
Else
列を数字 = Split(Application.Columns(Col).Address(False, False), ":")(0)
End If
If Err.Number <> 0 Then
列を数字 = CVErr(Err.Number)
End If
On Error GoTo 0
End Function
列を数字と言う名前は もはやおかしいので
代えてください。
|
|