セルの中にもっとも簡単にチェックボックスを置く方法は？

Ｅｘｃｅｌ２０００を使用しています。

タイトル通りの質問です。いくつものセルにチェックボックスを起きたいと考えています。フォームを使うと大きさが違ったり、なんか違う感じがします。ほかに便利な方法はないですか？

意図することがわかりづらかったら補足致します。

No.4 ベストアンサー 回答者： ja7awu 回答日時： 2003/07/22 10:07

「もっとも簡単に」ですね。

セルをダブルクリックするだけでチェックボックスが配置されます。

ＶＢＡを使用しますが、詳しい操作手順を書きますので、テストしてみてください。

要望の詳細が分かりませんので、取り敢えず、セルの中央付近にチェックボックスの
四角部分だけを表示します。

列を限定して機能させるには、３行目で先頭の ' を消して、"A:A" を希望する
列に変更します。 これでＡ列だけで機能するようになります。

一応、コードの設定方法を書いておきます。

・使用しているシートのシート名タブを右クリックして「コードの表示」を
　指定します。
・開いたコードウィンドウに下記コードをコピーして貼り付けます。
　（「Option Explicit」があれば、その下付近に）
・Alt+ Q (または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
・以上で設定完了です。　セルをダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
　　Cancel As Boolean)
'If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
With Target
　　ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
　　　　DisplayAsIcon:=False, Left:=.Left + .Width / 2 - 5, _
　　　　Top:=.Top + .Height / 2 - 4.6, Width:=10, Height:=12).Select
End With
End Sub
　

この回答へのお礼

みなさん、回答ありがとうございました。失礼ながらこちらでみなさんに感謝の意を表します。

結果、置く方法がいろいろわかりました。実際、コードの回答をもらったのですが、まだお試しできていません(^^ゞ。これから試してみようと思います。

回答頂いただけでもスッキリしました。

お礼日時：2003/07/25 03:01

No.3 回答者： happypoint 回答日時： 2003/07/22 09:36

こんにちは。

「大きさが違ったり、なんか違う感じ」、というのがよくわかりません。

チェックボックスの「□」部分（チェックをつける部分）の大きさは、通常同じ大きさになります。
つまり大きさを不揃いにすることの方が難しいのです。

ですから、たぶん「位置が揃わない」ということをおっしゃっているのではないでしょうか。

フォームで作成するのでしたら、複数のチェックボックスを選択状態にしたあと、
VBEのメニューで
　書式-整列-左揃え
です。

ワークシートに配置したコントロールの場合は、
「図形描画」ツールバー（オートシェイプなどを調整するときに使うツールバー）
を使用して、複数のチェックボックスを選択状態にしたあと、
　図形の調整-配置/整列-左揃え
です。

No.2 回答者： imogasi 回答日時： 2003/07/22 07:00

１例としてセルＢ１：Ｂ１０にチェックボックスを作る方法

（１）ＡＬＴキーを押しながら、Ｆ１１キーを押す
（２）ＡＬＴキーをおしながら、Ｉ（挿入）続いてＭ（標準モジュル）を押す
（３）標準モジュルの画面になる
（４）下記を貼りつけ
Sub Macro1()
Worksheets("sheet1").DrawingObjects.Delete
For i = 1 To 10
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=Cells(i, "B").Left, Top:=Cells(i, "B").Top, Width:=Cells(i, "B").Width, Height:= _
Cells(i, "B").Height).Select
Next i
End Sub
（５）Ｆ５キー（実行）を押す。
（４）の前半は「マクロの記録」を使っています。
For i = 1 To 10の１がスタート、１０が終わり、Cells(i, "B").のＢがチェックボックスを置くセルの列を決めています。ここらを変えてください。
ご要求に合えば良いがと思います。

No.1 回答者： guruguru2 回答日時： 2003/07/22 00:03

こんばんわ(^^)。

とりあえず１つのセルにチェックボックスを貼り付けてそのセルをコピーして、目的のセルに張り付けしてはどうでしょう？それでも、おおきさは変わってしまいましたか?