|
▼けんのすけ さん:
こんにちは。
>こんにちは。けんのすけと申します。
>
>A列だったら1列目。
>B列だったら2列目。
>C列だったら3列目。
> :
> :
>AA列だったら27列目。
>
>のように各列が何列目なのかを求めたいのですが、
>ロジックが分かりません。
>ご教授願います。
標準モジュールに
'======================================================
Sub test()
Dim retu As String
retu = "bb" '←ここに a とか Dとか入れて試してみてください
MsgBox IIf(IsError(列を数字(retu)), "エラー", 列を数字(retu))
End Sub
'===============================================================
Function 列を数字(Col As String)
On Error Resume Next
列を数字 = Application.Columns(Col).Column
If Err.Number <> 0 Then
列を数字 = CVErr(Err.Number)
End If
On Error GoTo 0
End Function
確認してみてください
|
|