Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10721 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【20225】入力規則のリストを使ってマクロを動かし... まさ 04/12/2(木) 14:15 質問[未読]
【20227】Re:入力規則のリストを使ってマクロを動か... Asaki 04/12/2(木) 14:29 回答[未読]
【20229】Re:入力規則のリストを使ってマクロを動か... まさ 04/12/2(木) 15:14 発言[未読]
【20231】Re:入力規則のリストを使ってマクロを動か... Jaka 04/12/2(木) 16:00 回答[未読]
【20233】Re:入力規則のリストを使ってマクロを動か... まさ 04/12/2(木) 16:14 お礼[未読]
【20225】入力規則のリストを使ってマクロを動かし...
質問  まさ  - 04/12/2(木) 14:15 -
引用なし
パスワード
   初めまして。まさと言います。よろしくお願い致します。
探したのですが、適当なものがなかったので、質問します。

Excelの入力規則のリストを作ったのですが、
その値によって、別のシート（二枚目のシート）を隠すっと言うマクロを書きたいのですが、
うまくいきません。
入力規則のリストを使わなければ
比較的簡単に出来そうなのですが、
出来れば、見た目上、入力規則のリストを使いたいです。

-------------------------------------------------------
（例）
Sheet1
　　　リスト　（入力規則）
　　　　---値----
　　　　・ある　　　 （あるを選択した場合sheet2が表示される)
　　　　・なし　　　 （なしを選択した場合sheet2が表示される）
Sheet2
------------
sheet1の値によって表示か非表示に変更する
デフォルトは非表示

------------------------------------------------------------

というのを作りたいです。
もし、お分かりになる方は、お教え下さい。
よろしくお願い致します。
【20227】Re:入力規則のリストを使ってマクロを動...
回答  Asaki  - 04/12/2(木) 14:29 -
引用なし
パスワード
   こんにちは。

バージョンによりますが、多分、Excel2000以降なら、
シートのChangeイベントが利用できませんか？

表示・非表示の切替そのものは、マクロの記録で。
【20229】Re:入力規則のリストを使ってマクロを動...
発言  まさ  - 04/12/2(木) 15:14 -
引用なし
パスワード
   ▼Asaki さん：
>こんにちは。
>
>バージョンによりますが、多分、Excel2000以降なら、
>シートのChangeイベントが利用できませんか？
>
>表示・非表示の切替そのものは、マクロの記録で。

表示・非表示のマクロと
changeイベントを使い。特定のセルが動いたら
マクロを動かす部分まで出来ましたが、
そのリストの中の値によってマクロの動きを分岐させるところが
うまい事かけません。
教えていただけませんか？
【20231】Re:入力規則のリストを使ってマクロを動...
回答  Jaka  - 04/12/2(木) 16:00 -
引用なし
パスワード
   こんにちは。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
　　'A1が入力規制セルだとして
　　If Target.Address(0, 0) = "A1" Then
　　　 If Target.Value = "ある" Then
　　　　　 あるの処理
　　　 ElseIf Target.Value = "ない" Then
　　　　　 無いの処理
　　　 End If
　　End If
End Sub
【20233】Re:入力規則のリストを使ってマクロを動...
お礼  まさ  - 04/12/2(木) 16:14 -
引用なし
パスワード
   Asakiさん
Jakaさん
ありがとうございました。
出来ました。


▼Jaka さん：
>こんにちは。
>
>Private Sub Worksheet_Change(ByVal Target As Excel.Range)
>　　'A1が入力規制セルだとして
>　　If Target.Address(0, 0) = "A1" Then
>　　　 If Target.Value = "ある" Then
>　　　　　 あるの処理
>　　　 ElseIf Target.Value = "ない" Then
>　　　　　 無いの処理
>　　　 End If
>　　End If
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10721 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free