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

M.NHAKAMI

02 الأعضاء
  • Content Count

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

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

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

4 Neutral

عن العضو M.NHAKAMI

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

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

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

اخر الزوار

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

  1. هذا يحل مشكلة الليست بوكس فقط انا مشكلتي مع الكمبوبكس
  2. السلام عليكم هل هناك طريقه لجعل موشر combo box يظهر في اتجاه اليمن علما اني عدلت خصائص form الخاصيه rihgt to left الى true يتعدل مؤشر combo الى اليسار ويظهر النص في listbox من اليمن واذا عدلت الخاصيه الى false يحدث العكس أنا اريد موشر combo box يظهر من اليمن والنص داخل list box يكون من اليمن حل من كود يعدل الخصائص المصنف.xlsm
  3. الشكر لك اخ رائد الكود تم تجربته رائع جدا
  4. اخ رائد توجد مشكله بسيطه بالكود عند الضغط على الزر مره اخري او اضغط زر اخر لاظهار شيت ثاني تزيد المساحات الفارغه اسفل الليست بوكس هل ممكن اضافه سطر مسبق لحلقة الدوران حيث يعمل لليست بوكس مسح محتويات ثم يضيف المحتويات الجديده لان البيانات احتاج جلبها اكثر من شيت الملف المرفق فيه اظهار اكثر من شيت المصنف1.xlsm
  5. السلام عليكم استفسار عندي الكود التالي يجلب البيانات من الشيبت من الصف الأول إلى أخر صف به نص في العمود طلبي انا اريده لو تكرمتم مالتعديل الذي اجريه عالكود بحيث يظهر لي بيانات الشيت في listbox حيث يبدأ من الصف 59 الي نهاية الصفوف التي بها بيانات Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To lr - 1 b = i + 1 Me.ListBox6.AddItem Me.ListBox6.List(i, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(i, 2) = Sheets("level1").Cells(b, 2) Next i المصنف1.xlsm
  6. عندي الملف التالي عن طريقه اختار صوره من الكمبيوتر لتظهر بالفورم المشكله بالكود انه عندما اريد اختيار صوره بعد الضغط على زر اختيار الصوره تظهر نافذة اختيار الصور اجد جميع التمددات انا مثلا محدد تمدد jpeg , gif عند اختيار غير هذا التمدد تظهر شاشة الخطأ ويغلق البرنامج اريد معالجة الكود بحيث لو اخترت غير التمدد المطلوب يظهر msgbox يخبر بان التمدد غير صالح جلب صوره.xlsm
  7. عندي الملف التالي به كود يصدر كامل شيتات الملف أنا اريد من اهل الخبره ان يعدل الكور بحيث يصبح يصدر الشيت الثاني فقط اللي هو "الأسماء" ويغير اسم الشيت إلى قاعدة بيانات الأسماء يعني الملف المصدر يكون فيه شيت واحد اسمه قاعدة بيانات الاسماء شاكر ومقدر لاعضاء المنتدى تحكيم الصافنات1.rar
  8. اخ عبدالله اشكر اهتمامك هذا ما احتاجه بالضبط هل بالامكان تعديل في الكود بحيث تظهر لي نافذه اختار منها ملف name اي كان موقعه بدلا من المسار المحدد بالكود الذي يجبر المستخدم ان يضع الملف في نفس مسار ملف import_name
  9. عندي ملفا اكسل استخدم احدهما لتسجيل الاسماء والاخر اريد استيراد الاسماء اليه عن طريق اليوزر فورم مالكود الافضل لذالك جيث ينقل لي البيانات من الملف الاول الاول للثاني بنفس الترتيب ‏import ‏name.xlsm name.xlsx
  10. أخي الكود هذا يفرز الترتيب حسب الاقل زمنا فاذا لم يكن فيه بيانات بالزمن يفرز البيانات حسب الاخطاء من الكبر للاصغر انا اريد الترتيب للاقل زمنا والاقل اخطاء معا شاكر لك مرورك الكود خفيف جدا كنت اتمنى لو يفي بالغرض المطلوب هو ترتيب القيم حسب الاقل زمنا والاقل أخطاء
  11. السلام عليكم الكود الحالي يرتب القيم تنازلي حسب العمود مجموع الأخطاء فإذا تساوت قيمتان به يفرزهم حسب الاقل زمنا اريد تعديله إلى المطلوب بالاسفل اريد تعديله الى ترتيب القيم تنازلي من الأصغر للأكبر حسب القيم الموجوده في عمود مجموع الاخطاء والأقل زمن 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
×
×
  • اضف...