Excel2010 セルをワンクリックで・・・

質問

いろいろネットで調べていますがピッタリのがありません。できるかどうかわからないのですが、ワンクリックで、セルに×が入力するようにしたいのですが。また、印刷するときは必要ないので、印刷前に一括で削除を考えています。×の個数は横一カ月のカレンダーに、縦10行内に３０か所くらいあります。できますでしょうか。

回答No.12

tom04 · ベストアンサー

一括消去は
「×」だけで他のデータはそのまま残さないといけない訳ですね？

Sub 一括消去()
Dim c As Range
For Each c In Range("D32:AH49,D52:AH60")
If c = "×" Then
c.ClearContents
End If
Next c
End Sub

にしてみてください。

何とか完成に近づいたでしょうか？m(_ _)m

お礼

ずうずしいお願いにご協力いただきましてありがとうございました。これからもよろしくお願いします。

補足

×印をクリックで表示するのは完成しました。長々とお付き合いいただきましてありがとうございました。
おいおい、プロシージャを解析して理解するようにします。表そのものはまだ完成していないので、何かありましたらこれからもよろしくお願いします。

回答No.1

tom04

こんばんは！
＞ワンクリックで・・・
では単に選択しただけで「×」が表示されてしまいますので、
ダブルクリックではどうでしょうか？

それでよければ、VBAになってしまいますが、一例です。
範囲がはっきりしないので、A1～AE10の範囲限定としています。

尚、間違って「×」を表示させた場合はもう一度ダブルクリックすると「×」が消えるようにしてみました。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA1～AE10の範囲をダブルクリックしてみてください。

※　印刷前の一括消去のマクロも一緒に載せておきます。
このマクロは　Alt＋F8キー　→　マクロ　→　マクロ実行　での操作になります。

'これ以降の行から
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("A1:AE10")) Is Nothing Then Exit Sub
If Target = "" Then
Target = "×"
Else
Target = ""
End If
Cancel = True
End Sub
Sub 一括消去()
Range("A1:AE10").ClearContents
End Sub 'この行まで

※　セル範囲はこちらで勝手に決めていますので、
実状に合わせてセル範囲変更してみてください。m(_ _)m

お礼

ありがとうございました。希望通りで大変ありがたいです。３か所同時入力も検討頂きましてありがとうございます。

補足

早速回答ありがとうございます。ズバリできました。やー嬉しいですね。一括消去もズバリです。一括消去はActiveコントロールのコマンドボタンを作りそれで消去したいと思います。まとめてクリックする数が多いので、願わくばワンクリックにしたいところですが。