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

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

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

تم التعديل على الكود ليعمل بسرعة اكبر بكثير (9000 رقم في 2.3 ثانية) الكود Option Explicit 'Excel VBA to generate random number 'Created by Salim on 21/3/2018 Sub Generate_Uniq_Random() If ActiveSheet.Name <> "Salim" Then GoTo Exit_sub With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim myStart As Long Dim myEnd As Long Dim x As Byte Dim i As Long Dim lr_B: lr_B = Cells(Rows.Count, 2).End(3).Row If lr_B < 2 Then lr_B = 2 Range("b2:C" & lr_B).ClearContents Dim a() myStart = [G2] myEnd = [H2] ReDim a(0 To myEnd - myStart) For x = 1 To 2 If x = 1 Then With CreateObject("System.Collections.SortedList") Randomize For i = myStart To myEnd .Item(Rnd) = i Next i For i = 0 To .Count - 1 a(i) = .GetByIndex(i) Next End With Range("b2").Resize(UBound(a) + 1).Value = Application.Transpose(a) Else With CreateObject("System.Collections.SortedList") Randomize For i = myStart To myEnd .Item(Rnd) = i Next i For i = 0 To .Count - 1 a(i) = .GetByIndex(i) Next End With Range("c2").Resize(UBound(a) + 1).Value = Application.Transpose(a) End If Next Exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Fix_randbetween.xlsm

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

بسم الله الرحمن الرحيم هذا برنامج لعمل المرتبات للمعلمين والعمال والاداريين نتيجة مجهود شهور وتم تجريب البرنامج والعمل عليه على مستوى ادارة الشهداء التعليمية بالمنوفية يتم ادخال بيانات المعليمن والعمال المتعاقدين فى قاعدة بيانات ثم بالذهاب الى كشف رقم 1 مثلا يتم فقد كتابة رقم الموظف فى خانة التوقيع بالاستلام وسيتم عمل مرتبه تلاقائيا وكذلك الادرايين واى سؤال أن تحت امركم اشكر الاستاذ محمد الدسوقى لانه ساعدنى فى وضع كود لاخفاء الاعمدة الغير مطلوبة والتى لاتحتوى على قيم لتصغير الكشف http://www.mediafire.com/file/x514ut1gz24mdv3/المرتبات+أخر+تحديث.xlsm والشرح من هنا اتمنى البرنامج يعجبكم

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

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

تفضل تحويل المعادلة الى كود.xlsm

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

وعليكم السلام هل تقصد تصغير الاكسس بجوار الساعة؟

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

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

رأيكم أشرف nwe.xlsm

السلام عليكم أخي محمد إطلع على هذه المشاركة: و هذه أيضا:

للأسف لازالت لاتعمل على اكسس 2007 .. من المعروف ان عملية حفظ الملف من اصدار 2010 الى اصدار 2007 فيها مشاكل والى الآن لم تحل لذلك من الافضل ان تحضر قاعدة accdb تم انشاؤها على اكسس 2007 ومن ثم تستورد جميع الكائنات اليها .. في الغالب ستجدها تعمل بدون مشاكل وبعد عمل compile يمكنك تحويلها الى Accde

‏الخميس‏ 2‏/11‏/1432هـ الموافق ‏29‏/9‏/2011م هذا ملف جاهز للإستخدام نظرا لما عانيته خلال سنوات من متابعة حركة السيارات وتنقلاتها ومتابعة مستنداتها للتجديد كان هذا الملف هو آخر ما استجد في الموضوع – بحيث يسهل علي هذه المهمة الصعبة قدر الإمكان المميزات:- حفظ كامل بيانات السيارات والفحص والتأمين والبيع. التعامل مع التاريخين الهجري والميلادي. إضافة وتعديل أي بيانات تعديل رقم اللوحة تلقائياً عند الإدخال بحيث لا يتكرر. - خاصة لوحات السيارات بالسعودية إمكانية البحث السريع بأي جزء من أي رقم أو أي كلمة . البحث عن أي تاريخ بحيث تظهر كل البيانات المطلوبة قبل التاريخ المدخل. مرفق ملف به شرح تفصيلي لطريقة الإستخدام بيانات_السياراتAYMZ077.rar وآخر دعوانا ان الحمد لله رب العالمين

