أكاديمية الصقر للتدريب
FBConnect

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :حسين مامون
عدد النتائج (103) نتيجة
12-04-2020 10:03 صباحا
icon كود طباعة كل التلاميذ دفعة واحدة | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 الحمد لله ان تم الامر كما تريد و دور المنتدى هو ان تستفيد وتفيد غيرك
بارك الله فيك اخي الكريم  
10-04-2020 11:39 صباحا
icon كود طباعة كل التلاميذ دفعة واحدة | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
  بعد اذن استاذي ياسر خليل 
هذا المرفق من مشاركتي السابقة 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
09-04-2020 05:02 مساء
icon كود طباعة كل التلاميذ دفعة واحدة | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 استاذ أبو عبد الرحمن كما اشار استادنا ياسر خليل حاول ضبط اعدادات الصفحة  
اذا كنت تفهم في الاكواد فيستحسن ان تنفذ الكود خطوة خطوة عن طريق F8 لتحديد الخلايا التي تصدر اليها البيانات على الصفحة.
هل جربت الطباعة على المرفق في مشاركتي السابقة ؟
انظر الصورة ثلاث شهادات كاملة في صفحة واحدة 
اعمل Print preview وانظر هل لديك ثلاث شهادات في صفحة واحدة

mStE8_2020

 
09-04-2020 11:15 صباحا
icon كود طباعة كل التلاميذ دفعة واحدة | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 بعد اذن الاساتذة الكرام واثراء للموضوع 
هذه طريقة اخرى لطباعة جميع الشهادات  
ثلاثة شهادات في صفحة واحدة

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
06-04-2020 08:13 مساء
icon اضافة تاريخ فى صفحة الاكسيل بعد نهاية يوم العمل | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 ربنا يحفظك اخي الكريم ... الحمد لله ان تم الامر 
 
06-04-2020 06:27 مساء
icon اضافة تاريخ فى صفحة الاكسيل بعد نهاية يوم العمل | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 

بما انك لم ترفع اي ملف للتجربة يمكنك الاستفادة من المرفق وأتمنى ان يكون مفيد لك
الكود يعمل عند اغلاق الملف اذا كان الوقت يساوي او اكبر من 17:00 يلون الصف الموالي للبيانات ويضع فيه التاريخ والتوقيت

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
29-03-2020 12:43 مساء
icon عمل وميض في التيكست بوكس داخل اليوزرفورم | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 

عليكم السلام

جرب المرفق لعله يفيدك في شيء //الليبل في الفورم يتغير لونه اذا كان تاريخ اليوم يساوي او اكبر من 10 ربما يكن الاستفادة من الكود................... تحياتي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

28-03-2020 07:39 مساء
icon كيفية اضافه الساعة في اليوزر فورم | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 

اذهب الى Properties userform  وخلي  خاصية Showmodal=false

انظر الصورة المرفقة
Fh2Bg_showmodal
 
25-03-2020 01:19 مساء
icon تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
25-03-2020 01:16 مساء
icon تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 جرب هذا التعديل 
Private Sub ComboBox1_Change()
  Dim f As Range, r As Range, cell As String
  
  ListBox1.Clear
  If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
  
  Set r = sh.Range("G2:G" & sh.Range("G" & Rows.Count).End(xlUp).Row)
  Set f = r.Find(ComboBox1.Value, , xlValues, xlWhole)
  If Not f Is Nothing Then
    cell = f.Address
    Do
      With ListBox1
        .AddItem sh.Range("A" & f.Row).Value
        .List(.ListCount - 1, 1) = sh.Range("B" & f.Row).Value 'Data from Col B
'        .List(.ListCount - 1, 2) = CDate(sh.Range("C" & f.Row)) 'Data from Col C
        .List(.ListCount - 1, 2) = Format(sh.Range("C" & f.Row), "dd/mm/yyyy")
        .List(.ListCount - 1, 3) = sh.Range("D" & f.Row).Value   'Data from Col D
        .List(.ListCount - 1, 4) = sh.Range("E" & f.Row).Value 'Data from Col E
        .List(.ListCount - 1, 5) = sh.Range("F" & f.Row).Value 'Data from Col f
        .List(.ListCount - 1, 6) = sh.Range("G" & f.Row).Value 'Data from Col g
        .List(.ListCount - 1, 7) = sh.Range("H" & f.Row).Value 'Data from Col H
      End With
      Set f = r.FindNext(f)
    Loop While Not f Is Nothing And f.Address <> cell
  End If
End Sub
24-03-2020 10:33 صباحا
icon تعديل وتطابق اظهار البيانات بالليست بوكس كورقة الإكسيل | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 iY3hC_cdateغير الكود كما  الجزء المحاط بلاحمر في الصورة 
غير هذا السطر في الكود كومبوبوكس
.List(.ListCount - 1, 2) = CDate(sh.Range("C" & f.Row)) 'Data from Col C



 
14-02-2020 12:20 مساء
icon مشكلة عدم تفعيل كود فى حدث تكست بوكس | الكاتب :حسين مامون |المنتدى: اكسيل اسئله واجابات
 جرب المرفق 
انا جربته  يعمل عندي بكفاءة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

الصفحة 1 من 9 < 1 2 3 4 9 > الأخيرة »





الساعة الآن 03:36 صباحا

أعلن هنا
أعلن هنا
أعلن هنا