هل يمكن تغير مهمة الزر بعد تشغيله؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

بارك الله فيكم جميعا وجزاكم خيراً

هل يمكن تغير تسمية زر أمر بعد تشغيله وتغيير مهمته فمثلا:

زر تسميته_إخفاء عمود- ومهمته إخفاء عمود محدد فعند تشغيله يتم إخفاء العمود المحدد وبعد إخفاء العمود المحدد يتغير اسم الزر-إظهار عمود وتكون مهمته إظهار العمود المحدد الذي تم إخفاءه سابقا ؟

 

 

 

[ibn_egypt]

اخى الفاضل أ.عزيز

 

تفضل الملف المرفق لربما به طلبك

 

تحياتي  

Hide-Unhide.rar

[سليم حاصبيا]

اليك هذا الملف

ربما يكون المطلوب

toogle bottom.rar

[ياسر خليل أبو البراء]

بسم الله ما شاء الله..

رائع يا ابن مصر بارك الله فيك

مدهش أخ سليم جزيت خير الجزاء

إثراءاً للموضوع : يمكن استخدام هذا الكود في ملف الأخ سليم

Private Sub ToggleButton1_Click()
    Columns("A").Hidden = Not Columns("A").Hidden
    
    If ToggleButton1 Then
        ToggleButton1.Caption = "إخفاء العمود A"
    Else
        ToggleButton1.Caption = "إظهار العمود A"
    End If
End Sub

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

الله يجازكم خيرا شغل معلم كما يقال ومدهش ولإكمال الفائدة نأمل تغيير لون الخط في كل مهمة

 

[ibn_egypt]

السلام عليكم ورحمة الله

الله يجازكم خيرا شغل معلم كما يقال ومدهش ولإكمال الفائدة نأمل تغيير لون الخط في كل مهمة

 

اخى الفاضل في الملف الموجود بالمشاركة 2 قم بزيادة سطر واحد وهو

ActiveSheet.Shapes("Button1").TextFrame.Characters.Font.Color = RGB(85, 142, 213)

وتستطيع تغيير قيم ال RGB Colors كما تريد

 

مرفق الملف للتوضيح

 

تحياتي  

Hide-Unhide.rar

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

بارك الله فيك

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته مشكورين اخواني على الردود وجزاكم الله خيراً

اعذروني لكثرة اسئلتي ولكن لعشمي فيكم اطلب طلبا آخر وهو أن ملفي به حوالي 9 أعمدة محددة المطلوب اخفائها وتارة اظهارها فأود معرفة طريقة إضاف الأزرار التي تقوم بذلك حيث أن كل زر له اسمه الخاص به وكوده الخاص به فنأمل معرفة طريقة إضافة الأزرار بالتفصيل -الممل-كما يقال حيث حاولت كثيرا فأضيف أزرار ولكني لم اتطع تسميتهاكما في الكود التالي

If ActiveSheet.Shapes("Button1").TextFrame.Characters.Text = "إخفاء عمود A" Then
   ActiveSheet.Range("F:J").EntireColumn.Hidden = True
   ActiveSheet.Shapes("Button1").TextFrame.Characters.Text = "إظهار عمود A"
   ActiveSheet.Shapes("Button1").TextFrame.Characters.Font.Color = RGB(85, 142, 213)

فنأمل توضيح طريقة إضافة الأزار ومن أي مكان أضيف هذه الأزرار

وأخيرا جزاكم الله خيرا.

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

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

اعذروني لقلة صبري حيث محتاج إلى معرفة طريقة إضافة الأزرار وتسميتها لكي انسخ كود ibn-eqpt وأقوم بتغيير اسم الزر حيث نلاحظ أن اسم الزر في الكود السابق Button1 فأقوم بتغيير الاسم إلى Button2 وهكذا حتى يتم عمل الزر بشكل صحيح حيث أنني محتاج إلى 12 زر تقوم بإخفاء وإظهار الأعمدة المحددة .

نأمل توضيح طريقة إضافة الأزرار مع معرفة كيفية تغيير اسمها بالتفصيل.

وبارك الله فيكم ورحم الله والديكم وزكاة العلم نشره..............

[ibn_egypt]

السلام عليكم ورحمة الله وبركاته

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

اعذروني لقلة صبري حيث محتاج إلى معرفة طريقة إضافة الأزرار وتسميتها لكي انسخ كود ibn-eqpt وأقوم بتغيير اسم الزر حيث نلاحظ أن اسم الزر في الكود السابق Button1 فأقوم بتغيير الاسم إلى Button2 وهكذا حتى يتم عمل الزر بشكل صحيح حيث أنني محتاج إلى 12 زر تقوم بإخفاء وإظهار الأعمدة المحددة .

نأمل توضيح طريقة إضافة الأزرار مع معرفة كيفية تغيير اسمها بالتفصيل.

وبارك الله فيكم ورحم الله والديكم وزكاة العلم نشره..............

 

اخى الفاضل 

 

من قائمة المطور ... Developer  اختر ادراج Insert ( اذا لم تكن قائمة المطور عندك .. فمن قائمة ملف .. خيارات .. تخصيص الشريط ثم ضع علامة صح بجانب المطور الموجود بالقائمة علامات تبويب رئيسية )

 

 

ثم اختر زر عنصر تحكم نموذج .. كما في الصورة التالية

 

 

 

اضغط على الزر واسحبه في اى مكان في الشيت لديك ... ويمكنك تغيير اسمه من اليسار هنا كما في الصورة اكتب الاسم الذي تريده واضغط انتر .. اذا اردت تغيير النص بالزر فاضغط كليك يمين تحرير النص او Edit Text واكتب النص الذي تريده بالزر " مثل اظهار أو إخفاء "

 

 

 

