اجرای یک ماکرو در همه شیت های یک فایل اکسل

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • arash4041

    • 2013/01/06
    • 109

    اجرای یک ماکرو در همه شیت های یک فایل اکسل

    سلام خدمت دوستان
    من یک ماکرو دارم که میخوام وقتی اجرا شد تمام شیت های فایل همون اکسل اجرا بشه .مممنون
  • hadi1980

    • 2019/01/07
    • 237
    • 86.00

    #2
    سلام
    کافيه يه لوپ روي شيتها بنويسيد
    مثلا اينجوري
    کد:
     
    DimxSh AsWorksheet[COLOR=#0A0101][FONT=Consolas]
    Application.ScreenUpdating = False[/FONT][/COLOR]
    [COLOR=#0A0101][FONT=Consolas]    For Each xSh In Worksheets[/FONT][/COLOR]
    [COLOR=#0A0101][FONT=Consolas]        xSh.Select[/FONT][/COLOR]
    [COLOR=#0A0101][FONT=Consolas]        Call RunCode[/FONT][/COLOR]
    [COLOR=#0A0101][FONT=Consolas]    Next[/FONT][/COLOR]
     Application.ScreenUpdating = True

    کامنت

    چند لحظه..