پنهان و آشکار کردن shape با استفاده از شرط در ماکرو

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

    • 2016/07/21
    • 73

    [حل شده] پنهان و آشکار کردن shape با استفاده از شرط در ماکرو

    سلام
    چطور میشه یه shape را بسته به شرط پنهان و آشکار کرد
    ممنون
    [SIZE=4][COLOR=#008000][FONT=tahoma]هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام[/FONT][/COLOR][/SIZE]
  • amir_ts

    • 2015/03/17
    • 1247

    #2
    با سلام
    اگر سل a1 مساوی 10 بود مخفی و اگر 20 بود نمایش داده میشود.

    کد:
    [LEFT]
    Private Sub CommandButton1_Click()
    
    If Range("a1").Value = 10 Then
    ActiveSheet.Shapes("Picture 2").Visible = False
    ActiveSheet.CommandButton1.Caption = "äãÇíÔ"
    ElseIf Range("a1").Value = 20 Then
    ActiveSheet.Shapes("Picture 2").Visible = True
    ActiveSheet.CommandButton1.Caption = "ãÎÝí"
    
      End If
    
    End Sub
    [/LEFT]
    فایل های پیوست شده
    [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

    کامنت

    چند لحظه..