-
Posts
4,357 -
تاريخ الانضمام
-
Days Won
185
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
ربما يفيدك هذا الموقع https://www.arabic-names.com/arabictoenglish
-
أنا شخصيا في مثل هذه الحالة أفتح الصورة في مستعرض الويندوز الافتراضي بالأمر 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 بالتوفيق
- 1 reply
-
- 1
-
اريد كود لفتح شيت بناء على قيمة خلية
أ / محمد صالح replied to أبو أنس80's topic in منتدى الاكسيل Excel
جميعا بإذن الله تعالى -
اريد كود لفتح شيت بناء على قيمة خلية
أ / محمد صالح replied to أبو أنس80's topic in منتدى الاكسيل Excel
كتابة اسم الشيت بها احتمالات للخطأ الأفضل اختيار الاسم من قائمة بأسماء الشيتات ساعتها يمكنك استخدام أمر فتح الشيت Sheets(Range("a1").Text).Activate بالتوفيق -
في موديول جديد ويمكن استخدامها في التقرير أو الاستعلام أو في النموذج بالطريقة المذكورة في المشاركة السابقة بالتوفيق للجميع
-
حذف علامة العملة من خلية أو عمود محدد؟
أ / محمد صالح replied to عبدالعزيز محمد's topic in منتدى الاكسيل Excel
يمكن بطرق كثيرة اسهلها البحث والاستبدال CTRL+H ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا ثم استبدال الكل replace all بالتوفيق -
يمكنك البدء في التصميم بعدها تعرض المشكلات التي تواجهها في البرنامج ساعتها تجد الكثير من الزملاء يساعد
- 1 reply
-
- 1
-
مادمت حضرتك صاحب الملف ونسيت كلمة المرور يمكنك استخدام برامج لهذا الغرض مثل AOPR Advanced office password recovery بالتوفيق
-
لعرض آخر 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 بالتوفيق
-
هل يمكن استخراج اليوم والشهر والعام من التاريخ الهجري؟
أ / محمد صالح replied to starsrays's topic in منتدى الاكسيل Excel
يمكنك استخدام هذه المعادلة لاشتخراج اليوم =VALUE(TEXT($A$2,"[$-,117]B2dd;@")) وهذه لاستخراج الشهر =VALUE(TEXT($A$2,"[$-,117]B2mm;@")) وهذه لاستخراج العام =VALUE(TEXT($A$2,"[$-,117]B2yyyy;@")) وهذا ملفك بعد وضع المعادلات بالتوفيق استخراج اليوم والشهر والسنة من التاريخ الهجري.xlsx -
وبدون عمود مساعد يمكنك استعمال هذه المعادلة في الخلية L25 =IF(L24-L25<0,100,0)+L24-L25 وهذه في M25 =IF(L24-L25<0,-1,0)+M24-M25 بالتوفيق
-
جميعا بإذن الله
-
مطلوب كود إخفاء أسطر بشرط موجود فى خلية
أ / محمد صالح replied to يوسف عطا's topic in منتدى الاكسيل Excel
ينطبق على الأول والثاني اخي الكريم هي مجرد استعمال لقاعدة IF في سطر واحد لذلك تكتب IIF خاصية الإخفاء للصفوف كذا هي نتيجة الشرط true أو false والشرط هو V1 = 28 وفقنا الله جميعا لكل ما يحبه ويرضاه -
مطلوب كود إخفاء أسطر بشرط موجود فى خلية
أ / محمد صالح replied to يوسف عطا's topic in منتدى الاكسيل Excel
الحمد لله الذي وفقنا لهذا الكود ترجمة لمطلوبك تماما اذا كانت قيمة الخلية V1 = 28 يظهر الصفوف كذا ويخفي كذا واذا لم تكن 28 يعمل العكس وفقنا الله جميعا لكل ما يحبه ويرضاه -
تقريبا قام أحد المستخدمين بحذف أعمدة حركت خلية العدد الكلي للأسماء من Z2 إلى U2 يمكنك تغيير هذا السطر في الكود Loop While ActiveCell.Value <= Range("Z2").Value إلى Loop While ActiveCell.Value <= Range("U2").Value بالتوفيق
-
هل هذا الملف لك؟ أقصد أنت مالكه ومصممه؟
-
جميعا يا رب العالمين
-
أخي الكريم طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل يمكنك استخدام هذه المعادلة =MAX(A2:C2) بالتوفيق
-
تجميع الرقم الصحيح مع الكسر في خليتين
أ / محمد صالح replied to mohsen mohamed's topic in منتدى الاكسيل Excel
تم حل هذا الموضوع قبل ذلك إن شاء الله يفيدك هذا الموضوع مع فارق الألف درهم يساوي واحد دينار والمائة قرش تساوي واحد جنيه بالتوفيق -
جمع عمود بشرط في جميع الشيتات
أ / محمد صالح replied to Khorsheed Omar's topic in منتدى الاكسيل Excel
وفقنا الله جميعا لكل خير -
جمع عمود بشرط في جميع الشيتات
أ / محمد صالح replied to Khorsheed Omar's topic in منتدى الاكسيل Excel
يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة =SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2)) حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2 ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K بالتوفيق -
مطلوب كود إخفاء أسطر بشرط موجود فى خلية
أ / محمد صالح replied to يوسف عطا's topic in منتدى الاكسيل Excel
إذا كان المطلوب أن يعمل الكود في حدث التغيير في جميع الشيتات فيجب وضع الكود في هذا المصنف 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 بالتوفيق -
تقسيم الرقم على عدد الشهور والايام
أ / محمد صالح replied to Akram Galal's topic in منتدى الاكسيل Excel
عليكم السلام رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه على العموم بمكنك استعمال هذا الكود Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30 تضعه في أي اجراء أو حدث بالتوفيق- 1 reply
-
- 2
-
يمكنك الاستفادة من هذه المواضيع https://www.officena.net/ib/search/?q=سجل غياب&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and في تنفيذ برنامجك وإذا وقفت في نقطة أو اثنتين يمكنك طرحها في موضوع جديد مع توضيح المطلوب بمنتهى التفصيل بالتوفيق
- 1 reply
-
- 1
-
هل يوجد ملف اكسل انشاء QR code
أ / محمد صالح replied to karrar.khalid's topic in منتدى الاكسيل Excel
أخي الكريم ما الذي يمنعك من استعمال المعادلة أو الكود في ملفك لا حاجة لطلب ملف اكسل إذا كنت تريد أن تتعلم