اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

M.NHAKAMI

02 الأعضاء
  • Content Count

    83
  • تاريخ الانضمام

  • تاريخ اخر زياره

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

4 Neutral

عن العضو M.NHAKAMI

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. عندي الملف التالي عن طريقه اختار صوره من الكمبيوتر لتظهر بالفورم المشكله بالكود انه عندما اريد اختيار صوره بعد الضغط على زر اختيار الصوره تظهر نافذة اختيار الصور اجد جميع التمددات انا مثلا محدد تمدد jpeg , gif عند اختيار غير هذا التمدد تظهر شاشة الخطأ ويغلق البرنامج اريد معالجة الكود بحيث لو اخترت غير التمدد المطلوب يظهر msgbox يخبر بان التمدد غير صالح جلب صوره.xlsm
  2. عندي الملف التالي به كود يصدر كامل شيتات الملف أنا اريد من اهل الخبره ان يعدل الكور بحيث يصبح يصدر الشيت الثاني فقط اللي هو "الأسماء" ويغير اسم الشيت إلى قاعدة بيانات الأسماء يعني الملف المصدر يكون فيه شيت واحد اسمه قاعدة بيانات الاسماء شاكر ومقدر لاعضاء المنتدى تحكيم الصافنات1.rar
  3. اخ عبدالله اشكر اهتمامك هذا ما احتاجه بالضبط هل بالامكان تعديل في الكود بحيث تظهر لي نافذه اختار منها ملف name اي كان موقعه بدلا من المسار المحدد بالكود الذي يجبر المستخدم ان يضع الملف في نفس مسار ملف import_name
  4. عندي ملفا اكسل استخدم احدهما لتسجيل الاسماء والاخر اريد استيراد الاسماء اليه عن طريق اليوزر فورم مالكود الافضل لذالك جيث ينقل لي البيانات من الملف الاول الاول للثاني بنفس الترتيب ‏import ‏name.xlsm name.xlsx
  5. أخي الكود هذا يفرز الترتيب حسب الاقل زمنا فاذا لم يكن فيه بيانات بالزمن يفرز البيانات حسب الاخطاء من الكبر للاصغر انا اريد الترتيب للاقل زمنا والاقل اخطاء معا شاكر لك مرورك الكود خفيف جدا كنت اتمنى لو يفي بالغرض المطلوب هو ترتيب القيم حسب الاقل زمنا والاقل أخطاء
  6. السلام عليكم الكود الحالي يرتب القيم تنازلي حسب العمود مجموع الأخطاء فإذا تساوت قيمتان به يفرزهم حسب الاقل زمنا اريد تعديله إلى المطلوب بالاسفل اريد تعديله الى ترتيب القيم تنازلي من الأصغر للأكبر حسب القيم الموجوده في عمود مجموع الاخطاء والأقل زمن Sub sort() Application.ScreenUpdating = True Range("B23:AA400").Activate ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Clear ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _ "H23:H400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("SPEED").sort.SortFields.Add Key:=Range( _ "E23:E400"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("SPEED").sort .SetRange Range("B23:AA400") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E10").Activate ' Application.Visible = False ' فرز الفرسان End Sub ترتيب القيم قيمتين.xlsm
  7. عملت موقت زمني ثانيه وجزء من الثانيه ببرمجة حلقات التكرار لكن اريد اضافة ايقاف واستمرار له مؤقت1.xlsm
  8. السلام عليكم عندي الكود التالي يصدر الشيت النشط لمصنف اخر وانا اريد تصدير جميع شيتات المصنف لمصنف اخر ايش التعديل المطلوب ThisWorkbook.ActiveSheet.copy _ before:=Workbooks.Add.Worksheets(1) Worksheets(1).Name = "current balance" & Format(Date, "dd-mm-yyyy") نسخ الشيتات.xlsm
  9. السلام عليكم هذا عداد تنازلي مبرمج في الاكسس اذا تكرمتم اريده يكون نفس العداد تصاعدي بفورم بالاكسل عداد تنازلي.mdb
  10. عملت فورم وعملت له كود تكبير لملئ الشاشه لكن المشكله الفورم يكون ملئ الشاشه والمحتويات ثابته اريد تكبير الفورم مع المحتويات ملئ.xlsm
×
×
  • اضف...