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

أ / محمد صالح

أوفيسنا
  • Posts

    3,669
  • تاريخ الانضمام

  • Days Won

    120

أ / محمد صالح last won the day on نوفمبر 26

أ / محمد صالح had the most liked content!

السمعه بالموقع

2,892 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

اخر الزوار

12,517 زياره للملف الشخصي
  1. يمكنك استعمال هذه المعادلة في التنسيق الشرطي على العمود B =a1<>b1 بالتوفيق
  2. يفضل إرفاق ملفك وأمثلة من الملفات المراد تحويلها في مجلد xls لمعرفة مكان الخطأ
  3. لماذا يتم جعل حاسوبك وسيطا؟! يتم مشاركة الطابعة ويتم إرسال الأوامر إليها مباشرة من جميع الأجهزة المتصلة بالشبكة بالتوفيق
  4. المنتدى تعليمي في المقام الأول لذا يفضل وضع ما انتهيت إليه وتحديد نقطة أو اثنتين تقف أمامك في تطوير برنامجك وبإذن الله تجد المساعدة من الجميع كل حسب ظروفه فليس مهمة الموقع تصميم برامج جاهزة للعملاء لأن ساعتها ستكون بمقابل مادي بالتوفيق
  5. يمكنك وضع جميع ملفات الاكسل المطلوب تحويلها في مجلد باسم xls بنفس مسار الملف الذي به هذا الكود وإنشاء مجلد باسم csv بنفس مسار الملف الذي به هذا الكود واستدعاء الاجراء Mas_Xls2Csv Sub Mas_Xls2Csv() Dim xObjWB As Workbook Dim xStrEFPath As String Dim xStrEFFile As String Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual xStrEFPath = ThisWorkbook.Path & "\xls\" xStrSPath = ThisWorkbook.Path & "\csv\" xStrEFFile = Dir(xStrEFPath & "*.xls*") Do While xStrEFFile <> "" Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVUTF8 xObjWB.Close savechanges:=False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub بالتوفيق
  6. يمكن وضع الرقم الثاني في h4 واستعمال هذه المعادلة =SUMIF($C:$C,G4,$D:$D)+SUMIF($C:$C,H4,$D:$D) أو هذه =SUMPRODUCT(SUMIF(C:C, G4:H4, D:D)) بالتوفيق
  7. جزاكم الله خيرا جميعا ويمكن اختصار المعادلة هكذا =IF(B2="Omani",IF(C2>=3000,3000,C2)*0.07,0) بالتوفيق
  8. بارك الله لك وأود أن أضيف شرطا أن يكون تطبيق واتس آب مثبتا في جهاز الكمبيوتر أو الموبايل بالتوفيق
  9. أعتقد أنه لا يوجد حدث في الاكسل يسمى عند ادخال كلمة مرور خاطئة في vbe كما أن حذف الموديولات يتطلب إعدادات خاصة في الماكرو trust access to the vba project object model ولا ينصح باستعمال هذه الخاصية إلا لمن يعرف التعامل معها وليس للعملاء مثلا بالتوفيق
  10. هذه المعادلة في C2 =SUM(B2,A2/100) تفي بالغرض بالتوفيق
  11. يمكنك استعمال هذه المعادلة في الخلية B2 =IF(A2="","لايوجد رقم","الرقم "&IF(COUNTIF(C:C,A2)>0,"","غير ")&"موجود") وهذه في D2 =IF(C2="","لايوجد رقم","الرقم "&IF(COUNTIF(A:A,C2)>0,"","غير ")&"موجود") بالتوفيق
×
×
  • اضف...

Important Information