|
はじめまして。どなたか御教示下さい。
ユーザーフォームに9つのチェックボックスがあります。
それぞれのチェックボックスをチェックすることで、
セルD4からD12のセルにテキストを入力できるコードを組もうとしています。
チェックボックスをチェックする順番は特に決めておらず、
チェックした順番に上(D4)から順にテキストが入力され、
チェックを外すとその入力されたテキストがクリアーされます。
問題は、例えばD6に入力されたセルがチェックボックスを外して
空白セルになった場合、再度同じチェックボックスをチェックしたら、
その空白のセルに再度入力できるようにするには、どうしたら良いのでしょうか。
空白のセルは一つだけでなく、複数存在することもあり、その場合は
再度チェックした順に上からテキストが入力されるようにしたいのです。
下記のようなコードを見よう見まねで作成して実行してみましたが、
※部のコードが黄色くなり”該当するセルが見つかりません”というエラーが出てしまいます。
Private Sub CheckBox1_Click()
Dim kuuhaku As Variant
Dim mojiretsu As Object
Worksheets("data").Select
If CheckBox1.Value = True Then
※kuuhaku = Range("d4:d12").SpecialCells(xlBlanks).Select
With ActiveCell
.Value = "りんご"
End With
Else
For Each mojiretsu In Worksheets("data").Range("d4:d12")
If mojiretsu.Value Like "りんご" Then
mojiretsu.Value = ""
End If
Next mojiretsu
End If
End Sub
長文・乱文で申し訳ありませんが、宜しくお願い致します。
|
|