-PR-
  • 困ってます
  • 質問No.3101721
解決
済み

エクセルのチェックボックスで文字の表示・非表示

  • 閲覧数3448
  • ありがとう数3
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 81% (36/44)

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

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

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

  • 回答No.1
レベル11

ベストアンサー率 40% (147/366)

ワークセルを用いて条件書式を設定する方法を示します。
仮にB1をワークセルとしてA1の表示を非表示にするケースでは
まずコントロールのチェックボックスを配置してデザインモードのプロパティでCheckBox1のLinkedCellにB1を設定します。
次にデザインモードを解除してA1セルを選択して、書式⇒条件付書式で
数式が=$B$1=TRUEとしてフォントの色を白にします。
以上でチェックボックスのONOFFで表示非表示が切り替えできると思います。
お礼コメント
bastok

お礼率 81% (36/44)

シンプルな方法を探していたのでとても助かりました。この方法で試してみたいと思います。
投稿日時 - 2007-06-20 23:15:11
  • ありがとう数0
-PR-
-PR-

その他の回答 (全1件)

  • 回答No.2
レベル14

ベストアンサー率 28% (4294/15124)

エクセルを終了し、電源を切る場合もあると思うので、ファイルへ一時記録する必要があると思います。 下記ではC1,D1の2つのセルを消したり戻したりします。 Private Sub CheckBox1_Click() If CheckBox1.Value = False Then MsgBox "復元" Open "taihi.csv" For ...続きを読む
エクセルを終了し、電源を切る場合もあると思うので、ファイルへ一時記録する必要があると思います。
下記では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例を作ってみました。上記は機密保持には向いてないと思いますが。
お礼コメント
bastok

お礼率 81% (36/44)

詳しく教えていただきありがとうございました。目的は機密保持ではありませんので教えていただいた方法を試してみたいと思います。
投稿日時 - 2007-06-20 23:17:38
  • ありがとう数0
  • 回答数2
  • 気になる数0
このQ&Aで解決しましたか?

関連するQ&A

-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


-PR-

ピックアップ

-PR-
ページ先頭へ