「セルの書式設定」の「ユーザー定義」でセルの値がTRUEなら○FALSEなら×と表示する方法について

質問のような表示ができるようにしてみました。(Excel97,2000で確認)
チェックボックスが何個あるか分かりませんので、２個のケースです。数によって『チェックボックス-1用』等を増やして下さい。『チェックボックス-1』に『チェックボックス-1用』のマクロを登録します。

※質問から推測すると、フォームのチェックボックスを使われているようですが、Excel97以降ならコントロールツールボックスのチェックボックス（他のコントロールも）を使われたほうがいいと思います。新しいし、設定も楽でコードも書き易いです。下はフォームのチェックボックスということで思い出しながら書いてみました。（使えるプロパティが無いのが欠点ですね）

※チェックボックスのリンクするセルを見えないところ（セル）を指定して（別シートでも）、表示したいセルに
　　=チェックボックスのリンクするセル番地*1　(または+0)とすれば
「True」、「False」という Bool値を数値に変換できるのでマクロは不要になると思われます。


チェックボックスのリンクするセルの書式は　[=1]"○";[赤][=0]"×"　とします。

↓ここから。チェックボックスのあるシートのコードウインドウに貼り付けます。
Dim ChechBoxAddress As String 'チェックボックスのリンクするセルの番地
Dim ChechBoxClickFlg As Boolean 'チェックボックスをクリックすればTrue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Address = ChechBoxAddress Then
　　　　'チェックボックスのクリックだけに反応させる
　　　　If ChechBoxClickFlg = True Then
　　　　　　'選択されたセルがチェックボックスのリンクするセルなら
　　　　　　'True→1、False→0に書き換える(チェックボックスの選択状態は変わらない)
　　　　　　If Target.Value = True Then
　　　　　　　　Target.Value = 1
　　　　　　Else
　　　　　　　　Target.Value = 0
　　　　　　End If
　　　　　　ChechBoxClickFlg = False
　　　　End If
　　End If
End Sub

'チェックボックス-1用（個々のチェックボックス用。例：F3がリンクするセル）
Sub CheckBox1_Valuechange_Numeric()
　　'リンクするセルをセットする
　　ChechBoxAddress = "$F$3": selectChechBoxRange ChechBoxAddress
End Sub

'チェックボックス-2用（個々のチェックボックス用。例：F5がリンクするセル）
Sub CheckBox2_Valuechange_Numeric()
　　'リンクするセルをセットする
　　ChechBoxAddress = "$F$5": selectChechBoxRange ChechBoxAddress
End Sub


'チェックボックスのリンクするセルを選択する(共通)
'　※チェックスボックスのクリックではWorksheet_SelectionChangeが起きないため自力で動かす
Sub selectChechBoxRange(rgChkBox As String)
　　Dim rg As Range 'アクティブセルの番地を退避
　　Set rg = ActiveCell

　　If rg.Address <> rgChkBox Then
　　　　'アクティブセルがチェックボックスのリンクするセルでなかったらリンクするセルを選択する
　　　　Range(rgChkBox).Select
　　Else
　　　　'アクティブセルがチェックボックスのリンクするセルならリンクするセルの斜め右下を選択する
　　　　rg.Offset(1, 1).Select
　　End If
　　'元のアクティブセルを選択状態にする
　　rg.Select
End Sub

投稿日時 - 2002-01-21 12:55:15