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

وعليكم السلام حل اخل لاثراء الموضوع = "الشاطبية" & MID(C4, SEARCH("-", C4, 1) + 1, LEN(C4)) + 1 & "-" & MID(C4, SEARCH("-", C4, 1) + 1, LEN(C4)) + 5

معادلة أخرى ولكن تعتمد على الخلية التي فوقها ="الشاطبية " & MID(C4;SEARCH("-";C4;1)+1;LEN(C4))+1 &"-" &MID(C4;SEARCH("-";C4;1)+1;LEN(C4))+5 Format.xlsx

حساب المدرسة.xlsm

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الحبيب سبق أن قدمت في موضوع سابق دالة مشابهة لدالة اليوم ، ولكن دالة اليوم مميزة من ناحية سنقوم بسردها بعد قليل رابط الموضوع المتعلق بشبيهة الدالة فاصل ونواصل (أصلي تعبت ... ) دا شكل الدالة المعرفة Function GetUnique(R As Range) Dim Cl As Range, J As Long With CreateObject("System.Collections.ArrayList") For Each Cl In R.Cells If Cl <> "" Then If Not .contains((Cl.Value)) Then .Add (Cl.Value) Next .Sort For J = 1 To R.Count .Add ("") Next J GetUnique = Application.Transpose(.toarray()) End With End Function ايه رأيكم في شكلها (أنا شايف إنها شكلها لطيف ...مش كدا يا أبو يوسف) تقوم الدالة المعرفة UDF والتي تسمى GetUnique ، باستخراج القيم الغير مكررة في نطاق أي القيم الفريدة في نطاق ، والجديد والمفيد أنه يمكن ترتيب القيم لتحصل في النهاية على قائمة منقحة ومصححة وخالية من التكرار والفراغات .. كل دا بضربة واحدة (ضربة معلم ..صح يا حوسو) إذاً وظيفة الدالة : الحصول على قيم فريدة اي غير مكررة - ترتيب النتائج ترتيب أبجدي - التخلص من الفراغات الموجودة في القائمة الأصلية وبالمثال المرفق سيتضح المقال كيفية عمل الدالة : بفرض أن القيم المراد استخراج القيم الفريدة منها في العمود الأول في النطاق A1:A30 نشوف العمود اللي عايزين نستخرج النتائج فيه وليكن العمود G .. اشمعنا العمود دا بالذات ، عشان العمود ده رقم 7 وأنا من عشاق الرقم 7 ومضاعفاته .. نحدد النطاق من أول الخلية G1 لحد G30 قبل ما نكتب المعادلة حددنا النطاق (برافو عليك يا حوسو) روح بقا لشريط المعادلات (مش ظاهر معاك يبقا أكيد لعبت في إعدادات الإكسيل .. ودي حاجة مش وحشة دي حاجة حلوة ، لأنها دليل إنك عايز تتعلم .. اظهر شريط المعادلات من التبويب View هتلاقي كلمة Formula Bar جنبه مربع علم عليه ..! مش أحسن ما هو اللي يعلم عليك) ضع المعادلة التالية في شريط المعادلات =GetUnique(A1:A30) ومن لوحة المفاتيح اضغط Ctrl + Shift + Enter لأن دي معادلة صفيف .. ومبروك عليك القايمة الجديدة (على أساس إنك متجوز للمرة التانية .. بس القديمة تحلا ولو كانت أحلى ..بلاش نقول وحلة لناخد مخالفة (من خاف سلم)) طيب دلوقتي أنا سامع واحد بيقولي إنت ليه بتجبرني إني أرتب القيم (أنا عايز القيم زي ما هي بدون تكرار وبدون فراغات بس الترتيب ميلزمنيش) .. أرد عليه وأقوله ولا تزعل نفسك يا حبيبي روح لمحرر الأكواد ودور على السطر اللي جاي ده واحذفه أو ضع بجانبة تعليق .. بس خلاص ! مش دي اللي هتزعلنا من بعضنا ) .Sort وأخيراً تقبلوا تحيات أخوكم أبو البراء دمتم على طاعة الله Get Unique UDF Function.rar

