Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21691 / 76733

←次へ　｜　前へ→


	【60432】条件分岐について

ビビンバ - 09/2/20(金) 23:56 -


	引用なし

	パスワード

つい最近VBAの存在を知ったばかりの超初心者ですので難しいことは全く分からないのですが、よかったら教えて下さい

僕はxの数によって表示する画像を変えたいのですが

普通条件分岐をする時は
まずxの値を決めてから
If x = 1 Then Goto a Else Goto b
a:
Image1.Visible = True
msgbox "これは赤色です"
b:
Image2.Visible = True
msgbox "これは青色です"

みたいな感じにしますが
僕は扱う画像が多い上、話の進行によって画像を変えたいので、あらかじめ
x = 1の時赤い画像が出てx = 1以外の時は赤い画像は出ない
x = 2の時青い画像が出てx = 2以外の時は青い画像は出ない
と決めておいて

msgbox "問題です。"
msgbox "これは何色でしょうか？"
x = 1
msgbox "それは赤色です。"
msgbox "ではこれは何色でしょうか？"
x = 2
msgbox "それは青色です。"

という風にしたいのですが（本当はもっと長いですが）
それは可能なのでしょうか？もし可能ならば方法を教えて下さい。

0 hits

▼

【60432】条件分岐について ビビンバ 09/2/20(金) 23:56

≪