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

ابو اسامة العينبوسي

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,336

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

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

  • Days Won

    1

 نوع المحتوي 

كل منشورات العضو ابو اسامة العينبوسي

  1. ابو اسامة العينبوسي
    السلام عليكم يمكنك اضافه اي ملف من ملفات wav موجوده في الويندوز في مجلد media عفوا اسم الملف Excel StartUp Sound execl_startup_sound.rar
  2. ابو اسامة العينبوسي
    السلام عليكم السؤال مبهم ارجو التوضيح اكثر اين النطاق للقيم التي تريد العمل عليها وكيف ؟
  3. ابو اسامة العينبوسي
    السلام عليكم انا فلسطيني و الموضوع سقط سهوا كل من في المنتدى(و كل مسلم )يقدر فلسطين واهل فلسطين والموضوع لا يستحق كل هذه الضجه
  4. ابو اسامة العينبوسي
    omarhaji_2000@yahoo.com omarhajy@hotmail.com omarhaji2000@gmail.com omarhaji@walla.com
  5. ابو اسامة العينبوسي
    السلام عليكم طريقه اخر ايضا formoulas.rar
  6. ابو اسامة العينبوسي
    السلام عليكم من دواعي السرو ر ان نسمع هذا الخبر اخي خبور ليكن شعارك قوله تعالى (قل عسى ان يهديني ربي لاقرب من هذا رشدا) صدق الله العظيم
  7. ابو اسامة العينبوسي
    هذا املنا فيك دائما اخي ابو هادي
  8. ابو اسامة العينبوسي
    اخي العزيز بعد السلام عليكم ارفق لك حلين في المشاركتين السابقتيين !!!! على الاقل ارسل ملف نعمل له الازم
  9. ابو اسامة العينبوسي
    السلام عليكم هناك موضوع مشابه لما تريدين تماما كان مطروح في المنتدى قليل من البحث ستجدينه ان شاء الله http://www.officena.net/ib/index.php?showtopic=13962&hl=
  10. ابو اسامة العينبوسي
    السلام عليكم اخي العزيز هادي سالم مربع النص في الفورم في صفحه القاموس لو كانت قائمه منسدله اليست افضل ؟ نتعلم منكم دائما
  11. ابو اسامة العينبوسي
    السلام عليكم اخي هادي انت اكثر من مبدع
  12. ابو اسامة العينبوسي
    السلام عليكم هذا كود كنت احتجته في فتره و صممه احد الاخوه ( خضر الرجبي )على ما اذكر
  13. ابو اسامة العينبوسي
    السلام عليكم كود اخر Sub ValuesOnly() Dim rRange As Range On Error Resume Next Set rRange = Application.InputBox(Prompt:="Select the formulas", Title:="VALUES ONLY", Type:=8) If rRange Is Nothing Then Exit Sub rRange = rRange.Value End Sub [code]
  14. ابو اسامة العينبوسي
    السلام عليكم Dim MyRange As Range Dim Cell As Range Set MyRange = ActiveSheet.Range("D3:D500") Application.ScreenUpdating = False For Each Cell In MyRange If IsNumeric(Cell) And Not IsEmpty(Cell) Then Cell = Cell.Value End If Next Cell Application.ScreenUpdating = True هذا الكود يقوم بتحويل الصيغ في العمود d3:d500 الى قيم ثابته
  15. ابو اسامة العينبوسي
    السلام عليكم اخي هادي استفسر لو اردت مجموع كل 33 خليه من العمود a على حدى كما قالت الاخت كيف افعل ؟ سؤال لي شخصيا يا استاذنا
  16. ابو اسامة العينبوسي
    http://www.officena.net/ib/index.php?showtopic=15361
  17. ابو اسامة العينبوسي
    السلام عليكم ممتاز اخي خبور
  18. ابو اسامة العينبوسي
    و الله مافهت هذه الجمله
  19. ابو اسامة العينبوسي
    السلام عليكم الرجاء ارفق ملف
  20. ابو اسامة العينبوسي
    السلام عليكم ماهو التنسيق الذى تريده للسطر الجديد تعديل بسيط يقوم برسم الحدود للسطر الجديد Private Sub Worksheet_Change(ByVal Target As Range) TR = Target.Row If Target.Column = 8 Then Rows(TR + 1).Insert For C = 2 To 8 Cells(TR, C).Interior.ColorIndex = 36 Cells(TR, C).Font.ColorIndex = 1 Cells(TR, C).Borders.Color = 1 Next Cells(TR + 1, 2).Select End If End Sub
  21. ابو اسامة العينبوسي
    السلام عليكم اخ ابو هادي تحياتي لك و مشكور
  22. ابو اسامة العينبوسي
    السلام عليكم جرب المرفق وانا حضر ___________.rar
  23. ابو اسامة العينبوسي
    السلام عليكم لم افهم المقصود للاسف
  24. ابو اسامة العينبوسي
    السلام عليكم حل مبدئى _______.rar
  25. ابو اسامة العينبوسي
    السلام عليكم ما هي الحقول التي تريد طباعتها
×
×
  • اضف...

Important Information

  I accept