أبو ليمونه

شكرا لك ابو حنين ... وجزاك الله الف الف خير اشكر الجميع على مشاركتهم ودمتم ،،،

السلام عليكم ... لدي ملف اكسل ودائما احتاج الى اخفاء الاعمدة F-I-K-O هل بالامكان عمل ذلك عبر كود VBA بحيث يكون هناك زر واحد عند الضغط عليه تختفي تلك الاعمدة وعند الضغط عليه مرة ثانية تظهر ؟؟ جزاكم الله خير... اخوكم ابو ليمونه Hide-Show.rar

وعليكم السلام ورحمة الله وبركاته حركة ذكيه اخي جمال بارك الله فيك ونفع الله بعلمك وهو المطلوب

السلام عليكم لو افترضنا ان الخلية A1 قد تحتوي على تاريخ هجري او ميلادي هل من الممكن كتابة معادلة تكون على النحو التالي: اذا A1 تحتوي على تاريخ هجري فضع 1 واذا A1 تحتوي على تاريخ ميلادي فضع 2 تحياتي لكم

للاسف اخي حسين لا استطيع اعادة التسمية بسبب وجود كود يعمل على تسلسل الحقول العلاقة التي اراها هي ربط الحقول TextBox8 و TextBox31 و TextBox32 و TextBox33 بالخلايا محدده في Sheet2 هل العلاقة هذه يمكن كتابتها بكود واحد او اجعل لكل حقل كود ؟؟؟ تحياتي لك

اخي حسين شكرا لك على الرد لكن اسماء الـ TextBox غير متستلسة وانما انتقائية ... اريد تطبيقها مثلا على TextBox8 و TextBox121 و TextBox190 هل في هذه الحالة يجب وضع كل كود لكل TextBox ؟؟؟ او يمكن دمجها في كود واحد ؟؟؟ فقط لدي رغبة في التعلم ... تحياتي لك

السلام عليكم لدي هذه الأكواد Private Sub TextBox8_Change() Sheet2.Range("I3") = TextBox8.Text Me.Label438.Caption = Sheet2.Range("I6") End Sub Private Sub TextBox31_Change() Sheet2.Range("AF3") = TextBox31.Text Me.Label441.Caption = Sheet2.Range("AF6") End Sub Private Sub TextBox32_Change() Sheet2.Range("AG3") = TextBox32.Text Me.Label438.Caption = Sheet2.Range("AG6") End Sub Private Sub TextBox33_Change() Sheet2.Range("AH3") = TextBox33.Text Me.Label438.Caption = Sheet2.Range("AH6") End Sub سؤالي كمبتدأ في برمجمة vba هل بالامكان وضعها بكود واحد ... او يجب ان اضع لكل textbox كود مستقل ؟؟؟ لان لدي عدد كبير من الحقول تحياتي لكم ...

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

السلام عليكم لدي حقل بالفورم اسمه TextBox1 لإدخال التاريخ واريده ان يكون بهذا الشكل: --/--/---- yyyy/mm/dd بحيث يقوم المستخدم بادخال الارقام فقط (بدون علامة الداش / ) فلو ادخلت هذه الارقام بالحقل (والتي تبدأ كتابتها بـ 25) : 25121430 راح يكون شكلها 1430/12/25 تحياتي لكم Book1.zip

استاذ / حمادة عمر اشكرك جزيل الشكر على المساعدة .... والكود يعمل ... وما توقعت ان المشكلة حلها سيكون بهذه السهولة ... تحياتي وتقديري لك

السلام عليكم ... لدي فورم اسمه "اضف بيانات جديدة" وفيه اكثر من حقل ... احد الحقول اسمه First Name واضع فيه الاسم الاول للموظف ... والحقل الاخر اسمه Full Name واريد هذا الحقل ان يشتمل دائما على البيانات الموجودة في الحقل First Name بمعنى آخر لو كتبت مثلا كلمة "ماجد" في الحقل First Name فتنكتب بشكل تلقائي في الحقل Full Name مع امكانية تعديلها اذا احتجت الى ذلك ... هناك موضوع آخر مازلت ابحث عن حل له ... فيه حقل اسمه Remarks ...اكتب فيه ملاحظاتي ... كيف اجعل الحقل يقبل كتابة اكثر من سطر بمجرد الضغط على انتر فقط ؟ اشكركم جميعا على مساعدتي ولكم مني جزيل الشكر Problem.zip

اخي ابوحنين مبدع دااااااائما شكرا لك على التعديل وجزاك خير الدنيا والاخرى اخي حمادة بارك الله فيك وشكرا لك على مشاركتك وما نحن الا تلاميذ نتعلم منكم ... تحياتي لكم

