أ / محمد صالح

ما شاء اللّه الأمانة العلمية متوفرة جدا ولكن الحمد لله رغم تأخر نشري لهذا المجهود لي السبق موضوع منتدى الصقر : الدالة المعرفة JoinEA بديل للدالة TEXTJOIN بتاريخ 18-08-2018 10:05 مساء وموضوعي: مكتبة الموقع - بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بواسطة أ / محمد صالح, يناير 26, 2018 ربنا يصلح حالنا جميعا

شكرا للأمانة العلمية في نقل المعادلة المستخدمة هنا منذ أكثر من أربعة أعوام بدون ذكر صاحبها حينما قال صاحب الاستفسار أن المعادلة الأولى لم تعمل قمت بالرد في موضوعي بدائل دالة textjoin حتى يظهر له الحل بطريقة غير مباشرة بالتوفيق 🙄😏

الملف يعمل عندي بصورة طبيعية لذلك يجب التأكد من اختيار منطقة region عربية مثل Arabic(Egypt ) مثلا من لوحة التحكم control panel ---> الساعة والمنطقة clock and region ----> تغيير تنسيق التاريخ والوقت والأرقام change date, time, or number formats بعدها سيعمل بإذن الله بالتوفيق

تفضل إن شاء اللّه يكون المطلوب وتذكر دائما كلما ذكرت جميع التفاصيل حول المطلوب كلما سهلت المهمة على غيرك بالتوفيق البحث عن سعر البيع لكل عميل.xlsm

الحمد لله الذي هدانا لهذا تم استخدام معادلة تؤدي نفس الغرض للاصدارات السابقة بالتوفيق كورسات مقترحة2.xlsx

بعض ما عندكم أستاذ @Ali Mohamed Ali شكرا لمرورك العطر

تفضل أخي الكريم تم وضع معادلة التصفية بشرطين =IFERROR(INDEX(data!B$2:B$19,SMALL(IF(data!$C$2:$C$19="معلم",ROW($1:$18),IF(data!$C$2:$C$19="اداريين وعمال",ROW($1:$18))),ROW()-1)),"") ينبغي الانتباه إلى أنه في حالة تحقق الشرط نستخدم دالة row من 1 إلى عدد الصفوف المستخدمة في البحث ونستعمل في الأخير row - عدد الصفوف فوق صف البداية بالتوفيق التصفية بالمعادلات بشرطين.xlsx

جميعا بإذن الله

يمكنك تغيير هذا السطر Range("H" & lrow).Value = TextBox4.Value إلى التالي If TextBox3 <> 0 Then Range("H" & lrow).Value = TextBox4.Value وهو لوضع الشرط المطلوب بالتوفيق

يمكنك استعمال هذه المعادلة في الخلية F3 =INDEX($H$3:$H$7,MATCH(E3,$G$3:$G$7,0)) مع نسخ المعادلة لأسفل بالتوفيق

بارك الله لك جميعا بإذن الله تعالى

آمين ولك مثل ما دعوت وزيادة بإذن الله

تفضل أخي الكريم يوجد معادلة في عمود 200 ومعادلة أخرى في باقي الأعمدة تم تنسيق الملف بصورة أكثر احترافية تمكن من الطباعة بالتوفيق توزيع المبالغ حسب الفئات المتاحة.xlsx

تفضل أخي الكريم يوجد معادلات من العمود AG للحساب بمنتهى الدقة وبها الرقم العشري والسالب بحيث لا يتبقي شيء وتم تحويلها إلى كود لأن استعمال المعادلات سينتج عنه خطأ المرجع الدائري circular reference بعد استبعاد الرقم العشري والسالب من الكود باستعمال دالة round تبقى بعض الأرقام غير موزعة أو الباقي سالب أحيانا بالتوفيق توزيع الرصيد اليومى.xlsb

تمت الإجابة عن هذا الاستيضاح ولم تتم عن هذا وذلك طبعا إذا زاد المحقق في منطقة عن النسبة التي ينبغي أن يصل إليها الكل

الشكر لله خالص دعواتي بالتوفيق

يفضل البدء بموضوع جديد بعنوان جديد مادام المطلوب مختلف هذا الموضوع يحتوي على ثلاثة مطلوبات أو أربعة على كل حال ضع قبل نهاية الإجراء مباشرة Me.TextBox2 = i2 بالتوفيق

بما ان الضرب في 24 يجلب التاريخ مع الوقت وليس الوقت فقط نجرب استعمال دالة hour الاضافي: hour(000) حيث 000 هي المعادلة القديمة بالتوفيق

ربما يفيدك هذا الفيديو عن الحساب التكراري بالتوفيق

جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

الأستاذ الفاضل @اسلام سيد لماذا التطويل في الموضوع؟ أليست المعادلة السابقة مني هي المطلوب تماما ¿¿ وفقنا الله جميعا لكل ما يحبه ويرضاه

جميعا بإذن الله

إن شاء الله يكون هذا هو المطلوب تم إخراج الترحيل لشيت حجوزات من شرط عدم فراغ txt3 ' ليدجر - حجوزات ترحيل Application.ScreenUpdating = FALSE Dim answer As Integer answer = MsgBox("ترغب فى ادخال هذه البيانات", vbQuestion + vbYesNo + vbDefaultButton2, "Confirmation") If answer = vbYes Then If Txt3 <> "" Then Dim rng1 As Range Dim str_search As String str_search = Txt3.Value Set rng1 = Sheets("ليدجر").Range("E:E").Find(str_search, , xlValues, xlWhole) Dim row_number As Long row_number = rng1.Row Dim lastcolumn As Long lastcolumn = IIf(Sheets("ليدجر").Range("lu" & row_number) = "", 333, Sheets("ليدجر").Range("lu" & row_number).End(xlToRight).Column + 1) Sheets("ليدجر").Cells(row_number, lastcolumn).Value = C3.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 1).Value = CDate(C4) Sheets("ليدجر").Cells(row_number, lastcolumn + 2).Value = C5.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 3).Value = C6.Value Sheets("ليدجر").Cells(row_number, lastcolumn + 4).Value = C7.Value 'Sheets("ليدجر").Select Cells(row_number, lastcolumn).Select End If Dim lastrow As Long lastrow = ThisWorkbook.Sheets("حجوزات").Range("D100000").End(xlUp).Row lastrow = lastrow + 1 With ThisWorkbook.Sheets("حجوزات") .Range("H" & lastrow).Value = Txt50.Value .Range("I" & lastrow).Value = Txt3.Value .Range("D" & lastrow).Value = TXT1.Value .Range("G" & lastrow).Value = CDate(TXT2) .Range("F" & lastrow).Value = Txt8.Value .Range("K" & lastrow).Value = Txt18.Value .Range("M" & lastrow).Value = Txt28.Value .Range("N" & lastrow).Value = Txt31.Value 'كود مسح البيانات Me.Txt50.Value = "" Me.Txt3.Value = "" Me.TXT1.Value = "" Me.TXT2.Value = "" Me.Txt8.Value = "" Me.Txt18.Value = "" Me.Txt28.Value = "" Me.Txt31.Value = "" End With End If Application.ScreenUpdating = True MsgBox "تم الترحيل بنجاح" بالتوفيق

سلمكم الله من كل سوء

عليكم السلام السطر الذي يقوم بالطباعة هو sh.Range("a1:q30").PrintOutt نقوم بتغييره إلى sh.Range("a1:q30").PrintOutt Copies:=2 بالتوفيق