ボタンクリックで決めた場所に日付を表示

質問

エクセルで決めた場所のセルに、
その日の日付を表示させたいのです。　

例えば、フォームでボタンを作って、そのボタンを押すと、
アクティブセルがどこにあってもB１にその日の日付を表示
させたいのです。

ボタンにマクロの記録を登録するまでは出来たのですが、
ボタンを押すと、表示させたいB１をアクティブセルにして
いないとその場所に出ません。

説明がわかりづらいかもしれないですが
教えていただければありがたいです。

回答No.1

taranko · ベストアンサー

(1)Range("B1").Select
(2)ActiveCell.FormulaR1C1 = Date

(1)Ｂ１（表示したいセル）をアクティブにする
(2)システム日付をセルに入れる

アクティブセルが強制的にＢ１になるのですが、
いかがでしょうか。

お礼

ありがとうございました！！！
解決出来ました☆
初心者で説明自体、うまく出来てない状態での
分かりやすいご回答ありがとうございましたm(_ _)m

回答No.4

imogasi

>表示させたいB１をアクティブセルにして
いないとその場所に出ません。
自分のコードの不適当箇所を聞くなら、どんなコードになっているか、質問に載せないと、答えようがないですよ。
ーーー
ボタンを貼り付けなくても
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$1" Then Target = Date
End Sub
というのも、Ｂ１セルをクリクしたら、Ｂ１セルに、日付が出ます。

お礼

ご回答ありがとうございました。
無事解決出来ました☆
初心者なので、コードとかよくわからなくて、
コードを確認する場所自体わかりませんでした。。
コードが書いてある場所がわかり、皆さんから
頂いたアドバイスを実行し、無事解決出来ました。

回答No.3

onlyrom

こんにちは。

-----------------------------------------
Sub ボタン1_Click()

　Range("B1").Value = Date

　Range("B1").NumberFormatLocal = "yyyy/m/d"

End Sub
------------------------------------------

手動でセルB1の表示形式を日付にしておけば、２行目のNumberformatは不要。

お礼

ご回答ありがとうございました。
無事解決出来ました☆

回答No.2

noname#18558

ActiveSheet.Range("B1").Value = Date

お礼

早速のご回答ありがとうございました。
無事解決しました。