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

hatrek

عضو جديد 01
  • Posts

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

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

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

  1. و عليكم السلام و رحمه الله و بركاته

    تسلم اخ طلعت جازاك الله خير

    انا محتاج شرح مبسط لاجزاء معينه

     

    If OptionButton1.Value = True Then
    If TextBox89.Text = "" Then
    MsgBox ("الرجاء ادخال رقم السجل المدني")
    TextBox89.Text = ""
    Cler
    Sheets("sheet1").Range("A1").Select
    Exit Sub
    End If
     
    Sheet1.Activate
    III = 5
    Do Until Sheet1.Cells(III, "C").Text = ""
    If TextBox89.Text = Sheet1.Cells(III, "C").Text Then
    Cells(III, "C").Activate
     
     
    If ActiveCell.Offset(0, 62).Text = "موجود" Then
    ck1.Value = True
    ElseIf ActiveCell.Offset(0, 62).Text = "غير موجود" Then
    ck2.Value = True
    ElseIf ActiveCell.Offset(0, 62).Text = "" Then
    ck1.Value = False
    ck2.Value = False
    End If
     
     
     
    ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير
  2. و علكم السلام اخ طلعت

    خلاص ما في مشكله لاني كنت بدور علي هذه الطريقه لانها ما واجهتني من قبل فقلت اسئل يمكن يكون في ترحيل بهذا الاسلوب ولكني لا اعلم انه لا يوجد هذه الطريقه في الترحيل

    عموما خلينا نكمل باقي الاكواد

    البحث و التعديل و الطباعه

  3. عليكم السلام اخ طلعت

     

    هذا الترحيل عمودي ولكن انا كنت اقصد مسلسل واحد يكون في العمود A و مسلسل 2 يكون في العمود B و مسلسل 3 يكون في العمود C و هكذا

     

    لان هذا الترحيل الي انت عملته بيكون في نفس العمود بيكون عندنا نفس المشكله انه لو قمنا بتطباعه التقرير المجمع للبيانات المدخله بيجمع عدد اوراق كبير جدا و بتكون اكثر من 3/4 فارغ

  4. و عليكم السلام ورحمه الله وبركاته

     

     انا لي غرضين من عرض البيانات علي الاكسل

    اولا عشان اعرف الاكواد الي بتخلينا ارحل البيانات الي اعمده وليس صفوف بحث اكون عارف كدا او كدا

    انا اخبرتك في الاول اني بتعلم ياعني مش محتاج انك تعمل كل الاكواد ممكن تمل سمبل بسيط و انا بجرب في الباقي و لو حاجه وقفت بقولك عليها

    و ثانيا في حالت اني احتجت تقرير مجمع لكل البانات الي ادخلتها في المثال الي انا شغال عليه لما باجي اطبع مش هتكون اليانات واضحه و هيكون متقسم علي 3 او اربع صفحات او ممكن اكتر فا قلت اجرب بالطول لاقيتها هتطلع بيانات الشخص كلها ورا بعض فا لما اجيت اجرب لاقيت نافسي تايه لان معظم الامثله الي شوفتها قبل كدا بتملى في صفوف و ليث اعمده

    كل هذا اذا كان يوجد شئ يغني عن هذا بحيث  يظهرلي تقرير مجمع عن كل البيانات فا ممكن تفدني

    اتمنى تكون وصلتك فكرتي

     

    و بخصوص كود التسلسل التلقائي تسلم جازاك الله خيرا

  5. تسلم 

    numanawwad

     

    شكرا 

    طلعت محمد حسن

    اليوم اتعلمت اكواد جديده منك  checkbox و optionbutton بس الاوبشنبوتون لا يتم مسح بياناته هل يوجد كود يمسح البيانات ام تكون القيمه افتراضيه دائما ؟؟!!

     

    و حاجه كمان انا جربت اعكس ادخال البيانات بدل ما تكون رأسيه تكون عموديه في الشيت بس مش عارف اظبها تم ارفاق الفيل القي نظره ,,,

     

    , و برضو محتاج شرح مبسط لكود التسلسل التلقائي لاني مش فاهمه

     

     

     

     

    بحث.rar

  6. شباب انا لسه متعلم VBA جديد و بحاول معاه انا صممت يوزر فورم و عملت بعض المعادلات بس في حاجات واقفه معايا

    اولا : عمليه البحث محتاج اعمل بحث عن طريق خيارين الاول بحث عن طريق رقم السجل و الثاني بحث عن طريق الاسم بأستخدام اوبشان بوكس 

    ثانيا : التعديل علي البيانات انا ضفت زرار للتعديل علي البيانات بعد ما اعمل بحث عنها مش عارف اجبله كود

    ثالثا : عملت زرار للبرنت و محتاجه يطبع الفورم جربت اكتر من كود بس بيضرب معي

    تقريبا دي الحاجات كلها الي وقفت معايا في الفورم ده

    انا محتاج مش انكم تجهزو الفورم انا محتاج المعادلات اوالدالات الي بها اعمل الي انا كاتبه عشان انا عايز اتعلم مش بعمل فورم مره و السلام

    تم ارفاق الفورم الي انا اشتغلته

    بحث.rar

  7. انا محتاج اعمل داله بحيث اذا كانت النتيجه في خليه معينه من0.01 الي 0.20 تكون النتيجه في خليه اخري 1 و اذا كانت النتيجه من 0.21 الي 0.40 تكون النتيجه 2 و اذا كانت النتيجه من 0.41 الي 0.60 تكون النتيجه 3 و اذاا كانت من 0.61 الي 0.80 تكون النتيجه 4 و هكذا

×
×
  • اضف...

Important Information