تعليمات من موقع : http://www.5eprat.net/كيفية-تحويل-ملف-أكسيس-accde-إلى-ملف-تنفيذى طريقة تحويل ملف قاعدة بيانات الأكسيس ( Microsoft access ) الى ملف تنفيذى : 1- أولا قم بفتح الملف المراد تحويله لملف تنفيذى ، ثم إذهب إلى أدوات قاعدة البيانات ( Data Base tools ) وإضغط على ( Make accde ) ، وإذا كنت من مستخدمى اوفيس 2010 ، ستجد زر ( Make accde ) فى القائمة الرئيسية للبرنامج داخل صفحة حفظ بالإسم . 2- ثانيا : عند الإنتهاء من قاعدة البيانات ، يجب عليك حفظها حتى تقوم بتحويل لملف accde ، قم بحفظها فى الفولدر المطلوب . 3- ثالثا : بعد حفظ قاعدة البيانات ، سيتطلب تنزيل برنامج خاص بالتحويل الى صيغة exe ، وهو برنامج inno setup من اللينك التالى : www.jrsoftware.org 4- رابعا : قم بتنزيل البرنامج وتسطيبه كاملا وحسب الإعدادات الموصى بها فى الفيديو المرفق . 5- خامسا : قم بفتح البرنامج وإختار ( الآن انقر على إنشاء ملف نصي جديد باستخدام المعالج النصي.) أو ( Create a new script file using script wizard. ) من الصفحة التى تظهر أمامك ، ثم حدد معلومات الناشر ، ونسخة البرنامج والتى يتم تحديدها ب ( 1.0 ) وموقع الناشر أو قاعدة البيانات ، ثم إضغط التالى . 6-سادسا : إضافة ملفات التطبيق: الآن سوف تكون هناك حاجة لتحديد الملفات التطبيق، ولكن في حالتنا ليس لدينا أي حاجة لذلك ، دعونا نختار الخيار 2 وانقر “إضافة ملفات”. 7- سابعا : تحديد موقع الملف ACCDE . 8 – ثامنا : إستكمال المعالج ( wizard ) ، وبعد إعطاء المعلومات اللازمة ، أنهى العملية . 9 – تاسعا : – فحص الملف التنفيذي : يجب بعد إنشاء الملف التنفيذى معاينته وتسطيبه وحفظ مسار التسطيب لديه . 10 – عاشرا : التحقق من نتيجة التثبيت : بعد انتهاء التثبيت، يصبح بإستطاعتنا تصفح مجلد التثبيت لدينا، وهناك يمكننا أن نرى ملف ACCDE .

تفضل اخي الكريم

اتفضل استخدم هذا لجمع اسم الحساب يساوي اسم الحساب و العملة يساوي يورو =DSum("[المبلغ المقبوض]";"العملاء";"[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='يورو'") وهذا للدولار =DSum("[المبلغ المقبوض]";"العملاء";"[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='دولار'") حوالات جديد (1).rar

نعم تم استخدام هكذا =DSum("[المبلغ المقبوض]";"العملاء"; "[اسم الحساب]='" & [اسم الحساب] & "'" & "and [نوع العملة]='" & [نوع العملة] & "'") عند تغيير النوع العملة سيتغير مبلغ المقبوض دور في المنتدى راح تشوف شروحات عن دالة dsum وايضا انت محتاج لهذا الرابط ايضا لاستاذنا @صالح حمادي حوالات جديد.rar

