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

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

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

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

السلام عليكم ورحمة الله بارك الله فيك . دائم الابداع وحفظك من كل سوء

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

رابط النسخة القديمة http://download.microsoft.com/download/6/9/7/697096F6-4EEA-4704-AF2D-F3BAF57C7634/VS2012_RC_ULT_ENU.iso رابط النسخة الجديدة تقدرو تحملوها باذن الله لاني اتذكر اني قمت بتحميلها بهذه الطريقة ذهبت الى موقع ميكروسوفت وقمت بتحميلها من هناك وبعدين دول 1.5 جيجا ياعم ابو البراء مش 5 جيجا https://download.microsoft.com/download/D/B/0/DB03922C-FF91-4845-B7F2-FC68595AB730/VS2012_ULT_enu.iso الاولي هي نسخة تجريبية ولم تكتمل وتم وضع لها مدة معينة ونتعرف عليها من الحروف RC بعد كلمة فيجوال2012 ولمعرفة المزيد عن الاصدارات حتى لا نقع في مثل هذه الاخطاء أ. مرحلة (Pre-Alpha): أولى مراحل تصميم وتطوير التطبيق، ولا تحتوي أو تشمل نسخة (Pre-Alpha) على كل الوظائف.ب. مرحلة (Alpha): نسخة يتم طرحها لإختبارها وتجربتها داخليا (أي داخل الشركة أو المنظمة أو المجتمع المطور لهذا التطبيق).ج. مرحلة (Beta): نسخة يتم طرحها لإختبارها من قبل مجموعة محددة من المستخدمين أو من قبل العامة وأحيانا يتم طرحها مجانا، تعتبر هذه النسخة غير ثابتة وقد تحتوي على ثغرات أو أخطاء.د. نسخة (Release candidate) أو تعرف إختصارا (RC): نسخة إجتازت بنجاح المراحل السابقة ومرشحة لتكون نسخة نهائية.بعض الشركات أو المنظمات تستخدم كلمات أخرى كذلك، مثل جاما (Gamma) ودلتا (Delta) والتي قد تدل على مراحل أخرى يمر بها التطبيق، والجدير بالذكر أن ألفا وبيتا وجاما أو غاما وسجما ودلتا هي أحرف يونانية.2. مراحل الإنتاج:أ. مرحلة (Release to Manufacturing) وتعرف إختصارا (RTM): هي مرحلة تسبق مرحلة الإصدار النهائي، ويتم توزيعها على المصنعين، مثال على ذلك نظام التشغيل الجديد من Microsoft المسمى بـ Windows 7 حيث يتم توزيعه حاليا على كبار المصنعين باسم (Windows 7 RTM) ومن المعلوم أن تاريخ الإصدار الرسمي هو 22 أكتوبر 2009.ب. مرحلة (General Availability) وتعرف إختصارا (GA): مرحلة تكون فيها النسخة مستقرة تماما ومتوفرة للعامة أو المستخدمين النهائيين عن طريق التحميل من الويب أو عن طريق الوسائط المادية مثل القرص المدمج CD أو القرص الرقمي DVD.أمثلة:Download Windows 7 RTM Windows 7 Preinstallation Kit for OEMs – SoftpediaWindows 7 Release Date | Windows 7 NewsMozilla Firefox 3 Release Candidate Release Notes تقبلو تحياتي

