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

heshamsh

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه heshamsh

  1. السلام عليكم

    لماذا لا يظهر كل العناصر الموجودة فى العمود عند عمل تصفية تلقائية

    فمثلا فى العمود c عند فتح القائمة لا يظهر اكثر من الرقم الدى ترتيبه 1000 وكذلك العمود d

    New Microsoft Excel Worksheet.rar

  2. الحقيقة انا خبرتى فى الاكسس ضعيفة بس انا حولت شيت الاكسيل بنفس شكل شيت البيانات الى فى الاكسيس بحيث يسهل التصدير وفى نفس الوقت لا استطيع عرض البرنامج على الملأ فهل يمكن ارسله لحرتك على الخاص بك وكيف ارجوك الموضوع مهم بالنسبة لى

  3. عندى برنامج كامل لكنترول مدرسى على الاكسيل وشغال تمام لكن للاسف طلبت منا المديرية ان نعمل على برنامج ارسلته لنا والبرنامج على الاكسس كيف يمكن لى ان انقل اسماء الطلاب وبياناتهم من اكسيل الى اكسس او احد الاخوه يدلنى على مشاركة تفيدنى فى هذا الموضوع

     

    الطلب الثانى كيف يمكن فتح البرنامج من الداخل اى الدخول الى التقارير

  4. السلام عليكم

    =======

    ستضع هذا الكود فى الورقة 2

    
    
    Option Explicit[/b][/font][/size]
    
    [size=5][font=tahoma,geneva,sans-serif][b]Sub hh()
    
    	Range("F2").FormulaR1C1 = _
    
    	"=IF(RC[-1]="""","""",RC[-1]-NOW())"
    
    	Range("G2").FormulaR1C1 = _
    
       "=IF(RC[-1]="""","""",IF(RC[-1]<=7,""&#200;&#199;&#222;&#236; &#218;&#225;&#236; &#227;&#230;&#218;&#207; &#199;&#225;&#202;&#211;&#225;&#237;&#227; 7 &#199;&#237;&#199;&#227; &#199;&#230; &#199;&#222;&#225;"",""""))"
    
    	Range("F2").AutoFill Destination:=Range("F2:F1500"), Type:=xlFillDefault
    
    	Range("G2").AutoFill Destination:=Range("G2:G1500"), Type:=xlFillDefault
    
      Range(Range("F2"), Range("G2").End(xlDown)).Select
    
    	Selection.Value = Selection.Value
    
    End Sub[/b][/font][/size]
    
    
    [size=5][font=tahoma,geneva,sans-serif][b]

    hh.rar

×
×
  • اضف...

Important Information