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

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

السلام عليكم - حياك الله - عمل ضخم - تقبل الله منك صالح الاعمال اشكرك

وانا هنزل نسخه تانيه فى السهره النسخه دى مش مظبوطه معايا مش عارف ليه حاسس بتقل فيها ربنا يستر

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

السلام عليكم ورحمه الله وبركاته مرفق برنامج ادارة وكالات الفاكهه والخضار تم تصميم البرنامج بطلب خاص ، تم الانتهاء من البرنامج بنسبة 90 % اقوم برفعه لاخذ ارائكم ومقترحاتكم وملاحظاتكم وتوجيهاتكم كلمة السر لاى مستخدم 123 ملحوظة : البرنامج مدفوع لذا النسخة المرفقة MDE برنامج وكالة فواكه.rar

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

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

برنامج ممتاز

مشكوور اخي / حسام الحين اشتغل كويس لكن ظهر مشكلة اخري عند فتح تقرير لا يظهر التقرير و تتوقف شاشة النموذج لانها مشروطة !!!!

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

السلام عليكم بعد إذن الاستاذ سليم تعديل بسيط حسب ما يحب أبو البراء Sort_by_text_len advanced Macro2.rar

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

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

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

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

السّلام عليكم و رحمة الله و بركاته إخواني الأفاضل : ياسر العربي ياسر خليل أبو البراء محمد حسن المحمد أحمد الفلاحجي و كل من يشاركنا عرس الدوت نات البهيج .. من باب زيادة الخير .. خيريْن .. و الدّال على الخير كفاعله لمن يعاني من روابط التّحميل .. و ضعف النت .. موقع منذ حوالي 3 سنين و أنا أستعمله ..لتحميل نسخ الوينداوز بجميع أنواعها و لغاتها .. لجميع البرامج الكاملة و الكمال لله .. و الآن لجميع نسخ الفيجوال بيسك باختلاف إصدارتها و لغاتها .. لم يصادفني أنْ وجدت يوما ملفا فاسدًا إطلاقًا .. و الوحيد الذي أستعمله منذ سنوات عن تجربة .. التّحميل بالتورنت .. و أنا الآن بصدد تحميل نسخة 2012 أنجليزية لعل و عسى نحتاجها .. سأضعها على دكّة الاحتياط .. رابط الموقع .. للتّحميل إضغط على البرنامج المراد تحميله .. ثم عند الانتقال لصفحة البرنامج .. إضغط على رمز المغناطيس http://undertorrents.com/usearch/visual studio 2012/ إحتراماتي

السلام عليكم 1. من المعروف ان تنسيق النص في مربع القائمة ListBox هو من اليسار الى اليمين ، مشكلة كانت تصادفني دائما ، وهو تنسيق القيم في مربع القائمة لتكون من اليمين الى اليسار بالنسبة للغة العربية (طريقة تغيير مربع القائمة الى مربع تحرير ونص ، ثم عمل التنسيق عليه من اليمين الى اليسار ، ثم اعادته الى مربع قائمة لا يعمل معظم الوقت) ، موقع http://www.lebans.com والذي يحتوي على مالذ وطاب عنده طريقه لهذا التنسيق: http://www.lebans.com/justicombo.htm كذلك. 2. ونفس المشكلة مع موضوع تنسيق الشجرة TreeView من اليمين الى اليسار. النتيجة: و وطريقة العمل ، يوضع هذا الكود في وحدة نمطية: Option Compare Database Option Explicit #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr Dim hwnd As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Dim hwnd As Long #End If Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) Function RTL_Set(frm As Form, ctl As Control) Dim varHwnd As Variant Dim OldLong As Long frm.SetFocus ctl.SetFocus varHwnd = GetFocus() OldLong = GetWindowLong(varHwnd, GWL_EXSTYLE) SetWindowLong varHwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function Function RTL_SetTree(frm As Form, ctl As Control) Dim OldLong As Long OldLong = GetWindowLong(ctl.hwnd, GWL_EXSTYLE) SetWindowLong ctl.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False في اسفل الكود انا تركت الكود لبقية الاشياء اللي يمكن عملها من اليمين الى اليسار. اما تنفيذ التنسيق لمربع القائمة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على هذا المربع (وهنا اسم حقل مربع القائمة هو List0_RTL ) : 'ListBox RTL Call RTL_Set(Me, List0_RTL) وتنسيق الشجرة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على الشجرة (وهنا اسم الشجرة هو TreeView1) : 'TreeView RTL Call RTL_SetTree(Me, TreeView1) وللأمانة العلمية ، فاني استخدم قاعدة البيانات التي وضعها الاخ محمد في الرابط: http://www.officena.net/ib/index.php?showtopic=60781 جعفر تعديل 1: 18-11-2021 ، جعل البرنامج يعمل على النواتين 32بت و 64 بت 54.RTL_TreeView_ListBox_32bits_n_64bits.accdb.zip

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

لمعرفة اذا كان نظام الوندوز عند 32بت او 64بت ، هنا تجد مسار معرفة هذا: . حسب موقع مايكروسوفت: https://support.microsoft.com/en-us/kb/2687441 لتسجيل الاداة (سواء كان نظام التشغيل عندك 32بت او 64بت) ، احفظ هذه الاسطر في ملف واحفظه بصيغة bat ، باسم RegFix.bat مثلا ، ثم انقر على الملف بالفأرة اليمين ، وشغل الملف كمسؤول (وإلا لن يعمل الملف بالطريقة الصحيحة) reg delete hkcr\typelib\{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}\2. /f if exist %systemroot%\SysWOW64\cscript.exe goto 64 %systemroot%\system32\regsvr32 /u mscomctl.ocx /s %systemroot%\system32\regsvr32 mscomctl.ocx /s exit :64 %systemroot%\sysWOW64\regsvr32 /u mscomctl.ocx /s %systemroot%\sysWOW64\regsvr32 mscomctl.ocx /s exit جعفر

تم عمل البحث في العمودين (ليست في A ) (ليست في N ) أما العمود الثالث في حاجة غريبة في الطلب رقم الحاوية التي ليست في A وليست في Nنهائيا كيف سيعرفها البرنامج ؟ لا بد من كتابة أرقام الحاويات كلها في عمود ثم نقول للبرنامج فتش عن هذه الأرقام فإذا كانت ليست في A وليست في N نهائيا قم بوضعها في عمود مستقل جرب المرفق البحث و الفرز1.rar