Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8881 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30623】ユーザーフォームのチェックボックス ゆり 05/11/1(火) 13:22 質問[未読]
【30625】Re:ユーザーフォームのチェックボックス あ 05/11/1(火) 13:46 発言[未読]
【30626】Re:ユーザーフォームのチェックボックス Kein 05/11/1(火) 14:41 回答[未読]
【30623】ユーザーフォームのチェックボックス
質問  ゆり  - 05/11/1(火) 13:22 -
引用なし
パスワード
   ユーザーフォームを作成し、フォームで入力したデータをEXCELの表に反映させる
VBAを作成しています。
フォームの中にチェックボックスがあり、チェックが入ったときにセル上に1と表示
させたい（今はTRUE・FALSEで入力されます）のですが、オプションの設定からそのような処理をさせる事ができるのでしょうか？
また、今の状態だとフォームを表示させると、セル上が空白なので、チェックボックスが
グレーのチェックが入った状態になっています。
フォームを開いたときにチェックボックスにチェックが入っていない状態にしたい
のですが、どのように実現したらよいのでしょうか？
教えてくださーーい(*_ _)人
【30625】Re:ユーザーフォームのチェックボックス
発言  あ  - 05/11/1(火) 13:46 -
引用なし
パスワード
   ゆりさん
こんにちは。

よく状況がつかめていないのですが、一番はじめにﾌｫｰﾑが
あいた時にチェックボックスにチェックが入っていない
状態になりたいのですよね？
それであれば、プロパティのValueをFalseにすればチェックがない
状態になります。

チェックが入ったときに何か入れるという条件としての一例として
ソース書きます。

　　If CheckBox1.Value = True Then
　　　　Range("A1").Value = "あああ"
　　Else
　　　　Range("A1").Value = ""
　　End If

外していたらすみません。
【30626】Re:ユーザーフォームのチェックボックス
回答  Kein  - 05/11/1(火) 14:41 -
引用なし
パスワード
   こんな感じで出来るみたいです。

Private Sub CheckBox1_AfterUpdate()
　　Sheets("Sheet1").Range("A1").Value = _
　　CInt(CheckBox1.Value)
End Sub

Private Sub UserForm_Initialize()
　 With Me.CheckBox1
　　　.ControlSource = "Sheet1!$A$1"
　　　.Value = False
　 End With
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8881 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free