کد اجرای فرمان برای سلول فعال

[Maryam3077]

سلام من یه دکمه دارم که میخوام روی هر سلولی که فعال هست وقتی رو دکمه کلیک کردم زمان رو نشون بده،خودم کدش رو نوشته ام ولی فقط واسه یه سلوله؛ممنون میشم راهنمایی کنید

[M_ExceL]

سلام من یه دکمه دارم که میخوام روی هر سلولی که فعال هست وقتی رو دکمه کلیک کردم زمان رو نشون بده،خودم کدش رو نوشته ام ولی فقط واسه یه سلوله؛ممنون میشم راهنمایی کنید
سلام،
کد زیر رو تست کنید :

Sub test()
ActiveCell = Format(Now(), "hh:mm")
End Sub

[Maryam3077]

متاسفانه کار نمیکنه
ببینید من یه دکمه دارم به اسم مثلا button 1
حالا میخوام هر سلولی فعال بود با کلیک رو دکمه زمان نمایش داده بشه،زمان هم متغیر نباشه که رفرش شدنی به روز بشه،ینی ثابت بمونه
حالا من کد اینو میخواستم،اطلاعت زیادی هم ندارم راجع به vb
ممنون میشم اگه یه کد کامل بهم بدید که اونو کپی کنم توی ماکرو و اجراش کنم

[Amir Ghasemiyan]

كدي كه دوستمون دادن كاملا درسته. لطف كنيد كد خودتون رو قرار بدين تا بر اساس اون تغييرات مورد نظر اعمال بشه

[Maryam3077]

Sub button1_click()
Sheet1.range("A3").value = now()
End sub()
این کد رو من نوشتم ولی فقط ساعت رو توی سلول a3 نمایش میده،من میخوام این رو طوری تغییر بدم که وقتی دکمه رو زدم هر سلولی که فعال بود ساعت نمایش داده بشه،ضمنا فرمتش هم فقط ساعت و دقیقه باشه،بدون ثانیه شمار
ممنون از شما

[generalsamad]

با سلام
فرمولی که دوستان بیان کردند درست بوده


Sub button1_click()
ActiveCell = Format(Now(), "hh:mm")
End Sub

[Maryam3077]

یه دنیا ممنون از همگی
کد درست بود فقط من متاسفانه همونطور که دوستمون نوشته بود کپی میکردم توی ماکرو به همین خاطر اجرا نمیشد
فقط یه سوالی که از حضورتون داشتم اینه که آیا میشه این فایل رو تبدیل به فایل اجرای کردش؟

[generalsamad]

با سلام
بله با برنامه میشه
جستجو کنید برنامه تبدیل اکسل به exe