|
はらへりおおかみ さん、おはようございます。
まだ解決マークになっていないようなので、ちょっと参加。
>60個のチェックボックスがあって、チェックを入れている時「記録用シート」の決まったセルに「レ」を入力するマクロを考えました。
>簡単に省略する方法は有りませんか?
Private Sub CommandButton1_Click()
Dim I As Long, J As Integer
With Worksheets("記録用シート")
I = .Cells(I, 1).End(xlUp).Row + 1
'
.Cells(I, 1).Value = TextBox1.Value
For J = 1 To 60
'チェックボックスがシート上の場合
With ActiveSheet.OLEObjects("CheckBox" & J).Object
Select Case .Value
Case True: .Cells(I, 8 + J).Value = "レ"
Case Else: .Cells(I, 8 + J).Value = ""
End Select
End With
Next
End With
End Sub
フォーム上の場合はOLEObjectsではなくて、Hirofumiさんの書かれているとおり、Controlsを使います。
|
|