No.7ベストアンサー
- 回答日時:
失礼しました。
別シートだと、シートも指定しなければいけませんね。
If Sheet1.Range("A1").Value = 1 Then '←
'A1の値が1になったとき「a」を表示「b」を非表示。
Sheet1.Shapes("図 1").Visible = msoTrue
Sheet1.Shapes("図 2").Visible = msoFalse
ElseIf Sheet1.Range("A1").Value = 2 Then '←
お礼が遅くなってしまい申し訳ありません!!
おかげさまで無事作成することができました!!
本当にありがとうございます。
今後ともよろしくお願いいたします。
No.6
- 回答日時:
#3です。
> これはどこに記載するのでしょうか?
コンボボックスを右クリックして「マクロの登録」をクリック。
マクロ名のところに「ドロップ1_Change」とか表示されていますね。
マクロの保存先を「作業中のブック」にして「新規作成」をクリック。
Sub ドロップ1_Change()
' ここでカーソルが点滅
End Sub
となりますので
カーソル位置に貼り付けます。
Worksheet_Changeイベントの
If ~ End If までですよ。念のため。
この回答への補足
ありがとうございます。
同一シート上にコンボボックスを作成した場合にはうまく表示することができました。
しかしながら、別シートにコンボボックスを作成したところ画像は表示できなくなってしまいました。(コンボボックスを変更したとき)
LinkedCellに直接値を入力した場合には画像は表示されます。
この場合はどうしたらよろしいのでしょうか?
よろしくお願いいたします。
No.5
- 回答日時:
VBAを使わない方法です。
http://www.geocities.jp/chiquilin_site/data/0505 …
http://www.officetanaka.net/excel/function/tips/ …
ちょいと面倒かも。
回答ありがとうございます。
http://www.officetanaka.net/excel/function/tips/ …
はイメージとぴったりです!!
ですが、せっかくVBAでがんばっていますのでもう少しこちらでがんばって見ます。
それでも、とてもよい勉強になりました!!
No.3
- 回答日時:
> コンボボックスを用いてセルに値を入力した場合、
> 画像が表示されません。
コンボボックスの LinkedCellに「A1」を指定しているということでしょうか?
「コントロールツールボックス」のコンボボックスが同じシート上にあることを条件として、
Private Sub ComboBox1_Change()
Call Worksheet_Change(Range("A1"))
End Sub
を追加してください。
ComboBox1 の部分は実際の名前にしてください。
ついでに
Activateイベントも
Private Sub Worksheet_Activate()
Call Worksheet_Change(Range("A1"))
End Sub
にすると、次にシートが選択されたときも、表示されるようになります。
「フォーム」のコンボボックスの場合はマクロを作成
Sub ドロップ1_Change() '実際の名前で
End Sub
の間に
Worksheet_Change イベントのコードを貼り付ければ動くと思います。
この回答への補足
ご回答ありがとうございます。
質問ですが、フォームのコンボボックスを使用していますので、
>「フォーム」のコンボボックスの場合はマクロを作成
>Sub ドロップ1_Change() '実際の名前で
だけを記載すればよろしいのでしょうか?
また、これをVBAのどこに記載すればよいのでしょうか?
また、
>End Sub
>の間に
>Worksheet_Change イベントのコードを貼り付ければ動くと思います。
これはどこに記載するのでしょうか?
初心者で申し訳ありませんがよろしくお願いいたします。
No.2
- 回答日時:
#1です。
---引用--------------------
そこで、追加なのですが、セルに値を入力するのではなく、
コンボボックスを用いてセルに値を入力した場合、
--------------引用終わり---
「セルに直接値を入力しない」ということは理解できましたが、「コンボボックス」がどのコンボボックスを指しているのかがいまいち特定できませんでしたが、以下に情報を記載します。
・セルA1に入力規則のリストによるコンボもどきをご使用の場合
#1で記載した方法で問題ありません。
・コントロールボックスツールボックスのコンボボックスをご使用の場合
コンボボックスを操作するとA1に選択した値が入力される(マクロ使用)のであれば、#1で記載した方法で問題ありません。
#1で提示した方法はA1の値が何か、を条件にしていますので、基本的にA1の値が変わる方法ならどの場合でも問題ないはずです。
もう少し詳しく状況を教えてください。
この回答への補足
何度も申し訳有りません。
コンボボックスは、フォームの中にあるコンボボックスを使用しており、コントロールの書式設定のコントロールでリンクするセルをセルA1に設定しています。
で、フォームのコンボボックスは別のシートに作成したいと思っております。
とりあえず、同じシート内に上記コンボボックスを作成し、セルA1に値が入力されるように試したのですが、画像が変更されないといった状況です。
申し訳有りませんがよろしくお願いいたします。
No.1
- 回答日時:
ワークシート関数では実現できないと思いますので、マクロ(VBA)を用いた方法を提示します。
・要件
Sheet1のA1が1のとき「a」の画像を表示する。
Sheet1のA1が2のとき「b」の画像を表示する。
・実装
1.任意の位置に「a(仮に図 1)」「b(仮に図 2)」の画像を置く。
2.VBEを開いて(Alt + F11)、左上のツリーからSheet1を選択して、右側にエディタを表示させる。
3.以下のコードを貼り付ける。
Private Sub Worksheet_Activate()
'最初はどちらの画像も非表示。
Sheet1.Shapes("図 1").Visible = msoFalse
Sheet1.Shapes("図 2").Visible = msoFalse
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = 1 Then
'A1の値が1になったとき「a」を表示「b」を非表示。
Sheet1.Shapes("図 1").Visible = msoTrue
Sheet1.Shapes("図 2").Visible = msoFalse
ElseIf Range("A1").Value = 2 Then
'A1の値が2になったとき「a」を非表示「b」を表示。
Sheet1.Shapes("図 1").Visible = msoFalse
Sheet1.Shapes("図 2").Visible = msoTrue
Else
'A1の値が1でも2でもないとき「a」も「b」も非表示。
Sheet1.Shapes("図 1").Visible = msoFalse
Sheet1.Shapes("図 2").Visible = msoFalse
End If
End sub
この状態でSheet1のA1に1と入力すると、「a」の画像が表示されるはずです。
ブックにマクロ実行の許可を設定しておいてください。
この回答への補足
早速の回答ありがとうございます。
実際に、上記VBAで画像の非表示は可能になりました。
そこで、追加なのですが、セルに値を入力するのではなく、
コンボボックスを用いてセルに値を入力した場合、
画像が表示されません。
この場合にはどのようにしたらよろしいのでしょうか?
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) エクセルで日付が入っているセルを一定の法則に従って違うセルに表示したい 2 2022/04/04 17:16
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/08 09:05
- Visual Basic(VBA) Visual Basic : ImageListの画像がそろったときにメッセージを表示 1 2023/07/20 13:53
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Visual Basic(VBA) Excle VBA Findメソッドについて 3 2022/07/15 13:56
- Excel(エクセル) <スプレッドシート>IF関数の複数条件について 5 2022/10/27 14:38
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/15 08:30
このQ&Aを見た人はこんなQ&Aも見ています
-
これまでで一番「情けなかったとき」はいつですか?
これまでの人生で一番「情けない」と感じていたときはいつですか? そこからどう変化していきましたか?
-
あなたにとってのゴールデンタイムはいつですか?
一週間の中でもっともテンションが上がる「ゴールデンタイム」はいつですか? その逆で、一週間でもっとも落ち込むタイミングでも構いません。 よかったら教えて下さい!
-
「覚え間違い」を教えてください!
私はかなり長いこと「大団円」ということばを、たくさんの団員が祝ってくれるイメージで「大円団」だと間違えて覚えていました。
-
おすすめのモーニング・朝食メニューを教えて!
コメダ珈琲店のモーニング ロイヤルホストのモーニング 牛丼チェーン店の朝食などなど、おいしいモーニング・朝食メニューがたくさんありますよね。
-
うちのカレーにはこれが入ってる!って食材ありますか?
カレーって同じルーから作っても、家庭によって入っているものや味が微妙に違っていて面白いですよね! 「我が家のカレーにはこれが入ってるよ!」 という食材や調味料はありますか?
-
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
エクセルで条件をつけて図形を表示する方法を教えてください。例えば、セルA1に入力された数値が100以
Excel(エクセル)
-
Excelで数字を入れたら対応する図を呼び出したい
Excel(エクセル)
-
-
4
エクセルの質問です。条件によってセルに斜線を引きたいのですが。
その他(OS)
-
5
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
6
画像を削除したい(VBA)
Word(ワード)
-
7
エクセル関数で画像を呼び出す方法ありますか?
Windows Vista・XP
-
8
エクセルで条件を付けて丸を付ける関数を教えてください。
Excel(エクセル)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
Excelの画像をセルとして参照する
Excel(エクセル)
-
11
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
12
Excelでオートシェイプを条件によって貼り付けることは可能でしょうか?
Excel(エクセル)
-
13
条件付き書式で自動で斜線の罫線を引く
Excel(エクセル)
-
14
【マクロ】でセルと同名の画像を表示させる
その他(Microsoft Office)
-
15
excel vba/セルの値がOKになったら図形を消す
Visual Basic(VBA)
-
16
エクセルで図形を連動させたい
Excel(エクセル)
-
17
Excelの関数について、特定の文字を入れると斜線や線を入れることは出来ますか?
Excel(エクセル)
-
18
エクセルで数字を入力したら指定の画像を出す方法
Excel(エクセル)
-
19
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
20
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~12/2】 国民的アニメ『サザエさん』が打ち切りになった理由を教えてください
- ・ちょっと先の未来クイズ第5問
- ・【お題】ヒーローの謝罪会見
- ・これが怖いの自分だけ?というものありますか?
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・【大喜利】【投稿~11/22】このサンタクロースは偽物だと気付いた理由とは?
- ・お風呂の温度、何℃にしてますか?
- ・とっておきの「まかない飯」を教えて下さい!
- ・2024年のうちにやっておきたいこと、ここで宣言しませんか?
- ・いけず言葉しりとり
- ・土曜の昼、学校帰りの昼メシの思い出
- ・忘れられない激○○料理
- ・あなたにとってのゴールデンタイムはいつですか?
- ・とっておきの「夜食」教えて下さい
- ・これまでで一番「情けなかったとき」はいつですか?
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
2つの数値のうち、数値が小さい...
-
EXCELで条件付き書式で空白セル...
-
小数点以下を繰り上げたものを...
-
エクセルで数式の答えを数値と...
-
エクセルのラベルの値(文字列...
-
リンク先のファイルを開かなく...
-
勃起する時って痛いんですか? ...
-
エクセル指定した範囲からラン...
-
EXCELで式からグラフを描くには?
-
白血球が多いとどんな心配があ...
-
ワードのページ番号をもっと下...
-
風俗店へ行く前のご飯
-
値が入っているときだけ計算結...
-
精子に血が・・・
-
エクセルでエラーが出て困って...
-
化合物のモル吸光係数データベ...
-
MIN関数で空白セルを無視したい...
-
Excelで""で囲む方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
EXCELで式からグラフを描くには?
-
勃起する時って痛いんですか? ...
-
2つの数値のうち、数値が小さい...
-
エクセルで数式の答えを数値と...
-
エクセル指定した範囲からラン...
-
これって喉仏ですか? 私は女性...
-
精液の落とし方を教えてください
-
EXCELで条件付き書式で空白セル...
-
リンク先のファイルを開かなく...
-
検便についてです。 便は取れた...
-
小数点以下を繰り上げたものを...
-
エクセルのラベルの値(文字列...
-
風俗店へ行く前のご飯
-
イタリアから帰国する際、肉製...
-
一番多く表示のある値(文字列...
-
ある範囲のセルから任意の値を...
-
化合物のモル吸光係数データベ...
おすすめ情報