Excel VBA質問箱 IV

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

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


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

9601 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【26578】Re:チェックボックスのループ方法 ponpon 05/7/11(月) 1:48

【26580】Re:チェックボックスのループ方法 タカシ 05/7/11(月) 2:24


	【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


	【26578】Re:チェックボックスのループ方法

ponpon - 05/7/11(月) 1:48 -


	引用なし

	パスワード

こんばんは。

>If "CheckBox" & i.Value = True Then
を
If Me.Controls("CheckBox" & i).Value = True Then

に変えてみてください。

おやすみなさい。


	【26580】Re:チェックボックスのループ方法

タカシ - 05/7/11(月) 2:24 -


	引用なし

	パスワード

▼ponpon さん：
>こんばんは。
>
>>If "CheckBox" & i.Value = True Then
>を
>If Me.Controls("CheckBox" & i).Value = True Then
>
>に変えてみてください。
>
>おやすみなさい。

ponpon　様

うぉ～～～見事に動きました！
ありがとうございます。
早速仕事に生かさせていただきます。
本当に助かりました。
ただ、意味が判らず使うことになりそうです・・・。（爆
初心者だけにコワイです私　(^o^)


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

9601 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free