أ / محمد صالح

جرب استعمال هذا الكود كمحاولة لضبط المدخلات في الخلايا عن طريق الاستبدال ثم بعدها يتم تقسيم النص إلى أعمدة عن طريق الشرطة يدويا ويمكنك إضافة أي عدد من العناصر التي يمكن استبدالها في المصفوفتين Sub mrmas() OldArr = Array("مهندس", "معاون", "درجة", "سادسة", "خامسة", "رابعة", "ثالثة", "ثانية", "اولى", "كبير", "استثنائى", "كبير-ثان", "كبير -ثان", " ", "--") newarr = Array("-مهندس", "-معاون", "-درجة", "سادسة-", "خامسة-", "رابعة-", "ثالثة-", "ثانية-", "اولى-", "كبير-", "-استثنائى-", "كبير ثان", "كبير ثان", " ", "-") For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To UBound(OldArr) Range("a" & r).Value = Trim(Replace(Range("a" & r).Value, OldArr(i), newarr(i))) Next i Next r MsgBox "Done by mr-mas.com" End Sub وهذا الملف وبه الكود لأنه في بعض الحالات لا يعرف صاحب الاستفسار طريقة إضافة الكود ..بالتوفيق تقسيم النص إلى معلومات.xlsb

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

بدلا من استعمال اسم الطالب كاسم للشيت يمكنك استعمال رقم الطالب ID بالتوفيق

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

الشكر لله الذي وفقنا جميعا

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

جرب هذه المعادلة =MID(A2, 2,11) بالتوفيق

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

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

أعتقد ينبغي الاحتفاظ بقيمتها في خلية معينة وليكن aa1 في حدث قبل إغلاق النموذج وفي بداية تحميل النموذج يتم وضع قيمة الخلية في التسمية label3 بالتوفيق

عليكم السلام جرب تعدبل كود تغيير مربغ النص الى Private Sub TextBox1_Change() If TextBox1.Text <> "" Then ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlOr Else ActiveSheet.ListObjects("data2").Range.AutoFilter Field:=4 End If End Sub بالتوفيق

يمكنك استعمال هذه المعادلة في المكان الذي تريد ظهور قائمة التليفونات بها =IFERROR(INDEX($B:$B,SMALL(IF(($E:$E="السبت")*($D:$D=""),ROW($E:$E)),ROW()-2)),"") مع سحب المعادلة لأسفل للحصول على باقي الأرقام بالتوفيق

عليكم السلام ورحمة الله وبركاته الأمر hide يستعمل في إخفاء النموذج فقط وليس إغلاقه كاملا وهذا يعني إمكاية استعمال جميع المتغيرات والكائنات المستعملة في النموذج الأمر unload يستعمل في إعلاف النموذج كاملا فلا يمكن استعمال أي من متغيراته أو كائناته ويمكن استعمال الأمرين من داخل النموذج me.hide unload me أو من خارجه userform1.hide unload userform1 أما end فلا علاقة لها بالنموذج وإغلاقه فهي تستعمل للتعبير عن نهاية بعض الأوامر مثل End [Function | Sub | With | Select | Type | Enum | If ] أما exit فتستعمل للخروج من بعض الأوامر مثل Exit [ Do | For | Function | Select | Sub ] بالتوفيق

عليكم البسلام ورحمة الله وبركاته يمكنك وضع استدعاء الإجراء الآخر حسب ترتيب التنفيذ المطلوب قبل أو بعد هذا السطر Call macro1 بالتوفيق

شكرا جميعا لمروركم الكريم نقغنا الله جميعا به

ويمكن استعمال هذه المعادلة بدون الاعتماد على الكود قي الخلية A2 =IFERROR(INDEX(المجمع!$A$2:$E$1000,SMALL(IF(المجمع!$A$2:$A$1000=$X$1,ROW($1:$999),""),ROW()-1),COLUMN()),"") مع سحب المعادلة يسارا ثم لأسفل بالتوفيق

لا أعتقد أن هذا يتم بمعادلة يمكنك استعمال هذا الكود في حدث تغيير الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 1 And Target.Column < 6 Then Range("f" & Target.Row) = Date End Sub كلك يمين على اسم الشيت ثم view code ثم لصق هذا الكود في الناحية اليمنى مع حفظ الملف بامتداد يدعم الأكواد مثل xls أو xlsb أو xlsm بالتوفيق

جعلنا الله جميعا من المبتسمين المتفائلين

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

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله الذي وفقنا لهذا

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

حسب فهمي للمطلوب يمكن تغيير إجراء تحميل القائمة إلى Sub loadlistbox() Set ws = ThisWorkbook.Sheets("SoldFeedbags") Set rData = ws.Range("A1").CurrentRegion irow = Application.WorksheetFunction.CountA(ws.Range("A:A")) If irow = 1 Then irow = 2 Me.TextBox8.Value = Evaluate("sum(SoldFeedbags!e2:e" & irow & ")") Me.TextBox9.Value = Evaluate("sum(SoldFeedbags!f2:f" & irow & ")") Me.TextBox10.Value = Evaluate("sum(SoldFeedbags!g2:g" & irow & ")") With Me.ListBox1 .RowSource = "SoldFeedbags!A2:I2" .RowSource = "SoldFeedbags!A2:I" & irow .ColumnCount = rData.Columns.Count .ColumnHeads = True .ColumnWidths = "60,70,70,70,70,60,70,60,70" End With End Sub بالتوفيق

بعد إذن جميع المشاركين أخي الكريم لا يلزمنا ضرب قيمة الخلية في 100 إذا حولنا النسبة المئوية لرقم عشري مثلا 80% تساوي 0.8 وكذلك 8% تساوي 0.08 يمكنك استعمال هذا السطر If Target.Value >= 0 And Target.Value <= 0.082 Then بالتوفيق

يمكنك استعمال خاصية البحث المضمنة داخل الاكسل بالضغط على CTRL+F