شكرا لحضرتك علي الموضوع الجميل بس بالله عندي سؤال هوا اللست بوكس ممكن يشيل بيانات بالعرض لحد كام وهل ممكن عمل قائمة تمرير للست بوكسل لو شال عدد كبير من البيانات بالعرض
السلام عليكم استاذ عماد على مجهودك الرائع عندي سؤال اتمنى تساعدني هل يمكنني ان ابحث في اوراق عمل مخصصه لانه عندي اوراق كثيره وانا اريد بحث في بعض اوراق وشكراا
السلام عليكم ورحمة الله استاذي الفاضل هل يمكن نسخ البيانات إلى شيت وبعد ذلك تدرج في الليست بوكس؟ أو نسخ البيانات من الليست بوكس إلى شيت لطباعتها؟ وجزاكم الله خيرا
السلام عليكم استاذ عماد يا ريت تعملنا درس عن البحث في السطر عن كلمتان مثال على ذالك السطر هو رحل وليد الى المدرسة لو كتبت رحل الى لازم يجبلي السطر مفيش حد شارح الكود دا بال vba عن طريق الفورم والكومبوبوكس داخل الفورم ويا ريت من التكست بوكس من على الشيت مباشرة شكرا لك جذيلا
السلامة عليكم ورحمة الله وبركاتة استاذ غاذي شكرآ ع الشرح الجميل والمفصل بس عندي مشكلة مع الكود بعد كتابة الكود بيظهر خطاء في المتغير b =0 والكود مش راضي يبحث الرجاء الافادة يا استاذ
أستاذ عماد أتمنى أن تعلمنا كيفية بيع أو شراء عدة أصناف بالكرتون والقطعة والحبة وكيف لما أبيع بالكرتون ينقص بالمخزن الكراتين ولما أبيع بالقطعه ينقص بالمخزن بالقطعه وكيف لما أبيع بالحبة ينقص بالمخزن بالحبة وهكذا المرتجعات أتمنى أنت تفهم القصد وتحل مشكلة كثير من الناس وجزاك الله خيرا
يا أستاذ عماد أتمنى أن تشرح لنا كيفية ترحيل فاتورة مبعثرة تحتوي على أكثر من صنف وتاريخ وأسم العميل ورقم الفاتورة وإجمالي وغيره مع كيفية حفظ الكود بس أتمنى أن يترحل بدون كلمة copy يعني ماتنسخ الخلايا كما هي لا كن قم بترحيل قيم وأرقام فقط بدون تنسيق بدون أي شي وأتمنى لك دوام التوفيق والنجاح
شكراً جزيلاً رابط ملف العمل محذوف ياريت ياأستاذ غازي تمر علي روابط اللي ليها ثلاث سنوات وسنتين وتغيرها وياريت الميديافاير لو سمحت وتكرمت وبارك الله فيك علي مجهودك الطيب .
عملت نفس الكود ولكن يظهر فقط الاسماء وبقيه البيانات لاتظهر الرجا الافاده فين الخلل Private Sub TextBox8_Change() If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub Dim x As Worksheet ListBox1.Clear k = 0 For Each x In ThisWorkbook.Worksheets ss = x.Cells(Rows.Count, 1).End(xlUp).Row For Each c In x.Range("a2:a" & ss) b = InStr(c, TextBox8) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value ListBox1.List(k, 7) = x.Cells(c.Row, 8).Value ListBox1.List(k, 8) = x.Cells(c.Row, 9).Value ListBox1.List(k, 9) = x.Cells(c.Row, 10).Value k = k + 1 End If Next c Next x End Sub
السلام عليكم استاذ عماد وجزاك الله خير وان شاء الله في ميزان حسناتك: استاذ عماد عندي ملف البحث مكون من كمبو بوكس عدد 2 واحد يعرض الحقول الرئيسية والثاني الفئات التي داخل الحقول وعندي ايضا زر امر وعندي قائمة اللست بوكس . الانجاز تم عمل ريط بين حقول الكمبو بوكس والفئة . واريد ان اخرج ( اظهار نتيجة واحدة للفئة المختارة ) في اللست بوكس وذلك عن طريق الضغظ على زر الامر . وقد حاولت بعمل الكود لزر الامر ولم ينجح وكذلك عملت الكود للست بوكس واظهر لي جميع الفئات ولم يظهر الاختيار المطلوب فقط. وشكرا
السلام عليكم أستاذ عماد أتمنى من حظرتك الجواب على سؤالي جهزت فاتورة أكسل وعند الانتهاء حفظتها واليوم التالي حذفت بالخطأ ولَم انتبه وقمت بالحفظ للملف المحذوف هل أستطيع استعادة الملف بعد ما حذف كل شيء وقمت بعملية الحفظ أتمنى المساعدة بأسرع وقت
الله ينور على حضرتك يا باش مهندس عماد ولكن لو محتاج ابحث فى 3 شيات فقط ما العمل ارجو الافاده وذادكم الله علما الكود وضعته فى كومبوبوكس كالاتى Dim x As Worksheet Dim rng As Range Dim dic As Object For Each x In ThisWorkbook.Worksheets lr = x.Cells(Rows.Count, 2).End(xlUp).Row& Set rng = x.Range("b3:b" & lr) Set dic = CreateObject("scripting.dictionary") For Each cel In rng If cel.Value "" And Not dic.exists(cel.Value) Then dic.Add cel.Value, 0 End If Next cel Next x ComboBox1.List = dic.keys Set dic = Nothing بدا البحث فى كل الشيتات لكنى اريد البحث فى 3 شيتات فقط
استاذي الكريم، هل من الممكن ان انواصل مع حضرتك عبر الوتساب، لانه اريد ان اطلب منك مساعدة بخصوص ملف على الاكسل يحتوي على ٢٠ شيت واريد ان اعمل صفحة للبحث مشابه للدرس اعلاه، رجاء اطلب من حضرتك التواصل هاتفيا لاشرح لك الفكرة طالبا مساعدتك وشكرا استاذي
السلام عليكم ورحمة الله اذا أمكن اريد اتعلَّم كيف عمل برنامج خاص بالاكسل بالسجلات المدارس الثانوية وهو سجل القيد العام وهو يحوي على جميع معلومات الطلاب من الاسم الثلاثي واسم الام وتاريخ الميلاد وغيرها بحيث اذا ارت اَي اسم أو تحديث معلومة أستطيع ان ارجع اليها باي وقت يمكن ان احذف واحفظ وأصحح وهكذا وشكرا جزيلا اخوكم من العراق معاون مدير ثانوية
تم تحديث الرابط الى الميديا فاير مباشرة
و الله قناتك يا استاذ عماد قناة تعليمية بإمتياز و تعلمت فيها الكثير و حضرتك كنت بتستجيب لأسئلتنا على طول ربنا يديك الصحة و العافية
جزاك الله خيراً وبارك الله فيك اخي الكريم
بارك الله فيك استاذ عماد
الله يجعل كل ثانية من دروسك بآلاف الحسنات يوم القيامة
بارك الله فيك يا استاذنا جعلك الله دائماً عونا وسنداً لنا يارب العالمين
شكرا جزيلا استاذ
شكراً لك اخي عماد غازي اعتذر على التاخير في الرد لظروف صحية واشكرك من اعماق قلبي على كلامك اللطيف ونعم هذا هو المطلوب في شرحك الاكثر من رائع
دروس اكثر من رائعة بارك الله فيك اخونا عماد
بارك الله فيك أستاذي الفاضل وجزاك الله خير الجزاء.
وزادك الله علما ونفع بك.
شكرا استاذ عماد غازي جعله الله في ميزان حسناتك
اللهم صل على النبي ، مدرسة يا باشا
استاذ عماد بارك الله فيك على مجهودك
Thanks for your Help your file is appreciated it is wonderful
ألف شكر لك يا أستاذ عمل جميل جدا
الله يبارك فيك و في اهلك ويعطيك ااااااااالف عافية، داءما متميز / اخوك من الجزاءر
بارك الله فيك
هاائل والله ياستاذي منك بنتعلم
جزاك الله خيرا
رائع ❤❤❤❤
سلام عليكم استاذ لطفأ طريقة ادراج المعلومات في عدد من التكست بوكس لنفس البرانمج
سلمت يدك لكن
احتاج انه يطلع راس الجدول
التسلسل والاسم والمرتب وغير يطلع راس اللست بوك فارغ
السلام عليكم ورحمة الله ... تحية طيبة لو اممكن كيف تعمل بحث محدد فقط للعمودين اثنين وبنفس هذا كود البحث؟ ودمتم
شكرا جزيلا استاذنا الغالي لو تكرمت معنى هذا كود
ss = ws.Cells(Rows.Count, 2).End(xlUp).Row
و
ListBox1.List(k, 0) = ws.Cells(c.Row, 2).Value
وشكرا
شكرا لحضرتك علي الموضوع الجميل بس بالله عندي سؤال هوا اللست بوكس ممكن يشيل بيانات بالعرض لحد كام وهل ممكن عمل قائمة تمرير للست بوكسل لو شال عدد كبير من البيانات بالعرض
الف شكر ع مجهودك ❤
سؤال لو تكرمت عندي اكثر من 200 شيت محتاج اعمل ليهم هايبر لينك ف وقت واحد ، وجزاك الله خيرا
جزاك الله خيراً وبارك الله فيك اخي الكريم
تم عمل شرح فيديو هنزل اليوم ان شاء الله
لحل مشكلتك واكثر مما تتوقع كمان
@@Emad_ghazi شكراا جدا ليك ♥️
السلام عليكم استاذ عماد على مجهودك الرائع
عندي سؤال اتمنى تساعدني
هل يمكنني ان ابحث في اوراق عمل مخصصه
لانه عندي اوراق كثيره وانا اريد بحث في بعض اوراق
وشكراا
يا ريت تعرفنا نعمل الملف من الاول ازاي
يعني نعمل اليوزر فورم و الاكواد لان الملف مش بيحمل
بقولك بدور على مكتب محاسبه ادرب فيه ممكن تدلنى على مكتب محتاج محاسبين
السلام عليكم ، كيف ممكن انه افتح الشيت الي فيه الكلمة التي ابحث عنها عند الضغط على الليست في فورم البحث وذهاب المؤشر على الكلمة التي نبحث عتها
أسأل الله أن يوفقك ويسعدك في الدارين أستاذنا الكريم
سؤال : عن طريق الأكواد أريد إظهار رسالة خطأ (الكمية غير متوفرة مع مسح القيمة المدخلة من الخلية)
من فضلك أريد شيء مماثل بس بالوورد
السلام عليمن استاذ، ممكن شرح للكود، والمقصود ب C، لان الكود لا يعمل مع اللغة الانجليزية اعتقد اي البحث بالمفردات الانجليزية
السلام عليكم ورحمة الله
استاذي الفاضل
هل يمكن نسخ البيانات إلى شيت وبعد ذلك تدرج في الليست بوكس؟
أو نسخ البيانات من الليست بوكس إلى شيت لطباعتها؟
وجزاكم الله خيرا
هل ممكن عمل تصميم لتوزيع تلقائي ل 5 محاضرات يوميا لمدة أسبوع عدا الجمعة ل 25 تخصص
حضرتك حلت المشكلة لصاحب السوال و ما شرختش الكود للاسف 😡
السلام عليكم
شكرا ...كيف يكمن الانتقال إلى السطر الذي تتواجد فيه الاسم المبحوث عنه بالضغط عليه بlنتبجة البحث في ليستبوكس.
السلام عليكم استاذ عماد
يا ريت تعملنا درس عن البحث في السطر عن كلمتان مثال على ذالك
السطر هو رحل وليد الى المدرسة
لو كتبت رحل الى لازم يجبلي السطر
مفيش حد شارح الكود دا بال vba
عن طريق الفورم والكومبوبوكس داخل الفورم ويا ريت من التكست بوكس من على الشيت مباشرة
شكرا لك جذيلا
السلامة عليكم ورحمة الله وبركاتة استاذ غاذي شكرآ ع الشرح الجميل والمفصل
بس عندي مشكلة مع الكود بعد كتابة الكود بيظهر خطاء في المتغير b =0
والكود مش راضي يبحث الرجاء الافادة يا استاذ
من فضل حضرتك استاذ عماد عندى مشكلة انى عايز اعمل علاقة بين خلايا داخل نفس الشيت بس فى اعمدة متباعدة و مش نفس البداية او النهاية فهل ده ينفع ؟؟؟
أستاذ عماد أتمنى أن تعلمنا كيفية بيع أو شراء عدة أصناف بالكرتون والقطعة والحبة وكيف لما أبيع بالكرتون ينقص بالمخزن الكراتين ولما أبيع بالقطعه ينقص بالمخزن بالقطعه وكيف لما أبيع بالحبة ينقص بالمخزن بالحبة وهكذا المرتجعات أتمنى أنت تفهم القصد وتحل مشكلة كثير من الناس وجزاك الله خيرا
يا أستاذ عماد أتمنى أن تشرح لنا كيفية ترحيل فاتورة مبعثرة تحتوي على أكثر من صنف وتاريخ وأسم العميل ورقم الفاتورة وإجمالي وغيره مع كيفية حفظ الكود بس أتمنى أن يترحل بدون كلمة copy يعني ماتنسخ الخلايا كما هي لا كن قم بترحيل قيم وأرقام فقط بدون تنسيق بدون أي شي وأتمنى لك دوام التوفيق والنجاح
بارك الله فيك وجزاك الله عنا كل خير..بس عندي مشكلة المعلومة الموجودة في B لاتظهر كاملة عندما تكون طويلة
كيفك اعدل على الكود بحيث عند النقر المزدوج بالماوس يذهب الى السجل في اكسل
شكراً جزيلاً رابط ملف العمل محذوف ياريت ياأستاذ غازي تمر علي روابط اللي ليها ثلاث سنوات وسنتين وتغيرها وياريت الميديافاير لو سمحت وتكرمت وبارك الله فيك علي مجهودك الطيب .
يا أستاذ عماد عندي مشكلة في حفض الماكرو إنو لما أحفظه وأخرج أرجع مره ثانية والكود موجود بس مايشتغل أتمنى حل المشكله وجزاك الله خير
عملت نفس الكود ولكن يظهر فقط الاسماء وبقيه البيانات لاتظهر الرجا الافاده فين الخلل
Private Sub TextBox8_Change()
If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub
Dim x As Worksheet
ListBox1.Clear
k = 0
For Each x In ThisWorkbook.Worksheets
ss = x.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In x.Range("a2:a" & ss)
b = InStr(c, TextBox8)
If b > 0 Then
ListBox1.AddItem
ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value
ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value
ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value
ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value
ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value
ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value
ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value
ListBox1.List(k, 7) = x.Cells(c.Row, 8).Value
ListBox1.List(k, 8) = x.Cells(c.Row, 9).Value
ListBox1.List(k, 9) = x.Cells(c.Row, 10).Value
k = k + 1
End If
Next c
Next x
End Sub
الملف غير موجود
ملف العمل ما يتحمل عندي؟؟؟؟
السلام عليكم استاذ عماد وجزاك الله خير وان شاء الله في ميزان حسناتك: استاذ عماد عندي ملف البحث مكون من كمبو بوكس عدد 2 واحد يعرض الحقول الرئيسية والثاني الفئات التي داخل الحقول وعندي ايضا زر امر وعندي قائمة اللست بوكس . الانجاز تم عمل ريط بين حقول الكمبو بوكس والفئة . واريد ان اخرج ( اظهار نتيجة واحدة للفئة المختارة ) في اللست بوكس وذلك عن طريق الضغظ على زر الامر . وقد حاولت بعمل الكود لزر الامر ولم ينجح وكذلك عملت الكود للست بوكس واظهر لي جميع الفئات ولم يظهر الاختيار المطلوب فقط. وشكرا
السلام عليكم
أستاذ عماد أتمنى من حظرتك الجواب على سؤالي
جهزت فاتورة أكسل وعند الانتهاء حفظتها واليوم التالي حذفت بالخطأ ولَم انتبه وقمت بالحفظ للملف المحذوف
هل أستطيع استعادة الملف بعد ما حذف كل شيء وقمت بعملية الحفظ
أتمنى المساعدة بأسرع وقت
الملف غير متوفر يا استاذ , شكرا جزيلا و جزاك الله خيرا
تم تحديث الرابط الى الميديا فاير مباشرة
Hello and thank you. The file not found! how can i get it please for reponse
الله ينور على حضرتك يا باش مهندس عماد
ولكن لو محتاج ابحث فى 3 شيات فقط ما العمل
ارجو الافاده وذادكم الله علما
الكود وضعته فى كومبوبوكس كالاتى
Dim x As Worksheet
Dim rng As Range
Dim dic As Object
For Each x In ThisWorkbook.Worksheets
lr = x.Cells(Rows.Count, 2).End(xlUp).Row&
Set rng = x.Range("b3:b" & lr)
Set dic = CreateObject("scripting.dictionary")
For Each cel In rng
If cel.Value "" And Not dic.exists(cel.Value) Then
dic.Add cel.Value, 0
End If
Next cel
Next x
ComboBox1.List = dic.keys
Set dic = Nothing
بدا البحث فى كل الشيتات لكنى اريد البحث فى 3 شيتات فقط
استاذي الكريم، هل من الممكن ان انواصل مع حضرتك عبر الوتساب، لانه اريد ان اطلب منك مساعدة بخصوص ملف على الاكسل يحتوي على ٢٠ شيت واريد ان اعمل صفحة للبحث مشابه للدرس اعلاه، رجاء اطلب من حضرتك التواصل هاتفيا لاشرح لك الفكرة طالبا مساعدتك وشكرا استاذي
رحمة الله على كل من آمن وتاب وعمل صالحا ...
بارك الله فيك أخي الحبيب عماد وجزاك الله كل خير
تم حل المشكلة منذ يومين على الرابط التالي
excel-egy.com/forum/t2285
جزاك الله خير استاذ ياسر
دائما سباق بالخير
ربنا مايحرمنا منك ومن علمك يا كبيرنا
السلام عليكم ورحمة الله اذا أمكن اريد اتعلَّم كيف عمل برنامج خاص بالاكسل بالسجلات المدارس الثانوية وهو سجل القيد العام وهو يحوي على جميع معلومات الطلاب من الاسم الثلاثي واسم الام وتاريخ الميلاد وغيرها بحيث اذا ارت اَي اسم أو تحديث معلومة أستطيع ان ارجع اليها باي وقت يمكن ان احذف واحفظ وأصحح وهكذا وشكرا جزيلا اخوكم من العراق معاون مدير ثانوية
جيب كود حبيبى
كيفية تحميل ملف العمل عن طريق الهاتف
لا يوجد ملف في الموقع 😭😭😭😭😭
سوف يتم تحديث الرابط
@@Emad_ghazi اتمنى انك تحدث الرابط في القريب العاجل
متى سيتم تحديث الرابط
بعد اذنك رقم تلفونك الوتس لو ممكن
بارك الله فيك