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

السلام عليكم ورحمة الله وبركاته اخي العزيز @Rebaz Bahram كلنا نريد ان نستخدم اللغة الام لكن لان هذا المنتدى هو منتدى تعليمي لذا لازم نستخدم اللغة العربية لكي يستفيد جميع الاعضاء ويفهم الجميع تحياتي لك

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

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

السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير شرح امكانيات الفورم وكيفية الاستخدام: 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss .kh_SetAddrss "مثال1", "C10:AO10" اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. . kh_SetAddrss "مثال2", "C4:H4", "B4" 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب القائمة وتفصل بين الكلمات بالعلامة + 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 ----------------------------------------------------------------------------------------------------- هذه الامكانية غفلنا عن ذكرها : 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا: "E15,C15,H15:AX15" اول عمود هو E ----------------------------------------------------------------------------------------------------- المرفق 2003-2007 فورم ادخال و تعديل مرن.rar الاصدار الثاني http://www.officena.net/ib/index.php?showtopic=48811 الاصدار الثالث: http://www.officena....showtopic=51955

السالم عليكم جميعا . اخواني انا عملت تقرير . محتواه عبارة عن عدة تقارير ... لما اعمل عرض كتقرير او طباعه للتقرير اللي عملته .. البيج هيدر للتقارير الموجودة بداخله لا تظهر ... ايش حل المشكلة ؟

بارك الله فيك وفينا اجمعين

الحمد لله الان انا فتح الموضوع تبعك من جديد وشفت تم الوصو الى الحل شكرا لك لانك حاولت ونجحت تحياتي لك

دقيقتين استاذى سوف ارفق لك الملف لو سمحت الاستعلام Qry_t1__Exam فيه درجة النشاط الرياضى الدرجة من 10 ارغب فى تحويلها الى 20 ولو الحقل فيه غياب يعطى غياب (((((((((((((( تم الحل بفضل الله )))))))))))))))) مجموع رياضى 1: IIf([riadaa_t1]="غ";"غ";[riadaa_t1]/5) المشكله كانت فى وجود مسافه داخل الكود Copy of 027.rar

ممكن تشرح لي اكثر

جرب هذه المعادلات دالة الوقت - طرح و جمعsalim.rar

امسح محتويات العامود S كاملة اضف هذا السطر الى الكود مباشرة بعد عبارة :Exitsub على سطر مستقل ثم تفذ الماكرو S_sh.Range("s:s").Clear

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

اخي الكريم هي جملة خدمات في برنامج واحد

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

السلام عليكم ورحمة الله وبركاته حياك الله استاذ جزيت خيرا - جزيت خيرا - جزيت خيرا تمام ومشكور على جدول المقارنة - كانت هي الخطوة الثاني - ولكن سبقت طلبي - جزيت خيرا استاذ - امر واحد - عند ادخال البيانات والضغط على الزر لم ينفذ الماكرو ، (إلا) بعد نسخ ارقام السيارات وعمل فلترة عليها لازالة المكرر ونسخها في خانة (S) عندها تم تنفيذ الماكرو الله يبارك في عمرك ووقتك -

تباً لعملية copy password to clipboard لم تكن في الحسبان

...

تم معالجة الامر مع المجاميع و زيادة حبتين قائمة حساب salim with summution.rar الماكرو المطلوب Option Explicit Sub filter_me() Dim S_sh, T_sh As Worksheet Dim My_rg As Range Dim T2, T3, T4 As String Dim VaL2, VaL3, VaL4, x, y, Z As Double Dim Lrs, Lrss, LrSalim As Long Dim m, k, i As Integer If ActiveSheet.Name <> "Salim" Then GoTo ExitSub Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error GoTo ExitSub Set S_sh = Sheets("Data"): Set T_sh = Sheets("Salim") Lrs = S_sh.Cells(Rows.Count, "e").End(3).Row T_sh.Range("a1:H150000").Clear Range("e2:e" & Lrs).Copy Range("S1") Range("s1:s" & Lrs).RemoveDuplicates Columns:=1, Header:=xlNo Lrss = S_sh.Cells(Rows.Count, "s").End(3).Row m = 1 For i = 1 To Lrss T_sh.Range("j2").Formula = "=Data!E2=Data!$S$" & i Sheets("Data").Range("A1:H" & Lrs).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("J1:J2"), CopyToRange:=Range("A" & m), Unique:=False m = m + Application.CountIf(S_sh.Range("e2:e" & Lrs), S_sh.Range("s" & i)) + 2 Next LrSalim = T_sh.Cells(Rows.Count, "g").End(3).Row Set My_rg = T_sh.Range("g2:g" & LrSalim).SpecialCells(2, 1) For k = 1 To My_rg.Areas.Count My_rg.Areas(k).Select '====================================== On Error Resume Next With My_rg.Areas(k) x = .Cells(1).Row y = .Rows.Count Z = x + y T2 = "SUMIFS($G$" & x & ":$G$" & Z - 1 & ",$H$" & x & ":$H$" & Z - 1 & "," & "$M$2" & ")*VLOOKUP($M$2,$M$2:$N$4,2,0)" T3 = "SUMIFS($G$" & x & ":$G$" & Z - 1 & ",$H$" & x & ":$H$" & Z - 1 & "," & "$M$3" & ")*VLOOKUP($M$3,$M$2:$N$4,2,0)" T4 = "SUMIFS($G$" & x & ":$G$" & Z - 1 & ",$H$" & x & ":$H$" & Z - 1 & "," & "$M$4" & ")*VLOOKUP($M$4,$M$2:$N$4,2,0)" If Not (IsEmpty(Evaluate(T2))) Then VaL2 = Evaluate(T2) Else VaL2 = 0 If Not (IsEmpty(Evaluate(T3))) Then VaL3 = Evaluate(T3) Else VaL3 = 0 If Not (IsEmpty(Evaluate(T4))) Then VaL4 = Evaluate(T4) Else VaL4 = 0 Cells(Z, "g") = VaL2 + VaL3 + VaL4 Cells(Z, "H") = "Sum:" End With Next Cells(LrSalim + 1, "d") = "Total Sum:": Cells(LrSalim + 1, "d").Interior.ColorIndex = 35 Cells(LrSalim + 1, "c").Formula = "=SUMPRODUCT(--($E$2:$E$100000=""""),$G$2:$G$100000)" Cells(LrSalim + 1, "c").Interior.ColorIndex = 35 ExitSub: Range("a1").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

