Excelのチェックボックス

Excelのシートにチェックボックスをつけたいと思い、コントロールを使って貼り付けました。
これを60行くらいコピーして保存終了後、開いてみるとものすごく開くのが重くなりました。

そこで
・チェックボックスを作る別の方法
・作ったチェックボックスを少しでも軽くする方法
のいずれかを用いて、もう少し軽く動作するようにしたいです。

何か工夫はありませんか。

No.3 ベストアンサー 回答者： noname#22222 回答日時： 2006/03/07 16:34

Microsoft 記号辞書を利用すれば、チェックマークも表示できます。

平面と立体の差さえ容認できるのであれば、セルに中央配置します。
当該セルをクリックしたら四角とチェックマーク付き四角をフリップフラップ表示させます。
こうすれば、随分と、軽くなると思います。

この回答へのお礼

ありがとうございます。

フリップフラップ表示というのはどのようにすれば実現可能でしょうか？
ヒントだけでもお願いします。

お礼日時：2006/03/08 11:32

No.5 回答者： noname#22222 回答日時： 2006/03/08 12:50

s_husky です。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

でも構いません。

この回答へのお礼

重ね重ねありがとうございます。
さっそく試して見たけれど、思ったような結果が出せていません。
ですが何でもかんでも聞くのもためにならないので後は頑張ってみます。


どうにもならなくなったらまた質問させてもらうかもしれませんが、ひとまずさようならです。
お二人様どうもありがとうございました。

お礼日時：2006/03/09 14:41

No.4 回答者： noname#22222 回答日時： 2006/03/08 12:45

s_husky です。

次は、列１の値をフリップフラップさせるコードです。

Option Explicit
Const conCheckBoxColumn = 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Column = conCheckBoxColumn And Len(Target.Value & "") > 0 Then
　　　　Target.Value = Mid$("OX", 2 - Abs(Target.Value = "X"), 1)
　　　　If Target.Value = "X" Then
　　　　　　' ここに、CheckBox=True の時の処理コードを書く
　　　　End If
　　End If
End Sub

No.2 回答者： noname#16474 回答日時： 2006/03/07 16:23

＃１の補足ですが、

*　は、入力規則－リストで作成すれば、
チェックボックスに近い動きをするかもしれませんね

No.1 回答者： noname#16474 回答日時： 2006/03/07 16:21

チェックボックスを使用する目的が分からないとなんともいえませんが

セルにマーク
（たとえばアスタリスク*とか）
を「つける」、「つけない」
で代用できませんか？

私は、「*」を使っています
マウス操作でチェックより、
*を入力のほうがオペレーションは楽かも

この回答へのお礼

ありがとうございます。

絶対にチェックボックスでなければならない、という事はありませんが、使用者が自分ではないので、用途を考えればチェックマークが一番直感的にわかりやすいと思っています。

お礼日時：2006/03/08 11:31