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

جلال الجمال_ابو أدهم

06 عضو ماسي
  • Posts

    1,417
  • تاريخ الانضمام

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

  • Days Won

    6

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

  1. 34_ من معانى اسماء الله الحسنى وشرح لها مما ورد فى الكتاب والسنه_ الاستاذ / محمود الشريف
  2. 48_ جميع شيتات المرحلة الاعدادية والثانوية الازهرية بقسميها الادبي والعلمي_ الاستاذ / محمد ابو البراء
  3. الاساتذه _ ام عبدالله و سليم حاصبيا بارك الله فيكم و فى معادلاتك الجميلة و لاثراء الموضوع مرفق كود منقول بحث و سرد و تم تطبيقه على الملف نموذج بكود بحث و سرد.rar
  4. اخى الفاضل راجع الرابط مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_الاتصالات_الادارية_الموظفين
  5. كود طباعة الفورم عمل زر طباعه بالفورم اضف له الكود التالى Private Sub CommandButton10_Click() Me.PrintForm End Sub و للبحث بالاسم بدل الكود و الخاص بزر التعديل Private Sub CommandButton6_Click() بالكود التالى Private Sub CommandButton6_Click() sheet1.Activate ActiveCell.Offset(0, 1).Value = TextBox2 ActiveCell.Offset(0, 2).Value = TextBox5 ActiveCell.Offset(0, 3).Value = TextBox13 ActiveCell.Offset(0, 4).Value = TextBox14 ActiveCell.Offset(0, 5).Value = TextBox6 ActiveCell.Offset(0, 6).Value = TextBox12 '''ActiveCell.Offset(0, 7).Value = TextBox7 '''ActiveCell.Offset(0, 8).Value = TextBox8 '''ActiveCell.Offset(0, 9).Value = TextBox9 '''ActiveCell.Offset(0, 10).Value = TextBox1 ActiveCell.Offset(0, 12).Value = TextBox21 ActiveCell.Offset(0, 13).Value = TextBox22 ActiveCell.Offset(0, 14).Value = TextBox16 ActiveCell.Offset(0, 15).Value = TextBox20 ''''ActiveCell.Offset(0, 16).Value = TextBox17 ''' ActiveCell.Offset(0, 17).Value = TextBox18 ''' ActiveCell.Offset(0, 18).Value = TextBox19 '''ActiveCell.Offset(0, 19).Value = TextBox15 ActiveCell.Offset(0, 21).Value = TextBox29 ActiveCell.Offset(0, 22).Value = TextBox30 ActiveCell.Offset(0, 23).Value = TextBox24 ActiveCell.Offset(0, 24).Value = TextBox28 ''' ActiveCell.Offset(0, 25).Value = TextBox25 '''ActiveCell.Offset(0, 26).Value = TextBox26 ''' ActiveCell.Offset(0, 27).Value = TextBox27 ''' ActiveCell.Offset(0, 28).Value = TextBox23 '''ActiveCell.Offset(0, 3).Value = ComboBox1 ''''ActiveCell.Offset(0, 4).Value = ComboBox2 '''ActiveCell.Offset(0, 5).Value = ComboBox3 MsgBox "تم تسجيل التعديلات" End Sub و فى كود زر العرض بدل A الى B و مرفق ملف اخر لعله يفتح عندك كود البحث بلاسم.rar
  6. بعد اذن اخى / احمدزمان بارك الله فيك و لاثراء الموضوع يتم تكويد الحسابات و السعر مرفق حل اخر بادراج اسم الصنف بحساسية الاحرف و عمل معادلة لادراج سعر الوحدة كود منقول Northrn_pro.rar
  7. بعد اذن اخى / خزاني يوجد مشاركة لهذا الموضوع سابقا تابع المرفق _ تعديل كود البحث او تحميل مباشر تعديل كود البحث
  8. اخى تفضل هل يناسبك الحل المرفق قائمة منسدلة من عمودين.rar
×
×
  • اضف...

Important Information