ابو حنين وعليكم السلام ورحمة الله وبركاته ... الكود يعمل بكل مرونه بارك الله فيك وجزاك الله الف خير وجعل ما قمت فيه بميزان حسناتك. فقط اريد ان اتعلم اكثر منكم ... لو افترضنا ان الكود نريد ان نطبقه على القوائم التالية فقط : ComboBox1 & ComboBox4 & ComboBox8 كيف يكون شكله ؟ تحياتي لك

السلام عليكم احاول ربط عشرة قوائم منسدلة موجودة بالفورم بالخلايا A1:A10 بحيث تكون كل قائمة تحتوي على محتويات الخلايا A1:A10 الخلايا A1:A10 اسمها = List1 حاولت تعديل الكود ادناه لكنني لم استطع ...الكود يعمل اذا ربطت قائمة منسدلة واحدة ... ولا يعمل عند محاولة ربط اكثر من قائمة برنج معين ... ولا اريد ان اجعل كل قائمة لها كود منفصل لكثرتها ... For Each cPart In ws.Range("List1") With Me.ComboBox1 & Me.ComboBox2 & Me.ComboBox3 & Me.ComboBox4 & Me.ComboBox5 & Me.ComboBox6 & Me.ComboBox7 & Me.ComboBox8 & Me.ComboBox9 & Me.ComboBox10 .AddItem cPart.Value .List(.ListCount - 1, 1) = cPart.Offset(0, 1).Value End With Next cPart تحياتي لكم اخوكم / ابوليمونه

بارك الله فيك اخي عبدالله مبدع دااااااااااائمااااااااااا وضعت الكود واصبحت التبويبات على اليمين تحياتي لك

مرحبا بكم ... وجدت الحل ... وهو بتغير مسمى جميع الحقول لتحمل نفس الاسم ولكن باختلاف الارقام .... بقي مشكلة وحده ... وهي كيفية اظهار التبويبيات على يمين الفورم وليس على يسارة ... تحياتي لكم

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

هل يجب ان اجعل اسماء الحقول كلها باسم واحد ...فقط اغير الارقام ؟؟؟ مثال: TextBox1 TextBox2 TextBox3 وهناك موضوع آخر وهو كيف اجعل التبويبات على يمين الفورم وليس على يساره كما هو وضعها الان؟؟؟ لانه ينشأ الفورم على انه انجليزي ويضعها على اليسار .... تحياتي لكم

السلام عليكم ورحمة الله وبركاته ... قام اخي عبدالله باقشير مشكورا بمساعدتي في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=50486 والملف الذي قام به يعمل بكل مرونه وجزاه الله الف خير. ولكني قمت بالتعديل على الفورم الاول والثاني واضفت تبويبات (MultiPage) وحقول ... وحاولت تعديل الكود ولكني لم افلح ... فقط استطعت تعديل الفورم الاول ولم استطع تعديل الفورم الثاني ... حينما اختار من القائمة المنسدلة في الفورم الثاني يعطيني خطأ بالكود ... قد يكون السبب هو اني اضفت تبويبات ... او لاني اضفت حقول وقوائم منسدلة ... لم استطع معرفة سبب الخطأ ... وهناك نقطة اخرى احاول القيام بها ايضا ... وهي حينما اضغط الزر اضف في الفورم الاول او الزر حدث في الفورم الثاني لا اريد الاكسل يقوم بتنشيط الشيت (Data) وانما يقوم بها بدون فتح الشيت بمعنا آخر يقوم بها في الـ background جزاكم الله الف خير ... اخوكم / ابوليمونه prob.zip

اخي عبدالله والله انك مبدع دائما بكتاباتك للاكواد ... وتعلمت منك الكثير ... اشكرك جزيل الشكر على ما قمت به في هذا الملف ... واشكرك على حرصك الدائم لتعليم المبتدئين من امثالي فما نحن الا تلامذة نتعلم منك ... جزاك الله الف خير واسكنك فسيح جناته ... ورزقك خير الدنيا والاخرة ... اخوك / ابوليمونه

اخي عبدالله باقشير وعليكم السلام ورحمة الله وبركاته اشكرك جزيل الشكر على التعديل وسهلت المهمه علي بشكل كبير جدا جدا جزاك الله الف الف الف خير يبقي موضوع الفورم الثالث ... بعد البحث حصلت كود يقوم بفتح ملف الورود وتحديث مافيه وفقا لما في ملف الاكسل ومن ثم طباعة ملف الورود ومن ثم اغلاق ملف الورود وهو يعمل بكل جدارة (مرفق) لكن لم استطع برمجة القائمة المنسدلة في الفورم الثالث .... ارغب ان تكون القائمة المنسدله فيها ارقام الموظفين (مثل القائمة الموجودة بالفورم الثاني) ولكن عند اختيار رقم الموظف يقوم الكود باحضار بيانات الموظف ووضعها في الخلايا A3:S3 في الشيت برنت لان هذه الخلايا مرتبطة بملف الورود اتمنى ان اجد منكم المساعده وجزاكم الله الف خير اخوكم / ابوليمونه Orginal.zip

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

