البحث في الموقع

عمل تقرير مجمع بالفترة القيد من الى وطباعة البيانات وكذلك فى الفواتير الاعتماد الكلى على الفترة المحاسبية

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته ارجو المساعدة من حضراتكم في الشيت المرفق بحيث الشيت (النهائي ) يجمع البيانات اللي اعمدتها باللون الاصفر حسب اسم الموظف ونوع المؤثر في مكانه يعني مثلا موظف اسمه محمد سيد مكرر ليه ايام اضافي انا عايزه يجمع ايام محمد سيد خلال الفترة وتبقي رقم مجمع وهكذا في باقي المظلل بالاصفر اكون شاكر لحضر اتكم علي المساعدة الكريمة مؤثرات شهرية.xlsm

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

تم اضافة الاصدار الخامس - سبتمبر 2012 إسم الملف: مُجمِع البيانات للاكسيل - Excel Data Collector أضيف للمكتبة بواسطة: محمد طاهر تاريخ الإضافة: 12 Sep 2011 القسم فى المكتبة: قسم الإكسيل هذا التطبيق يقوم بتجميع البيانات من كافة ملفات الاكسيل الموجودة فى مجلد معبن وفق مجال الخلايا الذي يتم تحديده خطوات الاستخدام ضع كافة الملفات المطلوب تجميع البيانات منها فى مجلد واحد حدد مسار المجلد و مجال الخلايا المطلوب تجميع البيانات منها قم بتشغيل التطبيق من زر Get Data ، سيتم تجميع البيانات من كافة الملفات فى ملف جديد ميزة اضافية اذا اردت استخدام التطبيق اكثر من مرة على عدة مجلدات ، فتوفيرا لخطوات اختيار المجلد المستهدف ، يمكن تحديد مجلد بدء الاختيار الافتراضي، ليبدا اختيار المجلدات منه فى كل مرة أثناء استخدام الملف بدلا من البدء من My Computer . و يمكن عمل ذلك بتحرير الخلية مباشرة ، فمثلا نكتب المسار d:\data الاصدار الثاني إضافة امكانية تحديد ورقة عمل محددة داخل الملفات باسمها ، اكتب اسم ورقة العمل او اتركها خالية للعمل افتراضيا على ورقة العمل الاولي فى جميع ملفات المصدر الاصدار الثالث تم اضافة المزايا التالية : 1- استخدام نموذج بدل من الازرار المباشرة نظرا لاضافة خيارات عديدة ، و يتم تسجيل مسار المجلد و اسم ورقة العمل و المجال المطلوب للخلايا المراد تجميع البيانات منها فى الحقول المناظرة. 2- فى حال عدم تسمية ورقة العمل سيتم التجميع من ورقة العمل الاولي فى جميع المفات داخل المجلد. 3- اضافة تلميحات tips بالعربية عند الوقوف بالماوس على الحقل للتوضيح. 4-امكانية اختيار تجميع البيانات فقط أو تجميع البيانات و التنسيق معا من ملفات المصدر الموجودة داخل المجلد المختار. 5- امكانية اختيار اظهار او اخفاء امتداد اسماء الملفات عند وضعها كعنوان للبيانات فى الملف التجميعي. 6- امكانية السماح بتكرار اسم الملف عند وجود اكثر من عمود يتم استخراجه من نفس الملف ، او الاكتفاء بخلية واحدة مع دمج العناوين. 7- اضافة اطار خارجي يوضح بيانات كل ملف الإصدار الرابع - تنقيح و ترتيب داخلي للكود - تعديل واجهة الاستخدام - امكانية استخراج البيانات دون فتح ملفات المصدر كخيار اضافى ، على أن يتم ذلك دون جلبها بنفس تنسيق المصدر. و هنا يوجد خياران للتشغيل الخيار الأول ، و هو الخيار الأصلي Get Data While Opening Files و به كافة الامكانيات فى الاصدار الثالث ، و امكانية عدم تحديد اسم ورقة العمل ليعمل على أول ورقة عمل فى الملفات الخيار الثاني و المضاف فى هذا الاصدار كخيار اضافي يستخدم عند الحاجة و به بعض المحدودية Get Data Without Opening Files و هنا يتم استخراج البيانات دون فتح ملفات المصدر ، و ذلك بهدف تسريع الاستخدام فى حالة الملفات الكثيرة و كبيرة الحجم و هنا خيار جلب التنسيق للخلايا غير مفعل ، و ايضا لابد من تحديد اسم ورقة العمل و الخيار كله اضافى حيث يغطي الخيار الأول خيارات أكثر الإصدار الخامس تم اضافة خيار امكانية استخراج البيانات بطريفة افقية ( بيانات الملفات المختلفة تظهر فى صفوف ) كخيار بديل و ليس رأسيا فقط ( أعمدة) مثل الاصدارات السابقة إضغط هنـــــــــــا لتنزيل الملف

