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

عبدالله المجرب

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5413

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

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

  • Days Won

    47

 نوع المحتوي 

كل منشورات العضو عبدالله المجرب

  1. عبدالله المجرب
    لعمل هذا يجب ان يكون عدد صفوف كل ورقة 44 سطر ابتداء من السطر (كشف عن يوم ) والتعديل في الكود بيكون هنا For i = 4 To [A10000].End(xlUp).Row Step 44 بدل عن For i = 4 To 400 Step 44
  2. عبدالله المجرب
    تم اضافة حل لطلبك الاخير هنا http://www.officena.net/ib/index.php?showtopic=42373
  3. عبدالله المجرب
    استعمل هذا الكود Sub Abu_Ahmed_Twzee3() R = 1 For i = 1 To [A1000].End(xlUp).Row Cells(i, 1).Resize(1, 5).Copy Sheets("ورقة2").Range("A" & R) R = R + 6 Next End Sub
  4. عبدالله المجرب
    بارك الله فيك استاذ رجب نشاط وابداع متواصل
  5. عبدالله المجرب
    شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=42346
  6. عبدالله المجرب
    والنعم فيك ======= لا يوجد مرفق
  7. عبدالله المجرب
    السلام عليكم جرب المرفق طباعة.rar
  8. عبدالله المجرب
    الطلب الاول جرب هذا ضع هذه المعادلة في خانة اجمالي العجز بدل معادلة SUM =SUBTOTAL(9;A3:A386) الطلب الثاني هل تقصد ان يطبع في الورقة عدد الصفحات ورقم الصفحة الحالية بينها مثل Page 5 Of 20 Pages
  9. عبدالله المجرب
    اخي ابو سارة ضع مرفق == بالمناسبة من اي مناطق البحرين انت
  10. عبدالله المجرب
    جرب كذا Private Sub Workbook_Open() If Date > DateValue("1/3/2012") Then Application.Visible = False If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub
  11. عبدالله المجرب
    جميل جداً
  12. عبدالله المجرب
    جرب هذا التعديل Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False If Date > DateValue("1/3/2012") Then If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub
  13. عبدالله المجرب
    هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة
  14. عبدالله المجرب
    ما شاء الله عمل قمة في الاتقان والابداع الذي لا نجده الا لديك ابا علي سلمت يمينك مشاركة مميزة
  15. عبدالله المجرب
    ارجو الاطلاع على قواعد المشاركة http://www.officena.net/Tips/Questions.htm
  16. عبدالله المجرب
    نرجو الالتزام بقواعد المشاركة ======= سيتم تعديل العنوان للدلالة ============ جرب هذا الكود ضعه في زر أمر Sub Abu_Ahmed() Dim cl As Range T = 7 For Each cl In Range("C2:C" & [C1000].End(xlUp).Row) If cl = "مرعى" Then Cells(2, T) = cl.Offset(0, -1) T = T + 1 End If Next End Sub
  17. عبدالله المجرب
    جرب هذا التعديل Sub Abu_Ahmed_Delet() Dim CL As Range For Each CL In [H4:H1000] If Not IsEmpty(CL) And Application.CountIf([J4:J1000], CL) = 0 Then CL.Offset(0, 1) = "X" Next End Sub
  18. عبدالله المجرب
    ضع هذا الكود في زر أمر في الورقة 1 Sub Abu_Ahmed_Twzee3() R = 1 For i = 1 To [A1000].End(xlUp).Row Sheets("ورقة2").Range("A" & R) = Cells(i, 1) R = R + 6 Next End Sub
  19. عبدالله المجرب
    وهذه http://www.officena.net/ib/index.php?showtopic=42350
  20. عبدالله المجرب
    تم عمل اللازم تم عمل اللازم هذي علمها عند الله جرب وشوف تم اضافة دالة معرفة (منقولة للامانه) لفصل الرقم عن الحروف اكيد راح يهنق بسبب العدد الكبير في الكلمات وحاجة الكود لعمل عدة اجراءات للكلمة الواحدة فاستعمل عدد محدود في كل مرة شاهد ما تم عمله في الكود وبانتظار رايك test.zip
  21. عبدالله المجرب
    هو ملف اضافي او وضيفة اضافية
  22. عبدالله المجرب
    اداة رائعة بارك الله فيك اخي احمد
  23. عبدالله المجرب
    السلام عليكم تم تعديل العنوان ومستقبلاً نرجو منك التقيد بالقواعد ======== في المرفق تم عمل عدة شروط (اكتشفها بالتجربة) ان شاء الله يفي بالغرض دالة للبحث والايجاد.rar
  24. عبدالله المجرب
    الحروف الى حد حرف اللام فقط مع العلم ان هناك اسم بحرف الياء
  25. عبدالله المجرب
    شاهد المرفق الإنتقال الى ورقة مختارة.rar
×
×
  • اضف...

Important Information

  I accept