جعل عنوان الزر يتغير

[أب مارية]

السلام عليكم اخواني

لنفترض أنه لدينا زر على ورقة الاكسل مكتوب فيه كلمة الأمام مثلا ونريد عند الضغط عليه أن تتحون كلمة (الأمام) إلى كلمة (الخلف) فماهي الطريقة المستعملة في ذلك.

[حمادة عمر]

السلام عليكم

الاخ الفاضل / foular

قم بالاطلاع علي الرابط التالي عله يكون المطلوب

اوقم بارفاق ملف للعمل عليه

http://www.officena.net/ib/index.php?showtopic=44440&hl=%2B%D8%B2%D8%B1+%2B%D9%85%D8%B2%D8%AF%D9%88%D8%AC

جزاك الله خيرا

[ابو تميم]

السلام عليكم

مرفق مثال على ذلك

هل يفي بالغرض

ارجو الاطلاع

تغير اسم الزر.rar

[عبدالله المجرب]

احسنت اخي ابو تميم

[ابو تميم]

أخي ابو احمد

ما قمدنا إلا ما تعلمناه منكم أستاذنا

جزاكم الله خيرا على تشجيعكم

[الـعيدروس]

السلام عليكم

اخي ابو تميم حل رائع

وهكذا برضه

Public B As Boolean

Private Sub CommandButton1_Click()

CommandButton1.Caption = IIf(B, "إلى الأمام", "إلى الخلف"): B = Not B

End Sub

[حمادة عمر]

السلام عليكم

الاخ الكريم / ابوتميم

بارك الله فيك ... عمل جميل ... فقط قصرت المسافات

واظن انه هو المطلوب

والاروع كود الاستاذ الكبير الرائع / ابونصار .... فقد قام بالغاء كل المسافات

واجاب فأوجز

جزاكم الله خيرا

[ابو تميم]

السلام عليكم

اخي ابو تميم حل رائع

وهكذا برضه

Public B As Boolean

Private Sub CommandButton1_Click()

CommandButton1.Caption = IIf(B, "إلى الأمام", "إلى الخلف"): B = Not B

End Sub

أستاذي ابو نصار

بارك الله فيك .... منكم نستفيد وكل يوم نتعلم منكم أكثر

جزاكم الله خيرا

[أب مارية]

نشكر الاخوة على الافادة والتفاعل مع الموضوع