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

**M_ExceL** · 2019/12/29, 19:39

نوشته اصلی توسط Maryam3077

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

سلام،
کد زیر رو تست کنید :

کد:

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

**Maryam3077** · 2019/12/30, 04:42

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

**Amir Ghasemiyan** · 2019/12/30, 09:40

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

**Maryam3077** · 2019/12/30, 11:54

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

**generalsamad** · 2019/12/30, 12:39

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

کد PHP:


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

**Maryam3077** · 2019/12/30, 12:56

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