テキストボックスに自動入力するコード

質問

テキストボックス1と2があります。
いろいろなデータがあるわけですが、１に大阪と入力すれば、２に難波、１に東京と入力すれば、２に品川と２つのパターンだけ組み合わせが決まっています。

そこで、２にじどうにゅうりょくされるようなコードをご教授くださいませ。
よろしくお願いします。

回答No.4

maverik1226 · ベストアンサー

ben9210 　様

ごめんなさい、回答が遅くなりました。

>Case "あ*"
>ComboBox8.Value = "かきく"
>あいでも、あいうでも、かきくとなるために

とりあえず、先頭文字が「あ」の時ということで回答しますね
Select Case の条件でワイルドカード(*とか?や#のことね)を使う際は以下のようにします。

’ワイルドカード使わないパターン
Select Case Left(TextBox1.Value, 1)
Case "あ"
　　ComboBox8.Value = "かきく"
End Select

’ワイルドカード使うパターン
Select Case True
Case TextBox1.Value Like "あ*"
　　ComboBox8.Value = "かきく"
End Select

判定する文字位置が決まっているときはワイルドカードを使わないパターンでOKですが、判定する文字位置が決まっていない時などはワイルドカードを使わないパターンのほうが良いと思います。

お礼

感謝です！
思うようなものができました。
ありがとうございました。

回答No.3

maverik1226

こんにちは。

現状維持=何もしない
ということであれば、Case Else以下2行を削除してみてください。

Select Case～構文の使い方はググれば山ほど出てくるので、ここでは省略しますね

補足

最後にお聞かせください。
Case "あ*"
ComboBox8.Value = "かきく"

あいでも、あいうでも、かきくとなるために、*を用いましたがダメです。
やり方をご教授くださいませ。

回答No.2

maverik1226

ben9210 様

こんにちは。
ご呈示の条件であれば、次のようなコードをユーザーフォームのモジュールに記載すれば良いかと思います。（ちょっと発展性に欠けますが...）

Private Sub TextBox1_AfterUpdate()
Select Case TextBox1.Value
Case "東京"
TextBox2.Value = "品川"
Case "大阪"
TextBox2.Value = "難波"
Case Else
TextBox2.Value = ""
End Sub

補足

TextBox2.Value = ""
空白ではなく、現状維持のときのコードをご教授くださいませ。

回答No.1

imogasi

これはエクセルVBAのフォーム（上のテキストボックス２つの相互）の質問ですか。質問には明記のこと。VB.NET系の質問ではないよね。
テキストボックス１のイベントで、TextBox1.Textが大阪か東京かを判別し、と大阪の場合は難波という文字列を
入れれば仕舞いの話では。何処が疑問点なのか絞って書くこと。
（１）テキストボックスのイベントに何を選ぶか
別途入力完了のコマンドボタンでも設けるのか
（２）テキストボックス１の内容が大阪か東京以外の入力の場合はどうするのか
などはっきりしない。
補足しておいたら。

補足

>テキストボックス１の内容が大阪か東京以外の入力の場合はどうするのか

そのときは、テキストボックス２は空白でいいです。
大阪のときは、難波、東京の時は、品川だけでいいのです。

エクセルVBAの質問です