آپدیت خودکار ماکرو

[ali.b]

با سلام
با این کد می تونید هر 3 ثانیه ماکرو به صورت خودکار اجرا ی شه که دیگه نیا به بستن و دوباره اجرا کردن فایل اکسل نیست
البته برای بعضی از تابع ها که حتما نیاز هست فایل بسته و دوباره باز بشن کاربرد نداره

Sub Refresh()
'
' Refresh Macro
'

'
ActiveWorkbook.RefreshAll
Range("B1").Select
End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[omid39202782]

فقط زمانی که متغیر درون خانه ی(شیت) J245 تغییر کند بعد از 1 ثانیه اتوماتیک تغییر ایجاد می شود.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$245" Then
s = Timer + 1
Do While Timer < s
DoEvents
Loop

(my macro code)


End If
End Sub

فقط زمانی که متغیر درون خانه ی(شیت) J245 تغییر کند سریعا تغییر می کند.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$245" Then


(my macro code)


End If
End Sub

بعد از نوشتن کد های ماکرو ، باید یک Module ساده ساخته شود.مثلا:

Sub omid()
End Sub

و بعد از اتمام کار از طریق :
FILE:SAVE AS :
نوع سیو را Save as type : Exel Macro-Enabled Workbook قرار میدهیم.
تا ماکرو کار کند.