Excelのチェックボックス

解決済

質問者：baritsu
質問日時：2006/03/07 16:11
回答数：5件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (5件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： noname#22222
回答日時：2006/03/07 16:34

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

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

- 1
- 件

通報する

この回答へのお礼

ありがとうございます。

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

通報する

お礼日時：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)

でも構いません。

- 0
- 件

通報する

この回答へのお礼

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

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

通報する

お礼日時：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