کار نکردن ماکرو در هنگام استفاده در 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
    • 4598
    • 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

      کامنت

      چند لحظه..