محمود أبوالدهب قام بنشر يوليو 15, 2017 مشاركة قام بنشر يوليو 15, 2017 اولا كنت قد فعلت موضوع بطلبي قبل ذالك هنا ولكن الان قد توصلت لكيفية تغير اسم ورقة العمل عن طريق الفورم من موضوع قديم هنا سبق طرحة والان لو امكن طلب واحد فاضل هو كيفية تير اسم الرز بالفورم مع تغير اسم ورقة العمل بالشيت بمعنى اذا غيرت مثلا اسم ورقة 1 بالشيت الى الادارة البيطرية مثلا يتغير اسم الزر بالفورم التالى الى نفس الاسم وشكرا وواسف للاطالة مرفق طية ملف العمل سجل اعارات - نسخة.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 السلام عليكم أخي الكريم محمود مش عارف أقولك ايه .. حاولت أنصحك بس شكلك مش عايز تاخد بالنصيحة .. متزعلش بهزر معاك ، بس هنصحك بردو لما تطرح موضوع الأفضل إنك تبسط الأمور .. تبسطها إزاي ؟؟! أقولك مش لازم ترفع الملف الأصلي .. أنا واحد من الناس لما بشوف الملف فيه شغل جامد ومتداخل ومش فاهم المطلوب فين بالظبط بترك الموضوع وأشوف غيره (مش عشان صعوبة الموضوع لكن عشان الوقت ممكن ميكونش متاح ، لأن في حالة الملف المعقد مضطر تدرس الملف كويس وتقرا الموضوع كويس عشان تقدر تساهم بحل) .. والحكمة بتقول : ليه أتعب نفسي طالما ممكن أرتاح وأتعب غيري .. مين بقا غيري ؟ اللي هو صاحب الموضوع .. المفروض يتعب عشان يوضح طلبه بشكل أفضل وأيسر معلش إذا كنت برغي كتير ، بس أنا بحب أوضح الأمور طيب هتسألني أعمل ايه يعني؟ أقولك : بسطها ترتاح وتريح وتحصل على المطلوب بكل سهولة ويسر من كل الأعضاء يعني لما يكون طلبك يخص فورم معين .. ارفق ملف بالفورم دا بس أو بالفورم اللي يخص طلبك فقط .. مع توضيح التفاصيل .. ******************************** نيجي بقا لموضوعك : بعد الإطلاع على الملف أعتقد حل موضوعك بسيط جداً جداً وهو كالتالي : في الفورم المسمى "UserFormopen" (أخدت بالك بحدد المكان اللي هتعامل فيه إزاي ..عشان تخلي بالك) فيه حدث اسمه "UserForm_Activate" (أخدت بالك إني بحدد الجزء اللي هتشتغل فيه إزاي .. عشان تخلي بالك) دا مسئول عن تفعيل الفورم ، يعني لما الفورم يتفعل ايه اللي هيحصل .. دا اللي إنت هتحدده إنت عامل أزرار .. زر أمر لكل ورقة عمل ، طيب دلوقتي عايز تربط الزر دا باسم ورقة العمل لما يتغير .. يبقا في الحالة دي هتستخدم الخاصية Caption ودي معناها عنوان (عنوان الزر) .. وأعتقد دا طلبك يبقا هتكلم الإكسيل وتقوله : لو سمحت خلي عندك دم وغير لي عنوان زر الأمر ده ... بس بصراحة إنت عارف إن الإكسيل مش هيفهمك كدا لأنه هيسألك : إنت عايز تغيره لايه يا سعادة البيه؟ .. تقوم إنت ترد وتقوله : لاسم ورقة العمل .. يرد عليك بعنف : ويقولك بطل هزار يا حودة ، أنا عندي أوراق عمل كتير ، خليك محدد الهدف عشان تعرف تجيب جوووووووول GOAL تقوم إنت تشوف الزر دا عايز تربطه بأي ورقة عمل .. مثال : CommandButton3 مكتوب عليه ورقة1 ، فتقوم تبص للاسم البرمجي لورقة العمل هتلاقيه في محرر الأكواد في نافذة المشروع .. هتلاقي الاسم البرمجي لورقة1 اسمه sh3 (إنت اللي مسميه يا جميل لأن مش دا الاسم الافتراضي .. مش موضوعنا) يرجع مرجوعنا لموضوعنا : الخلاصة دلوقتي إننا نخلي عنوان زر الأمر بنفس عنوان اسم ورقة العمل يبقا الحل ببساطة عمل سطر بالشكل التالي CommandButton3.Caption = sh3.name شفت بسيطة إزاي (ودا حل مشكلتك .. بس كان لازم تعرف إزاي تتعامل مع المشكلة قبل ما تحلها طبعاً هتعمل نفس الحكاية مع بقية الأزرار .. يعني نفس الفكرة هتطبقها بنفسك يا جميل Private Sub UserForm_Activate() Application.Visible = False CommandButton3.Caption = sh3.name 'اشتغل بنفسك على بقية الأزرار End Sub وأخيراً أعتذر للإطالة ... تقبل تحياتي 3 رابط هذا التعليق شارك More sharing options...
محمود أبوالدهب قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 يااااااااااااااااه كل ده زعل منى والله ظننت انى قد شرحت بالصتفاضه ولكنى يجب ان اشرح بالتفصيل الممل ولكل لهذا كل اسفي ثانيا انا والله بتعلم منكم اساتذتى ودائما ما يكون الاستاذ طوي البال على تلاميذه لاصال المعلومه لديهم ثالثا بالفعل قرئت موضوع قديم لك كنت عن الامر ولكن لم يظبط الامر معي ولكن لما غير CommandButton الى ليبل ظبط الامر معي فقلت اطرح الموضوع مع العلم انى نفذت ما شرحته لى الان بالضبط ولما ظبط في اليبل غيرت الازرار الى ليبل رابعا كم يشرفنى ان اكون في قائمة الاصدقاء لديك ي بالله عليك كنت طويل البال علي رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 صدقني يا حودة والله مفيش زعل أبداً .. أنا حابب أوجه الأعضاء فقط للأفضل ، لمصلحتهم قبل كل شيء لأن الموضوع لو مش واضح مش بتلاقي تفاعل من الأعضاء ، ويمكن إنت لاحظت كدا ... فعشان كدا لما بنضح مش معناه إني متضايق أو زعلان ، لكن حريص إن المشكلة تتحل ، وعشان تتحل لازم كل شيء يكون مفصل أو مبسط راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى والتوجيهات دي وضعت للوصول إلى المثالية في حل المشكلات وليست لإعاقة الأعضاء لا سمح الله وأخيرأ أرجو ألا يكون في صدرك أي شيء مني تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر يوليو 16, 2017 مشاركة قام بنشر يوليو 16, 2017 (معدل) طيب لو كانت قيمه الخليه ... يعنى مثلا الخليه a1 مكتوب جواها اسم (احمد) وعاوز الاسم ده يظهر علي الزرار اعمل ايه ...؟؟؟ وشكرا تم تعديل يوليو 16, 2017 بواسطه أحمد الزيادى رابط هذا التعليق شارك More sharing options...
محمود أبوالدهب قام بنشر يوليو 16, 2017 الكاتب مشاركة قام بنشر يوليو 16, 2017 (معدل) 2 ساعات مضت, أحمد الزيادى said: طيب لو كانت قيمه الخليه ... يعنى مثلا الخليه a1 مكتوب جواها اسم (احمد) وعاوز الاسم ده يظهر علي الزرار اعمل ايه ...؟؟؟ وشكرا يمكن ذالك عن طريق اتباع الشرح الخاص باستاذنا الجليل ياسر خليل بالاعلى او كما يمكن ذالك عن طريق وضع الكود الحالى بثلاث صيغ والدلاله واحده بالنهاية Private Sub UserForm_Initialize() 'الطريقة الاولى If Label1.Caption <> "" Then Label1.Caption = Sheets(1).Range("a1").Value End If 'الطريقة الثانية Label2.Caption = Range("b1") 'الطريقة الثالثة Label3.Caption = Range("c1").Value 'CommandButton 'الطريقة الاولى If Label1.Caption <> "" Then CommandButton1.Caption = Sheets(1).Range("a2").Value End If 'الطريقة الثانية CommandButton2.Caption = Range("b2") 'الطريقة الثالثة CommandButton3.Caption = Range("c2").Value End Sub ومرفق ملف لتوضيح الامر 1010.rar كما بالامكان البحث بالموضوعات القديمة وستجد كل ما ترغب به ان شاء الله ومثال على ذالك الرابط التالى تم تعديل يوليو 16, 2017 بواسطه محمود أبوالدهب 2 رابط هذا التعليق شارك More sharing options...
أحمد الزيادى قام بنشر يوليو 22, 2017 مشاركة قام بنشر يوليو 22, 2017 الف الف شكر يااستاذ محمود في 7/17/2017 at 00:28, محمود أبوالدهب said: يمكن ذالك عن طريق اتباع الشرح الخاص باستاذنا الجليل ياسر خليل بالاعلى او كما يمكن ذالك عن طريق وضع الكود الحالى بثلاث صيغ والدلاله واحده بالنهاية Private Sub UserForm_Initialize() 'الطريقة الاولى If Label1.Caption <> "" Then Label1.Caption = Sheets(1).Range("a1").Value End If 'الطريقة الثانية Label2.Caption = Range("b1") 'الطريقة الثالثة Label3.Caption = Range("c1").Value 'CommandButton 'الطريقة الاولى If Label1.Caption <> "" Then CommandButton1.Caption = Sheets(1).Range("a2").Value End If 'الطريقة الثانية CommandButton2.Caption = Range("b2") 'الطريقة الثالثة CommandButton3.Caption = Range("c2").Value End Sub ومرفق ملف لتوضيح الامر 1010.rar كما بالامكان البحث بالموضوعات القديمة وستجد كل ما ترغب به ان شاء الله ومثال على ذالك الرابط التالى الف الف شكر يااستاذ محمود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها