[[20080409095815]]　『チェックボックス』（みさ）　ページの最後に飛ぶ

『チェックボックス』（みさ）
チェックボックスにチェックを入れると指定したセルを指定した色でぬりつぶしたいのですが・・・私にはわかりません？教えてもらいたいのですが！お願いがします

 フォーム
 コントロールツールボックス
 ユーザーフォーム
 にチェックボックスがあります。
 どれでしょう？

 フォームのリンクするセル、
 コントロールツールボックスのLinkedCell、
 にTRUE/FALSEが入るように設定してあると、
 条件付き書式でセルの値を参照して色を着
 けられます。
 (MARBIN)

コントロールボックスだと思います。多分ですみませんです。(みさ)

 コントロールツールボックスとのことですので、
 LinkedCellにA1を指定しているとして、
 塗りつぶしたいセルを選択して

 条件付き書式で
 条件(1)
 数式が
 =A1=TRUE
 色を指定

 条件(2)
 数式が
 =A1=FAlse
 色なし
 (MARBIN)

チェックしても変化ありません？なぜでしょう？(みさ)

 みささんの行った手順をご提示下さい。
 (MARBIN)

コントロールボックスからチェックボックスを選びＩ６に張り付けます。そして色を変えたい場所の番地を条件書式に言われたようにいれました。こんな感じです

 LinkedCellは設定しましたか？
 (MARBIN)

 >色を変えたい場所の番地を条件書式に言われたようにいれました。

 条件付き書式の数式に入れるのは、LinkedCellに設定したセルのアドレスです。
 (MARBIN)

Linkedcellはどのように設定するのですか？

 チェックボックスをデザインモードにして
 右クリック
 ↓
 プロパティ
 ↓
 「LinkedCell」に
 A1
 と入力

 でチェックボックスをA1セルにリンクできます。
 終わったらデザインモードを解除します。
 (MARBIN)

 マクロで行う場合です。
こんなコードでどうでしょうか  一例です。(夕焼）

 Private Sub CheckBox1_Click()
 If CheckBox1.Value = True Then
 Cells(1, 1).Interior.ColorIndex = 5
 End If

 End Sub

 補足
    チェックボックスにチェックを入れるということは
   CheckBox1.Value の値がtrue (真）になるということですので
    if文を使い，true (真）になったら，色づけするコードを
    書けばいいのです。
      このコードを使えば，別に条件式等を設定する必要はありません。

 下は，チェックをはずした場合に色を消す機能も入れました。

  Private Sub CheckBox1_Click()
 If CheckBox1.Value = True Then
 Cells(1, 1).Interior.ColorIndex = 5
 End If
 If CheckBox1.Value = False Then
 Cells(1, 1).Interior.ColorIndex = xlNone
 End If

 End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20080409095815]] 『チェックボックス』（みさ） ページの最後に飛ぶ

[[20080409095815]]　『チェックボックス』（みさ）　ページの最後に飛ぶ