نجوم المشاركات

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله Download VBE Basics

السلام عليكم ورحمة الله وبركاته وإذ تأذّن ربكم لئن شكرتم لأزيدنّكم أتقدم من إدارة الموقع الكريم متمثلة بشخص أستاذنا الكريم المحبوب لدى الجميع ياسر خليل أبو البراء التي تقدر وتشجع المواهب الشابة وترعى الخبرات إذ قدمت لنا التهنئة بترقية الأخوين الكريمين اللذين ينبضان حيوية ونشاطاً (ولا نزكي على الله أحداً) نحسبهم كذلك.. الأخ الحبيب ياسر العربي والأخ الحبيب خالد الرشيدي ترقيه مستحقه والى مزيد من التقدم والرقيّ إن شاء الله تعالى واسمح لي أخي الحبيب الصقر على استعارة بعض عباراتك الجميلة بحقهما أسأل الله تعالى أن يوفقكم ويثبّت خطاكم اسمحوا لى أن اقدم لكم بوكيه من الورد العطر ليعبر عن مدى فرحى لكم وبكم تقبلوا تحياتى والسلام عليكم ورحمة الله وبركاته.

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

السلام عليكم ...أعذرني لا أحب كليهما أصلاً... لا يجوز لمسلم أن يتعاطى الصفير والتصفيق في عباداته ولا عند المسجد الحرام ولا في أعماله الأخرى، بل التصفيق للنساء والرجل يتكلم وإذا نابه شيء يسبح في الصلاة، سبحان الله، سبحان الله، ولا يستعمل الصفير، يستعمل الكلام الذي يحتاج إليه بدون الصفير. أي يمكنك تستخدم صوتاً يعزز الإجابة الصحيحة غير التصفيق ...أما إن كانت الإجابة خاطئة فيمكنك استخدام أسلوب التشجيع (جرّب مرة أخرى...مثلاً ...حاول ثانية ...أنتظر منك إجابة أدق...إلخ..(كفانا استهجاناً...لم يقدّم شيئاً) والسلام عليكم.

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

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

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

الطريقه العاشره :- تعبئه الكمبوبوكس بأستخدام Set هذه هى الطريقه الاخيره من طرق الكمبوبوكس وعلشان هى الاخيره والاعمال بالخواتيم اللهم ارزقنا جميعا حسن الخاتمه فطريقه اليوم طريقه سهله جدا وتتميز بالبساطه يعنى هنقزز كدا شوى مع بعض ونتسلى ( استراحه متعلم ) لو عندى شيت زى كدا وفيه بيانات وعايز اقوم بتعبئة الكمبوبوكس بالبيانات المظلله باللون الاخضر شاهد الصوره يوجد طريقتين الطريقه الاولى :- لو نطاق البيانات عندى ثابت كما هو بالجدول من A2: b5 هستخدم الكود التالى Dim R As Range Set R = Sheet1.Range("A2:b5") Me.ComboBox1.List = R.Cells.Value كود سهل جدا وبسيط السطر الاول الاعلان عن المتغيرر وقمت بتسميته R ( وممكن تسميه اى اسم كيفما شئت) وانه ان المتغير ده من النوع Range وعايز احول المتغير ده الى كائن بحيث اعرفه واقدر اتعامل معاه فأستخدمت set وهذه الكلمة هى لتحويل المتغير الى كائن القاعده الخاصه بـ Set هى الكائن = المتغير set ("Set R = Sheet1.Range("A2:b5 بعد ما عرفت الكائن وحددت نطاقه دلوقتى اقدر استخدمه واتعامل معه Me.ComboBox1.List = R.Cells.Value هذا السطر يعنى ان قائمة الكمبوبوكس تساوى النطاق قيمة كل خليه فى النطاق R الطريقه الثانيه :- لو نطاق البيانات عندى متغير كما هو بالجدول من A2: b5 ولكن يمكن اضافه اسماء جديده او حذف اسماء موجود فى هذه الحاله هو نفس الكود ولكن هيتم تعريف اخر صف به بيانات هستخدم الكود التالى Dim R As Range Set R = Sheet1.Range("A2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) Me.ComboBox1.List = R.Cells.Value وطبعا اتكلمنا قبل كدا ماذا يعنى سطر تعريف اخر خليه بها بيانات يبقى تحديد وقت تنفيذ الكود وزى ما اتفقنا قبل كدا ان وقت تنفيذ الكود انت اللى بتحدده ولكن على سبيل المثال فى حدث فتح الفورم Private Sub UserForm_Initialize() Dim R As Range Set R = Sheet1.Range("A2:b" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) Me.ComboBox1.List = R.Cells.Value End Sub طبعا فى طرق اخرى ولكن لا ارى جدوى منها فنكتفى بعشر طرق تم تناولها لننتقل الى شروحات اخرى فأنا والله لم ابخل عليكم بمعلومه فكل ما يهمنى ويشغل بالى هو تبسيط المعلومه بعيدا عن الكلمات المعقده واكون دائما حريص على تنوعها ففى تعبئة الكمبوبوكس اتكلمت عن عشر طرق كان بالامكان اكتفى بطريقه او طريقتين ولكن الامانه العلمية وحبى لكم تقتضى على ان اعرفكم بكل شئ عايزكم تكونو احسن منى مش بس زى انا وما يحزننى هو احساسى بان الناس مش مهتمه بالموضوع لسبب او لاخر أحيانا الانسان لما بيزرع شجره بيكون عايز يشوف ثمرة جهده وعرقه فأنا مستمر فى غرس الشجر مهما كانت العواقب والعواصف أن شاء الله بعد الانتهاء من كل الشروحات هيتم تحويله الى كتيب الكترونى Pdf وان شاء الله يكون اول كتاب باللغه العربيه فى شروحات الفورم اللى بيدخل فى ادق التفاصيل واعمقها والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

اخى واستاذى الحبيب ابوالبراء هكذا عهدنا اداره اوفيسنا هى من تتقدم بالاعلان عن الترقيه وتكون اول المهنئين لذالك وجب علينا الشكر لاداره اوفيسنا الموقره والمتمثله فى حضرتك الاخ الحبيب ياسر العربى والاخ الحبيب خالد الرشيدى ترقيه مستحقه والى مزيد من التقدم والرقى ان شاء الله اسال الله تعالى ان يوفقكم ويثبت خطاكم اسمحوا لى ان اقدم لكم بوكيه من الورد العطر ليعبر عن مدى فرحى لكم وبكم تقبلوا تحياتى

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

إخواني وأحبابي في الله تتقدم إدارة الموقع بالتهنئة لكلٍ من العضوين الكريمين :: خالد الرشيدي *** ياسر العربي فنتقدم لهما بالتهنئة الحارة من قلوبنا ، ونتمنى لهما مزيد من التفوق والتميز .. مع تحيات أخوكم أبو البراء

السلام عليكم ملفك بطيئ الافضل تنسخ البيانات مع الاكواد جميعها الى ملف جديد وزارات المحافظة - بطأ العملية_111.rar

بارك الله فيك أخى الكريم ياسر العربى انظر أحد برامجى " برنامج تعليم الرياضيات بالاكسل لرياض الأطفال والمدارس الابتدائية " على الرابط http://www.officena.net/ib/index.php?showtopic=58297 و " تعليم اللغة الانجليزية بالاكسل لرياض الأطفال والمدارس الابتدائية " على الرابط http://www.officena.net/ib/index.php?showtopic=59850#entry383919 قد تجد فيهما ما تريد تحياتى ومنتظرين التجديد

اخى الكريم نايف اعتقد على حد علمى والله اعلم ان هذا الشئ غير موجود اللى هو اضافه مسافه بادئه للنص لا يوجد من ضمن خصائص التكست فى شاشة التصميم خاصيه لهذا النوع ( الا اذا فى حد من الخبراء عنده رائ اخر ) ولكن يمكن عمل كود فى حدث تحديث التكست كالتالى بفرض ان التكست بوكس عندك رقمه 1 انسخ الكود التالى Private Sub TextBox1_AfterUpdate() TextBox1 = " " & TextBox1 & " " End Sub تقبل تحياتى

السلام عليكم إخوتي الكرام أخي الصقر وأخي ياسر العربي المحترمين.. جزاكما الله خيراً ...يحتمل لكثرة محبته لابنته أسيل يكاد يكتب عشرة مجموعات أسيل و أسيل 2 ...etc لمَ لم تسمّ المجموعة الثانية التي ذكرها لك أخي الصقر غيرلازمة باسم محمد ؟ ولكنه حل رائع ....يستحق الإعجاب سنجتهد في اللحاق بركبكم هذا لنحوز على رضا أستاذنا ... كم درجة أعطاك؟.... 10/10 ممتاز أحسنت يا بطل تبين لنا أنك تحب التجديد حتى لو كان الأخضر رائعاً ومريحاً للعين. والسلام عليكم.

انا غشيت الامتحان كله ومن غير مراجع بقي aseel.rar

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

اخي الحبيب ابو البراء دائما متواجد وداعم لنا ولكل الاعضاء شاكر لك مرورك العطر هذا اما بالنسبة لعدد الاسئلة فهو محدد 25 سؤال وتأتي محصلة الاختبار وقتها اكيدي هيطلع الاستهجان وليس التصفيق حيث نسبة النجاح من 75% وربنا يقدرنا علي فعل الخير اخي الكبير وابي استاذي محمد حسن المحمد جزيت كل الخير لدعمنا دائما بالتشجيع والحث علي العطاء الدائم بكلماتك العطرة اما بالنسبة لموضوع الاصوات كما ذكرت بالاعلي سيتم وضع الاصوات تصفيق او استهجان فما رايكم هل مناسب ام اضع اصوات اخرى وكل الشكر والتقدير لمروركم الجميل

أخي الحبيب ياسر العربي عمل مميز وجميل وفي انتظار الاضافات والمؤثرات الصوتية ..وأمر آخر أن يتم تحديد عدد معين من الأسئلة بحيث يأتي التصفيق في نهاية الاختبار لتشجيع الطفل .. بارك الله فيك وجزاك الله خيراً

إخواني ياسر العربي وخالد الرشيدي يفضل عدم استخدام أكواد التحديد في الكود بمعنى في هذا السطر على سبيل المثال Cells(a + 1, 1).Resize(1, 4).Select Selection.Copy يمكن استخدام هذا السطر مباشرةً بدون تحديد بهذا الشكل Cells(a + 1, 1).Resize(1, 4).Copy وفي هذين السطرين sheet1.Activate ActiveCell.EntireRow.Delete يمكن استخدام سطر واحد فقط دون تحديد ورقة العمل لأن الكود ينفذ من ورقة العمل النشطة Cells(a + 1, 1).EntireRow.Delete تقبلوا تحياتي

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

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

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

ADO Connectionاستخدام الاكسيل كقاعدة بيانات عن طريق وسيلة الاتصال اعتقد ان هذا الموضوع سيعطيكم معلومة جديدة في كيفية التعامل مع الاكسل كقاعدة بيانات في البداية الطريقة تعتمد على وسيلة الاتصال Active Data Object ADO وهي وسيلة اتصال بين برنامج كتابة الاكواد و قاعدة البيانات مثلا VB.net and SQL Visual Basic and Access وهي حصرية لبرامج مايكروسوفت فقط ولكي يكون لدينا اتصال كامل يجب ان يكون لدينا Connection String وهو عنوان قاعدة البيانات التي سيتم الاتصال بها، والذي من خلاله سيكون التالي: * فتح اتصال* * جملة الاستعلام* * انهاء الاتصال* وهنا تكمن الميزة بهذه الطريقة، فجملة الاستعلام يجب كتابتها بطريقة SQL dataBase وهنا تنطبق معظم جمل SQL امثلة على الجمل select * from [data] Select Count(Customer) from [data] Select Sum(Customers) from [data] where city ='Ramallah' تعلم كتابة جمل جديدة وغيرها من الجمل التي يعرفها جيدا المبرمجون باستخدام قواعد البيانات SQL,MYSQL,Oracle اكبر فائدة لهذه الطريقة انه يمكن من خلالها تصميم واجهة برنامج على الاكسل او تصميم فورم على الاكسل وحفظ البيانات على ملف اكسل اخر بدون الحاجة الى فتحه ولاستخدام هذه الطريقة يجب تفعيل التالي Tools-References بالمرفق ملف اكسل يحتوي مثال على ما تم ذكره سابقا database.zip

اخى الكريم وإن كنت احبذ طريقة الاستاذ / عمرو بزان ... جزاه الله خيراً اطلع على المرفق 3 معادلات.rar

مبارك عليكما الترقية وأتمنى أن تكون هذه الترقية حافزا لكما لتقديم المزيد مزيدا من التقدم مريدا من العطاء مزيدا من الهمة حتى تصلا إلى القمة التي لن يصلها إلا صاحب الهمة تحياتي

مبروك أحى نضال تابعت أعمالكم .. شد حيلك .. الهمة للمهمة

تم معالجة الامر Book1 salim.zip

كل الشكر والتقدير لكم وجزاكم الله كل الخير علي مروركم العطر هذا ونفعنا واياكم بالعلم والعمل الصالح اخوكم في الله ياسر العربي

الأخ الكريم باسم يونس أهلاً بك في المنتدى ونورت بين إخوانك برجاء طرح موضوع جديد بطلبك لتجد مساعدة من إخوانك

ما شاء الله بارك الله فيك سيد ياسر هل تنوى إكمال السلسلة إثراء الصديق بإكمال بداية الطريق لإنقاذ الغريق للعلامة ياسر بن خليل :(

أخي الحبيب ومعلمي الكبير عادل حنفي جزيت خيراً على هذه التهنئة الطيبة ، بارك الله فيك الأخ الكريم نضال الشامي مبارك الترقية ألف مبروك وأنت تستحقها .. نظراً لما تقدمه وتبذله في سبيل إيصال المعلومة بكل بساطة

أستاذى الكبير ياسر للعلم أنه يتم انشاء النطاقات المحمية بباسورد + الباسورد نفسه أثناء عدم حماية الشيت ثم تتم حماية الشيت وأعتقد أنك عملت تغيير الباسورد فى الكود والشيتات محمية لذلك لم يفلح الباسورد الجديد فى العمل لتغيير الباسورد : غيره فى الكود + فك حماية الشيت + Allow user to Edit Ranges + حذف للنطاق + أعد حماية الشيت + حفظ + غلق الملف واعادة فتحه أخى الكريم خليفة نقل الكود الى ملف آخر يستلزمه حماية الشيتات يعنى ضع الكود فى الملف الجديد واعمل حماية للشيتات قبل الحفظ ثم أغلق الملف وأعد فتحه هتلاقيه شغال .

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

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

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

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

فين السؤال انا احط ايدي علي السؤال تلاقيني فريره اهو عشان متقلشي حرمينك من حاجه انزل ياعم بالاسئلة متغيبشي نزل اسئلة لنقط صغيرة مش لازم تجمع وكل الشكر والتقدير والاحترام لكل من تابع هذا العمل الجميل

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

اوك.. سيتم عمل المطلوب ساستعمل نفس الكود السابق ولكن مع استخدام loop لكي يتم استبدال كل البيانات بالجدول والطريقة مجربة طبعا ولكن من الأفضل عمل تست للكود على جدول تست

اتفضل يا غالى روابط المشاركات الخاصه بذالك الطريقه السابعه فى الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=418716 والطريقه الثامنه فى الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=419207 والطريقه التاسعه فى الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/?do=findComment&comment=419382

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

اخي واستاذي الحبيب خالد الرشيدي بارك الله فيك وادام عطائك هذا لك مني كل الشكر والتقدير

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

اخي في شيت التخصص ما عليك الا ان تختار التخصص عندها سيتم عمل الكود تفحص المرفق واخبرني النتيجة تحيااتي وزارات المحافظة - شيت التخصص.rar

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

السلام عليكم استاذ محمود تم اخفاء حقل الغياب في حالة =0 لكن جعل السجلات ملتصقة ... فلا علم لي مع الاسف التقرير _3.rar

مبارك الترقية

For i = 3 To 33 Sheets("جمع تراكمى").Cells(i, 2) = Sheets("الحسابات").Cells(i, 2) + Sheets("جمع تراكمى").Cells(i, 2) Sheets("الحسابات").Cells(i, 2) = "" Next الرقم 2 في الكود يمثل العمود المراد الجمع له يمكنك تغييره تقبل تحياتي حسابات.rar

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