Excel VBA質問箱 IV

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

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


28315 / 76738 ←次へ | 前へ→

【53723】チェックボックスからの入力について
質問  peanuts  - 08/2/4(月) 22:48 -

引用なし
パスワード
   はじめまして。どなたか御教示下さい。

ユーザーフォームに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

長文・乱文で申し訳ありませんが、宜しくお願い致します。

0 hits

【53723】チェックボックスからの入力について peanuts 08/2/4(月) 22:48 質問
【53725】Re:チェックボックスからの入力について ハチ 08/2/5(火) 9:37 発言
【53729】Re:チェックボックスからの入力について peanuts 08/2/5(火) 11:24 回答
【53732】Re:チェックボックスからの入力について ハチ 08/2/5(火) 11:56 回答
【53739】Re:チェックボックスからの入力について peanuts 08/2/5(火) 13:31 お礼
【53730】Re:チェックボックスからの入力について Jaka 08/2/5(火) 11:29 発言
【53731】Re:チェックボックスからの入力について peanuts 08/2/5(火) 11:45 お礼

28315 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free