توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : آموزشي: آپدیت خودکار ماکرو
با سلام
با این کد می تونید هر 3 ثانیه ماکرو به صورت خودکار اجرا ی شه که دیگه نیا به بستن و دوباره اجرا کردن فایل اکسل نیست
البته برای بعضی از تابع ها که حتما نیاز هست فایل بسته و دوباره باز بشن کاربرد نداره
Sub Refresh()
'
' Refresh Macro
'
'
ActiveWorkbook.RefreshAll
Range("B1").Select
End Sub
omid39202782
2018/06/06, 12:08
فقط زمانی که متغیر درون خانه ی(شیت) 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
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.