列文字変換　 次の文書


Dim W文字へ
Dim W文字
Dim W列文字


Sub S01_列文字変換Sample()

'Aは1 に変換　Bは2　Cは3 に変換するサンプル
W文字 = "A": 列数値変換: W合計 = Cells(1, W列文字)
W文字 = "B": 列数値変換: W合計 = W合計 + Cells(1, W列文字)
W文字 = "C": 列数値変換: Cells(1, W列文字) = W合計

'1はA に変換　2はB　3はC に変換するサンプル
W文字へ = 1: 列文字変換: Cells(2, W列文字) = "A"
W文字へ = 2: 列文字変換: Cells(2, W列文字) = "B"
W文字へ = 3: 列文字変換: Cells(2, W列文字) = "C"

End Sub


Sub 列文字変換() '数値から英字
jx = W文字へ
W列文字 = Cells(1, jx).Address(True, False)
W列文字 = Left(W列文字, InStr(W列文字, "$") - 1)
End Sub

Sub 列数値変換() '英字から数値へ
W列文字 = CNumAlp(W文字)
End Sub

Function CNumAlp(va As Variant) As Variant '変換する関数

Dim al As String

If IsNumeric(va) = True Then '数値だったら
al = Cells(1, va).Address(RowAbsolute:=False, ColumnAbsolute:=False) '$無しでAddress取得
CNumAlp = Left(al, Len(al) - 1)
Else 'アルファベットだったら
CNumAlp = Range(va & "1").Column '列番号を取得
End If

End Function
　




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)