チェックボックスの値をTRUE/FALSE以外にするには？

ユーザーフォームに入力した内容をワークシートに転記するマクロを組んでるのですが、チェックボックスの場合、値がTRUE/FALSEになります。
これを、TRUE=1、FALSE=空白にする方法はないでしょうか？
ちなみに、マクロには下記のように書いて転記しています。
.Cells(I, 3).Value = Me.chkbox1.Value

No.2 ベストアンサー 回答者： taocat 回答日時： 2005/07/18 09:58

おはようございます。

回答は出てますがこんなのもあるよ、ということで。

CheckBoxの値を数値で評価すると
　TRUE=-1
　FALSE=0
ですから、それを利用して

-----------------------------------------------

　Cells(I, 3).Value = Choose(Me.CheckBox1.Value + 2, "1", "")

-------------------------------------------------
質問の、chkbox1はデフォルトのCheckBox1にしてあります。

Choose関数はそうそう使うものではありませんが意外と便利な関数ですから覚えておいても損はないでしょう。
以上です。
　

この回答へのお礼

ありがとうございました。
おかげさまで思っていたとおりのことができました。
本当に助かりました。ありがとうございます。

お礼日時：2005/07/18 10:42

No.1 回答者： shiotan99 回答日時： 2005/07/18 08:51

こんにちは～

If Me.ChkBox1.Value Then
Cells(I, 3).Value = 1
Else
Cells(I, 3).Value = ""
End If

これでどうでしょうか？

この回答へのお礼

ありがとうございます。
早速やってみます。

お礼日時：2005/07/18 10:43