excelでクリックしたセルにレ点

エクセル2000を使っています。
入力作業の省力化のため、下記動作をＶＢＡで作成したいと思っています。
ご助言頂ければ幸いです。よろしくお願いいたします。

■やりたいこと
エクセルで予め指定したセルをクリックすると、レ点が入るようにしたい。
※入力規則を使う以外の方法でお願いいたします。

No.3 ベストアンサー 回答者： keithin 回答日時： 2011/07/15 22:05

時折寄せられるご相談ですが，クリックじゃなくダブルクリックで行います。

シート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_beforedoubleclick(byval Target as excel.range, cancel as boolean)
’「指定のセル」以外なら終わり
if application.intersect(target, range("A1,C1,E2:E5")) is nothing then exit sub
if target = "" then
target.font.name = "Wingdings"
target = chrb(252)
else
target.clearcontents
end if
cancel = true
end sub


＃実際には勿論，フォントの指定をマクロの中で行う必要などありません。指定のセルに事前にセットしておけば良いことです。

この回答へのお礼

正にやりたかった事そのものです。自分のやりたかった事と、完全に一致して感激です。
ありがとうございました。

お礼日時：2011/07/16 07:18

No.2 回答者： imogasi 回答日時： 2011/07/15 21:48

VBEの画面でVBAProjectのSheet1で右クリックしての「コードの表示」の画面で

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = "V"
End Sub
しかし
取り消しはどうするか
セル範囲限定はどうするか
レ点の文字はどうするか
など勉強して。

この回答へのお礼

精進します。ありがとうございました。

お礼日時：2011/07/16 18:53

No.1 回答者： tom04 回答日時： 2011/07/15 21:43

こんばんは！

セルをダブルクリックした場合になりますが・・・

一例です。
画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてセルをダブルクリックしてみてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
.Font.Name = "Marlett"
.Value = "a"
.HorizontalAlignment = xlCenter
End With
Cancel = True
End Sub

他に良い方法があればごめんなさいね。m(_ _)m

この回答へのお礼

精進します。ありがとうございました。

お礼日時：2011/07/16 18:53