السلام عليكم ورحمة الله وبركاته ... لدي ملف اكسل فيه ثلاثة فورمات ... الفورم الاول اسمه = Click Add data موجود بالشيت DATA ووظيفته هو اضافة بيانات جديدة للشيت data الفورم الثاني اسمه = Click to Update Data موجود بالشيت DATA ووظيفته هي التعديل على البيانات التي تمت اضافتها عن طريق الفورم الاول. الفورم الثالث اسمه = Print موجود بالشيت Print ووظيفته هي طباعة ملفات وورد يتم تحديدها وشرحها لاحقا. الفورم الاول شغال زي الحلاوة ... ومافيه اي مشاكل ... الفورم الثاني ايضا شغال زي الحلاوة لكن محتاج اعدل حاجتين فيه : الحاجة الاولى : هي القائمة المنسدلة ... القائمة صممت على انها تعرض ارقام السيريل نمبر لكل بيانات يتم ادخالها وانا اريد ان تكون القائمة المنسدلة عبارة عن ارقام الموظفين (Employee Code) فاذا اخترت رقم الموظف يجلب لي بياناته لاقوم بتعديلها ... ولا احتاج Sr.No وان كان لا بد من وجود Sr.No فلا مانع ان تكون موجودة لكن جلب البيانات يكون باختيار رقم الموظف عن طريق القائمة المنسدلة. الحاجة الثانية : اضفت ايقونة (Delete) وتحتاج الى تفعيل ومهمتها حذف كامل الصف الخاص بالموظف المحدد من القائمة المنسدلة وليس مسح البيانات. الفورم الثالث لا يعمل نهائيا ومحتاج حاجتين فيه: الحاجة الاولى : يوجد به قائمة منسدلة اريدها ان تكون مثل القائمة الموجودة في الفورم الثاني وتحتوي على ارقام الموظفين وعند تحديد رقم الموظف بالقائمة تظهر بياناته في الخلايا A3:S3 في الشيت Print (الغرض من اظهار بيانات الموظف المحدد في هذه الخلايا هو ان هذه الخلايا مرتبطة بملفات وورد كثيرة مثل خطاب ترقية - انذار- فصل :) ...الخ) الحاجة الثانية : يوجد ثلاث ايقونات اسمها Print1 و Print2 و Print3 اذا الخلية A1 في الشيت برنت = 1 فتكون ايقونة Print1 قابلة للضغط واذا الخلية A1 في الشيت برنت = 0 فتكون غير قابلة للضغط اذا الخلية B1 في الشيت برنت = 1 فتكون ايقونة Print2 قابلة للضغط واذا الخلية B1 في الشيت برنت = 0 فتكون غير قابلة للضغط اذا الخلية C1 في الشيت برنت = 1 فتكون ايقونة Print3 قابلة للضغط واذا الخلية C1 في الشيت برنت = 0 فتكون غير قابلة للضغط عندما تكون الايقونة print1 قابلة للضغط عليها ... فعند الضغط عليها يتم طباعة ملف Prin1.doc في نفس المجلد عندما تكون الايقونة print2 قابلة للضغط عليها ... فعند الضغط عليها يتم طباعة ملف Prin2.doc في نفس المجلد عندما تكون الايقونة print3 قابلة للضغط عليها ... فعند الضغط عليها يتم طباعة ملف Prin3.doc في نفس المجلد وجزى الله من قام بمساعدتي بتطويرة خير الجزاء اخوكم / ابوليمونه NewPro.zip

الاستاذة الفاضلة / ام عبدالله بارك الله فيك ... حركة ذكية من مبدعه ... شكرا لك على التنسيق وهو ما كنت ابحث عنه ... جعل الله ما تقومين به في ميزان حسناتك ابوليمونه

اخي / شوقي ربيع عمل جباااار وهو ما كنت ابحث عنه. اشكرك جزيل الشكر على الملف وجعل ماقمت به في ميزان حسناتك ورزقك من خير الدنيا والاخرة لو استطيع تحديد اجابتين كموضوع محلول لحددت اجابتك اخي شوقي ربيع واجابت اخي ضاحي الغريب اخوك ابوليمونه