اذا اردت تعيين الماكرو لهذا الزر حيث بمجرد الضغط عليه يتم تنفيذ الماكرو .. فاضغط كليك يمين ثم تعيين ماكر Assign Macro 

 

تحياتي  

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

بارك الله فيك ورحم الله والديك سأقوم بالتجربة والدعاء لك ولجميع المؤمنين

[ياسر خليل أبو البراء]

أخي ابن مصر ..

بدل ما تتعب نفسك خليه يفتح الباب ..ويشترك معانا

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

اخواني حاولت كثيراً للقيام بعمل مجموعة أزرار تقوم بإظهار وأخفاء وتغيير الاسم واللون حسب المهمة ولكن لم افلح على الرغم من كثرة المحاولة حيث كل مرة أحاول تظهر رسالة كما هي ستظهر في الملف المرفق 

فنأمل الشرح لو تكرمت بطريقة أكثر تفصيلا وحبذا لو كان فيديو ولو بدون صوت أو بطريقة الخطوات المرقمة - كما أود عمل المطلوب كما هو في المرفق ففي المرفق 12 زر كل زر له وظيفة إظهار وإخفاء (3) أعمدة محددة كما هي في المرفق Aziz  .

اعذروني كثيرا على كثرة طلباتي وهذا من -عشمي فيكم وسعة صبركم وأيضا محبتي وعشقي لأكسل لأنني أريد التبحر فيه بمساعدة اساتذتي في المنتدى الذين لا يبخلون علينا بالشرح والتوجيه .

 -بدل ما تتعب نفسك خليه يفتح الباب ..ويشترك معانا-

كيف يكون ذلك لأن التعليم له عدة طرق متنوعة

Aziz.rar

تم تعديل ديسمبر 16, 2014 بواسطه عزيز 60

[ياسر خليل أبو البراء]

الموضوع الذي أقصده حلقات افتح الباب وهذا رابط الحلقات

http://www.officena.net/ib/index.php?showtopic=56941

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

أنا في الإنتظار الرد الشافي ............

[ياسر خليل أبو البراء]

الأخ الحبيب عزيز

بدلا من كل تلك الأزرار قمت بعمل قائمة منسدلة تختار منها الشهر المراد إظهاره ...ثم اضغط على زر الأمر

Aziz.rar

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

بارك الله فيك

الحل ممتاز وأكثر من رائع ولكن أحتاج أحيانا للإظهار أكثر من شهر والعمل عليه فالكود لا يبلي حاجة العمل من هذه الناحية فأحيانا احتاج للإظهار ثلاثة أشهر والعمل عليها .

................

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

مشكورين جميعاً على ما تبدلونه من أجل الرفع بالمنتدى الغالي وجزاكم الله خيراً

ليس بالأمر الصعب على عباقرة الأكسل القيام بما جاء في مشاركتي

اخواني حاولت كثيراً للقيام بعمل مجموعة أزرار تقوم بإظهار وأخفاء وتغيير الاسم واللون حسب المهمة ولكن لم افلح على الرغم من كثرة المحاولة حيث كل مرة أحاول تظهر رسالة كما هي ستظهر في الملف المرفق 

فنأمل الشرح لو تكرمت بطريقة أكثر تفصيلا وحبذا لو كان فيديو ولو بدون صوت أو بطريقة الخطوات المرقمة - كما أود عمل المطلوب كما هو في المرفق ففي المرفق 12 زر كل زر له وظيفة إظهار وإخفاء (3) أعمدة محددة كما هي في المرفق Aziz  .

اعذروني كثيرا على كثرة طلباتي وهذا من -عشمي فيكم وسعة صبركم وأيضا محبتي وعشقي لأكسل لأنني أريد التبحر فيه بمساعدة اساتذتي في المنتدى الذين لا يبخلون علينا بالشرح والتوجيه .

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

بداية أود شكرالجميع وأدعو لهم بالخير .

كود الاخ ibn-egiypt كان هو الأنسب لطريقة عملي لأنه يقوم بإخفاء وإظهار ما تريد حيث أحيانا يتطلب عملي إظهار أكثر من مجموعة أعمدة وإخفاء الباقي لذا حبذا لو كان أخي ibn-egypt يكمل معي معروفه -أو كما يقال الحلو ما يكملش- ففي آخر مرفق لي مجموعة أزرار مخصصة للأعمدة حبذا لو جعل لكل زر كوده الخاص لأنني حاولت كثيراً نسخ الكود وتغير اسم الزر ولكن لم يعمل معي وهذا اتعبني لأن عملي يتطلب مثل هذا الكود الرائع من أخي ibn-egypt

وهذا لا ينقص من قدر الآخرين بل يكون كل كود يعمل في مجال مخصص له .

ونشكر الجميع ونعتذر لهم وهذا من عشمي فيهم وصبرهم علينا لأن المعلم يصبر على تلميذه.

[ibn_egypt]

اخى الفاضل

 

بالرغم انى مش مقتنع ابدا بالحل المرفق وبتكرار الأكواد بهذا الشكل ومقتنع ان حل الأستاذ ياسر خليل هو الأصح والأفضل لكن طالما انت عاوز كده وده طلبك ... فتفضل الملف المرفق 

 

تحياتي  

Aziz.rar

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

الله يرحم والديك ويجازيك خيراً هذا هو ما كنت أبحث عنه يا ibn-egypt

كما يقا ماننحرمش منكم ...............