エクセル ユーザーフォーム 変数の定義

質問

エクセルでユーザーフォームを作成しました。

その中で郵便番号・住所を入れるテキストボックスがあるのですが、
郵便番号を入れると次のボックスに住所を表示させるのがかなり難しく、
自分で作成するほどのスキルは到底ないので、
下記のページにあったサンプルを利用して作成させて頂きました。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130_050.html

このページのサンプルだとシートのセルに飛ばないので、
シートのセルに飛ぶように下記のコードを入れました。

するとコマンドボタンを押すと

「変数を定義してください」

とエラーメッセージが出ました。

最初から自分で作成したフォーム上で下記のコードで実行した場合は
うまくいったので行けるかと思ったのですが甘くありませんでした。

今までネットで調べたりしてマクロ等を使っていましたが、
変数は触ったことがなく未知の領域です。
こんな知識のまま手を突っ込むのは無謀かと思うのですが、
どなたかご教授いただけないでしょうか？
宜しくお願いいたします。

問題のコードはこちらです。

Private Sub cmdTouroku_Click()

Range("B65535").End(xlUp).Offset(1).Select
ActiveCell.Value = txtHinichi.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtKname.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtKumisu.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtParty.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtPartyp.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtSougei.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtMember.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtVisiter.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ListBox1.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtPstyle.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TXT_ZIPCODE.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TXT_JUSYO.Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = txtJusho2.Value

txtKname.Value = ""
txtKumisu.Value = ""
txtName.Value = ""
txtParty.Value = ""
txtPartyp.Value = ""
txtSougei.Value = ""
txtMember.Value = ""
txtVisiter.Value = ""
txtPstyle.Value = ""
TXT_ZIPCODE.Value = ""
TXT_JUSYO.Value = ""
txtJusho2.Value = ""
UserForm1.txtHinichi.SetFocus

End Sub

回答No.1

imogasi · ベストアンサー

質問のどのコードでエラーが出たか書くべきと思います。
そのところの変数（右辺の名称）が間違っていると思う。
ーー
質問のコードの書きは、ぎこちない。
Ｓｅｌｅｃｔは省ける。
質問の件に答えるのは興味が無いが、普通の書き方を
参考までに書いておくから勉強して。質問のコードでは今後進歩が無い。
Ｂ列の最後の行にデータを書き込むのだろう。
そして項目に従って、すべて同行の右となり列に移動して、値を代入して行くのでしょう。
ーー、
ユーザーフォームにテキストボックスを３つ、コマンドボタンを１つ貼り付ける。
テキストボックスは名前、住所出府県＋市、町アザ＋番地を入れるものとする
コマンドボタンのクリックは
Private Sub CommandButton1_Click()
Set x = Range("B65536").End(xlUp)
i = 0
x.Offset(1, i) = TextBox1.Text
i = i + 1 '　i=2でも良い。以下同様
x.Offset(1, i) = TextBox2.Text
i = i + 1
x.Offset(1, i) = TextBox3.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
ほかに各テキストボックスで毎回ひらがなモードにするのは面倒なので（１つだけ追加アドバイス）
Private Sub UserForm_Initialize()
TextBox1.IMEMode = fmIMEModeHiragana
TextBox2.IMEMode = fmIMEModeHiragana
TextBox3.IMEMode = fmIMEModeHiragana
End Sub
を入れておく。
これでユーザーフォームのテキストボックスにデータを入れてＥｎｔｅｒ。３項目入れ終わった後にコマンドボタンを押してテストしてみて。
住所から郵便番号を咲くインするのは高等技術なのであきらめエクセルの仕組みで後刻まとめて振る。
また何回も同じようなコードを書く部分の改良は、少し進んだことになるので、ＶＢＡの学習が相当進むまでお預け。

お礼

imogasiさん、回答ありがとうございます。

変数はずっと手を出せずにいましてさっぱりです。
ですが今後より理解を深めていくためには避けては通れないですよね。

imogasiさんが書いて下さったコードを参考にして、
この機会に１から勉強しなおしてみます。

ありがとうございました。
一応問題のエラーは対処できました。