وعليكم السلام ورحمه الله وبركاته تفضل هذا الكود ( تعديل لكودك ) Sub ترحيل_البيانات() Dim Lr As Long, SH As Worksheet, WS As Worksheet Set SH = ThisWorkbook.Worksheets("تقرير الوردية اليومي") Set WS = ThisWorkbook.Worksheets("شيت مجمع") Application.ScreenUpdating = False If MsgBox("انت تريد ترحيل هذا الايصال . هل تريد الاستمرار ؟", vbYesNo + vbQuestion) = vbNo Then Exit Sub End If If SH.Cells(4, 3).Value <> "" Then With SH .Activate .Unprotect Password:="011005051002018" WS.Unprotect Password:="011005051002018" If WS.FilterMode Then WS.ShowAllData End If Lr = WS.Cells(Rows.Count, "G").End(xlUp).Row + 1 WS.Range("A" & Lr).Resize(4) = .Range("C4").Value WS.Range("A" & Lr).Resize(4).NumberFormat = "dd/mm/yyyy" WS.Range("B" & Lr).Resize(4) = .Range("E4").Value WS.Range("C" & Lr).Resize(4) = .Range("G4").Value WS.Range("D" & Lr).Resize(4) = .Range("I4").Value WS.Range("E" & Lr).Resize(4) = .Range("K4").Value WS.Range("F" & Lr).Resize(4) = .Range("N4").Value .Range("B7:M10").Copy WS.Range("G" & WS.Cells(Rows.Count, "G").End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("B13:P16").Copy WS.Range("S" & WS.Cells(Rows.Count, "S").End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("C4,G4,I4,K4,N4,D7:J10,L7:P10,D13:I16,L13:P16").ClearContents .Protect Password:="011005051002018", AllowFiltering:=True, AllowFormattingCells:=True Application.Goto WS.Range("C4") WS.Protect Password:="011005051002018", AllowFiltering:=True, AllowFormattingCells:=True End With Else MsgBox "الرجاء وضع التاريخ و ملئ البيانات" SH.Activate SH.Range("C4").Select Exit Sub End If Application.ScreenUpdating = True End Sub

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

سلام الله عليكم أخوة الخير في المنتدى الكريم إليكم بقية عناصر موضوع العمل وهى المدخلات والمخرجات المدخلات 1- المباشرة (تصور من بداية فتح البرنامج) · إضافة مستخدم جديد بكلمة سر خاصة به أو دخول مستخدم فعلى سابق بإدخال اسم المستخدم وكلمة السر. · إضافة مواضيع جديدة بمستوياتها بدءا من الباب أو العلم (المستوى الأول) حتى آخر موضوع فرعى مع إمكانية تعديل وحذف مسمى موضوع . · إضافة فائدة جديدة. · تعديل أو حذف فائدة سابقة. · إضافة بيانات مرجع جديد. · إضافة بيانات قائل جديد. 2- الغير مباشرة · إضافة مرفقات لفائدة جديدة (كملف أو صورة أو صوت أو فيديو يحفظ في مجلد خارج قاعدة البيانات). المخرجات 1- البحث (إذا اعتبرنا نتائج البحث من المخرجات) · بحث عام عن كلمة في أي جدول في قاعدة البيانات. · · بحث في العناوين، بحث في أسماء المراجع، بحث في أسماء القائلين · بحث في نصوص الفوائد حسب المعايير التالية: - عن كلمة مطابقة تماما لكلمة البحث. بمعامل و أو . عن كلمة من بداية السطر. 2- التقارير · العامة - تقرير مجمع للباب أو العلم الواحد بتفريعاته كلها. - تقرير مجمع بكامل عناوين الموضوعات وتفريعاتها كلها. - تقرير مجمع كامل بعناوين الموضوعات وتفريعاتها المصنفة على أنها هامة. - تقرير مجمع للباب أو العلم الواحد بتفريعاته كلها بإضافة عناوين فوائده. - تقرير مجمع بكامل عناوين الموضوعات وتفريعاتها كلها بإضافة عناوين فوائدها. - تقرير مجمع بعناوين وفوائد كامل البرنامج. - تقرير مجمع بأسماء المراجع. - تقرير مجمع بأسماء القائلين. - تقرير مجمع بتواريخ إدخال الفائدة. على أن تكتب سلسلة التفريع لعناوين الموضوعات بهذا الشكل في كل ما يتطلب ظهرها التوحيد ـــ الإيمان ـــ أركان الإيمان ـــ الإيمان بالله تعالي ـــ وحدانية الله. · الخاصة - تقرير مجمع حسب تصنيف القائلين. - تقرير مجمع حسب تصنيف المرحلة. - تقرير مجمع حسب نوع الفائدة. - تقرير مجمع حسب وصف الفائدة. - تقرير مجمع حسب التقييم العام الفائدة. - تقرير مجمع حسب التقييم الخاص الفائدة. - تقرير مجمع حسب ما تم العمل به من علم الفائدة. - تقرير مجمع حسب وصف الفائدة. جميع التقارير بها أمكانية الطباعة والتصدير إلى برنامج الوورد والآن هذا ما يسر الله لى به بعد أن حاولت توضيح كل ما استطاع ذهنى للوصول إليه واعتقد أن هناك تفاصيل ربما نسيتها أو خفي عنى معرفتها والآن أيضا قد حان دوركم وهى فرصة في شهر ترفع فيه أعمال السنة كلها لتعرض على الله أقول هى فرصة للجميع بأن يختم صحيفة عمله لعام كاملا بالمساهمة في تنفيذ هذا العمل فكل ما مر من كلام وتصور ومجهود لن يرى النور ويترجم إلى عمل نافع إلا بإن يقيض بعض الملخصين شيئا من أوقاتهم لصالح هذا العمل كان الله في عون الجميع ودمتم بخير وكل عام وانتم بخير للرفع

برنامج حسابات كامل مجاني يدعم النموذج الشجري لدليل الحسابات لشركات المقاولات و الانشطه الخدميه برنامج كامل مجاني https://acc-arab.com/2021/06/my-accounts.html مميزات البرنامج شاشه تسجيل دخول مزوده بنظام صلاحيات لكل مستخدم نظام تكويد مبسط يتم عرضه علي نموذج شجره الحسابات و يمكن التكويد بدون الحاجه الي النموذج الشجري للحسابات عن طريق نموذج تعديل التكويد نموذج لتسجيل قيود اليوميه مصمم بشكل احترافي يمنع حفظ القيد اذا كان غير متساوي مع امكانيه طباعه كل قيد بشكل مستقل كانك تتعامل مع دفتر يوميه حقيقي بمزايا الدفاتر الالكترونيه و أيضا نموذج مراجعه قيود اليوميه لضمان دقه البيانات المدخله علي البرنامج امكانيه اغلاق الفتره المحاسبيه او اغلاق القيد المحاسبي لمنع التعديل عليه امكانيه الاطلاع علي دفتره الاستاذ و معاينه كافه التغيرات علي كل حساب بعد تسجيل اي قيد و أيضا طباعه كل حساب بشكل مستقل او طباعه كل الدفاتر بشكل مجمع او تحويلها لاي صيغه ( اكسيل او pdf ) برنامج حسابات متكامل سهوله الاطلاع علي دفتر اليوميه و سهوله الطباعه للدفتر بالكامل او طباعه كل قيد بشكل مستقل او تحويلها لاي صيغه ( اكسيل او pdf ) امكانيه الاطلاع علي كافه التقاير المجاسبيه بما في ذلك الميزانيه العموميه و قائمه الدخل و حساب المتاجره و ميزان المراجعه او تحويلها الي اكسيل او pdf برنامج حسابات متكامل مصمم بالاكسيس سهوله تفريغ محتويات البرنامج و ذلك بالدخول الي اعدادات البرنامج و اضافه كلمه سر الادمن للامان الضغط علي تفريغ المعاملات الماليه امكانيه الاحتفاظ بنسخه احياطيه من البرنامج سهوله العمل علي البرنامج علي شبكه داخليه مما يسمح بعمل اكثر من مستخدم علي البرنامج في نفس الوقت برنامج حسابات متكامل متطلبات تشغيل البرنامج نسخه اوفيس 2010 علي الاقل اسم المستخدم admin كلمه السر 123 رابط تحميل البرنامج https://acc-arab.com/2021/06/my-accounts.html#المحاسب_العربي #برنامج_محاسبة_مستخلصات_المقاولات #شير_في_الخير #برنامج_حسابات #المحاسب_العربي #برنامج_محاسبة_مستخلصات_المقاولات #شير_في_الخير #برنامج_حسابات

هل تقصد نسخ البيانات من الشيتات المحددة إلى شيت مجمع شيتات؟ وإذا كان هذا هو المقصود فيمكنك استعمال هذا الكود Sub getdata2() Sheet1.Range("a3:o" & Sheet1.Cells(Rows.Count, 2).End(3).Row + 2).ClearContents mysh = Array("1", "2", "3", "4", "هناء", "مني") For Each n In mysh lr = Sheets(n).Cells(Rows.Count, 2).End(3).Row If lr > 2 Then lr2 = Sheet1.Cells(Rows.Count, 2).End(3).Row + 1 lr2 = IIf(lr2 < 3, 3, lr2) Sheet1.Range("b" & lr2 & ":o" & lr2 + lr - 3).Value = Sheets(n).Range("b3:o" & lr).Value End If: Next n Sheet1.Range("A3").Value = 1 Sheet1.Range("A3").AutoFill Destination:=Range("A3:A" & lr2 + lr - 3), Type:=xlFillSeries Sheet1.Range("A3").Select MsgBox "Done by mr-mas.com" End Sub الكود يقوم بنسخ بيانات الشيتات الموجودة في المصفوفة إلى شيت مجمع شيتات ويقوم بوضع مسلسل للكل مع ضرورة تنسيق الأعمدة حسب نوع البيانات التي ستكون فيها مثل التواريخ والأرقام الكبيرة والنصوص بالتوفيق

ارجو التكرم بالمساعدة بالملف المرفق والخاص بمصروفات وايرادات اتحاد ملاك عقار وذلك في عمل كود لادخال البيانات وترحيلها لشيت البيانات كما هو موضح بالملف المرفق بشرط التالي : - اذا كان مصروف مثلا فاتورة كهرباء بمبلغ 9000 جنيه يدرج في نموذج ادراج البيانات مرة واحدة ويجبر المستخدم بعدم ادراج رقم الشقة والمالك وعند الترحيل لشيت البيانات يرحل بعدد الشقق وهو 18 شقة لكل شقة نصيبها من الفاتورة بالتساوي اي 500 جنيه لكل شقة مع تعبئة رقم الشقة واسم المالك تلقائي في كل صف وياخذ البيانات الخاصة بالشقق من شيت اساس الموجود بالملف ويرحل باقي البيانات كالبيان والتاريخ كما هو بنموذج ادراج البيانات ويكرر في كل صف من الصفوف الثمانية عشر - اذا كان ايراد يجبر المستخدم بادراج رقم الشقة واسم المالك وهذه ترحل مرة واحدة فقط حسب رقم الشقة والمبلغ الوارد منها - بعد الضغط على ترحيل البيانات يقوم بمسح كل البيانات من النموذج لادراج بيانات جديدة وان امكن المسلسل تلقائي بشيت البيانات جزاكم الله خيرا جميعاً مصروفات وايرادات.xlsm

الاخوة الاكارم الملف المرفق قمت بتحميله من أوفيسنا وهو يحتوي على تطبيق مجمِع البيانات للاكسيل - Excel Data Collector المطلوب : اريد ان اضيف كود يقوم بعملية الجمع sum للنتائج التي تم جلبها في نهاية كل صف . مع الشكر الجزيل لتعاونكم مسبقاً ....

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

omar elhosseini السلام عليكم ورحمة الله وبركاته أخى الكريم بارك الله فيكم أخى الكريم وجزاكم الله كل الخير وربنا يجعله فى ميزان حسناتك لو سمحت أخى الكريم كما فى الملف السابق ولكن هناك لو دققت فى آخر الاسماء وهذا كمثال هناك خلايا فى أعمدة أخرى ارجو منك أخى الكريم ضمهم فى نطاق البحث عن البيانات السابق عمل جدول مجمع لهم وشكرا جزيلا لاهتمامك _Arabic g11 V1.xlsx

السلام عليكم 🙂 هذه طريقتي لتفكيك الحقل الى حقول 🙂 نأخذ المرفق كالمثال من هذا الرابط : . هكذا تبدو السجلات ، بالعين المجردة : . والمطلوب ان نقسم بيانات السجل الواحد الى: الاسم ورقم التسلسل (وخلينا نستخدم السجل الاول كمثال) ، ونريد النتيجة تكون : . هناك طريقتين لفرز هذه البيانات : عن طريق كود ليقرأ الحروف/الارقام/العلامات واحدا واحدا ، ثم بوضع شروط اذا جصلنا على رقم ، فنتوقف ونحفظ الجزء الاول ، ثم نواصل ... ، وهذه العملية مرهقة وتحتاج الى تفاصيل كثيرة ، عن طريق الكود ، ولكن بإستخدام الدالة Split ، ويشترط فيها ان نعرف اين (بعد اي حرف/رقم/علامات) نقسم السطر ، ولنسمية شرط القطع . سنتعامل مع الطريقة الثانية وهي الاسهل 🙂 لمعرفة شرط القطع ، يمكننا ان نتعامل مع الحروف/الارقام/العلامات مباشرة ChrW ، او نتعامل مع ارقام هذه (الحروف/الارقام/العلامات) AscW ، وانا لا استغني عن هذه الصورة المرفقة لعملي ، الحرف Chr ، ومقابله رقمه Dec : . وبالنسبة للحروف العربية ، هذا رابطها : https://sites.psu.edu/symbolcodes/languages/mideast/arabic/arabicchart/ او https://www.ssec.wisc.edu/~tomw/java/unicode.html#x0600 وقد قمت باخذ البيانات من الموقع ورتبتها في صفحة واحد : فمثلا اول حروف اسم ابراهيم : ا = 1575 ، ب = 1576 ، ر = 1585 ، بمعنى AscW(ا) = 1575 , AscW(ب) = 1576 , AscW(ر) = 1585 والعكس يكون ChrW(1575) = ا , ChrW(1576) = ب , ChrW(1585) = ر . للحصول على الاسم ، نريد ان يكون لدينا شرط القطع بعد الاسم وقبل بداية الرقم (اي في المنطقة 1) ، للحصول على التسلسل ، نريد ان يكون لدينا شرط القطع بعد التسلسل وقبل بداية الاسم التالي (اي في المنطقة 2) ، لمعرفة شرط القطع يجب علينا ان نحلل البيانات التي يراها الكمبيوتر ، وذلك بتحويل الحروف/الارقام/العلامات الى AscW ، هذا الكود يقوم بهذه العملية: Public Function Split_Names() Dim rst As DAO.Recordset Dim x() As String Dim i As Long Dim a As String Set rst = CurrentDb.OpenRecordset("Select * From MyTxt_from_pdf") Do Until rst.EOF For i = 1 To Len(rst!Field1) a = Mid(rst!Field1, i, 1) 'الحروف/الارقام/العلامات a = a & "(" & AscW(a) & ") " 'رقمها AscW Debug.Print a Next i Loop rst.Close: Set rst = Nothing End Function ونناديه من نافذة الكود هكذا (يجب ان يكون الكيبور باللغة الانجليزة عند كتابة علامة الاستفهام) : . ونرى ان النتيجة للسجل الاول فقط : . وبعد التدقيق ، نلاحظ ان في نهاية الارقام نرى ان AscW التالية متكررة 8236 ثم 8236 ثم 32 ثم 32 ، وبذلك يمكننا استعمال هذه كشرط القطع بعد الاسم ا(1575) ق(1602) ل(1604) ح(1581) ا(1575) د(1583) م(1605) ح(1581) ي(1610) ا(1575) م(1605) و(1608) د(1583) د(1583) س(1587) ه(1607) ?(8236) ?(8236) ?(8236) -32 -32 -32 -32 -32 -32 . بعد الرقم 3(1635) 2(1634) ?(8236) ?(8236) ?(8236) ?(8236) -32 -32 -32 -32 . وعليه نستعمل هذا الكود ، ونرى نتيجته (للسجل الاول) : Do Until rst.EOF x = Split(rst!Field1, ChrW(8236) & ChrW(8236) & ChrW(32) & ChrW(32)) 'Name + ID For i = LBound(x) To UBound(x) Debug.Print x(i) Next i rst.MoveNext Loop ونتيجته ?ابراهيم احمد يحيى احمد? ??3 ?ابتهاج سامح نسيم اقلديوس? ??2 ?ابتسام محمد عبدا حماده? ??1?? . والآن خلينا نفكك الاسم من الرقم : Do Until rst.EOF x = Split(rst!Field1, ChrW(8236) & ChrW(8236) & ChrW(32) & ChrW(32)) 'Name + ID For i = LBound(x) To UBound(x) 'Debug.Print x(i) x2 = Split(x(i), ChrW(8236) & ChrW(32) & ChrW(32)) For j = LBound(x2) To UBound(x2) Debug.Print x2(j) Next j Next i rst.MoveNext Loop والنتيجة ?ابراهيم احمد يحيى احمد ??3 ?ابتهاج سامح نسيم اقلديوس ??2 ?ابتسام محمد عبدا حماده ??1?? . ونلاحظ من القائمة اعلاه ، ان علامات الاستفهام ارقامها ?(8235) ?(8234) ?(8236) . الخطوة الاخيرة هي تنظيف النتيجة من علامات الاستفهام هذه عن طريق الامر Replace ، والتخلص من المسافة الزائدة قبل وبعد النتيجة عن طريق الامر Trim ، وبعدها نريد ان نحفظ الاسم في اول حقل ، والرقم في الحقل الثاني: LBound دائما تساوي صفر Do Until rst.EOF x = Split(rst!Field1, ChrW(8236) & ChrW(8236) & ChrW(32) & ChrW(32)) 'Name + ID For i = LBound(x) To UBound(x) 'Debug.Print x(i) x2 = Split(x(i), ChrW(8236) & ChrW(32) & ChrW(32)) For j = LBound(x2) To UBound(x2) 'Debug.Print x2(j) a = Replace(x2(j), ChrW(8234), "") a = Replace(a, ChrW(8235), "") a = Replace(a, ChrW(8236), "") a = Trim(a) 'If j / 2 = Int(j / 2) Then If j = 0 Then 'even Debug.Print "Name: ", a Else 'odd Debug.Print "ID: " & a End If 'Debug.Print a Next j Next i rst.MoveNext Loop والنتيجة Name: ابراهيم احمد يحيى احمد ID: 3 Name: ابتهاج سامح نسيم اقلديوس ID: 2 Name: ابتسام محمد عبدا حماده ID: 1 Name: احمد السيد على محمد ID: 6 Name: ابراهيم كمال ابراهيم محمد ID: 5 Name: ابراهيم سمير عياد عطاا ID: 4 Name: احمد حسن احمد رسلن ID: 9 Name: احمد حجازى على محمد ID: 8 Name: احمد السيد محمد عبدالرحمن ID: 7 . -------------------------------------------------------- وفي سياق هذا الموضوع ، كان عندي مشروع القرآن الكريم ، وحفظه في قاعدة البيانات بعدة طرق: كل صفحة عبارة عن سجل ، وفي جدول آخر ، كل سطر في سجل ، وفي جدول آخر ، كل آية في سجل وقمت بتنزيل القرآن الكريم من مجمع الملك فهد لطباعة المصحف الشريف : https://fonts.qurancomplex.gov.sa/wp02/حفص والمرفق يحتوي على الخط العثماني ، والذي تم عمله في المجمع ، ولذا فهو يحتوي على حروف/ارقام/علامات AscW تختلف عن غيرها من الخطوط ، والطريقة الوحيدة لتفكيك الاسطر كانت بإتباع خطوات شبيهه بالخطوات اعلاه 🙂 جعفر

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

و عليكم السلام و رحمة الله وبركاته جرب هذا الموضوع ان شاء الله تجد به ما تريد https://www.officena.net/ib/topic/38355-مكتبة-الموقع-مُجمِع-البيانات-للاكسيل-excel-data-collector/ وهو للعلامه محمد طاهر

تفضل مجمع البيانات للخبير/ محمد طاهر

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

السلام عاليكم ارجو من حضراتكم التكرم علي في ايجاد هذا الكود اريد عند كتابة اسم العميل في الخليه c3 والضغط علي بحث تظهر نتائج العميل كما موضح في الشيت الثالث النتائج ماخوزا من الشيت رقم 2 (مجمع حسابات العملاء) مع مراعات ان عدد البيانات في الشيت رقم 2 ممكن يتخطي ال100000 سطر نظرا لكشف حساب عميل طويل المدة كشف حساب عملاء.xlsx

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

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

الزملاء الأعزاء السلام عليكم قمت بعمل تقرير احصائى لاختبارات طلاب بالتيرم مجمع (تاريخ الاختبار و فتره الاختبار و توقيت الاختبار ) و قمت بعمل فرض صفحة جديدة لكل تجميع بالفتره و يعمل بشكل جيد لتظر البيانات كل توقيت (من 8-10 ، من 10-12 ،من 1-3 ) فى صفحة والمشكلة ان فى اخر التقرير تظهر صفحة فارغة بها عنوان التقرير (تقرير إحصائى لإختبارات التيرم التاريخ 15/12/2020 الفتره الاولى التوقيت 8:00 - 10:00 على سبيل المثال ) بدون اى بيانات و قد حاولت بشىء الوسائل ازاله هذه الصفحة الزائدة بدون جدوى ملحوظة : هى صفحة اضافية لان الهوامش مضبوطة و ليظهر التقرير بالصفحات سليم (المفروض 4 صفحات لكن يظهر 5 صفحات حيث ان الصفحة الخامسة بها رأس صفحة التقرير و فارغة بدون بيانات ) كيف اتغلب على هذه المشكلة التى تواجهنى فى عملى و احتاج إلى وسيلة للتغلب على هذه المشكلة التى تعوق عملى والشكر مقدماً و موصولا لكل الزملاء و المشرفين بالمنتدى

السلام عليكم ورحمة الله وبركاته اخوانى اعضاء المنتدى (رواده ، علماؤه ، المبتدئين ، ..... الخ) تحية طيبة ، كل عام وانتم بخير جميعا لدى سؤال هنا ولقد حاولت البحث عن اجابته ولم أفلح ، واتمنى أن اجد اجابته هنا ؟ كثيرا منا يتكلم عن ترحيل البيانات من شيت الى شيت داخل نفس الملف ولكن ماذا عن ترحيل البيانات من مجموعة ملفات الى ملف واحد بعد كل ملف لدى مجموعه من التقارير R001 , R002 , R003 ..... الخ كل تقريريحتوى على ثلاثة اعمدة المبلغ و الرقم والعنوان ولدى ملف مجمع باسمSal به تقرير مجمع يحتوى على اربعة اعمدة المبلغ و الرقم والعنوان كما فى الملفات السابقة وعمود رابع يحمل اسم يخص تقرير والمطلوب كودموجود ضمن الملف Report001 للترحيل من التقرير R001 بيناته كاملة دون صف الاجمالى الى الملف Sal المجمع مع اعطاء العمود يخص تقرير اسم التقرير R001 وبالمثل كودموجود Report002 للترحيل من التقرير R002 الى الملف SAL بنفس الطريقة وبالمثل كودموجودٌ Report003 للترحيل من التقرير R003 الى الملف Sal بنفس الطريقة مرفق طيه الملفات مع العلم بان الملف Sal بالشيت 1 موجود المطلوب الوصول اليها واريد التطبيق على شيت2 (ويسلام لو كان شرح للكود يكون فى الشيت 3 ، تبقى كنافة خالص) شكر مقدم لجميع الزائرين لهذا الموضوع ومشاركيه،،، اخوكم Konafa4000 ترحيل لملف اخر.rar

السلام عليكم جزاكم الله كل خير الاستاذ العيدروس والاستاذ ياسر أعيد ان شاء الله شرح المطلوب مرة اخرى: الفكرة: مثلا اذا كان لدينا طالب حفظ في شهر سبتمبر من الناس1 الى العاديات5 في آخر شهر سبتمبر نقيم له اختبار ونعطيه درجة من 100 فاذا تحصل على 60 درجة فما فوق فانه في شهر اكتوبر يكمل حفظه أي من العاديات6 واذا تحصل على على اقل من 60 فانه يعيد الحفظ من الناس1 ونفعل هذا كل نهاية شهر المطلوب: حساب درجة االطالب في نهاية الشهر تتم في صفحة التقرير الشهر وعند بداية الشهر الموالي نرحل كل المعطيات الى صفحة مجمع النتائج الشهرية ولمطلوب من الكود عند بداية الشهر في صفحة التقرير الشهري (العمودV ) يتاكد الكود من درجة الطالب للشهر الذي قبله في صفحة مجمع النتئج الشهرية (العمودR ) فاذاكات 60 او اكثر ياخذ ما في العمودين O N ويكتبهما في العمودين M L في صفحة التقرير الشهري واذا كانت درجة الطالب للشهر الذي قبله في صفحة مجمع النتئج الشهرية (العمودR ) اقل من 60 ياخذ ما في العمودين M L ويكتبهما في العمودين M L في صفحة التقرير الشهري بداية الشهر: نعني ببداية الشهر اي بعد ترحيل البيانات لصفحة مجمع النتائج الشهرية ونبدأ نكتب معلومات الشهر الموالي ملاحظة/ لا اريد الكود مستقل بل يجب ان يدمج مع كود الاستاذ ياسر الموجود في صفحة التقرير الشهري وهذا هو الكود Sub CopyDataFromRecordInf() Dim WS As Worksheet, SH As Worksheet Dim LR As Long, LRCur As Long, I As Long Dim rngA As Range, rngB As Range, rngC As Range, rngD As Range, rngP As Range Dim X, Y, XX, YY Dim rngMnhg As Range Set WS = Sheets("ãÚáæãÇÊ ÇáÊÓÌíá"): Set SH = Sheets("ÇáÊÞÑíÑ ÇáÔåÑí") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row With Sheets("ÇáãäåÌ") LRCur = .Cells(Rows.Count, 1).End(xlUp).Row Set rngA = .Range("A2:A" & LRCur): Set rngB = .Range("B2:B" & LRCur) Set rngC = .Range("C2:C" & LRCur): Set rngD = .Range("D2:D" & LRCur) Set rngMnhg = .Range("A2:D1000"): Set rngP = .Range("P2:P" & LRCur) End With Application.ScreenUpdating = False With SH SH.Range("A2:E1000,I2:K1000,R2:U1000").ClearContents For I = 2 To LR .Cells(I, 1) = WS.Cells(I, 1) .Cells(I, 2) = WS.Cells(I, 2) .Cells(I, 3) = WS.Cells(I, 3) .Cells(I, 23) = WS.Cells(I, 16) .Cells(I, 4).Formula = "=IF(" & .Cells(I, 12).Address & "="""","""",LOOKUP(INDEX(QNumbers,MATCH(" & .Cells(I, 12).Address & ",QNames,0)),ÇáÍáÞÇÊ!$F$2:$F$6,ÇáÍáÞÇÊ!$B$2:$B$6))" .Cells(I, 4).Value = .Cells(I, 4).Value If .Cells(I, 16) > 5 Then .Cells(I, 5) = 0 Else .Cells(I, 5) = 5 - .Cells(I, 16) End If If .Cells(I, 8) > 5 Then .Cells(I, 9) = 0 Else .Cells(I, 9) = 15 - (3 * .Cells(I, 8)) End If X = ValueLookUp(rngB, .Cells(I, 12).Value, rngC, rngD, .Cells(I, 13).Value, rngA) Y = ValueLookUp(rngB, .Cells(I, 14).Value, rngC, rngD, .Cells(I, 15).Value, rngA) .Cells(I, 10).Value = (Y - X) * 10 If .Cells(I, 10) > 100 Then .Cells(I, 11) = 10 Else .Cells(I, 11) = .Cells(I, 10) / 10 End If .Cells(I, 18) = Application.WorksheetFunction.Sum(Range(.Cells(I, 5), .Cells(I, 7)), .Cells(I, 9), .Cells(I, 11)) .Cells(I, 20) = Level(.Cells(I, 18)) XX = Application.WorksheetFunction.VLookup(X + 9, rngMnhg, 2) YY = Application.WorksheetFunction.VLookup(X + 9, rngMnhg, 4) .Cells(I, 21) = XX & " " & YY Next I Call RankMultipleColumns .Range("A1").Select End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Public Function ValueLookUp(ByVal NameRange As Range, sName As String, _ FromRange As Range, ToRange As Range, _ MonthValue As Integer, _ ResultRange As Range) As Long '=ValueLookUp($B$2:$B$20,H6,$C$2:$C$20,$D$2:$D$20,I6,$A$2:$A$20) '--------------------------------------------------------------- Dim Cell As Range Dim I As Long, iIndex As Long, J As Long Dim ColIndex As Collection: Set ColIndex = New Collection I = 1 iIndex = 1 For Each Cell In NameRange If Cell.Value = sName Then ColIndex.Add I, CStr(iIndex) iIndex = iIndex + 1 End If I = I + 1 Next Cell For J = 1 To ColIndex.Count If MonthValue >= FromRange.Item(ColIndex.Item(J), 1) And ToRange.Item(ColIndex.Item(J), 1) >= MonthValue Then ValueLookUp = ResultRange.Item(ColIndex.Item(J), 1) Exit Function End If Next J End Function معذرة على الاطالة هذا رابط الملفhttp://www.up-00.com/?UOxL واسف مرة أخرى على الازعاج فانا اعلم ان الموضوع شائك قليلا