Excel[VBA] 入力フォームに一項目を入力で他を自動で表示されるようにしたい。

Question

前提・実現したいこと

UserForm1の確認ボタンに、
1～10が入力されたら、下に記載のB15～D15、
11～20が入力されたら、B16～D16のデータを
上のA3からC3に表示させたい。

確認ボタンを押してもエクセルに反映しません。
詳しい方、ご指摘いただきたくお願いいたします。

Private Sub OKボタン_Click()

 If (ナンバー.Text) = "" Then
 MsgBox "ナンバーが間違っています。"
Exit Sub
 End If

 If (ナンバー.Text) >= 1 And (ナンバー.Text) <= 10 Then
 Range("A3:C3").Value = Range("B15:D15").Value
 ElseIf (ナンバー.Text) >= 11 And (ナンバー.Text) <= 20 Then
 Range("A3:C3").Value = Range("B16:D16").Value
 Else
 '
 End If

 End Sub

Comments

[m.ts10806]

データはどこにどのように持っているのでしょうか？今のところほとんど処理を書かれてないようですが、何かしら調べて、やってみたのでしょうか？今のところほぼ丸投げなので回答が得られにくいのではと思います。

[退会済みユーザー]

はじめまして。失礼いたしました、ご指摘ありがとうございます。

Answer 1

※回答というより指摘に近いですが…
【1】
IFの中身が
「1以上、違ったら10以上…」と、範囲が狭くなっていますが
逆ではないでしょうか？
つまり「10以上、違ったら1以上…」としないと、すべて「1以上」で該当してしまうような気がします。

【2】
Range("A3:C3").Value = "B16:D16"
この部分は、"B16:D16"ではなく、「Range(”B16:D16”).value」
ではないでしょうか？

Comments

[退会済みユーザー]

こんにちは。

ご指摘ありがとうございます。修正をしました。

いろいろ試しているのですが、エクセルシートに反映されません。
何かおかしな個所があればご指摘いただければと存じます。

[ptk3]

Sub if_jirei_4()
ElseIf ナンバー.Text >= 10 Then
おそらくここもおかしいですね。。

Sub不要で、最初のElseIFがIFでしょうか？

[退会済みユーザー]

ご指摘ありがとうございます。
感謝です。

Answer 2

そういう条件判定には Select Case を使うべきです

Select Case ナンバー.Text
Case 1 to 10
_[処理A]
Case 11 to 20
_[処理B]
Case 21 to 30
_[処理C]
Case Else
_[処理X]
End Select

かつ、デバッグ操作を覚えなければ、バグの１つも直せやしませんよ。。。
ブレークポイント、ステップ実行(F8)、イミディエイトウィンドウ、プロパティウィンドウ。
ご自分で出来る事はまだまだあります。

で、[.Text]とあるように、テキストボックス中の値は、
「文字列」として扱われていたはずです。

対して、条件(１～１０まで等）は、「数値」です。
どうすればいいかは、ご自分で考えてください。

Comments

[退会済みユーザー]

ご指摘ありがとうございます。
よく考えてもう一度やってみます。