السلام عليكم ورحمة الله وبركاته صورة توضح ربط التاريخين في ال Criteria بجدول تاريخي البدء والانتهاء ولذلك لا حاجة للكتابة بهما...تم إخفاؤهما..والدالة هي: =IF(C3="";"";">="&C3) =IF(C4="";"";"<="&C4) كما تم إعداد قوائم منسدلة لخلايا ال Criteria الباقية باستخدام التسمية للقوائم باستخدام المعادلة التالية: =OFFSET(متقدمة!$C$10;;;COUNTA(متقدمة!$C$10:$C$100)) وذلك كمتمم للتصفية المتقدمة لتلبي حاجتنا بشكل أسرع والسلام عليكم ورحمة الله وبركاته.

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله في أحد الموضوعات لأحد الأخوة الأعضاء كان قد طلب كيفية إرسال رسالة بريد إلكتروني (إيميل Email) باستخدام ملف إكسيل واليوم أقدم لكم الطريقة بالتفصيل من الألف إلى الياء ... وإن شاء الله تكون الطريقة ناجحة ومفيدة للجميع الخطوات اللازمة لعمل المطلوب : فتح حساب جديد على الـ Gmail إذا لم يكن لديك حساب وكيفية إنشاء حساب جديد مشروحة بالصور : نقوم بفتح برنامج الـ Outlook من قائمة Start ثم All Programs وندخل بيانات الحساب الذي أنشيء على الـ Gmail .. بهذا الشكل : وأخيراً وبعد عملية إنشاء الحساب وربط برنامج الـ Outlook بحساب الـ Gmail .. نقوم بفتح ملف إكسيل وفي العمود الأول ندخل الإيميلات المراد إرسال بريد إلكتروني لها .. وفي العمود الثاني نكتب اسم صاحب الايميل (اختياري) وفي العمود الثالث نكتب محتوى الرسالة المراد إرسالها .. وهذا هو الكود الذي سيقوم بمهمة إرسال رسائل البريد الالكتروني دفعة واحدة لكل الإيميلات المسجلة لديك .. ملحوظة مهمة جداً : من خلال محرر الأكواد يتم إضافة المكتبة التالية Microsoft Outlook Object Library من القائمة Tools ثم References .. Sub Mail_To_Friends() Dim SendTo As String Dim ToMSg As String Dim I As Integer For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row SendTo = ThisWorkbook.Sheets(1).Cells(I, 1) If SendTo <> "" Then ToMSg = ThisWorkbook.Sheets(1).Cells(I, 3) Send_Mail SendTo, ToMSg End If Next I MsgBox "Done ...", 64 End Sub Sub Send_Mail(SendTo As String, ToMSg As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = SendTo .CC = "" .BCC = "" .Subject = "Hello Officena" .Body = ToMSg .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub وأخيراً إليكم الملف المرفق مطبق فيه الكود وفيه نموذج لشكل ورقة العمل .. ويوجد زر أمر لعملية الإرسال .. وهذا هو الملف تقبلوا وافر تقديري واحترامي كان معكم أخوكم أبو البراء من منتدى أوفيسنا Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.rar

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته ...إخوتي الكرام بعد أن اطلعت على دروس أخينا الحبيب ياسر خليل أبو البراء حول الفلترة المتقدمة وكذلك الفيديوهات التي تبين ذلك مشكوراً - جزاه الله خيراً على ما قدم ويقدم ولكم بمثله أيضاً - أردت أن أقدم لكم تصفية متقدمة بين تاريخين وفق عدة معايير ..بالكود حيث بإمكانك تحديد تاريخي البدء والانتهاء ..وأيضاً المعايير للتتغير تلقائياً وفق الكود في حدث الورقة كما يلي: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range(" l4:p4")) Is Nothing Then Call تصفية_متقدمة End If End Sub أما الكود الأساسي للتصفية المتقدمة فهو في حدث موديول وفق الآتي: Sub تصفية_متقدمة() ' مفتاح الاختصار: Ctrl+Shift+S ورقة1.Range("B9").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "متقدمة!Criteria"), CopyToRange:=Range("متقدمة!Extract"), Unique:=False End Sub هذا من ناحية الأكواد ،أما المعادلات ضمن معادلة صفيف Ctrl+Shift+Enter يقوم بالتصفية حسب التاريخ: =IFERROR(INDEX(B$10:B$25;SMALL(IF(($C$3<$B$10:$B25)*($C$4>=$B$10:$B25);ROW($B$10:$B25)-9);ROW(A1)));"") أرجو أن تكون به فائدة ومن كان لديه ما يثري الموضوع فليتحفنا بمشاركته مشكوراً ...لأنني أحب التعلم وإن لم أستطع إدراك الكثير والحمد لله على ما يسّر الله لنا والصلاة والسلام على سيد المرسلين والحمد لله رب العالمين ...والسلام عليكم. حمل الملف من هنا

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

السلام عليكم ورحمة الله أخي الكريم، كما وعدتك سابقا أقدم لك الملف بالرابط التالي على ميديافاير، وبه الكثير من التعديلات مع إضافة شيت آخر خاص بالعملاء... والملف أخذ حجما كبيرا ولم يعد التعامل معه بكيفية سريعة... بالنسبة للمواد أو للعملاء فقد جعلت عددهم 500 لتسريع الملف قليلا وعدد المواد المباعة لكل عميل في كل يوم هو 12 مادة (وإن تعدى ذلك يجب المواصلة بالصف الموالي لليوم نفسه والعميل نفسه)... وأعتقد أن الأكواد لهذا النوع من الحالات أفضل وأحسن ولكني لا أحسنها (ننتظر من يقوم بذلك من إخوتنا الكرام)... أخوك بن علية الداخل_المباع_الرصيد.rar

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

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

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

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

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

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

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

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

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

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

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

