calculate دستور

[mohamadali110]

سلام ميخوام تو يه شيت دستور calculate يا F9 هر ثانيه يكبار به محض باز كردن شيت1 تكرار بشه

[Amir Ghasemiyan]

سلام ميخوام تو يه شيت دستور calculate يا F9 هر ثانيه يكبار به محض باز كردن شيت1 تكرار بشه

سلام دوست عزيز
از اين دو فانكشن استفاده كنيد (كل كد ها مورد نياز است)

Dim SchedRecalc As Date


Sub Recalc()
Sheet1.Range("I2").Value = Format(Time, "hh:mm:ss")
Call SetTime
End Sub


Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub

[majid_mx4]

[QUOTE=mohamadali110;32678]سلام ميخوام تو يه شيت دستور calculate يا F9 هر ثانيه يكبار به محض باز كردن شيت1 تكرار بشه[/QUOTE

با سلام
ضمن کسب اجازه از مدیر محترم جناب آقای قاسمیان

ضمن استفاده از این دستورات ( با اجازه ) فایل ضمیمه ارائه میشود قابل ذکر است که این فایل هر 9 ثانیه محاسبات را از حالت Manual به حالت اتوماتیک برده و تجدید محاسبات می کند .

با تشکر میر