[حل شده] تغییر شرطی متن دکمه

[2009tv]

با سلام و احترام خدمت دوستان و اساتید عزیزم
قبلاْ با توجه به راهنمایی دوستان اطلاعاتی در زمینه تغییر متن دکمه کسب کردم اما اکنون می خواهم در مورد دکمه هایی که در محیط خارج از فرم که در محیط شیط بطور جداگانه قرار گرفته است متن دکمه تغییر کند.
در ضمیمه فایلی قرارداده ام که می خواهم با تغییر مقدار در سلول a1 متناسب با آن با کلیک بر روی دکمه "اعمال تغییر" متن دکمه "ok" تغییر کند!
ممنون
فایل ضمیمهنمونه)
2009tv.zip

[Alireza]

در محیط اکسل وقتی شیپ فعاله در فرمول بار بنویسید
=a1

Sent from my SM-A510F using Tapatalk

[amir_ts]

با سلام
کد های قبلی که در فایل ارسال کردید مربوط به CommandButton بود. شما در فایل به جای اون از Shape استفاده کردید.
برای اجرای کد ها باید از دکمه فرمان (CommandButton ) استفاده کنید.
کدها به این صورت میشه:

[LEFT]
Sub test()
If Range("a1").Value = 10 Then
        ActiveSheet.Shapes("shape1").TextFrame.Characters.Text = "excel"
        ElseIf Range("a1").Value = 15 Then
             ActiveSheet.Shapes("shape1").TextFrame.Characters.Text = "iran"
         Else
            Range("a1").Value = 20
          ActiveSheet.Shapes("shape1").TextFrame.Characters.Text = "exceliran"
End If
End Sub
[/LEFT]