مرحوم محمد محمدی

🖤 پیام تسلیت

با نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفته‌اند.

ایشان سال‌ها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند.

مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.


انا لله و انا الیه راجعون

کار نکردن ماکرو در هنگام استفاده در Userform

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • a.dal65

    • 2011/04/29
    • 384
    • 67.00

    [حل شده] کار نکردن ماکرو در هنگام استفاده در Userform

    با سلام

    دوستان من یک ماکرو دارم که shape های قرمز رنگ رو توی شیت show و hide میکنه .

    وقتی یوزر فرمی که در یک شیت دیگه هستش و اجرا میکنم و ماکرو رو توی userform فراخوانی میکنم ، ماکرو کار نمیکنه .

    (خواسته من اینکه توسط userform ماکروی که در یک شیت دیگه هست رو اجرا کنم)
    فایل های پیوست شده
    Last edited by a.dal65; 2018/02/28, 11:59.
  • Amir Ghasemiyan

    • 2013/09/20
    • 4600
    • 100.00

    #2
    نوشته اصلی توسط a.dal65
    با سلام

    دوستان من یک ماکرو دارم که shape های قرمز رنگ رو توی شیت show و hide میکنه .

    وقتی یوزر فرمی که در یک شیت دیگه هستش و اجرا میکنم و ماکرو رو توی userform فراخوانی میکنم ، ماکرو کار نمیکنه .

    (خواسته من اینکه توسط userform ماکروی که در یک شیت دیگه هست رو اجرا کنم)


    سلام دوست عزيز
    براي حل اين مشكل شما كافيه همه كدهايي كه در sheet2 نوشتيد رو به يك ماژول منتقل كنيد و عبارت activesheet رو به sheet2 تبديل كنيد

    براي دكمه يوزفرمتون هم اين كد ساده رو بذاريد

    کد:
    Private Sub CommandButton1_Click()
    
    
    HideRedOvals
    
    
    End Sub

    کامنت

    • a.dal65

      • 2011/04/29
      • 384
      • 67.00

      #3
      با سلام
      بله آقا امیر این کار میشد ولی من نمیتونستم استفاده کنم ازش ( علتشو بخوام بگم خیلی طولانی)
      من گیر داده بودم به
      application.run
      و
      call
      که هیچ جوری نتونستم درست کنم .

      دیروز اینجوری حلش کردم.

      sheet2.select
      sheet2.HideRedOvals

      کامنت

      چند لحظه..