[حل شده] ساعت پویا در سلول جدول

[golchehre]

سلام
چطور میشه توی سلول و یا لیبل که تو جدول باشه عینا ساعت کامپیوتر رو داشت منظورم به صورت پویا یعنی همین چیزی که گوشه کامپیوتر نمایش داده میشه رو داشت ( با حرکت ثانیه شمارش )
من یه تاپیک مشابه پبدا کردم که برای یوزر فرم کد زیررو نوشته بودن ولی من میخوام تو خود جدول نمایش داده بشه
Private Sub UserForm_Activate()
a:
DoEvents
Label1.Caption = Time
DoEvents
GoTo a:
End Sub
از طریق ابزار Developer یه لیبل درست کردم و کد رو گزاشتم ولی وقتی رو لیبل کلیک میکنی ساعت رو نمایش میده ولی من میخوام توی هر شیتی که رفتم اتوماتیک نمایش داده بشه و نیاز به کلیک نباشه ببخشید من مبتدی هستم اگه نمونه درست شدشو پیوست کنید ممنون میشم
ممنون از توجه شما.

سوال دوم اینکه چطور میشه نوار ریبون و فرمول بار را از طریق vba مخفی کرد

[Amir Ghasemiyan]

سلام دوست عزيز

اين پست رو ملاحظه بفرماييد. من قبلا همچين كاري رو انجام دادم

محاسبه اوقات شرعي (كاملا حرفه اي) براي اولين بار در انجمن اكسل ايران

[golchehre]

سلام دوست عزيز

اين پست رو ملاحظه بفرماييد. من قبلا همچين كاري رو انجام دادم

محاسبه اوقات شرعي (كاملا حرفه اي) براي اولين بار در انجمن اكسل ايران

ممنون از پاسخ سریع شما من پست رو ملاحظه کردم ولی برای باز کردنش ارور زیر را میداد ورژن افیسم 2016 هستش
---------------------------

Microsoft Visual Basic for Applications
---------------------------
.Compile error in hidden module: Azan
.This error commonly occurs when code is incompatible with the version, platform, or architecture of this application. Click "Help" for information on how to correct this error
---------------------------
OK Help
---------------------------

همچنین فایل هم جدولش و هم قسمت vba پسورد داشت و من نتونستم مشکلم را حل کنم ممنون میشم نمونه ساده خودم را پیوست کنید
در مورد سوال دوم در مورد مخفی سازی نوار ریبون و فرمول بار چه کدی باید بنویسم برای مخفی کردن نوار ریبون در workbook کد زیر را نوشتم برای فرمول بار چه کار باید کرد

()Private Sub Workbook_Open
"Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)
End Sub

تشکر از شما

[Amir Ghasemiyan]

فايل پيوست رو ملاحظه بفرماييد

[golchehre]

فايل پيوست رو ملاحظه بفرماييد

خیلی خیلی ممنونم از لطفتون بسیار عالی بود تشکر
چطور میشه فرمول بار هم از طریق vb مخفی کرد ممنون میشم در این موردم راهنماییم کنید اگه پیوست بشه که خیلی عالی میشه تشکر از لطفتون

[میثم مقدم نیا]

خیلی خیلی ممنونم از لطفتون بسیار عالی بود تشکر
چطور میشه فرمول بار هم از طریق vb مخفی کرد ممنون میشم در این موردم راهنماییم کنید اگه پیوست بشه که خیلی عالی میشه تشکر از لطفتون

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

Private Sub CommandButton1_Click()
'مخفي کردن فرمول بار
Application.DisplayFormulaBar = False
End Sub 

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

Private Sub CommandButton2_Click()
'آشکار کردن فرمول بار
Application.DisplayFormulaBar = True
End Sub 

[golchehre]

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

Private Sub CommandButton1_Click()
'مخفي کردن فرمول بار
Application.DisplayFormulaBar = False
End Sub 

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

Private Sub CommandButton2_Click()
'آشکار کردن فرمول بار
Application.DisplayFormulaBar = True
End Sub 

خیلی خیلی از لطفتون ممنونم