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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أحببت أن أضع هذا الموضوع بين أيديكم ليكون مرجعاً لمن أراد معرفة بداية الطريق في التعامل مع محرر الأكواد والبرمجة الموضوع لن يطول فيه الكلام ، سأدع الصور تتحدث وتوصل المعلومة ، حتى تكون المعلومة أثبت للمتعلم حل مشكلة ظهور . رسالة تحذير الخصوصية عند حفظ المصنف كان معكم طائر البطريق من منتدى أوفيسنا العريق دمتم على طاعة الله 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 تقبلوا تحياتي

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

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

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

اهداء لأخوتي في المنتدى فورم ادخال بسيط وتم عمل شاشة دخول للبرنامج بباس ورد ويوزر يمكن تطويعة كيفما تريد عسى ان ينفع به احد الاخوة للدخول للبرنامج User Password Wael Wael@19637 Elhadi 2014 حماية الكود Wael@19637 login.rar

فنون وأساليب التنبؤ باستخدام الاكسيل نعرض أساليب التنبؤ بالدوال وأدوات تحليل البيانات الموجودة في برنامج ميكروسوفت اكسيل ثم نتناول الطرق الرياضية والاحصائية في كيفية حساب الدالة. للتأكيد على المزايا التي يوفرها الاكسيل والدقة العالية التي يحسب بها النتائج ******************************************** الفئات المستهدفة: المدراء الماليين رؤساء الحسابات المحاسبين مديري المبيعات المهتمين بدراسات الجدوى العاملون في مجال التخطيط المالي والموازنات التقديرية -------------------------------------------------------------------- دورة مجانية 100% يستضيفها جروب تدريب وتأهيل المحاسبين بالإسكندرية برعاية المحاسب القانوني الأستاذ احمد وفا. وسيتم تحديد موعد كل محاضره والاعلان عنها وسيكون الحضور اون لاين للانضمام في الدورة https://www.facebook.com/events/509996679169161/ ------------------------------------------------------ فيديو تعليمي بداخل الفيديو كتيب pdf+ ملفات اكسيل تطبيقية ارجو من الجميع المشاركة فهذه الدورة مجانية 100% ولا تنسونا بصالح دعاؤكم ملفات الاكسيل التطبيقية.rar

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

اخي الحبيب الـعيدروس سلمت يداك بالفعل كود 10/10 تحياتي

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

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

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

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

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

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

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

تمام يا كبير الكبير كبير من يومه مجرد ملحوظه يا غشاش انت بالكود مكنتش محتاج تعمل عدد 2 مجموعه مجموعه وحده تكفى لانك لست بحاجه الى التانيه Private Sub ComboBox1_Change() ComboBox2.Clear On Error Resume Next Dim data As Range Dim aseel As Collection Dim aseel2 As Collection Set aseel = New Collection Set aseel2 = New Collection For Each data In sheet1.Range("f2:f" & sheet1.Cells(Rows.Count, "f").End(xlUp).Row) If data.Offset(0, -1).Value = ComboBox1.Value Then aseel.Add data, data.Text aseel2.Add data.Offset(0, 1).Value, data.Text End If Next data With Me.ComboBox2 For i = 1 To aseel.Count .AddItem aseel(i) .List(.ListCount - 1, 1) = aseel2(i) Next i End With End Sub كان المفروض يكون كدا فقط Private Sub ComboBox1_Change() ComboBox2.Clear On Error Resume Next Dim data As Range Dim aseel As Collection Set aseel = New Collection For Each data In sheet1.Range("f2:f" & sheet1.Cells(Rows.Count, "f").End(xlUp).Row) If data.Offset(0, -1).Value = ComboBox1.Value Then aseel.Add data, data.Text End If Next data With Me.ComboBox2 For i = 1 To aseel.Count .AddItem aseel(i) Next i End With End Sub تقبل تحياتى واحترامى لشخصك الكريم وشاكر لك اهتمامك بالموضوع

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

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

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

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

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

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

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

السلام عليكم تفضل هذا احسن حل توصلت اليه ولم اتلاعب بمساحة التقرير بالتوفيق السلام عليكم هناك خطاء ما في عملية الرفع http://www.up-gulf.com/do.php?id=2974 بالتوفيق

الف مبروك ومن تقدم الي تقدم ان شاء الله تحياتي

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

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

الطريقه التاسعه :- تعبئه الكمبوبوكس بدون تكرار وبناء على شرط باستخدام الحلقه التكراريه For Each و المتغير Collection وداله If (طريقه احترافيه) لو عندى شيت زى كدا وفيه بيانات وعايز اقوم بتعبئة الكمبوبوكس بالبيانات المظلله باللون الاخضر ولكن دون تكرار وبناء على اسم المعرض شاهد الصوره كما هو مبين بالصوره انا عايز اقوم بتعبئة الكمبوبوكس ولكن حسب عملاء معينه مثلا وليكن الجزائر ( عبدالعزيز البسكرى و شوقى ربيع ) فقط نعمل ايه؟ هو نفس الكود السابق اللى بالطريقه الثامنه مع تعديل بسيط تعالو نشوف الكود كان ايه ؟ وما هو التعديلات اللى هتم عليه ؟ Private Sub UserForm_Initialize() On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data, data.Text group2.Add data.Offset(0, 1).Value Next data With Me.ComboBox1 For i = 1 To group1.Count .AddItem group1(i) .List(.ListCount - 1, 1) = group2(i) Next i End With End Sub اللى هيتم تغييره بالكود 1- هذا السطر للحلقه For Each For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) هنا بدل الحلقه ما بتلف على خلايا العمود A هخليها تلف على خلايا العمود B زى كدا For Each data In Sheet1.Range("b2:b" & Sheet1.Cells(Rows.Count, "b").End(xlUp).Row) 2- بعد سطر الحلقه التكراريه هعمل شرط لجلب البيانات وذالك من خلال قاعدة If انا عايز اجيب عملاء الجزائر فقط If data.Offset(0, -1).Value = "الجزائر" Then group1.Add data, data.Text group2.Add data.Offset(0, 1).Value, data.Text End If زى ما احنا شايفين سطر الكود استخدمنا If لعمل شرط ما هو الشرط ؟ الشرط ان data اللى بتمثل كل خلية فى العمود B يبص على الخليه اللى قبلها يعنى مثلا لما يكون data قيمتها B2 يبص على الخلية اللى قبلها اللى هى A2 ( طبعا دا تم من خلال offset ) طيب هو لما يبص على الخلية اللى قبلها A2 هيختبر ايه ؟ عايزه يشوف هل مكتوب بها الجزائر أو لا ؟ اذا كانت بها الجزائر ينفذذ الاسطر التالية ثم انهاء If وطبعا شرحنا معنى هذه الاسطر قبل كدا وبعد هذه التعديلات البسيطه على الكود هيكون شكله النهائى كدا فى حدث فتح الفورم Private Sub UserForm_Initialize() On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("b2:b" & Sheet1.Cells(Rows.Count, "b").End(xlUp).Row) If data.Offset(0, -1).Value = "الجزائر" Then group1.Add data, data.Text group2.Add data.Offset(0, 1).Value, data.Text End If Next data With Me.ComboBox1 For i = 1 To group1.Count .AddItem group1(i) .List(.ListCount - 1, 1) = group2(i) Next i End with End Sub شاهد الصوره عند فتح الفورم ************************************************************************************** واحد فنان هيسئلنى سؤال فنى ************************************************************************************** هو انا لو عايز مصر مثلا مش الجزائر لازم ادخل كل مره على الكود واغير فى هذا السطر If data.Offset(0, -1).Value = "الجزائر" Then هغير بدل من الجزائر اعملها مصر If data.Offset(0, -1).Value = "مصر" Then هقوله الاجابه ايوا لكن انا عارف قصدك انت عايز طريقه احترافيه وهى تعبئة الكمبوبوكس بناء على اخر فى الحاله دى لازم اعمل كمبوبوكس جديد فى الفورم اتبع معى الخطوات التالية الخطوه الاولى :- هنصمم كمبوبوكس جديد شاهد الصوره الخطوه الثانيه : عمل كود فى حدث فتح الفورم هنعمل كود ليقوم بتعبئة الكمبوبوكس 2 بالبيانات فى العمود A الخاصه باسماء المعارض ولكن دون تكرار امامك طريقتين 1- اذا كان الاسماء للمعارض ثابته ممكن تعملها من خلال المصفوفه زى ماعرفنا قبل كدا زى كدا Private Sub UserForm_Initialize() Dim a As Variant a = Array("اليمن", "مصر", "سوريا", "الجزائر") ComboBox2.List = a End Sub 2- اذا كان الاسماء للمعارض متغيره اذن هنستخدم كود المجموعات مع شرط عدم التكرار فهيكون الكود كدا كما تعلمنا من قبل Private Sub UserForm_Initialize() On Error Resume Next Dim data As Range Dim group1 As Collection Set group1 = New Collection For Each data In Sheet1.Range("a2:a" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data, data.Text Next data With Me.ComboBox2 For i = 1 To group1.Count .AddItem group1(i) Next i End With End Sub وعند تشغيل الفورم سيكون كالتالى الخطوه الثالثه :- انا عايز عند الاختيار من الكمبوبوكس 2 يتم تعبئة الكمبوبوكس 1 بالاسماء التابعه له تلقائيا اذن هعمل كود فى حدث تغيير الكمبوبوكس 2 ( يعنى كل ما يتم تغيير قيمة الكمبوبوكس 2 تتغير تعبئة الكمبوبوكس 1) هجيب نفس الكود اللى كان فى بداية الدرس اللى هو التعبئة بناء على شرط مع تغيرات بسيطه واحطه فى حدث تغيير الكمبوبوكس 2 كالتالى Private Sub ComboBox2_Change() ComboBox1.Clear On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("b2:b" & Sheet1.Cells(Rows.Count, "b").End(xlUp).Row) If data.Offset(0, -1).Value = ComboBox2.Value Then group1.Add data, data.Text group2.Add data.Offset(0, 1).Value, data.Text End If Next data With Me.ComboBox1 For i = 1 To group1.Count .AddItem group1(i) .List(.ListCount - 1, 1) = group2(i) Next i End With End Sub اللى تم تغييره فى هذا الكود هو اضافه السطر الاول يعنى تنظيف ومسح محتوى قائمة الكمبوبوكس 1 لاستضافه البيانات الجديده حسب التعديل فى الكمبوبوكس 2 وايضا استبدال هذا السطر If data.Offset(0, -1).Value = "الجزائر" Then بالسطر التالى If data.Offset(0, -1).Value = ComboBox2.Value Then جعل الشرط حسب محتوى الكمبوبوكس 2 شاهد الصوره التالية عند اختيار مصر من الكمبوبوكس 2 سيظهر القائمة فى الكمبوبوكس 1 باسماء عملاء مصر فقط شاهد الصوره التالية عند اختيار سوريا من الكمبوبوكس 2 سيظهر القائمة فى الكمبوبوكس 1 باسماء عملاء سوريا فقط **** كدا عرفنا ازاى نقوم بتعبئة الكمبوبوكس بناء على شرط **** وكمان عرفنا ازاى نقوم بتعبئة الكمبوبوكس بناء على كمبوبوكس اخر( وطبعا فى طرق اخرى كتير جدا لتعبئة كمبوبوكس بناء على كمبوبوكس اخر ) يعنى درس النهارده دسم ومحتاج تركيز ولازم تجربو الكلام ده عملى ارجوا يارب ان اكون وفقت بالشرح والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد وطريقه اخرى من طرق تعبئة الكمبوبوكس انتظرونا تقبلوا تحياتى

الاخ الكريم تم انشاء مصنف جديد وذلك لعدم عمل كود اسم الورقة بالمصنف المرفق اما عن الارتباط فيرجي طلب ذلك من خبراء المنتدي المخزن الجديد.rar

السلام عليكم ورحمة الله وبركاته طلب احد الاخوة ان يتم تعديل كود موجود لدية (خاص بالاستاذ عبدالله باقشير) ليتم الحذف من خلال فورم الطلب هنا http://www.officena....showtopic=43999 ولكون الطلب اخذ جهد في التنفيذ وتم اضافة ميزة الاضافة من خلال الفورم فقط احببت فصله في موضوع منفصل ==== في الملف المرفق بعد الضغط على Ctrl + حرف (س) بالعربي سيظهر فورم فيه مربع تحرير وسرد وزرين أمر أحدهما غير مفعل في القائمة المنسدلة من مربع التحرير والسرد ستجد أسماء اوراق العمل عند إختيار ورقة عمل (غير مستثناة) والضغط على زر (Delete Sheet) سيتم حذفها أما الزر الاخر فسيتم تفعيله اذا تم اختيار صح في خانة اختيار اضافة ورقة عمل للعلم الاضافة والحذف لن تتم الا عن طريق الفورم دالة التحقق من اسم الشيت وتكراره هي خالصة للاستاذ ( عبدالله باقشير) ===================================================== في المرفق تم إضافة خاصية تغيير شكل الماوس عند مروره بأزرر الامر وهي منقولة للامانة ================================================== ان شاء الله يتم الاستفادة من العمل وشكراً ابو أحمد كود منع حزف ورقه.rar

السلام عليكم قمت بالتعديل بحيث انه يقوم بحفظ خلايا بمدى ملائم للشرت ويقوم بحذف الشرت بعد حفظ الصورة بدون اظهار رسالة الاكسل لتاكيد الحذف ويتم حفظ الصورة في فولدر ملف الاكسل هذا بشكل سريع وساقوم بالتعديل بطرق اخرى Sub Export_Range_Images() ' ========================================= ' Code to save selected Excel Range as Image ' ========================================= Dim P Dim oRange As Range Dim oCht As Chart Dim oImg As Picture P = ActiveWorkbook.Path & "\" Set oRange = Range("A1:O35") Set oCht = Charts.Add Application.ScreenUpdating = False Application.DisplayAlerts = False oRange.CopyPicture xlScreen, xlPicture oCht.Paste oCht.Export Filename:=P & "SavedRange.jpg", Filtername:="JPG" oCht.Delete Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub خبور خير حفظ صورة من نطاق خلايا معين.rar