Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54938 / 76732

←次へ　｜　前へ→


	【26577】チェックボックスのループ方法

タカシ - 05/7/11(月) 1:07 -


	引用なし

	パスワード

ユーザーフォームにチェックボックスを12個作りました。
コマンドボタンを押下したとき
12個すべてのチェックボックスを1から順に判断してチェックがあれば
sheet3のセル（A1～A12）に予め記載されている文言を
sheet1のセル（A1）に入力するマクロを組みたいのです。
ごく普通に12回同じ内容を記載すれば特に問題なく動くのですが
少しでも軽いマクロに仕上げたいのです。
以下のように変数＝iを用いましたが巧く動いてくれません。
どうにか良い方法はございませんか？
宜しくお願いします。

Private Sub CommandButton1_Click()
　Dim i As Integer
　 For i = 1 To 12
　　If "CheckBox" & i.Value = True Then
　　 Worksheets("sheet1").Range("A1") = Worksheets("sheet3").Cells(i, 1)
　　End If
　 Next i
End Sub

0 hits

▼

【26577】チェックボックスのループ方法 タカシ 05/7/11(月) 1:07

≪