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

[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 قرار میدهیم.
تا ماکرو کار کند.
166151661616617