استاذ ابو خليل ماهي طريقة الفتح التي استعملتها؟

تم الفتح

السلام عليكم تم العمل على ثلاث قطع البرنامج يتأكد من وجود قطعتين على الاقل يمكن جعله يتأكد من قطعة واحدة فقط ، ولكن من واقع خبرة بعض الاجهزة ارقام اللوحة الام فيها موحدة المعادلة (رقم التسجيل)= ضرب رقم النسخة في 2 + 12345 آمل ان يحوز على استحسانكم الهارد والمعالج واللوحة الأم.rar

استعمل مؤقتاً الماكرو الموجود في المشاركة الاولى (مع تعديل عدد الصفوف من 500 الى 150000) قائمة حساب salim.rar ريثما نجد حلاً للمجاميع

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

الحمد لله رب العاملين اشكرك على كلماتك الطيبة

شكرا اخى الفاضل على مجهودك المتميز والفورم اكثر من رائعه جزاك الله خيرا

::: اعطنا مثال لو سمحت

تم التعدبل على الملف للحصول على المجاميع قائمة حساب salim with sum.rar الكود مرفق Sub filter_me() Dim S_sh, T_sh As Worksheet Dim X, Y, Z As Long Dim LRSS, LRS, M As Integer Dim T1, T2, T3 As String Set S_sh = Sheets("Data"): Set T_sh = Sheets("Salim") LRS = S_sh.Cells(Rows.Count, "e").End(3).Row T_sh.Range("a1:H500").Clear Range("e2:e" & LRS).Copy Range("S1") Range("s1:s" & LRS).RemoveDuplicates Columns:=1, Header:=xlNo LRSS = S_sh.Cells(Rows.Count, "s").End(3).Row M = 1 For i = 1 To LRSS T_sh.Range("j2").Formula = "=Data!E2=Data!$S$" & i Sheets("Data").Range("A1:H" & LRS).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("J1:J2"), CopyToRange:=Range("A" & M), Unique:=False On Error Resume Next M = M + Application.CountIf(S_sh.Range("e2:e" & LRS), S_sh.Range("s" & i)) + 2 T1 = "=G" & M - 4 & "*VLOOKUP(H" & M - 4 & ",$M$2:$N$4,2,0)" If IsNumeric(Evaluate(T1)) Then X = Evaluate(T1) Else X = 0 T2 = "=G" & M - 3 & "*VLOOKUP(H" & M - 3 & ",$M$2:$N$4,2,0)" If IsNumeric(Evaluate(T2)) Then Y = Evaluate(T2) Else Y = 0 T3 = "=G" & M - 2 & "*VLOOKUP(H" & M - 2 & ",$M$2:$N$4,2,0)" If IsNumeric(Evaluate(T3)) Then Z = Evaluate(T3) Else Z = 0 Cells(M - 1, 8) = "The sum:" Cells(M - 1, 7) = X + Y + Z Next S_sh.Range("s:s").Clear End Sub

السلام عليكم ورحمة الله وبركاتة جرب هذا الملف الملف المرفق : Book1.rar

تم معالجة القسم الاكبر من المطلوب بقيت عملية الحسابات (فيما بعد لضيق الوقت) نم تغيير اسم الصغحات لحسن العمل مع اللغة الاجنبية قائمة حساب salim.rar

السلام عليكم الاخ الكريم / ٍآلـ طاهر بارك الله فيك عذرا للتأخير في الرد ... وذلك نظرا لضيق الوقت شاهد اخي المرفق والطريقة الموجودة به يفتح الملف الاساسي ( main ) معك وتفتح الفورم الخاصة بك قم باختيار الملف الذي تريد التسجيل به من الكومبوبكس وان كنت تريد التسجيل في الملف الاساسي نفسه تجاهل الكومبوبكس الاول ثم اكمل البيانات وقم بالترحيل وشاهد النتيجة وان كانت النتيجة كما تريد نكمل العمل سويا وعذرا تم تغيير اسماء الملفات للانجليزية لعطل فني لدي بالنسخة ملحوظة : يجب ان تكون كل الملفات في فولدر واحد شاهد المرفق واخبرنا بالنتائج تقبل خالص تحياتي واعتذاري نهائي.rar

اتفضل Database1 (1).rar

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

أخي في الله // حسام تم تطبيق فكرتك علي السداد الجزئي كتجربة قم بتجربة الملف ان كان هذا طلبك علي مافهمت من تصورك اكمل لك السداد الكلي باخفاء الصف والله ولي التوفيق حسام 003.rar

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