エクセルVBA ユーザー定義の値を変数に格納したい

質問

Excel2003を使っています。

ユーザ定義を使ってセルへの入力をします。
例えば、
セルB1に　AB1111
セルC1に　AB2222
セルD1に　AB3333
セルE1に　AB4444
セルF1に　AB5555
と入力します。

4桁の数字の前に"AB"が決まって付くので、ユーザー定義 "AB"##0000 を使って数字4桁だけ入力するようにしました。

そしてさらに、
エクセルVBAを使って、変数iに AB1111 を格納したいのですが、iには 1111 しか取得できません。
iに AB1111 を取得したいのですが、どなたか方法を教えてください。
よろしくお願いします。

回答No.1

eden3616 · ベストアンサー

RangeオブジェクトにValue（または省略）して参照した場合
値が格納されますが、Textで参照した場合は表示形式で取得することが出来ます。

Sub sumple()
　　Dim i As String
　　i = Range("B1").Text
　　Msgbox i
End Sub

お礼

ご回答ありがとうございます。参考にさせていただいたところ、出来ました。

回答No.3

imogasi

>ユーザ定義を使ってセルへの入力をします
の意味がよくわからない。舌足らずと思う。
セルへの入力は
列方向として
1111
2222
3333
と入力し、セルの書式設定のユーザー定義の"ＡＢ"００００で
AB1111
AB2222
AB3333
のように見えてます。
それをＶＢＡでセルの値を拾うとき、
AB1111
AB2222
AB3333
のような値にしたいなら
Sub test01()
For i = 1 To 3
MsgBox Cells(i, "A").Text
Next i
End Sub
が参考になろう。

お礼

ご回答ありがとうございます。参考にさせていただきました。

回答No.2

dogs_cats

dim i as string

i="AB" & range("B1").value

セルの値をcells()を用いfor～nextステートメンテで変数に格納するつもりなら、変数名を一次配列で宣言すると良いのでは。

お礼

ご回答ありがとうございます。参考にさせていただきました。