Ｐａｇｅ 25 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼助けて下さい〜 VBA超初心者 02/9/2(月) 15:42 ┗Re:助けてあげたいけど ひで 02/9/2(月) 18:42 ┗Re:助けてあげたいけど ichinose 02/9/2(月) 18:58 ─────────────────────────────────────── ■題名 ： 助けて下さい〜 ■名前 ： VBA超初心者 ■日付 ： 02/9/2(月) 15:42 -------------------------------------------------------------------------
| 皆様に質問なんです。 宜しくお願いします。 ExcelVBAにてユーザーフォームにて チェックボックスを設定して、チェックボックスの 横に記載されている内容をExcelsheetに表示したいのですが、 どのように書けば宜しいでしょうか。 以下に簡単流れを書きます。 ・Excelsheetに表があり、sheet上にボタンを設定します。 ・ボタンを押下するとユーザーフォームが表示されチェックボックスなどに チェックなどを入れて「ＯＫ」ボタンを押下します。 ・更にユーザーフォームが表示されその中にチェックボックスの一覧表があり、 その一覧表のチェックボックスにチェックを入れるとExcelsheetに表示されるように する。 こんな感じで作りたいのですが、 皆様の知恵を下さい。 どかよろしくお願いします。 |
| ▼VBA超初心者 さん こんばんは >チェックボックスを設定して、チェックボックスの >横に記載されている内容をExcelsheetに表示したいのですが、 >どのように書けば宜しいでしょうか。 チェックボックスの横に記載とはCaptionのこと でいいのでしょうか？ Excelsheetとはどこかのセルでいいのでしょうか？ 私の思っている事でよいのなら 'セルＡ1に入ります。 Private Sub CheckBox1_Change() If CheckBox1.Value = True Then Range("A1").Value = CheckBox1.Caption Else Range("A1").Value = "" End If End Sub どうかな〜 |
| ▼ひで さん： ▼VBA超初心者さん こんばんは。 一例ですが､ '============================ Private Sub CheckBox1_Change() 表示 End Sub '============================= Sub 表示() Dim idx As Integer idx = 1 With Worksheets(1) .Columns(1).Value = "" For Each cn In Controls If TypeName(cn) = "CheckBox" Then If cn.Value = True Then .Cells(idx, 1).Value = cn.Caption idx = idx + 1 End If End If Next End With End Sub チェックボックスが増えても同じ要領で､ '============================ Private Sub CheckBox2_Change() 表示 End Sub でＯＫです。 数が多い場合は､クラスモジュールを使う方法もありますが・・・。 |