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