هل حد حمل الفيجوال اللى قمت بتجزئته وهل قام بتنصيبه ؟ لم يواجهنى به اى مشاكل واعمل عليه فى انتظار حد حمله ويقول النتيجه

وهذه النسخة هي الاقرب ايضا حيث مكتوب بعد فيجوال RTM وهي النسخة الت اعمل عليها جزاك الله خير اخي عبد العزيز

بسم الله الرحمن الرحيم كل عام و انتم بخير جعل الله هذه الايام_ايام رحمة و مغفرة اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا مرفق هديتى مع الشرح للتعامل مع الملف برنامج لتوزيع التكاليف و المصروفات على مراكز التكلفه بالمعادلات يعطى تقرير على مستوى مركز التكلفه و تقرير اخر شهرى عن السنه المختاره للتقرير باسورد الحمايه للصفحات 123 تحياتى لاتنسونا من صالح الدعاء برنامج توزيع المصروفات على مراكز التكلفه.rar تحياتى للجميع و شكرا على الجهد المبذول من ادارة المنتدى

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

أخي الكريم أبو عبد الواجد ربما لم تجد استجابة في موضوعك نظراً لأن الخلايا المراد ترحيلها كثيرة جداً ... ولذا أهديك الكود فقط وأنت قم بالتعديل عليه بحيث تكمل بقية المصفوفة الكود يعتمد على عمل مصفوفة بالنطاقات المراد الترحيل منها ثم الترحيل دفعة واحدة وهذا الكود أسميه الكود السحري للترحيل وخصوصاً مع الخلايا المفردة والمتباعدة كما في ملفك حيث أن الخلايا المراد ترحيلها غير متجاورة ...وهذا ما يصعب المهمة السطر الذي ستقوم بالتعديل فيه هو السطر التالي myValues = Array(.Range("C4"), .Range("C5"), .Range("B27"), "", "", "", .Range("B28"), "", "", "", .Range("B29"), "", "", "", .Range("B30"), "", "", "", .Range("B31")) في هذا السطر لو لاحظت تكتب اسم الخلايا التي سيتم الترحيل منها وإذا كانت الخلية التي سيتم الترحيل إليها غير مستخدمة كما لاحظت في ملفك تترك مكانه فراغ .. حاول تفهم السطر عشان تعرف تكمله لأن وقتي ضيق للغاية وفي السطر التالي ستغير العدد 19 إلى آخر عمود حيث الرقم 19 يمثل العمود S وهو العمود الذي توقفت عنده ، ويمكنك التكملة على نفس المنوال .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Resize(1, 19).Value = myValues حمل الكود من هنا تقبل تحياتي

أخي الحبيب أبو يوسف بارك الله فيك وجزاك الله كل خير على مبادرتك الطيبة ، ويعجبني أنك تجتهد حتى وإن فشلت ، فأنا أسعد بالمجتهد حتى ولو فشل آلاف المرات ... أخي الغالي سعد عابد أسئلة كثيرة .................. ولكن لعيون سعد (سعد سعد يحيا سعد) الفرق بين Value و Value2 لن أجيبك بشكل نظري بحت ولكن اعلم أن التاريخ يكتب في خلية ويظهر لك بشكل مختلف عن الشكل الأصلي الذي يقرأه الإكسيل اكتب أي تاريخ في الخلية A1 .... روح لمحرر الأكواد واضغط Ctrl + G عشان تفتح النافذة الفورية (يوجد موضوع لها في حلقات افتح الباب) ... في النافذة الفورية اكتب هذين السطرين (أنا قلت اكتب ولم أقل انسخ والصق ..بطل كسل) ?range("A1").Value ?range("A1").Value2 ولاحظ النتائج بنفسك السؤال الثاني هو الكلمة Redim وهي لإعادة تشكيل المصفوفة من حيث الأبعاد فوضعت هنا لكي أجعلها نفس أبعاد المصفوفة الأولى المسماة Arr .. السؤال الثالث لإضافة شروط .... الموضوع بسيط شايف السطر ده اللي فيه IF ..... If Arr(I, 1) >= startDate And Arr(I, 1) <= endDate Then قبل كلمة Then يمكن إضافة الشروط باستخدام كلمة AND ثم تضيف الشرط المطلوب .. ويمكن إضافة أكثر من شرط لا مشكلة في ذلك على الإطلاق أما بخصوص آلية الكود فهو يقوم بوضع قيم النطاق في مصفوفة ثم إنشاء مصفوفة أخرى لوضع النتائج المتوافقة مع الشروط الموضوعة وفي نهاية المطاف في آخر سطر يتم التعامل مع الإكسيل بوضع النتائج التي في المصفوفة Temp ووضعها في الخلية L10 أرجو أن تكون الإجابات قد أدت الغرض وأخيراً إليك شرح الكود في الموديول الثاني في الملف المرفق حمل الملف من هنا وتقبلوا وافر تقديري واحترامي

