Excel VBA質問箱 IV

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

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


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

76253 / 76738

←次へ　｜　前へ→


	【4909】チェックボックスのマクロを簡単に書くには？

はらへりおおかみ - 03/4/13(日) 18:30 -


	引用なし

	パスワード

60個のチェックボックスがあって、チェックを入れている時「記録用シート」の決まったセルに「レ」を入力するマクロを考えました。

Private　Sub　CommandButton1_Click（）
　With　Sheets（"記録用シート")
　　Dim　i　As　Integer
　　i＝3
　　Do　
　　　　i＝i+1
　　　　If　.Cells(i,1)＝""　Then　Exit　Do
　　Loop
　　　　.Cells(i,1).Value＝TextBox1.Value
　　　　If　CheckBox1.Value＝True　Then
　　　　　　.Cells(i,9).Value＝"レ"
　　　　Else　
　　　　　　.Cells(i,9).Value＝""
　　　　End　If
　　　　If　CheckBox2.Value＝True　Then
　　　　　　.Cells(i,10).Value＝"レ"
　　　　Else　
　　　　　　.Cells(i,10).Value＝""
　　　　End　If
　　　　　　　　　　　：
　　　　If　CheckBox59.Value＝True　Then
　　　　　　.Cells(i,77).Value＝"レ"
　　　　Else　
　　　　　　.Cells(i,77).Value＝""
　　　　End　If
　　　　If　CheckBox60.Value＝True　Then
　　　　　　.Cells(i,78).Value＝"レ"
　　　　Else　
　　　　　　.Cells(i,78).Value＝""
　　　　End　If
　　END　With
End　Sub
というように、各チェックボックスに対する処理を書いていたら、このような長いマクロになってしまいました。簡単に省略する方法は有りませんか？

2 hits

▼

【4909】チェックボックスのマクロを簡単に書くには？ はらへりおおかみ 03/4/13(日) 18:30

≪