تم تغيير الكود(انسخه الى موديل جديد و عين له زراً للتنفيذ) Option Explicit Option Base 1 Sub Salim_Extract() Dim Src_Sh As Worksheet Dim Trg_Sh As Worksheet Dim xx, lr, m, My_Row As Integer Dim ArrJ(), ArrG() Dim t As Long Application.ScreenUpdating = False My_Row = 4 Set Trg_Sh = Sheets("الديون") Trg_Sh.Range("e4").Resize(10000, 3).Clear For m = 3 To Sheets.Count - 2 t = 1 Set Src_Sh = Sheets(m) With Src_Sh .Select On Error GoTo 1 On Error Resume Next lr = .Cells(Rows.Count, "j").End(3).Row For xx = 4 To lr If .Cells(xx, "j") > 0 And Cells(xx, "j") <> "" Then ReDim Preserve ArrJ(t) ReDim Preserve ArrG(t) ArrJ(t) = .Cells(xx, "j").Value ArrG(t) = .Cells(xx, "G").Value: t = t + 1 End If Next End With Trg_Sh.Range("g" & My_Row).Resize(UBound(ArrJ)) = Application.Transpose(ArrJ) Trg_Sh.Range("f" & My_Row).Resize(UBound(ArrG)) = Application.Transpose(ArrG) Trg_Sh.Range("e" & My_Row).Resize(UBound(ArrG)) = Sheets(m).Cells(1, 2) Trg_Sh.Range("f" & My_Row).Resize(UBound(ArrG)).NumberFormat = "m/d/yyyy" My_Row = My_Row + t Trg_Sh.Range("e" & My_Row - 1).Resize(, 3).Interior.ColorIndex = 6 1: Erase ArrJ: Erase ArrG Next Application.ScreenUpdating = True Trg_Sh.Activate: Range("e3").Select End Sub الملف المرفق اصنافform salim 1.rar

نمودج من اصناف Molhtar 3.rar

مرحبا تم وضع زر مسح المحتويات في كل ورقة ابو حنين + 66666.rar

أستاذ ى و أخى ياسر وأنا أيضاُ توصلت للحل أحب أن أشاركم به ضع الكود التالى فى ملف Option Explicit Sub export_data() 'تعريف المتغير من النوع نصي Dim Path As String 'تعريف المتغير من النوع نصي Dim Filename As String Dim Amro As Workbook Set Amro = ThisWorkbook 'تعيين المتغير ليساوي مسار المجلد الذي يحوي المصنفات المراد دمج أوراق العمل منها Path = ThisWorkbook.Path & "\OUTPUT\" 'تعيين المتغير ليساوي اسم كل مصنف من المصنفات التي سيتم التعامل معها Filename = Dir(Path & "*.xls") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية التنبيه بالرسائل Application.DisplayAlerts = False 'حلقة تكرارية للمصنفات الموجودة في المسار المحدد إلى أن لا يجد أي مصنف بالمسار Do While Filename <> "" 'فتح المصنف Workbooks.Open Filename:=Path & Filename 'نسخ ولصق البيانات Amro.Sheets(1).Range("A1:a2").Copy ActiveWorkbook.Sheets.Select Range("A1").Activate ActiveSheet.Paste Application.CutCopyMode = False 'حفظ وغلق الملفات Workbooks(Filename).Save Workbooks(Filename).Close 'إعادة ضبط المتغير Filename = Dir() Loop 'تفعيل خاصية التنبيه بالرسائل Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة 'Application.ScreenUpdating = True End Sub ياعمرو ضع الــــ 1500 ملف فى مجلد باسم OUTPUT جنب ملف شغل الكود ستجد البيانات فى كل ورقه من أو أى ملف من الملفات مها كان عدد الأوراق والملفات تحياتى

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

السلام عليكم ورحمة الله وبركاته في الملف المرفق معادلة تقوم بعكس الارقام الموجودة في خلية , مثلا الارقام (123456) تعكس الى(654321) و المعادلة تعمل بصرف النظر عن عدد الارقام في الخلية. وضعت المعادلة في هذا الموضوع بسبب اني استفدت واخذت الفكرة الاساسية للمعادلة من المعادلات الموجودة في ملف اخي الفاضل الاستاذ بن علية تحياتي معادلة عكس الارقام.rar