|
▼ichinose さん:
けんのすけです。
>'======================================
>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
>
>列を数字と言う名前は もはやおかしいので
>代えてください。
数字から列、列から数字の変換どちらも
確認いたしました。
早急な対応、ありがとうございました。
|
|