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

أبو عبد النور

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    451

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

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

  • Days Won

    1

 نوع المحتوي 

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

  1. أبو عبد النور
    السلام عليكم، هناك سطر اضافي في الكود. On Error Resume Next Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub Target.NumberFormat = "0.00" x = Target.Value y = Application.WorksheetFunction.Ceiling(x, 0.05) Target = y End Sub
  2. أبو عبد النور
    استبدل الفاصلة في الدالة Split بالنقطة لانها علامة الاعشار لديك. لا احسن التعامل مع الدوال للاسف.
  3. أبو عبد النور
    السلام عليكم، تفضل : ALT " : اخفاء السطور ALT _ : اظهار السطور ALT ( : اخفاء الاعمدة ALT ) : اظهار الاعمدة
  4. أبو عبد النور
    السلام عليكم، جرب المثال التالي عله يفي بالغرض. استخراج الاعداد العشرية وجمعها_مثال.rar
  5. أبو عبد النور
    السلام عليكم، جرب هذا الكود. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub Target.NumberFormat = "0.00" x = Target.Value y = Application.WorksheetFunction.Ceiling(x, 0.05) Target = y End Sub
  6. أبو عبد النور
    على كل حال في خصائص الاكسل هناك خاصية التسجيل التلقائي. فعلها - ان لم تكن كذلك - واضبط مجال الوقت الذي يناسبك.
  7. أبو عبد النور
    السلام عليكم، يا اخي محمد، اذا انقطع التيار، هل تعتقد ان الحاسوب سيبقى يشتغل اصلا ؟
  8. أبو عبد النور
    السلام عليكم، هل هناك حل لمن لا يملك اوفيس عربي ؟ لاني اعاني من تسميات الاوراق بالعربية. على كل حال بارك الله فيك أخي ابراهيم.
  9. أبو عبد النور
    السلام عليكم، اليك هذه المحاولة. جلب وتسجيل بيانات من مصنف مغلق_ن001.rar
  10. أبو عبد النور
    الحمد لله الذي بنعمته تتم الصالحات
  11. أبو عبد النور
    تم النعديل Private CRg As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("C6:C9")) Is Nothing Then Exit Sub If (CRg Is Nothing) = False Then CRg.Comment.Visible = False End If Target.Comment.Visible = True Set CRg = Target End Sub
  12. أبو عبد النور
    على الرحب والسعة اخي حليم.
  13. أبو عبد النور
    الكود يقارن بين محتويات الخلية فقط. اما مسالة المسافات فيجب عدم ارتكاب الاخطاء عند الكتابة لتفادي الخلط عهلى الكود.
  14. أبو عبد النور
    السلام عليكم، تفضل ترتيب_هاني الحلاج.rar
  15. أبو عبد النور
    وعليكم السلام، جرب المرفق. Show_Hide_Comment_click.rar
  16. أبو عبد النور
    وعليكم السلام، جرب المرفق. جلب البيانات_ن003 .rar
  17. أبو عبد النور
    تعديل آخر المكرر من الارقام_ن005.rar
  18. أبو عبد النور
    ان ان يكون العمود A مرتبا لكي يعمل الكود جيدا المكرر من الارقام_ن004.rar
  19. أبو عبد النور
    كان قصدي لماذا لا تجعل زر الفورم على Q2 مباشرة ؟
  20. أبو عبد النور
    السلام عليكم، سؤال : ما فائدة استدعاء البيانات من الملف Q2 الى الملف Q1 لتعديلها واعادة ترحيلها الى الملف Q2 ثانية ؟ لماذا لا تقم بالامر على الملف Q2 فقط ؟
  21. أبو عبد النور
    السلام عليكم، طبق هذه الكود في موديل جديد : Sub test() [B1] = Replace([A1], Chr(10), "") End Sub بحيث A تحوي الرقم بسطريين و B تحوي الرقم المعدل بسطر واحد.
  22. أبو عبد النور
    الخطأ ناتج عن عدم وجود ارقام مكررة في العمود A. جرب المثال التالي. المكرر من الارقام_ن003.rar
  23. أبو عبد النور
    ان كان في الاستطاعة ان شاء الله.
  24. أبو عبد النور
    قلت لك ارفق ملفا للاكسل وليس صورة. المهم عند الضغط على زر Debug اي سطر في الكود يشار اليه باللون الاصفر ؟
  25. أبو عبد النور
    جرب المثال المرفق. جلب البيانات_ن001 .rar
×
×
  • اضف...

Important Information

  I accept