[[20020524163926]] 『チェックボックスでセルに色付け』(ワム) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『チェックボックスでセルに色付け』(ワム)

チェックボックスをチェックすると、ある特定のセルに色がつく方法を教えてください。


 みやほりんが 未解決ログ解消を目的に 2005/11/14 17:25 投稿しました。
 
シート上に配置するチェックボックスであると仮定します。
チェックマークを入れた場合にB1のセルの色を変更する場合を想定します。
チェックボックスは2種類あります。
 
・フォームツールバーのチェックボックス
・コントロールツールボックスツールバー
 
【セルリンク+条件付書式】
チェックボックスとセルをリンクさせ、条件付書式でリンクしたセルを監視して
セル色を変更します。
(1)まず、セルへリンクさせます。リンクするセルがA1を想定します。
   【フォームの場合】
   フォームツールバーからチェックボックスをシート上へ配置、
   チェックボックスを右クリックして[コントロールの書式設定]を選択。
   [コントロール]タブで[リンクするセル]に$A$1とすると、A1セルとリンクします。
   
   【コントロールツールボックスの場合】
   コントロールツールボックスツールバーからチェックボックスをシート上へ配置、
   チェックボックスを右クリックして[プロパティ]を選択。
   LinkedCellにSheet1!$A$1とシート名を含めて指定すると、A1セルとリンクします。
 
(2)B1を選択して書式>条件付書式
   「セルの値が」となっているものを「数式が」に変更、そのすぐ右隣の
   テキストボックスへ「=$A$1」
   書式ボタンでチェックボックスチェック時の書式を設定して[OK][OK]とします。
   
【マクロ】 
「セルリンク+条件付書式」以外の方法としてマクロが考えられます。
コントロールツールボックスの場合、
(1)コントロールツールボックスツールバーでデザインモードボタンクリック。
(2)チェックボックスを右クリック、[コードの表示]を選択、VBEを起動。
(3)コードウィンドウへ下記のVBAコード貼り付け。
   Private Sub CheckBox1_Change()
       If CheckBox1.Value Then
           Range("B1").Interior.ColorIndex = 3'B1背景を赤にする
       Else
           Range("B1").Interior.ColorIndex = xlNone
       End If
   End Sub
(4)Altを押しながらQキーでExcelへ戻る。
 
   マクロの場合はセルとチェックボックスをリンクさせる必要はありません。
 
【関連ログ】
[[20030225123436]] 『チェックを入れるとセルに色がつくようにしたい』(ウラウラ) 
[[20030517192420]] 『チェックボックスでセルの色を変える』(KOKI) 
(みやほりん)

 初めまして。ど素人のものです。上記【マクロ】を参考に一つのシートに複数のチェックボックスを作りました。
同様のシートを他にも複数作成し、全てのシートが作動するか順番に確認していたところ、
5シート目か6シート目で「実行時エラー‘1004‘:」、「InteriorクラスのColor Indexプロパティを設定できません」
と表示されてしまいます。
ど素人の為、全く原因が分かりません。
何か思い当たる原因があれば、お教え願いたいのですが。
どうか、よろしくお願いします。 

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.