السلام عليكم أخي الحبيب سعد عابد جعلك الله من سعداء العابدين في الدنيا والآخرة..جزاكم الله خيرا على طيب كلماتكم وأشكركم على دعائكم لي.. وما أنا إلا بكم ومنكم..لم أخضع لدورات أو أتعلم على الحاسب إلا ما حصلته من أساتذتي الكرام في منتدى أوفيسنا...واسمح لي أن أخمن جواب سؤالك ريثما يجيب عنه أخونا الحبيب أبو البراء فيسعد بطلابه.. 1- Value: قيمة تاريخ البدء. 2- Value2:قيمة تاريخ الانتهاء. 3- ReDim:إعادة الحلقة التكرارية من جديد( وهذه لست متأكدا منها)..نرجو التدقيق في هذه الإجابات لننطلق منها. والسلام عليكم ورحمة الله وبركاته.

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله إليكم موضوع ليس بجديد ولكنه جد مفيد ويطلب بشكل كبير ، فأحببت أن أفرد له موضوع ليسهل الوصول إليه ... أما وجود الأكواد في المشاركات الفرعية فلا يفيد الكثير من الأعضاء أقدم لكم كودين أحدهما يقوم بدمج الخلايا المتشابهة في نطاق ، والآخر يعكس عملية الدمج ويلغي الدمج .. عشان اللي يحضر عفريت يصرفه بفرض أن النطاق A1 إلى آخر خلية بها بيانات .. في هذا النطاق خلايا متشابهة في القيمة مثلاً الخلية A1 و A2 و A3 بها نفس القيمة وليكن حرف الـ "A" ..الكود التالي يقوم بعملية الدمج لهذه الخلايا Sub MergeSameCell() Dim Rng As Range, xCell As Range Dim xRows As Integer Set WorkRng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False Application.DisplayAlerts = False xRows = WorkRng.Rows.Count For Each Rng In WorkRng.Columns For i = 1 To xRows - 1 For j = i + 1 To xRows If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then Exit For End If Next WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge i = j - 1 Next Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub والكود التالي يعكس عملية الدمج ويلغي الدمج الذي تم في خلايا النطاق Sub UnMergeSameCell() Dim Rng As Range, xCell As Range Set WorkRng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Rng In WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub أرجو أن يكون الموضوع ذات فائدة للجميع حمل الملف من هنا تقبلوا وافر تقديري واحترامي أخوكم ياسر خليل أبو البراء

السلام عليكم استخدم الدالة iferror وستفى بالغرض انشاء الله رفع الخطا في المعادلة.rar

جزاك الله كل خير يا ابو اسيل اتفضل راجع المثال ومنتظر اى تعليق تقبل تحياتى وتقديرى الحاسبه.rar

أخي الكريم هتلاقي فوق يمين في الصفحة كلمة Skip Ad بتظهر بعد 5 ثواني .. بتضغط عليها وتبدأ التحميل تقبل تحياتي

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

شغال معى كويس عموما دا الملف مرة تانية جربه كدة ComboBox1.rar

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

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

يا أخى ضع هذا الكود فى التقرير عند الفتح docmd.Maximize

ما شاء الله بارك الله فيك

110 _ تصفية متقدمة بين تاريخين وفق عدة معايير بالأكواد والمعادلات للتاريخ _ الاستاذ / محمد حسن المحمد 111 _ فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري _ الاستاذ / ياسر خليل أبو البراء 112 _ تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي _ الاستاذ / ياسر خليل أبو البراء 113 _ تزيين الفورم عند الفتح والاغلاق بمؤثرات حركيه _ الاستاذ / الصـقر

جزاك الله خيرا و جعله الله فى ميزان حساناتك

سبب الخطأ خانة التاريخ فارغه

قم بعمل جميع النماذج POP UP = YES وضع الكود فى نموذج الدخول للبرنامج فقط عند الفتح اذا استمرت المشكلة يفضل ارفاق مثالك للتعديل عليه .

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

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

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

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

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

بارك الله فيك اخي الكريم ابو يوسف الله ينور يامعلم ايه الحلاوة دي وزي ما قال ابو البراء كلٍ يدلو بدلوه الا ياسر عشان دلوه فاضي وان شاء الله الجردل بتاعك يا ابو يوسف مليان يلا غرقنا بقي تقبل تحياتي