|
UserFormには20個のCheckBoxがあり、CheckBoxでチェックを入れるとA列の空いている上のセルから順にプロットしていくようなマクロをネットで見ながらなんとか出来たのですが、チェックをはずしたときにそのセルにプロットした文字を消したいのですが上手く出来ません。
今の状況は、チェックを外したら、チェックをつけた時と同じ動きになってしまいます。
どなたかヒントをお願い致しますm(__)m
Private Sub CheckBox1_Click()
Dim i As Range
On Error Resume Next
Set i = Columns("A").SpecialCells(xlCellTypeBlanks).Cells(1, 1)
On Error GoTo 0
If i Is Nothing Then
If Range("A1").Value = "" Then
Set i = Range("A1")
ElseIf Range("A65536").Value <> "" Then
Else
MsgBox "対象範囲にはすべて入力済みです"
End If
End If
If Not i Is Nothing Then
i.Value = "root"
Else
MsgBox "対象範囲にはすべて入力済みです"
End If
End Sub
|
|