اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4,359
  • تاريخ الانضمام

  • Days Won

    185

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

  1. فعلا مثل هذا المطلوب يحتاج إلى تدخل جراحي (كود vba)
  2. عليكم السلام ورحمة الله وبركاته يمكنك استعمال هذه المعادلة المختصرة على اعتبار أن الرقم موجود في الخلية A2 =MID(A2,5,LEN(A2)-10) بالتوفيق
  3. ربما يفيدك هذا الموقع https://www.arabic-names.com/arabictoenglish
  4. أنا شخصيا في مثل هذه الحالة أفتح الصورة في مستعرض الويندوز الافتراضي بالأمر shell وبالنسبة لطلبك في الضغط على الزر يمكنك استعمال مثل هذا الكود Private Sub CommandButton1_Click() Call Add_Image End Sub وفي موديول جديد نستعمل هذا الكود Sub Add_Image() Set Img = UserForm2.Controls.Add("Forms.Image.1") With Img .Picture = LoadPicture("مسار الصورة") .PictureSizeMode = fmPictureSizeModeStretch .Left = 10 .Top = 10 End With End Sub بالتوفيق
  5. كتابة اسم الشيت بها احتمالات للخطأ الأفضل اختيار الاسم من قائمة بأسماء الشيتات ساعتها يمكنك استخدام أمر فتح الشيت Sheets(Range("a1").Text).Activate بالتوفيق
  6. في موديول جديد ويمكن استخدامها في التقرير أو الاستعلام أو في النموذج بالطريقة المذكورة في المشاركة السابقة بالتوفيق للجميع
  7. يمكن بطرق كثيرة اسهلها البحث والاستبدال CTRL+H ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا ثم استبدال الكل replace all بالتوفيق
  8. يمكنك البدء في التصميم بعدها تعرض المشكلات التي تواجهها في البرنامج ساعتها تجد الكثير من الزملاء يساعد
  9. مادمت حضرتك صاحب الملف ونسيت كلمة المرور يمكنك استخدام برامج لهذا الغرض مثل AOPR Advanced office password recovery بالتوفيق
  10. لعرض آخر 20 ضف يمكنك تغيير هذا السطر في الاجراء showdata For frw = 4 To last إلى For frw = last - 19 To last ولخذف الصف المطلوب Private Sub CommandButton1_Click() If MsgBox("Are you sure you want to delete this item?", vbYesNo, "Confirm Delete") = vbYes Then Rows(ListView1.SelectedItem.ListSubItems(1).Text + 3).EntireRow.Delete showdata End If MsgBox "Done by mr-mas.com" End Sub بالتوفيق
  11. يمكنك استخدام هذه المعادلة لاشتخراج اليوم =VALUE(TEXT($A$2,"[$-,117]B2dd;@")) وهذه لاستخراج الشهر =VALUE(TEXT($A$2,"[$-,117]B2mm;@")) وهذه لاستخراج العام =VALUE(TEXT($A$2,"[$-,117]B2yyyy;@")) وهذا ملفك بعد وضع المعادلات بالتوفيق استخراج اليوم والشهر والسنة من التاريخ الهجري.xlsx
  12. وبدون عمود مساعد يمكنك استعمال هذه المعادلة في الخلية L25 =IF(L24-L25<0,100,0)+L24-L25 وهذه في M25 =IF(L24-L25<0,-1,0)+M24-M25 بالتوفيق
  13. ينطبق على الأول والثاني اخي الكريم هي مجرد استعمال لقاعدة IF في سطر واحد لذلك تكتب IIF خاصية الإخفاء للصفوف كذا هي نتيجة الشرط true أو false والشرط هو V1 = 28 وفقنا الله جميعا لكل ما يحبه ويرضاه
  14. الحمد لله الذي وفقنا لهذا الكود ترجمة لمطلوبك تماما اذا كانت قيمة الخلية V1 = 28 يظهر الصفوف كذا ويخفي كذا واذا لم تكن 28 يعمل العكس وفقنا الله جميعا لكل ما يحبه ويرضاه
  15. تقريبا قام أحد المستخدمين بحذف أعمدة حركت خلية العدد الكلي للأسماء من Z2 إلى U2 يمكنك تغيير هذا السطر في الكود Loop While ActiveCell.Value <= Range("Z2").Value إلى Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق
  16. هل هذا الملف لك؟ أقصد أنت مالكه ومصممه؟
  17. أخي الكريم طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل يمكنك استخدام هذه المعادلة =MAX(A2:C2) بالتوفيق
  18. تم حل هذا الموضوع قبل ذلك إن شاء الله يفيدك هذا الموضوع مع فارق الألف درهم يساوي واحد دينار والمائة قرش تساوي واحد جنيه بالتوفيق
  19. يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة =SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2)) حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2 ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K بالتوفيق
  20. إذا كان المطلوب أن يعمل الكود في حدث التغيير في جميع الشيتات فيجب وضع الكود في هذا المصنف thisworkbook وإذا كان المقصود بالأسطر الصفوف فيمكنك استعمال هذا الكود Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If [v1] = 28 Then Sh.Rows("1363:1387").Hidden = True Sh.Rows("1361:1362").Hidden = False Else Sh.Rows("1363:1387").Hidden = False Sh.Rows("1361:1362").Hidden = True End If End Sub ويمكن اختصاره إلى هذا Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Sh.Rows("1363:1387").Hidden = IIf([v1] = 28, True, False) Sh.Rows("1361:1362").Hidden = IIf([v1] = 28, False, True) End Sub بالتوفيق
  21. عليكم السلام رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه على العموم بمكنك استعمال هذا الكود Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30 تضعه في أي اجراء أو حدث بالتوفيق
×
×
  • اضف...

Important Information