عبدالعزيز محمد قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 السلام عليكم ورحمة الله وبركاته بارك الله فيكم جميعا وجزاكم خيراً هل يمكن تغير تسمية زر أمر بعد تشغيله وتغيير مهمته فمثلا: زر تسميته_إخفاء عمود- ومهمته إخفاء عمود محدد فعند تشغيله يتم إخفاء العمود المحدد وبعد إخفاء العمود المحدد يتغير اسم الزر-إظهار عمود وتكون مهمته إظهار العمود المحدد الذي تم إخفاءه سابقا ؟ رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 اخى الفاضل أ.عزيز تفضل الملف المرفق لربما به طلبك تحياتي Hide-Unhide.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 اليك هذا الملف ربما يكون المطلوب toogle bottom.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 14, 2014 مشاركة قام بنشر ديسمبر 14, 2014 بسم الله ما شاء الله.. رائع يا ابن مصر بارك الله فيك مدهش أخ سليم جزيت خير الجزاء إثراءاً للموضوع : يمكن استخدام هذا الكود في ملف الأخ سليم 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 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 السلام عليكم ورحمة الله الله يجازكم خيرا شغل معلم كما يقال ومدهش ولإكمال الفائدة نأمل تغيير لون الخط في كل مهمة رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 15, 2014 مشاركة قام بنشر ديسمبر 15, 2014 السلام عليكم ورحمة الله الله يجازكم خيرا شغل معلم كما يقال ومدهش ولإكمال الفائدة نأمل تغيير لون الخط في كل مهمة اخى الفاضل في الملف الموجود بالمشاركة 2 قم بزيادة سطر واحد وهو ActiveSheet.Shapes("Button1").TextFrame.Characters.Font.Color = RGB(85, 142, 213) وتستطيع تغيير قيم ال RGB Colors كما تريد مرفق الملف للتوضيح تحياتي Hide-Unhide.rar 1 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 السلام عليكم ورحمة الله وبركاته بارك الله فيك رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 15, 2014 الكاتب مشاركة قام بنشر ديسمبر 15, 2014 السلام عليكم ورحمة الله وبركاته مشكورين اخواني على الردود وجزاكم الله خيراً اعذروني لكثرة اسئلتي ولكن لعشمي فيكم اطلب طلبا آخر وهو أن ملفي به حوالي 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) فنأمل توضيح طريقة إضافة الأزار ومن أي مكان أضيف هذه الأزرار وأخيرا جزاكم الله خيرا. رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 السلام عليكم ورحمة الله وبركاته وجزاكم الله خير الجزاء اعذروني لقلة صبري حيث محتاج إلى معرفة طريقة إضافة الأزرار وتسميتها لكي انسخ كود ibn-eqpt وأقوم بتغيير اسم الزر حيث نلاحظ أن اسم الزر في الكود السابق Button1 فأقوم بتغيير الاسم إلى Button2 وهكذا حتى يتم عمل الزر بشكل صحيح حيث أنني محتاج إلى 12 زر تقوم بإخفاء وإظهار الأعمدة المحددة . نأمل توضيح طريقة إضافة الأزرار مع معرفة كيفية تغيير اسمها بالتفصيل. وبارك الله فيكم ورحم الله والديكم وزكاة العلم نشره.............. رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 السلام عليكم ورحمة الله وبركاته وجزاكم الله خير الجزاء اعذروني لقلة صبري حيث محتاج إلى معرفة طريقة إضافة الأزرار وتسميتها لكي انسخ كود ibn-eqpt وأقوم بتغيير اسم الزر حيث نلاحظ أن اسم الزر في الكود السابق Button1 فأقوم بتغيير الاسم إلى Button2 وهكذا حتى يتم عمل الزر بشكل صحيح حيث أنني محتاج إلى 12 زر تقوم بإخفاء وإظهار الأعمدة المحددة . نأمل توضيح طريقة إضافة الأزرار مع معرفة كيفية تغيير اسمها بالتفصيل. وبارك الله فيكم ورحم الله والديكم وزكاة العلم نشره.............. اخى الفاضل من قائمة المطور ... Developer اختر ادراج Insert ( اذا لم تكن قائمة المطور عندك .. فمن قائمة ملف .. خيارات .. تخصيص الشريط ثم ضع علامة صح بجانب المطور الموجود بالقائمة علامات تبويب رئيسية ) ثم اختر زر عنصر تحكم نموذج .. كما في الصورة التالية اضغط على الزر واسحبه في اى مكان في الشيت لديك ... ويمكنك تغيير اسمه من اليسار هنا كما في الصورة اكتب الاسم الذي تريده واضغط انتر .. اذا اردت تغيير النص بالزر فاضغط كليك يمين تحرير النص او Edit Text واكتب النص الذي تريده بالزر " مثل اظهار أو إخفاء " اذا اردت تعيين الماكرو لهذا الزر حيث بمجرد الضغط عليه يتم تنفيذ الماكرو .. فاضغط كليك يمين ثم تعيين ماكر Assign Macro تحياتي رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 السلام عليكم ورحمة الله بارك الله فيك ورحم الله والديك سأقوم بالتجربة والدعاء لك ولجميع المؤمنين رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 أخي ابن مصر .. بدل ما تتعب نفسك خليه يفتح الباب ..ويشترك معانا رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 16, 2014 الكاتب مشاركة قام بنشر ديسمبر 16, 2014 (معدل) السلام عليكم ورحمة الله وبركاته اخواني حاولت كثيراً للقيام بعمل مجموعة أزرار تقوم بإظهار وأخفاء وتغيير الاسم واللون حسب المهمة ولكن لم افلح على الرغم من كثرة المحاولة حيث كل مرة أحاول تظهر رسالة كما هي ستظهر في الملف المرفق فنأمل الشرح لو تكرمت بطريقة أكثر تفصيلا وحبذا لو كان فيديو ولو بدون صوت أو بطريقة الخطوات المرقمة - كما أود عمل المطلوب كما هو في المرفق ففي المرفق 12 زر كل زر له وظيفة إظهار وإخفاء (3) أعمدة محددة كما هي في المرفق Aziz . اعذروني كثيرا على كثرة طلباتي وهذا من -عشمي فيكم وسعة صبركم وأيضا محبتي وعشقي لأكسل لأنني أريد التبحر فيه بمساعدة اساتذتي في المنتدى الذين لا يبخلون علينا بالشرح والتوجيه . -بدل ما تتعب نفسك خليه يفتح الباب ..ويشترك معانا- كيف يكون ذلك لأن التعليم له عدة طرق متنوعة Aziz.rar تم تعديل ديسمبر 16, 2014 بواسطه عزيز 60 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 16, 2014 مشاركة قام بنشر ديسمبر 16, 2014 الموضوع الذي أقصده حلقات افتح الباب وهذا رابط الحلقات http://www.officena.net/ib/index.php?showtopic=56941 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 17, 2014 الكاتب مشاركة قام بنشر ديسمبر 17, 2014 السلام عليكم ورحمة الله أنا في الإنتظار الرد الشافي ............ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 17, 2014 مشاركة قام بنشر ديسمبر 17, 2014 الأخ الحبيب عزيز بدلا من كل تلك الأزرار قمت بعمل قائمة منسدلة تختار منها الشهر المراد إظهاره ...ثم اضغط على زر الأمر Aziz.rar رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 17, 2014 الكاتب مشاركة قام بنشر ديسمبر 17, 2014 السلام عليكم ورحمة الله بارك الله فيك الحل ممتاز وأكثر من رائع ولكن أحتاج أحيانا للإظهار أكثر من شهر والعمل عليه فالكود لا يبلي حاجة العمل من هذه الناحية فأحيانا احتاج للإظهار ثلاثة أشهر والعمل عليها . ................ رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 17, 2014 الكاتب مشاركة قام بنشر ديسمبر 17, 2014 السلام عليكم ورحمة الله وبركاته مشكورين جميعاً على ما تبدلونه من أجل الرفع بالمنتدى الغالي وجزاكم الله خيراً ليس بالأمر الصعب على عباقرة الأكسل القيام بما جاء في مشاركتي اخواني حاولت كثيراً للقيام بعمل مجموعة أزرار تقوم بإظهار وأخفاء وتغيير الاسم واللون حسب المهمة ولكن لم افلح على الرغم من كثرة المحاولة حيث كل مرة أحاول تظهر رسالة كما هي ستظهر في الملف المرفق فنأمل الشرح لو تكرمت بطريقة أكثر تفصيلا وحبذا لو كان فيديو ولو بدون صوت أو بطريقة الخطوات المرقمة - كما أود عمل المطلوب كما هو في المرفق ففي المرفق 12 زر كل زر له وظيفة إظهار وإخفاء (3) أعمدة محددة كما هي في المرفق Aziz . اعذروني كثيرا على كثرة طلباتي وهذا من -عشمي فيكم وسعة صبركم وأيضا محبتي وعشقي لأكسل لأنني أريد التبحر فيه بمساعدة اساتذتي في المنتدى الذين لا يبخلون علينا بالشرح والتوجيه . رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 18, 2014 الكاتب مشاركة قام بنشر ديسمبر 18, 2014 السلام عليكم ورحمة الله بداية أود شكرالجميع وأدعو لهم بالخير . كود الاخ ibn-egiypt كان هو الأنسب لطريقة عملي لأنه يقوم بإخفاء وإظهار ما تريد حيث أحيانا يتطلب عملي إظهار أكثر من مجموعة أعمدة وإخفاء الباقي لذا حبذا لو كان أخي ibn-egypt يكمل معي معروفه -أو كما يقال الحلو ما يكملش- ففي آخر مرفق لي مجموعة أزرار مخصصة للأعمدة حبذا لو جعل لكل زر كوده الخاص لأنني حاولت كثيراً نسخ الكود وتغير اسم الزر ولكن لم يعمل معي وهذا اتعبني لأن عملي يتطلب مثل هذا الكود الرائع من أخي ibn-egypt وهذا لا ينقص من قدر الآخرين بل يكون كل كود يعمل في مجال مخصص له . ونشكر الجميع ونعتذر لهم وهذا من عشمي فيهم وصبرهم علينا لأن المعلم يصبر على تلميذه. رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 18, 2014 مشاركة قام بنشر ديسمبر 18, 2014 اخى الفاضل بالرغم انى مش مقتنع ابدا بالحل المرفق وبتكرار الأكواد بهذا الشكل ومقتنع ان حل الأستاذ ياسر خليل هو الأصح والأفضل لكن طالما انت عاوز كده وده طلبك ... فتفضل الملف المرفق تحياتي Aziz.rar 1 رابط هذا التعليق شارك More sharing options...
عبدالعزيز محمد قام بنشر ديسمبر 19, 2014 الكاتب مشاركة قام بنشر ديسمبر 19, 2014 السلام عليكم ورحمة الله وبركاته الله يرحم والديك ويجازيك خيراً هذا هو ما كنت أبحث عنه يا ibn-egypt كما يقا ماننحرمش منكم ............... رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان