الحسامي

السلام عليكم اخي الحبيب خبور خير ما شاء الله وتبارك الله اعمال لن نجدها إلا عندك تفيدنا وتثرينا وجعلها الله في ميزان حسناتك ان شاء الله تعالى عماد الحسامي

السلام عليكم اخي الحبيب خبور خير ما شاء الله وتبارك الله اعمال لن نجدها إلا عندك تفيدنا وتثرينا وجعلها الله في ميزان حسناتك ان شاء الله تعالى عماد الحسامي

السلام عليكم بارك الله فيكم وعن جد حلول اكثر من رائعة وهنا مرفق اخر ملخص شهري 5.rar

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

السلام عليكم اخي الحبيب For i = 1 To 100 هذ تعبير لاستخدام الاسطر حيث افترضنا ان الكود سيعمل على الصفوف من 1 وحتى 100 For j = 6 To 1 Step -1 هذ تعبير لاستخدام الاعمدة حيث البيانات لديك في الاعمدة الستة الاولى والترتيب المطلوب يبدأ من السطر السادس وحتى الاول ولذلك بدأت من 6 وانتهت ب 6 بتنقيص الرقم 1 s = s & " " & Cells(i, j) & " " هنا يتم تجميع البيانات في الخلايا من 1 الى 6 مع اضافة المسافة بينهم If Cells(i, "h").NumberFormat = "0" Then Cells(i, 7) = Cells(i, "h") & " " & s Else Cells(i, 7) = s End If هنا الشرط اذا كان تنسيق الخلية في العمود h يتم اضافتها الى المجمع s واذا كان التنسيق ليس المطلوب يتم طباعة المجمع بدون اضافة الخلية h ارجو ان اكون قد اوصلت المطلوب واي شئ اخر انا في الخدمة اخوك عماد الحسامي

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

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

السلام عليكم اخي الحبيب يحيى حسين ملك المعادلات بارك الله فيك ولاثراء الموضوع هنا حل اخر بالاكواد الرقم الناقص1.rar

السلام عليكم اخي خبور بارك الله فيك للإبداعات المتميزة ومن بعد إذنك ولاثراء الموضوع هنا حل أخر بإستخدام الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) Dim i, j, k As Integer If Not Intersect(Target, Range("m3")) Is Nothing Then Range("H3:I20").ClearContents For i = 3 To Cells(Cells.Rows.Count, "a").End(xlUp).Row If Target.Value = Cells(i, "a") Then R = 3 For j = 3 To Cells(Cells.Rows.Count, "d").End(xlUp).Row If Cells(i, "b") = Cells(j, "d") Then For k = 5 To 6 Cells(R, k + 3) = Cells(j, k) Next k R = R + 1 End If Next j End If Next i End If End Sub قائمة منسدلة مرتبطة بقائمة أخرى1.rar

السلام عليكم اخي الحبيب يحيى حسين دائما متميز ومبدع وبعد إذن أخي يحيى لأثراء الموضوع اخي الكريم استخدم الكود التالي في الحدث Change Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("b1")) Is Nothing Then If Target.Value <> "" Then Target.Offset(1, 2).Value = Target.Offset(1, 2).Value + 1 Target.Select End If End If End Sub ولكود المسح استخدم الكود التالي Range("b1,A4:a37,C4:C37,d4:d37").ClearContents

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

السلام عليكم اخي خبور بارك الله فيك والله لم أفهم المطلوب إلا منك ومن إبداعاتك ولاثراء الموضوع هنا حل بأستخدام الكود التالي وهو نفس مبدأ الكود الذي طرحته مرفق ملف Private Sub CommandButton1_Click() Range("C4:F25").ClearContents For i = 3 To 6 For k = 1 To Me.Controls("TextBox" & i - 2).Value Cells(3 + k, i) = i - 2 & "م" & k Next k Me.Controls("TextBox" & i - 2).Value = "" Next i End Sub الصفوف4.rar

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

السلام عليكم عسى ان اكون قد فهمت عليك وما يعني توليد الارقام هنا مرفق حسب ما فهمت الصفوف2 معدل.rar

السلام عليكم اخي الكريم اذ كنت تقصد بانشاء الصفوف بترحيل فشاهد المرفق وكل عام وانت بخير الصفوف1.rar

السلام عليكم اخي قصي مرفق ملف الواجهات وعذرا على التاخير الواجهات.rar

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

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

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

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

أخي قصي أرجو تحديد البنود حسب الصفحات / كتابة أسم الصفحة بجانب البند

السلام عليكم بارك الله فيك أخي خبور وألف شكر على مرورك وكل عام وانت بخير وجزاك الله ألف خبر أخي ولد طيبة وكل عام وانت بخير

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

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

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