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

Alaaq3

02 الأعضاء
  • Posts

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

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

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

18 Good

عن العضو Alaaq3

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

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  • البلد
    العراق
  • الإهتمامات
    تكنلوجيا

اخر الزوار

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

  1. السلام عليكم ورحمة الله : احصائية.xlsmاريد احضائية بيانات تظهر على الفورم معرفة عدد الذكور ..عدد الاناث.. عدد الاذكور البالغين الموظفين .. عدد الذكور البالغين العاطلين ... عدد الذكور الاحداث الموظفين ... الخ احصائية.xlsm
  2. شكرا لك اخي العزيز . جزاك الله الف خير
  3. اخي الكريم ارفقت ملف ياريت تطلع عليه وتقوم بتعديله
  4. لدي مشكلة في هذا الكود عندما اقوم باختيار الكل فأن البيانات تختفي Private Sub ComboBox1_Change() ActiveSheet.Range("B2").CurrentRegion.AutoFilter Field:=2, Criteria1:=ComboBox1.Value End Sub Private Sub UserForm_Initialize() ComboBox1.List = Array("الكل", "ذكر", "انثى") End Sub الجنس.xlsm
  5. احسنت اخي العزيز . جزاك الله الف خير
  6. كود حذف تنسيق الصفوف الاخيرة الفارغة ClearFormats Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeBlanks).ClearFormats هذا الكود بحذف تنسيق الخلايا الفارغة اريد التعديل عليه ليقوم بحذف تنسيق الصفوف الفارغة بدل الخلايا الفارغة
  7. كود على اليوزرفورم لمعرفة عدد الصفحات المطبوعة يالاعتماد على عمود معين ( مثلا عمود الاسماء)
  8. ممكن كود يقوم بتحديد الخلايا التي تحتوي على نص في الشيت
  9. الاساتذة الكرام : هذا الكود يقوم بفلترة البيانات من على (listbox) فقط في وضع الاختيار المفردة Single وعندما اقوم بتغيير خصائص الـ listbox الى خيارات متعددة فأن الفلترة تتوقف . ارجو المساعد. المرفقات: الفورم vba صورة الفورم فلترة متعددة.xlsm
  10. السلام عليكم . الاساتذة الاعزاء شاهدت فيديو لشخص يقوم بفتح كاميرا ويب من خلال اليوزرفورم عن طريق اداة موجودة في التول بوكس اسمها (VedioCap) وسأقوم بارفاق الملف الموجود في الشرح مع صورة توضيحية للاداة (VedioCap) . كيف لي ان اقوم بعمل ذلك ؟ Capture Photo in Excel.xlsm
  11. السلام عليكم .كيفية التحكم في الشيت وتعديله مع ان الفورم يكون ظاهراً
  12. شكراً اخي العزيز : الكود رائع واستفدت منه كثيرا. ولكن انا اريد ان اكتب صيغة الكسور ( النصف او الثلث او الربع) . مثلاً هذا الكود الي بالاسفل يقوم بانقاص 45 يوم من كل 6 اشهر (اي الربع) . ما اريده هو كتابة (ComboBox3 * -1.5) مثلا TextBox3.Value = Format(DateAdd("d", (ComboBox3 * -45), TextBox2), "YYYY/MM/DD") توضيح اكثر : مثلا اريد ان اقوم بإنقاص الربع او النصف او الثلث من الـ 7 اشهر
×
×
  • اضف...

Important Information