エクセル書類の□にチェックを入れる方法

エクセルである申請書類の原本を作っています。その中の項目で書類の申請者に「□有　□無」という形で設問の解答欄を用意し、チェックをいれてもらうようにしたいのですが、書類を印字して手書きでチェックするのではなく、全部電子データでやり取りしたいのでエクセルの画面上でチェックをいれてもらいたいのですが、何かよい方法はないでしょうか。オートシェイプの直線を２本組み合わせてみたりもしたのですが、それでは不便なので何か簡単にチェックを入れられる方法があれば教えてください。

No.1 ベストアンサー 回答者： tokpy 回答日時： 2006/01/12 22:46

Excel

http://kokoro.kir.jp/excel/checkbox.html

Word
http://kokoro.kir.jp/word/form.html

この回答へのお礼

ありがとうございます。こんな機能があったなんて目からウロコです。今後もこの機能活用します！大変助かりました。

お礼日時：2006/01/14 09:42

No.3 回答者： imogasi 回答日時： 2006/01/14 00:08

何がしたいか良く伝わらないが、下記を工夫してみました。

Ｂ列の
第３行安全性
第８行価格性
第１２行美観
第１４行国際性
と入れておくとする。チェックボックスの見だしです。
下記をツールーマクローＶＢＥで挿入ー標準モジュールの画面に貼り付ける。
Sub Macro1()
ActiveSheet.DrawingObjects.Delete
For i = 1 To 100
If Cells(i, "B") <> "" Then
l = Cells(i, "B").Left + 2
t = Cells(i, "B").Top + 2
w = Cells(i, "B").Width - 2
h = Cells(i, "B").Height - 2
c = Cells(i, "B")
' MsgBox c
Set n = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=l, Top:=t, Width:=w, Height:=h)
n.LinkedCell = Cells(i, "D").Address
' MsgBox n.Name
n.Object.Caption = c
End If
Next i
End Sub
すると見出しが上記のような語句や文章のチェックボックスができる。
クリックしてＯＮにするとＤ列対応行がＴＲＵＥ、ＯＦＦにすると
ＦＡＬＳＥに設定できる。
問題はそれ以後、何をするのか質問に書いてないのでここまでにする。
＞チェックをいれてもらいたいのですが
だけでは判らない。

この回答へのお礼

お手数かけました。大変丁寧な回答に感謝しております。書類内の設問に「有・無」で答えてもらうようにしたかったのですが（その後チェックをいれた項目についてエクセルシート上で何かをしたりはしません）、表現が乏しくて申し訳ありませんでした。

お礼日時：2006/01/14 09:39

No.2 回答者： zorro 回答日時： 2006/01/12 22:47

参考に

http://www.relief.jp/itnote/archives/001254.php

この回答へのお礼

とても参考になるサイトをご紹介いただきありがとうございました。

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