أ / محمد صالح

شكرا لكلماتك الطيبة يفضل عمل هذه الخطوات بعد تثبيت نسخة ويندوز جديدة

أشك في ضبط إعدادات اللغة العربية في الويندوز حاول تنفيذ هذه الخطوات Control panel --> clock and region --> change date, time, number formats --> administrative - current languge for non-Unicode programs تأكد أنها اللغة العربية وإذا قمت بتغييرها سيتم عمل إعادة تشغيل للجهاز بالتوفيق

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

لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق

الانتقال لاول خلية فارغة في العمود C موجود في الملف عند تنشيط ورقة العمل data أو عند الضغط على السهم الأزرق بالأعلى

تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا =MAX(A3:A1000) وإذا كنبنا في J2 هذه المعادلة =E2 فسيظهر نفس الرقم 18 هذا شرح بالتفصيل لما قمت أنا بعمله حاليا ما المطلوب بالتفصيل ؟

رغم أنه أي تحديث في الخلية 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 بالتوفيق

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