اعرض الملف ملف اكسل ضريبة كسب العمل ( الضريبة على الدخل ) طبقًا للقانون المصرى الجديد 30 لسنة 2023 Income Tax July-2023 -Essam Mosaad.xlsx صاحب الملف عصام مسعد تمت الاضافه 14 يول, 2023 الاقسام قسم الإكسيل

تفضل maro1.xlsm

وعليكم السلام تفضل maro1.xlsm

اخونا الشايب يقول من الصعب عليه ان يجاري الاساتذة الكبار في مشاركاتهم مع ذلك يرغب في طرح طريقة مشابهة لطريقة المعلم ابوخليل ولكن بدون تسمية عناصر الاختيار والاكتفاء بقيمة الكائن 106 وباقي الامر هو نفس كود استاذنا الفاضل Dim ctl As Control Dim t, x As String x = Nz([txtfasthrs], "00") For Each ctl In Me.Form.Controls If (ctl.ControlType = 106) Then If ctl.Value = True Then t = t & "1" Else t = t & "0" End If Next Me.moreinfo = Format(t & x, "0000000") With rs .AddNew ![pname] = txtpname ![moreinfo] = Me.moreinfo .Update End With lstData.Requery اما استاذنا ابو احمد ماشاء الله تبارك الله فلديه طريقة تدرس في كتابة الاكواد اخونا شايب 🌹

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

عمالقة البرمجة @ابوخليل @AbuuAhmed اجتمعوا على حل مسئلة بطرقتين مختلفتين كل واحدة اسهل من الثانية مبدعين بكل ما تعنيه الكلمة

In cell D1 type the number 666 then in cell D4 put the formula ="Shatbeyya "&($D$1+5*(ROW()-4))&"-"&($D$1+4+5*(ROW()-4))

Sub Export() 'تعريف المتغيرات Dim WshtNames As Variant Dim WshtNameCrnt As Variant Dim Rang1 As Range Dim wk As Worksheet Dim nsh As String Dim wk_Row, wk1_Row, r As Integer 'تحميل متغير الورقة الرئيسية Set wk = Worksheets("الرئيسية") 'تحميل متغير صفوف البيانات في الورقة الرئيسية wk_Row = 10000 'تحميل متغير نطاق البيانات في الورقة الرئيسية Set Rang1 = wk.Range("C6:C" & wk_Row) 'تحميل متغير اورق المراد الإرسال لها WshtNames = (Array("الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع")) 'مسح البيانات السابقة For Each WshtNameCrnt In WshtNames With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B3:c" & wk1_Row + 1) = "" End With Next 'عمل حلقة تكرار بعدد صفوف البيانات في الورقة الرئيسية For r = 6 To wk_Row 'تحميل متغير التفضيلات بعد حذف منصرف ليتناسب مع الورقة المرسل لها nsh = Trim(Mid(wk.Range("C" & r), 6, Len(wk.Range("C" & r)))) 'حلقة تكرار الاورق المراد الإرسال لها For Each WshtNameCrnt In WshtNames ' مقارنة بند التفضيلات مع ورقة العمل If Worksheets(WshtNameCrnt).Name = nsh Then ' في حال انطبق اشرط ارسال بند التفضيلات إلى ورقة العمل With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B" & wk1_Row + 1) = wk.Range("C" & r) .Range("C" & wk1_Row + 1) = wk.Range("G" & r) End With End If Next Next 'اضافة المجموع For Each WshtNameCrnt In WshtNames With Worksheets(WshtNameCrnt) wk1_Row = .Range("B10000").End(xlUp).Row .Range("B" & wk1_Row + 1) = "المجموع" .Range("c" & wk1_Row + 1) = "=SUM(C3:C" & wk1_Row & ")" End With Next End Sub

يبدو وصلتك العدوى يا @TQTHAMI هل هو المطلوب؟ أم كان فهمي خاطئا؟

وعليكم السلام شرحك غير واضح بشكل كاف، الحل حسب فهمي. عدلت في مصدر صندوق رقم الفقاسة. Database20_02.accdb

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