| |
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
というように、各チェックボックスに対する処理を書いていたら、このような長いマクロになってしまいました。簡単に省略する方法は有りませんか？
|
|
- 03/4/13(日) 19:05 -
