総ありがとう数 累計4,330万(2014年12月20日現在)

毎月4,000万人が利用!Q&Aでみんなで助け合い!

-PR-
bastok

エクセルのチェックボックス(フォームのコントロール)を使い特定のセルに文字を表示・非表示させたいのですが、簡単な方法はありますか?

チェック時にセル内に文字を表示してチェックを外すとセルを空白にしたいのです。よろしくお願いします。
  • 回答数2
  • 気になる数0

Aみんなの回答(全2件)

質問者が選んだベストアンサー

  • 2007-06-20 22:51:58
  • 回答No.1
ワークセルを用いて条件書式を設定する方法を示します。
仮にB1をワークセルとしてA1の表示を非表示にするケースでは
まずコントロールのチェックボックスを配置してデザインモードのプロパティでCheckBox1のLinkedCellにB1を設定します。
次にデザインモードを解除してA1セルを選択して、書式⇒条件付書式で
数式が=$B$1=TRUEとしてフォントの色を白にします。
以上でチェックボックスのONOFFで表示非表示が切り替えできると思います。
お礼コメント
シンプルな方法を探していたのでとても助かりました。この方法で試してみたいと思います。
投稿日時 - 2007-06-20 23:15:11
  • 同意数0(0-0)
  • ありがとう数0

その他の回答 (全1件)

  • 2007-06-20 22:54:27
  • 回答No.2
エクセルを終了し、電源を切る場合もあると思うので、ファイルへ一時記録する必要があると思います。
下記ではC1,D1の2つのセルを消したり戻したりします。
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
MsgBox "復元"
Open "taihi.csv" For Input As #1
Line Input #1, s
MsgBox s
ss = Split(s, ",")
Worksheets("Sheet1").Cells(1, "C") = ss(0)
Worksheets("Sheet1").Cells(1, "D") = ss(1)
Close #1
Else
MsgBox "退避"
a1 = Worksheets("Sheet1").Cells(1, "C")
a2 = Worksheets("Sheet1").Cells(1, "D")
Open "taihi.csv" For Output As #1
Print #1, a1 & "," & a2
Close #1
Worksheets("Sheet1").Cells(1, "C") = ""
Worksheets("Sheet1").Cells(1, "D") = ""
End If
End Sub
ただ目的が機密保持なのか何か良くわからず、とりあえず1例を作ってみました。上記は機密保持には向いてないと思いますが。
お礼コメント
詳しく教えていただきありがとうございました。目的は機密保持ではありませんので教えていただいた方法を試してみたいと思います。
投稿日時 - 2007-06-20 23:17:38
  • 同意数0(0-0)
  • ありがとう数0
  • 回答数2
  • 気になる数0
  • ありがとう数1
  • ありがとう
  • なるほど、役に立ったなど
    感じた思いを「ありがとう」で
    伝えてください

関連するQ&A

その他の関連するQ&Aをキーワードで探す

別のキーワードで再検索する

あなたの悩みをみんなに解決してもらいましょう

  • 質問する
  • 知りたいこと、悩んでいることを
    投稿してみましょう
-PR-
-PR-
-PR-

特集


年賀状のマナーや作り方を学べるQ&A特集!

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