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

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

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

  • Posts

    2336

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

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

  • Days Won

    1

 نوع المحتوي 

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

  1. ابو اسامة العينبوسي
    السلام عليكم tigernet.rar
  2. ابو اسامة العينبوسي
    السلام عليكم عدلت على ملفك اخى تايجر حتى تكون ارقام كرقم و ليس كساعات(خاصه المبلغ المستحق و مجموع الساعات) _________________________2.rar
  3. ابو اسامة العينبوسي
    السلام عليكم حدد الورقتين معا (وذلك بضغط مفتاح ctrl باستمرا مع اختيار الورقتين) ستجد ان عداد الصفحات يحسب الورقتين معا من 1 الى 7
  4. ابو اسامة العينبوسي
    السلام عليكم من خصائص الزر حددى PrintOpject الى False هذا اولا ثانيا يمكن ان تضعى زر ماكرو في شريط الادوات و تربطيه بالكود وبهذا يكون بعيد عن الطباعه و غيرها
  5. ابو اسامة العينبوسي
    السلام عليكم Book1.rar
  6. ابو اسامة العينبوسي
    السلام عليكم http://www.officena.net/ib/index.php?showt...mp;hl=دوال+اكسل
  7. ابو اسامة العينبوسي
    السلام عليكم EX011.rar
  8. ابو اسامة العينبوسي
    Sub delErows() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Range("a1:a65000") .SpecialCells(xlCellTypeBlanks).EntireRow.Delete (xlUp) End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub DellEmptyRows.rar
  9. ابو اسامة العينبوسي
    السلام عليكم Book1.rar
  10. ابو اسامة العينبوسي
    السلام عليكم Sub RestoreToolbars() On Error Resume Next With Application .DisplayFullScreen = False .CommandBars("MyToolbar").Enabled = False .CommandBars("Worksheet Menu Bar").Enabled = True End With On Error GoTo 0 End Sub restore_menu.rar
  11. ابو اسامة العينبوسي
    السلام عليكم شكرا لك لم تغب عن بالى لكن انا اعمل الاساس(هذه سياستى في كل حلولى) لضيق و قتى
  12. ابو اسامة العينبوسي
    السلام عليكم test3.rar
  13. ابو اسامة العينبوسي
    السلام عليكم على اعتبار الاقرب للاعلى test2.rar
  14. ابو اسامة العينبوسي
    السلام عليكم او ممكن نسق العمود الى (نص) ____2.rar
  15. ابو اسامة العينبوسي
    السلام عليكم =COUNTIF($A$1:$A$100,A1)=1 _____2.rar
  16. ابو اسامة العينبوسي
    السلام عليكم Book3.rar
  17. ابو اسامة العينبوسي
    السلام عليكم على فرض ان العمود A يحتوى على الارقام Sub delduplicates() Columns(1).EntireColumn.Insert Range("B1", Range("B65536").End(xlUp)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True Columns(2).EntireColumn.Delete End Sub
  18. ابو اسامة العينبوسي
    السلام عليكم هل تقصد الفورم الجاهز الموجود في الاكسل ( بيانات>نموذج)
  19. ابو اسامة العينبوسي
    السلام عيكم ممكن تضيف الى الكود ليكون كالتالى Private Sub Worksheet_Activate() Range("a1").Select ScrollArea = "A1:f15" Rows("15:65536").Hidden = True Columns("G:IV").Hidden = True With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False End With End Sub
  20. ابو اسامة العينبوسي
    السلام عليكم احب ان اعرف كل شيء عن شيء نعم هذا صحيح لكن هناك شرط ان تكون الصيغه متكرره اكثر من خمس مرات قبل السطر الاخير و الا لن تعمل مشكورين على المعلومه و هي جديده على
  21. ابو اسامة العينبوسي
    السلام عليكم اضم صوتى لصوت الاخ abuzuz كيف تم عمل ذلك كيف تدرج المعادله تلقائيا ؟
  22. ابو اسامة العينبوسي
    السلام عليكم هل تقصد كل مستخدم يدخل لصفحه مححده فقط
  23. ابو اسامة العينبوسي
    السلام عليكم 212.rar
  24. ابو اسامة العينبوسي
    السلام عليكم لم ارى حل الاخ قطان لكن هنا حل سريع Sub SortAddress() For i = 2 To 7 TT = Cells(100, 4).End(xlUp).Row + 3 Cells(TT, 4) = Cells(i, 1) & Cells(i, 2) & Cells(i, 3) TT = TT + 1 Cells(TT, 4) = Cells(i, 4) TT = TT + 1 Cells(TT, 4) = Cells(i, 5) & Cells(i, 6) & Cells(i, 7) Next i End Sub Diaa2.rar
  25. ابو اسامة العينبوسي
    السلام عليكم ممكن انشاء قوائم خاصه بالاكسل كما هو موضح بالصوره
×
×
  • اضف...

Important Information

  I accept