مرحبا بدي اعرف شغلي انو لم عم يكون عندي اكتر من تاريخ متعدد لم يظهر لي اية عملية وكمان اذا كان رقم الواحد بشتغل معي على 11 او 12 يعني كل شي في رقم واحد ياريت تحلنا المشكلة
السلام عليكم مجهود متميز ورائع بستاذن حضرتك محتاج نفس الكود البحث بين تاريخين لاظهار عدد الخلايا الملونة بلون محدد فى العمود B المجاور لعمود التاريخ لو امكن
السلام عليكم ورحمة الله وبركاته أستاذي الفاضل لو سمحت في طلب نفس العمل بس في اضافة جمع العمود "B" بين التاريخين يعني أنا أبحث بين تاريخين يجمع لي القيم التي توجد بالعمود الثاني او الثالث
استاذ عماد جزاك الله خير ونفع بك عملت نفس الفكرة على ملف اكسل لحجز شقق فندقية لكن عني إضافة ما نفعتش معي وهي لما ادخل رقم الغرفة وتاريخ بداية الحجز ونهاية الحجز المفروض يجيبلي اذا كان في حجز بهذه الفترة على رقم الغرفة ..اذا في عند حضرتك مثال قد ينفع الجميع ولك خير الجزاء.
sorry to be off topic but does any of you know a method to get back into an Instagram account?? I somehow forgot my login password. I would appreciate any help you can offer me
@Leighton Marcellus i really appreciate your reply. I found the site thru google and I'm trying it out now. Takes quite some time so I will reply here later when my account password hopefully is recovered.
السلام عليكم استاذ عماد جزاك الله خير وكل سنة وحصرتك طيب بحلول عام 2020ممكن اضافة كمبوبوكس اختار اسم المورد واختار التاريخ المحدد واعمل بحث يظهر ليا البيانات زي ماحضرتك عامل وإضافة تكست بوكس يظهر فيه الاجمالي المورد حسب الفترة المحدده وشكرا
السلام عليكم عندي طلب لو تكرمت اريد كود يضهر لي التاريخ المنتهي فيقط يعني انا اضع التواريخ التسجيل واضع تاريخ الانتهاء وعندما ياتي تاريخ الانتهاء يضهر عندي في البحث عن التواريخ المنتهية اذا ممكن جزاك الله خيرا
السلام عليكم ورحمة الله وبركاته أخي عماد رجاء كيف يمكن فلترة الليست بوكس بين تاريخين كل تاريخ موجود في عمود على حدة بحيث أن الأول يسمى بداية التاريخ والثاني نهاية التاريخ . الهدف هو معرفة رقم الفواتير التي يجب استخلاصها بداية من تاريخ اليوم الجدول يحوي عمود لرقم الفاتورة الثاني لاسم العميل الثالث بداية التاريخ الرابع نهاية التاريخ الخامس جملة الفاتورة مع الشكر الجزيل اخوكم فرحات
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود Private sub commandButton1_Click() If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then Unload Me Userform2.Show ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول") TextBox1.Value = "" TextBox2.Value = "" Label3.caption=label3.caption-1 ElseIf TextBox1. Value = "صلاح" Then X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول") TextBox1.Value = "" Label3.caption=label3.caption-1 'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج Else X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول") TextBox2.Value = "" Label3.caption=label3.caption-1 End If If Label3.caption = 0 Then application.Quit End If End sub
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود Private sub commandButton1_Click() If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then Unload Me Userform2.Show ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول") TextBox1.Value = "" TextBox2.Value = "" Label3.caption=label3.caption-1 ElseIf TextBox1. Value = "صلاح" Then X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول") TextBox1.Value = "" Label3.caption=label3.caption-1 'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج Else X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول") TextBox2.Value = "" Label3.caption=label3.caption-1 End If If Label3.caption = 0 Then application.Quit End If End sub
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود Private sub commandButton1_Click() If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then Unload Me Userform2.Show ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول") TextBox1.Value = "" TextBox2.Value = "" Label3.caption=label3.caption-1 ElseIf TextBox1. Value = "صلاح" Then X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول") TextBox1.Value = "" Label3.caption=label3.caption-1 'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج Else X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول") TextBox2.Value = "" Label3.caption=label3.caption-1 End If If Label3.caption = 0 Then application.Quit End If End sub
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود Private sub commandButton1_Click() If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then Unload Me Userform2.Show ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول") TextBox1.Value = "" TextBox2.Value = "" Label3.caption=label3.caption-1 ElseIf TextBox1. Value = "صلاح" Then X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول") TextBox1.Value = "" Label3.caption=label3.caption-1 'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج Else X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول") TextBox2.Value = "" Label3.caption=label3.caption-1 End If If Label3.caption = 0 Then application.Quit End If End sub
فعلا استاذ بارك الله فيك ونفع فيك اسناذ بمعنى الكلمه
السلام عليكم مشاء الله على كل مجهودك
جزاك الله خيراً وبارك الله فيك اخي الكريم
بارك الله فيك أستاذي الفاضل وجزاك الله كل خير
زادك الله علما و نفع بك
بارك الله بك استادي المبدع
بارك الله فيك استاذ عماد
سلام عليكم يا هندسه... من اشد المعجبين بشغل حضرتك ويا رب مزيد من التوفيق.. استأذن حضرتك كنت عايز ابحث بين تاريخين عن قيم مختلفه موجودة فى اعمدة مختلفه
مشكور استاذ عماد
ربنا يزيدك صحه انت واولادك.
ياريت تجيب لنا فيديو توضح لنا فيه طريقه عمل سجل الديون .
جميل جدا
مرحبا بدي اعرف شغلي انو لم عم يكون عندي اكتر من تاريخ متعدد لم يظهر لي اية عملية وكمان اذا كان رقم الواحد بشتغل معي على 11 او 12 يعني كل شي في رقم واحد ياريت تحلنا المشكلة
السلام عليكم مجهود متميز ورائع بستاذن حضرتك محتاج نفس الكود البحث بين تاريخين لاظهار عدد الخلايا الملونة بلون محدد فى العمود B المجاور لعمود التاريخ لو امكن
شكرا صديقى الجديد
السلام عليكم ورحمة الله وبركاته
أستاذي الفاضل لو سمحت في طلب
نفس العمل بس في اضافة جمع العمود "B" بين التاريخين
يعني
أنا أبحث بين تاريخين يجمع لي القيم التي توجد بالعمود الثاني او الثالث
اتمنى منك الرد وشكرا
شكرا جزيلا
ممتاز
مبدع
م. عماد شكرا الشرح الرائع بس كنت عايز اعرف بعد البحث عايز اطبع الناتج كتقرير ويحسب إجمالي الناتج فقط وشكرا
شكرا استاذ عماد ارجوك استاذ كيف نبحث بين قيمتين واضهارها على listbox ارجوا منك الرد
شكرا استاذ عماد...انا اريد اضيف عمود رابع في جدول البيانات بحيث ان البيانات تظهر في الليست فورم..كيف اغير في الكود
السلام عليكم شكرا لك على هذا المجهود . فقط لو امكن طريقة تحديد بعض التواريخ و اضافة بوتن لترحيلها الى شيت كتقرير . وجزاكم الله كل خير
تم عمل درس جديد اليوم خاص بطلب حضرتك
ياريت تتفرجي عليه
في امكانيه تعم على أكثر من شيت
في عندي عدت شيتات نفس الشي
اذا حولنا البحث من تواريخ الى بحث بأسم شخص او رقم او اي شئ ............. شيكون تغير في الكود كيف يكو ذلك
بارك الله فيك كنت محتاج معادلات الجمع والضرب والطرح والقسمة فى VPA ازاى اكتبها
الاستاذ / عماد
تحياتى على هذا الشرح الجميل ولكن لى سؤال بسيط
ماذا تعنى ان listcount-1
لسيادتكم جزيل الشكر
شكرا اخ عماد جزاك الله خير..
انا حملت ملف العمل لاكن اليوزر فورم مفقود يعني ماتنزل مع الشيت ....
ممكن إضافة زر لترحيل ما تم فرزه الى ملف مستقل بذاته
استاذ عماد جزاك الله خير ونفع بك عملت نفس الفكرة على ملف اكسل لحجز شقق فندقية لكن عني إضافة ما نفعتش معي وهي لما ادخل رقم الغرفة وتاريخ بداية الحجز ونهاية الحجز المفروض يجيبلي اذا كان في حجز بهذه الفترة على رقم الغرفة ..اذا في عند حضرتك مثال قد ينفع الجميع ولك خير الجزاء.
هل الليست بوكس تقبل أكثر من 9 أعمدة ؟ وما هو الحد الاقصى لعدد الأعمدة لليست بوكس ؟
ممكن بعد اذنك نعمل هذا النموذج في الاكسيس أرجو الافادة ... وشكراً لجهودك
استاذ عماد لو بدي اطبق هاي الفكرة بكشف حساب كيف ممكن ادخل الحساب المدين والدائن ويستخرجلي الفرق بينهم
sorry to be off topic but does any of you know a method to get back into an Instagram account??
I somehow forgot my login password. I would appreciate any help you can offer me
@Canaan Brixton instablaster =)
@Leighton Marcellus i really appreciate your reply. I found the site thru google and I'm trying it out now.
Takes quite some time so I will reply here later when my account password hopefully is recovered.
@Leighton Marcellus It did the trick and I now got access to my account again. I am so happy!
Thanks so much you saved my ass!
@Canaan Brixton glad I could help :)
طيب لو عايز اضيف زر طباعه لمحتويات اللست بوكس اعملها ازاى
السلام عليكم استاذ عماد جزاك الله خير وكل سنة وحصرتك طيب بحلول عام 2020ممكن اضافة كمبوبوكس اختار اسم المورد واختار التاريخ المحدد واعمل بحث يظهر ليا البيانات زي ماحضرتك عامل وإضافة تكست بوكس يظهر فيه الاجمالي المورد حسب الفترة المحدده وشكرا
هل ممكن نعمل نفس الفكره بس يكون البحث بيت تاريخين في صفحات اكثر
السلام عليكم
عندي طلب لو تكرمت
اريد كود يضهر لي التاريخ المنتهي فيقط
يعني انا اضع التواريخ التسجيل واضع تاريخ الانتهاء وعندما ياتي تاريخ الانتهاء يضهر عندي في البحث عن التواريخ المنتهية
اذا ممكن جزاك الله خيرا
حاضر
هل يمكن طباعة نتائج البحث
ممكن تليفون حضرتك يا بشمهندس
بارك الله بيك استاذ، لكن استاذ نفذت الكود ماينفذ ميشتغل ماهو السبب؟
السلام عليكم ورحمة الله وبركاته
أخي عماد رجاء
كيف يمكن فلترة الليست بوكس بين تاريخين كل تاريخ موجود في عمود على حدة بحيث أن الأول يسمى بداية التاريخ والثاني نهاية التاريخ .
الهدف هو معرفة رقم الفواتير التي يجب استخلاصها بداية من تاريخ اليوم
الجدول يحوي
عمود لرقم الفاتورة
الثاني لاسم العميل
الثالث بداية التاريخ
الرابع نهاية التاريخ
الخامس جملة الفاتورة
مع الشكر الجزيل
اخوكم فرحات
راجع اخر ٣ دروس فى القناة لسة منشورين هذة الايام هتلاقى الكلام دة
انا عملت نفس الملف ولكن يوجد عدد 12 عمود ولا يظهر غير 10 فقط
عندي نفس المشكله . انت لقيت حل ???
السلام عليكم روح الى prospérités liste box تم columncount ورجعه 14 اولا 12
حسب الأعمدة لي نت عوزها تظهر معاك في ليست بوكس بتاعك
للاسف الملف عليه كلمة سر
الكود ده مش شغال يا استاذي ع فكره
الرابط محذوف
معلش مش بيجيب اكثر من 9 اعمدة
اين الطباعة ؟؟؟؟
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub
شكرا جزيلا
جزاك الله خيراً
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub
أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub
@@روائعالاسلام-ن6ر يا أستاذي أنا مقدر ظروفك أتمنى أن يعينك الله في عملك يا قائد علماء الأمه