多分質問としてはご希望のものではありませんが、単にチェックボックスの編集が面倒だということであれば、
下記のような方法もあります。
(1)EXCEL で新規ファイルを開いて、ALT+F11を押します。
(2)「挿入」⇒「標準モジュール」を選択し、表示されたウィンドウに下記をコピーします。
(3)EXCEL に戻ってファイルを保存します(CheckBox.xls等)。
(4)チェックすボックスをつけたいファイルを開き、チェックボックスを置きたいセルを選択します。
(CtlやShift キーを押しながら選択すれば、複数セルを一度に選択できます。)
(5)ALT+F8を押して、「CheckBox.xls!addCheckBoxes」を選択して、実行を押します。
※)テストとして、(4)のステップで新規ファイルを開いて試してみると動作がわかると思います。
上記の手順で、選択したセルにチェックボックスが作成され、チェックボックスの状態によりセルの色が
変化します。
Sub addCheckBoxes()
Dim rg As Range
For Each rg In Selection
With ActiveSheet.CheckBoxes.Add(rg.Left + rg.Width / 2 - 9, rg.Top - 1, 22, 10)
.Caption = ""
.LinkedCell = rg.Address
End With
With rg
.Borders.LineStyle = xlContinuous
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="TRUE"
.FormatConditions(1).Font.ColorIndex = 35
.FormatConditions(1).Interior.ColorIndex = 35
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="FALSE"
.FormatConditions(2).Font.ColorIndex = 38
.FormatConditions(2).Interior.ColorIndex = 38
End With
Next
End Sub
・罫線をつけたくない場合は★1(1行)を消してください。
・色をつけたくない場合は、★2、★3の部分(それぞれ3行)を消してください。
・先頭行ではうまく動かないので、使用したい場合は先頭にダミーの1行を追加して
チェックボックスをつけた後、ダミーの先頭行を削除してください。
不明な点は、コメントで対応します。
マクロを使用したくない、あるいはチェックボックスは希望のものではなければ、読み捨てください。
どのくらいをもって、データが重くなるというのは動作環境などにも依存すると思いますが、
こちらで上記の作業で1000個のチェックボックスをつけてみたところ、ファイルサイズは 260Kbyte
でした。
「何かを押しながら」がALT+ のことをさしているのでしたら、どちらも「ツール」⇒「マクロ」
からも実行できます。
ATOKをご利用でしたら、「文字パレット」→「UNICODE表」を選択してください。
#3で回答した記号はUNICODEです。UNICODEで2611, 2713, 2714が「レ点」に該当します。
ATOKでも辞書登録できますよ。
ありがとうございます。
これから質問出そうと思っていたのですが、マクロを入れてしまって、(マクロはほとんど解らなくてマクロをなくす?方法すら解らない…)そのせいか??500個程度のチェックボックスで700KB。
非常に重く何度データがフリーズしたことか。
でも、役に立っていないなんてことは絶対ないです!
エクセルは難しくてなかなか覚えられないですが、良い勉強になります^^
pahoo様
ありがとうございます。
早速試してみます!!!