|
▼ichinose さん:
>標準モジュールに
>'======================================================
>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
>
>確認してみてください
確認いたしました。
求めたい解答が得られました。
ありがとうございました。
また、何か質問があったときは、
よろしくお願い致します。
|
|