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

جرب المرفق حركات.xlsm

حسب فهمي للمسألة، جرب الملف المرفق... إذا لم يف المطلوب فالرجاء وضع أمثلة كثيرة مع النتيجة المنتظرة... ملف.xlsx

تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb

1-ليس من الضرورة رفع ملف يجتوي على اكثر من 1500 صف لان الماكرو الذي يعمل على صف واحد بستطيع العمل على الوف الصفوف 2- تم اختصار الملف الى حوالي 80 صف لمتابعة عمل الماكرو 3-الكود Option Explicit Dim sh As Worksheet Dim New_sh As Worksheet Dim lr%, Cont#, i%, x%, k% Dim SectionName As Range Const How_Many = 20 '+++++++++++++++++++++++++++++++ Sub Del_sheets() Application.DisplayAlerts = False For Each sh In Sheets If sh.Name Like "Section*" Then sh.Delete End If Next Main.Select Application.DisplayAlerts = True End Sub '++++++++++++++++++++++++++++++ Sub insert_Sheets() Del_sheets Set SectionName = Main.Range("D3:K3") lr = Main.Cells(Rows.Count, 3).End(3).Row Cont = (lr - 1) / How_Many If Int(Cont) <> Cont Then Cont = Cont + 1 End If Cont = Int(Cont) For i = 1 To Cont Sheets.Add(, Sheets(Sheets.Count)).Name = "Section_" & k * How_Many + 1 k = k + 1 SectionName.Copy With ActiveSheet.Range("D3") .PasteSpecial (xlPasteAll) .PasteSpecial (8) End With Next Application.CutCopyMode = False Main.Select End Sub '++++++++++++++++++++++++++++++++++++ Sub fil_data() Application.ScreenUpdating = False insert_Sheets x = 4 For Each New_sh In Sheets If New_sh.Name Like "Section*" Then Main.Range("D" & x).Resize(How_Many, 9).Copy New_sh.Range("D4").PasteSpecial (xlPasteAll) New_sh.Range("D4").PasteSpecial (8) x = x + How_Many End If Next Application.ScreenUpdating = True Main.Select End Sub 4-الملف مرفق Taksim_Ahmad.xlsm

اعرض الملف واردات وصرفيات حسب الفئة النقدية إن الحمد لله نحمده ونستعينه ونسترشده ونعوذ به من شرور أنفسنا وسيئات أعمالنا، ونصلي ونسلم على حبيبنا وطبيب قلوبنا محمّد صلى الله عليه وسلم الذي بعثه الله تعالى بالهدى ودين الحق ليظهره على الدين كله ... أما بعد السلام عليكم وررحمة الله وبركاته إخوتي أحبتي الكرام: أعرض لكم بريمجاً صغيراً فكرت به لحاجتي إليه في مجال عملي أحببت أن أطلعكم عليه عسى أن يكتب الله تعالى لي به القبول ....آمين اعتمدت في إعداده على حساب الفئات لعملتين وهنا حسب العملة في لبنان والعملة الرديفة الدولار ...استخدمت بذلك الدالة SUMPRODUCT التي تسهل عملية جمع نطاق معين بآخر مماثل وفق العملة الأولى حسب سعر صرف العملة الثانية. استخدمت شرط أن يكون المبلغ المصروف أقل أو يساوي المبلغ الموجود من كل فئة على حده (قواعد التحقق من الصحة) ... كان مناسباً عندما كان الحساب التلقائي يدوياً ...أما عندما حولته تلقائي عدلت عنه إلى (التنسيق الشرطي)...مقبول إلا أنه لا يؤدي عمل التحقق من الصحة. ألمحت في كل حقل مفعل من الفئات إلى قيمة كل فئة لتسهيل التعامل معها. عند كتابة الاسم تتم كتابة الوقت والتاريخ تلقائياً. وضعت في عمود مخفى قيمة كل دفعة سواء كانت دفع أو قبض ومن خلال كون الرقم أكبر من صفر أو أصغر يتم تحديد مكانه في المقبوضات أو المدفوعات باستخدام الدالة SUMIF، كما تم إضافة جمع تراكمي للرصيد عند كل دفعة. تم إدراج أكواد للحفظ والمسح والتفقيط و الطباعة ، كما تم إدراج ثلاثة أوراق لطباعة المقبوضات والمدفوعات وموجودات الصندوق في حال الرغبة بـطباعة قيد ما من الصندوق نحدد رقم قيدها فيحدد جميع حقول ذلك القيد ثم ننتقل إلى ورقة طباعتها المقبوضة أو المدفوعة. للحفاظ على رصيد الفئات مضبوطاً حسب عدد كل فئة لا بد من تسجيل حتى صرف مبلغ ما بفئات أقل في حقل محدد (الفكة - الفراطة...وقد يكون لها تسميات أخرى لا أعرفها). أرجو أن أكون وفقت لشرحه كما أرجو الله تعالى أن يكتب لنا الأجر والثواب ..نسألكم الدعاء لي ولوالدي وللمؤمنين ولولدي "علي" رحمه الله تعالى.. والله من وراء القصد . والسلام عليكم ورحمة الله وبركاته. أخوكم المحب لكم محمد حسن المحمد أبو يوسف. صاحب الملف محمد حسن المحمد تمت الاضافه 27 نوف, 2020 الاقسام قسم الإكسيل  

