-
Posts
4,357 -
تاريخ الانضمام
-
Days Won
185
أ / محمد صالح last won the day on نوفمبر 29 2023
أ / محمد صالح had the most liked content!
السمعه بالموقع
4,171 Excellentعن العضو أ / محمد صالح
- تاريخ الميلاد 01 ينا, 1977
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
معلم أول (أ) لغة عربية
-
البلد
مصر - البحيرة - إيتاي البارود
-
الإهتمامات
برمجة الاكسيس والفيجوال بيزيك والاكسيل والمواقع
وسائل التواصل
-
MSN
ostaz_mas@hotmail.com
-
Website URL
https://www.mr-mas.com
-
Yahoo
ostaz_mas
-
Skype
ostaz_mas
اخر الزوار
18,475 زياره للملف الشخصي
-
ربما يفيدك هذا الموقع 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 بالتوفيق