اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
  • Posts

    4467
  • تاريخ الانضمام

  • Days Won

    195

كل منشورات العضو أ / محمد صالح

  1. حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية إن شاء الله يكون هذا هو مطلوبك بالتوفيق تصفية أفقية بالمعادلات.xlsx
  2. لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق
  3. الانتقال لاول خلية فارغة في العمود C موجود في الملف عند تنشيط ورقة العمل data أو عند الضغط على السهم الأزرق بالأعلى
  4. تفضل هذا مطلوبك الثاني 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 بالتوفيق
  5. حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء
  6. الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا =MAX(A3:A1000) وإذا كنبنا في J2 هذه المعادلة =E2 فسيظهر نفس الرقم 18 هذا شرح بالتفصيل لما قمت أنا بعمله حاليا ما المطلوب بالتفصيل ؟
  7. رغم أنه أي تحديث في الخلية E2 سيتم تغييره في الخلية J2 ما زال المطلوب غير واضح لي
  8. تفضل أخي الكريم يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة 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 بالتوفيق
  9. المطلوب غير واضح لي ولكن ربما تقصد أن تكتب في الخلية J2 =E2 ليظهر نفس الرقم الموجود في E2
  10. فعلا كلامك صحيح نتيجة لجعل الرقم يساوي 30000 في الشرط تفضل هذا تعديل للمعادلة حتى تعمل من الشريحة الأولى للثامنة فقط يلزمك نسخ المعادلة أفقيا ثم رأسيا لجميع الموظفين بالتوفيق ضريبة الرواتب2.xlsx
  11. حسب فهمي للمطلوب تم إضافة معادلات حتى الشريحة الثامنة ولكن الذي جذب انتباهي عدم خصم ضريبة الموظف من الراتب مع الموظف الثاني في الخلية F7 إن شاء الله يكون هو المطلوب ضريبة الرواتب1.xlsx
  12. يفضل أن تبدأ في تصميم ملفك وتسمي فيه الشيتات كما ترغب وتنسق صفحة سجل القيد كما تشاء وترفق ملفك للتعديل عليه ثم تعرض هنا ما المطلوب بمنتهى التفصيل حتى يمكن للجميع مساعدتك
  13. بعد إذن أخي الكريم سليم لعرض الشيتات الملونة باللون الأحمر فقط يمكنك تغيير الشرط الخاص بلون الشيت من If col Then إلى If col = RGB(255, 0, 0) Then وبالنسبة لعمل قائمة منسدلة للشيتات باللون الأزرق يمكنك استعمال نفس الكود مع تغيير اسم الكومبوبوكس وكود اللون If col = RGB(0, 0, 255) Then بالتوفيق
  14. المعادلة تعمل 100% وتناسب المرفق في مشاركتك الأولى رجاء مراجعة الخلايا F3 & F5 ستجد أنها تجلب bin1 & bin2 حسب قيمة الخلية F2 بالتوفيق Classeur2022.xlsx
  15. يمكنك وضع هذه المعادلة في الخلية F3 =INDEX(H:H,MATCH($F$2,D:D,0)) وهذه في الخلية F5 =INDEX(I:I,MATCH($F$2,D:D,0)) وهي تعني البحث في العمود H في الصف الذي يطابق فيه العمود D مع قيمة الخلية F2 بالتوفيق
  16. بعد إذن أخي الكريم عبد الفتاح ربما يكون هذا هو المطلوب Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) MsgBox Format(LR, """S21-""00#") End Sub
  17. حسب فهمي للمطلوب تم إضافة عمود فارغ بعد العميل رقم 14 حتى تنتظم معادلات أرقام الأعمدة تم إضافة كود لجلب جميع أسماء العملاء وأرقامهم في العمود A & B تم وضع معادلة للبحث في قائمة العملاء هذه حتى لا نحتاج سوى رقم العميل ويظهر اسمه مباشرة تم وضع كود في حدث تغيير الخلية A2 وكتابة رقم العميل يتم تحديث قائمة العملاء ثم الانتقال إلى الخلية الخاصة باسم العميل بالتوفيق حسابات العملاء الجديد.xlsb
  18. للأسف ما يظهر في الوورد هو الأصح لأن تنسيق الأرقام في الإكسل 00 لم يظهر الكسر لذلك يمكنك تعديل معادلة الشهر إلى =INT(I2*7.5/30+MOD(H2*3,12)) بأن تشمل دالة int العملية الحسابية كلها وكذلك تعديل معادلة اليوم إلى =INT(J2*0.25+MOD(I2*7.5,30)) بالتوفيق
  19. تفضل هذا هو المطلوب بإذن الله معادلة بسيطة جدا يمكنك التوصل إليها ضع في L2 المعادلة التالية ثم اسحب المعادلة لأسفل =J2+K2-SUMIF(A:A,I2,B:B) وتعني جمع الخلية k2 مع J2 مع طرح مجموع المستهلك في نفس التاريخ الموجود في I2 بدالة sumif بالتوفيق
  20. المعادلات المستعملة هي mod & int وهناتجها رقم صحيح بدون علامات عشرية ربما لو أرفقت الملفين الوورد والاكسل المستعملين في دمج المراسلات لعرفنا موضع المشكلة
  21. لا أدري ما سبب تكرار المواضيع حسب فهمي للمطلوب تم تعديل الكود ليقوم بنفس الترحيل حتى لو أكثر من صف يمكن وضع هذا الكود في مودبول جديد 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 بالتوفيق
  22. كلامك صحيح أنا أستعمل التعبير في الاستعلام والتقرير بدلا من الحقل المحسوب في الجدول ولكن هذا ما يبحث عنه الأخ صاحب السؤال بالتوفيق
  23. يفضل إرفاق ملفك وتوضيح المطلوب أكثر من ذلك حسب فهمي للمطلوب في الملف والمختلف تماما عن المذكور في المشاركة إليك هذا المرفق بالتوفيق متابعة الأرصدة والاستهلاك.xls
  24. أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي
×
×
  • اضف...

Important Information