أ / محمد صالح

رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2 ما زال المطلوب غير واضح لي

تفضل أخي الكريم يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها في هذا الكود تم استثناء sheet1 & sheet2 Dim ws As Worksheet, arr As Variant arr = Array("Sheet1", "Sheet2") For Each ws In Worksheets If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name Next ws بالتوفيق

المطلوب غير واضح لي ولكن ربما تقصد أن تكتب في الخلية J2 =E2 ليظهر نفس الرقم الموجود في E2

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

ما المشكلة؟

حسب فهمي للمطلوب تم إضافة معادلات حتى الشريحة الثامنة ولكن الذي جذب انتباهي عدم خصم ضريبة الموظف من الراتب مع الموظف الثاني في الخلية F7 إن شاء الله يكون هو المطلوب ضريبة الرواتب1.xlsx

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

بعد إذن أخي الكريم سليم لعرض الشيتات الملونة باللون الأحمر فقط يمكنك تغيير الشرط الخاص بلون الشيت من If col Then إلى If col = RGB(255, 0, 0) Then وبالنسبة لعمل قائمة منسدلة للشيتات باللون الأزرق يمكنك استعمال نفس الكود مع تغيير اسم الكومبوبوكس وكود اللون If col = RGB(0, 0, 255) Then بالتوفيق

المعادلة تعمل 100% وتناسب المرفق في مشاركتك الأولى رجاء مراجعة الخلايا F3 & F5 ستجد أنها تجلب bin1 & bin2 حسب قيمة الخلية F2 بالتوفيق Classeur2022.xlsx

يمكنك وضع هذه المعادلة في الخلية F3 =INDEX(H:H,MATCH($F$2,D:D,0)) وهذه في الخلية F5 =INDEX(I:I,MATCH($F$2,D:D,0)) وهي تعني البحث في العمود H في الصف الذي يطابق فيه العمود D مع قيمة الخلية F2 بالتوفيق

بعد إذن أخي الكريم عبد الفتاح ربما يكون هذا هو المطلوب Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) MsgBox Format(LR, """S21-""00#") End Sub

حسب فهمي للمطلوب تم إضافة عمود فارغ بعد العميل رقم 14 حتى تنتظم معادلات أرقام الأعمدة تم إضافة كود لجلب جميع أسماء العملاء وأرقامهم في العمود A & B تم وضع معادلة للبحث في قائمة العملاء هذه حتى لا نحتاج سوى رقم العميل ويظهر اسمه مباشرة تم وضع كود في حدث تغيير الخلية A2 وكتابة رقم العميل يتم تحديث قائمة العملاء ثم الانتقال إلى الخلية الخاصة باسم العميل بالتوفيق حسابات العملاء الجديد.xlsb

للأسف ما يظهر في الوورد هو الأصح لأن تنسيق الأرقام في الإكسل 00 لم يظهر الكسر لذلك يمكنك تعديل معادلة الشهر إلى =INT(I2*7.5/30+MOD(H2*3,12)) بأن تشمل دالة int العملية الحسابية كلها وكذلك تعديل معادلة اليوم إلى =INT(J2*0.25+MOD(I2*7.5,30)) بالتوفيق

تفضل هذا هو المطلوب بإذن الله معادلة بسيطة جدا يمكنك التوصل إليها ضع في L2 المعادلة التالية ثم اسحب المعادلة لأسفل =J2+K2-SUMIF(A:A,I2,B:B) وتعني جمع الخلية k2 مع J2 مع طرح مجموع المستهلك في نفس التاريخ الموجود في I2 بدالة sumif بالتوفيق

المعادلات المستعملة هي mod & int وهناتجها رقم صحيح بدون علامات عشرية ربما لو أرفقت الملفين الوورد والاكسل المستعملين في دمج المراسلات لعرفنا موضع المشكلة

لا أدري ما سبب تكرار المواضيع حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف يمكن وضع هذا الكود في مودبول جديد Sub tarheel() lr = Range("a4").End(xlDown).Row Set Sh = Sheets.Add With ActiveSheet .Move after:=Sheets(Sheets.Count) .Name = Sheets.Count - 1 .Range("A1:P12").Borders.Weight = xlMedium .Range("A1:P12").HorizontalAlignment = xlCenter With .Cells(1).Resize(1, 16) .Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "ÚÏÏ ÇáØÈÇáí", "æÒä ÇáØÈíáÉ ", "ÚÏÏ 0.9", "", "ÚÏÏ 1.34") .Interior.ColorIndex = 53 .Font.Bold = True .Font.Color = vbWhite End With Dim sh1 As Worksheet Set sh1 = Sheets("main") For n = 5 To lr lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A" & lr2) = sh1.Range("E" & n).Value .Range("C" & lr2) = sh1.Range("f" & n).Value .Range("D" & lr2) = sh1.Range("E" & n).Value .Range("F" & lr2 & ":K" & lr2).Value = Array("DAT010", "1141000022", "JP-PROD.", "JP-WIPDP", "JP-WIPWC", "Flock_4") .Range("N" & lr2) = sh1.Range("c" & n).Value .Range("P" & lr2) = sh1.Range("a" & n).Value + sh1.Range("b" & n).Value .Columns("A:P").EntireColumn.AutoFit Next n End With End Sub مع حذف الكود في حدث عند تغيير قيم الشيت main مع ربط الزر بالماكرو الجديد tarheel بالتوفيق

كلامك صحيح أنا أستعمل التعبير في الاستعلام والتقرير بدلا من الحقل المحسوب في الجدول ولكن هذا ما يبحث عنه الأخ صاحب السؤال بالتوفيق

يفضل إرفاق ملفك وتوضيح المطلوب أكثر من ذلك حسب فهمي للمطلوب في الملف والمختلف تماما عن المذكور في المشاركة إليك هذا المرفق بالتوفيق متابعة الأرصدة والاستهلاك.xls

أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي

يمكنك استعمال هذه المعادلة في الخلية C2 =MROUND(A2,0.5) وهي تعمل على أةفيس 2007 فما فوق بالتوفيق

المطلوب الثاني غير متعلق بالموضوع ويمكنك التوصل اليه بالبحث https://www.officena.net/ib/search/?q=إغلاق الاكسل بعد فترة&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

شكرا لكلماتك الطيبة أنا شخصيا لم اغير إلا فيما يحقق الشرط الخاص بك على اعتبار ان الكود يعمل معك قبل ذلك لذلك إذا كنت تقصد تحويل النص المكتوب في مربع النص إلى تاريخ يمكنك تعديل Me.TextBox16.Value في الشرط إلى cdate(Me.TextBox16.Value) تم تعديل الكود كاملا في المشاركة الأصلية بالتوفيق

هل تقصد إغلاق الاكسل كله إذا لم يكن هناك مصنفات مفتوحة غير هذا المصنف؟

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

يمكنك استعمال هذا الكود في حدث قبل إغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Introduction").Range("G10") = "" Sheets("Introduction").Range("G12") = "" ThisWorkbook.Save End Sub وينبغي حفظ الملف بامتداد يسمح بالأكواد مثل xlsb بالتوفيق