شكرا استاذ جزاك الله خيرا ..

=Nz(DSum("[total]";"tabl1";"[mobil]=" & [mobil]);0) و للحصول على النتيجة بدون الحاجة الى اغلاق النموذج واعادة فتحه في حدث بعد التحديد للحقل total ضع الامر Me.Recalc total.accdb

السلام عليكم تم حذف النطاقات بالتسمية الموجودة في الملف واستبدلتها بالتسمية Niveau بمعادلة ديناميكية (مرتبطة بخلية المستوى I5 الملونة بالوردي) تتغير حسب عدد الأقسام في كل مستوى وذلك لاستعمالها كقائمة منسدلة في الخلية J5 (الملونة بالأحمر)... أرجو أن تفي الغرض المطلوب... بن علية حاجي قائمة منسدلة حسب قائمة منسدلة اخرى.xlsx

حتى توفر عن نفسك هذا العناء كله ضع الاوراق في قائمة وربطها تفضل هذا الرابط اتمنى يفيدك https://www.extendoffice.com/documents/excel/5100-excel-create-table-of-contents.html

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

ترحيل مدين ودائن (1).xlsb

بعد اذن الاح بن علية يمكن حساب ذلك بواسطة دالة تعريف (UDF) الدالة المعرفة Option Explicit Function Salim_Dariba(Myfact As Double, _ n1 As Double, n2 As Double, _ n3 As Double, n4 As Double) As Double '''''''''''''''''''''''''''''''''''''''''' Dim How_Many Select Case Myfact Case Is <= 11000 How_Many = Myfact * n1 Case Is <= 18500 How_Many = (11000 * n1) + (Myfact - 11000) * n2 Case Is <= 26000 How_Many = (11000 * n1) + (7500 * n2) + (Myfact - 18500) * n3 Case Is > 26000 How_Many = _ (11000 * n1) + (7500 * n2) + (7500 * n3) + (Myfact - 26000) * n4 End Select Salim_Dariba = How_Many '''''''''''''''''''''''''''''''''''''''' End Function الملف مرفق مع مثال Dariba.xlsm

السلام عليكم جرب الأن الملف المرفق بعد التعديل الجديد على المعادلة حسب الأمثلة التي أوردتها... بن علية حاجي ملف (1).xlsx

أستاذى الفاضل السلام عليكم تعجز الكلمات عن شكر حضرتك .. اتمنى لك كل النجاح و التوفيق فى حياتك العلمية و العملية مع وافر شكرى و أمتنانى

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

وعليكم السلام ربما تقصد هكذا في المرفق عند تفعيل الفورم تختفي textbox1 و textfind ولما تختار نوع البحث تظهر حسب الاختيار اتمنى ان يكون ما تقصد فاتورة(2).xlsm

وعليكم السلام نفس الفكرة السابقة ولكني قمت باضافة مربع نص وجعلت قيمته تساوي Period وفي مربع النص عدد الاختبارات في التقرير قيمته تساوي DCount(" [Period]";"count_courses";"[Exame_Date]=" & Format([Exame_Date by Day];"\#mm\/dd\/yyyy\#") & "and [Period] ='" & [tx1] & "'") Exams2.accdb

السلام عليكم ورحمة الله وبركاته ان شاء الله يكون هذا اللي تطلبونه .. alkwait.xlsx

الف شكر لحضرتك ياباشا

بعد رفع الملف فك الضغط واحفظ المجلد في اي فولدر ثم جربه myDOS.rar

أخى الكريم تفضل الخطأ كان من عندك انت... فلابد ان تكون ادخالات الوقت صحيحة كصيغة وقت وليست نص بــــ Sheet1 help count late1.xlsx

جرب هذا الملف shoaip_sum.xlsm

اضافة ورقة اضافية .. اختر الصف والشعبة .. سوف تظهر اسماء الطلبة .. وعدد الطلبة لكل صف Copy of طلاب.xlsx

لا حاجة لادراج آلاف الأسماء (عيّنه بسيطة تكفي)لأن الماكرو ديناميكي يأخذ كل الطلاب مهما كان عددهم الكود Option Explicit Dim i Dim arr(1 To 6) Dim Ws As Worksheet Dim New_sheet As Worksheet Dim Rg As Range, Spes_Rg As Range, x% '++++++++++++++++++++++++++++++++++++ Sub ADD_Sheet() Set Ws = Sheets("KOUSHOUFAT") arr(1) = "الأوّل": arr(2) = "الثّاني" arr(3) = "الثّالث": arr(4) = "الرّابع" arr(5) = "الخامس": arr(6) = "السّادس" For i = LBound(arr) To UBound(arr) If Not Application.Evaluate("ISREF('" & _ arr(i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = arr(i) End If Next End Sub '++++++++++++++++++++++++++++++++++++ Sub Get_Studiantes() Application.ScreenUpdating = False ADD_Sheet Set Rg = Ws.Range("A1").CurrentRegion i = 1 For Each New_sheet In Sheets If New_sheet.Name <> Ws.Name Then New_sheet.Range("A1").CurrentRegion.Clear Rg.AutoFilter 3, arr(i) Rg.SpecialCells(12).Copy With New_sheet.Range("A1") .PasteSpecial (8) .PasteSpecial (12) .PasteSpecial (4) End With Set Spes_Rg = New_sheet.Range("A1").CurrentRegion x = Spes_Rg.Rows.Count If x > 1 Then Spes_Rg.Cells(2, 1).Resize(x - 1).Value = _ Evaluate("row(1:" & x - 1 & ")") End If i = i + 1 End If Next With Application .CutCopyMode = False .ScreenUpdating = True End With Ws.Select Ws.AutoFilterMode = False End Sub الملف مرفق jako.xlsm

أخي العزيز / jalal030 هناك طريقتين : الأولى : عن طريق الدالة ( CONCATENATE ) الثانية : بواسطة أداة الربط ( & ) وكل واحدة تعطي نفس النتيجة بس أفضل للمبتدئين استعمال ( CONCATENATE ) فمثلا لو كانت الخلايا المطلوب دمج بياناتها هي : (A1 ) و ( B1 ) و ( C1 ) تضع إحدى المعادلتين في الخلية المطلوب الدمج فيها حيث يتم وصع علامتي تنصيص( " " ) وفراغ تفاديا لتشابك المحتويات وهما : =CONCATENATE(A1;" ";B1;" ";C1) =A1&" "&B1&" "&C1 هذا والعفو