-
Posts
4,357 -
تاريخ الانضمام
-
Days Won
185
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه أ / محمد صالح
-
-
أنا شخصيا في مثل هذه الحالة أفتح الصورة في مستعرض الويندوز الافتراضي بالأمر 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
-
جميعا بإذن الله تعالى
-
كتابة اسم الشيت بها احتمالات للخطأ
الأفضل اختيار الاسم من قائمة بأسماء الشيتات
ساعتها يمكنك استخدام أمر فتح الشيت
Sheets(Range("a1").Text).Activate
بالتوفيق
- 2
-
في موديول جديد
ويمكن استخدامها في التقرير أو الاستعلام أو في النموذج
بالطريقة المذكورة في المشاركة السابقة
بالتوفيق للجميع
-
يمكن بطرق كثيرة
اسهلها البحث والاستبدال CTRL+H
ثم تكتب في مربع البحث العملة ومربع الاستبدال يترك فارغا
ثم استبدال الكل replace all
بالتوفيق
- 2
-
يمكنك البدء في التصميم
بعدها تعرض المشكلات التي تواجهها في البرنامج
ساعتها تجد الكثير من الزملاء يساعد
- 1
-
مادمت حضرتك صاحب الملف ونسيت كلمة المرور
يمكنك استخدام برامج لهذا الغرض مثل
AOPR
Advanced office password recovery
بالتوفيق
- 1
-
لعرض آخر 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
بالتوفيق
- 3
-
يمكنك استخدام هذه المعادلة لاشتخراج اليوم
=VALUE(TEXT($A$2,"[$-,117]B2dd;@"))
وهذه لاستخراج الشهر
=VALUE(TEXT($A$2,"[$-,117]B2mm;@"))
وهذه لاستخراج العام
=VALUE(TEXT($A$2,"[$-,117]B2yyyy;@"))
وهذا ملفك بعد وضع المعادلات
قمت بتسجيل ماكرو لتغيير التاريخ إلى تقويم أم القرى
حصلت منه على التنسيق ووضعهته في معادلة
ربما لو قمت بمثل هذا تحصل على ما تريد
بالتوفيق
-
وبدون عمود مساعد
يمكنك استعمال هذه المعادلة في الخلية L25
=IF(L24-L25<0,100,0)+L24-L25
وهذه في M25
=IF(L24-L25<0,-1,0)+M24-M25
بالتوفيق
- 1
- 2
-
جميعا بإذن الله
- 1
-
ينطبق على الأول والثاني اخي الكريم
هي مجرد استعمال لقاعدة IF في سطر واحد لذلك تكتب IIF
خاصية الإخفاء للصفوف كذا هي نتيجة الشرط true أو false
والشرط هو V1 = 28
وفقنا الله جميعا لكل ما يحبه ويرضاه
-
الحمد لله الذي وفقنا لهذا
الكود ترجمة لمطلوبك تماما
اذا كانت قيمة الخلية V1 = 28 يظهر الصفوف كذا ويخفي كذا
واذا لم تكن 28 يعمل العكس
وفقنا الله جميعا لكل ما يحبه ويرضاه
- 1
-
تقريبا قام أحد المستخدمين بحذف أعمدة
حركت خلية العدد الكلي للأسماء من Z2 إلى U2
يمكنك تغيير هذا السطر في الكود
Loop While ActiveCell.Value <= Range("Z2").Value
إلى
Loop While ActiveCell.Value <= Range("U2").Value
بالتوفيق
- 1
-
هل هذا الملف لك؟
أقصد أنت مالكه ومصممه؟
-
جميعا يا رب العالمين
- 1
-
أخي الكريم
طلبك هذا يدل على احتياجك لتعلم أساسيات الاكسل
يمكنك استخدام هذه المعادلة
=MAX(A2:C2)
بالتوفيق
- 3
-
تم حل هذا الموضوع قبل ذلك
إن شاء الله يفيدك هذا الموضوع
مع فارق الألف درهم يساوي واحد دينار
والمائة قرش تساوي واحد جنيه
بالتوفيق
- 2
-
وفقنا الله جميعا لكل خير
- 1
-
يمكنك وضع قائمة الشيتات في عمود وليكن P مثلا
ثم استعمال هذه المعادلة للحصول على مجموع التأمينات في العمود K من جميع الشيتات المكتوبة في القائمة
=SUMPRODUCT(SUMIFS(INDIRECT("'"&$P$1:$P$5&"'!"&"k5:k1000"),INDIRECT("'"&$P$1:$P$5&"'!"&"b5:b1000"),$D$2))
حيث أن اسماء الشيتات في النطاق P1:P5 واسم الموظف في D2
ويمكنك تطويع المعادلة للحصول على مجموع أي عمود مثل عمود التأمينات K
بالتوفيق
- 1
- 1
-
إذا كان المطلوب أن يعمل الكود في حدث التغيير في جميع الشيتات
فيجب وضع الكود في هذا المصنف 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
بالتوفيق
- 2
- 2
-
عليكم السلام
رغم كلامنا السابق في ضرورة إرفاق ملفك وتوضيح المطلوب فيه
على العموم
بمكنك استعمال هذا الكود
Me.TextBox2.Value = Int(Me.TextBox1.Value / 30) Me.TextBox3.Value = Me.TextBox1.Value Mod 30
تضعه في أي اجراء أو حدث
بالتوفيق
- 1
- 1
-
يمكنك الاستفادة من هذه المواضيع
في تنفيذ برنامجك
وإذا وقفت في نقطة أو اثنتين يمكنك طرحها في موضوع جديد
مع توضيح المطلوب بمنتهى التفصيل
بالتوفيق
- 1
-
أخي الكريم
ما الذي يمنعك من استعمال المعادلة أو الكود في ملفك
لا حاجة لطلب ملف اكسل إذا كنت تريد أن تتعلم
- 1
تحويل اسماء من العربي للانكليزي
في منتدى الاكسيل Excel
قام بنشر
ربما يفيدك هذا الموقع
https://www.arabic-names.com/arabictoenglish