شكرا لحضرتك علي الموضوع الجميل بس بالله عندي سؤال هوا اللست بوكس ممكن يشيل بيانات بالعرض لحد كام وهل ممكن عمل قائمة تمرير للست بوكسل لو شال عدد كبير من البيانات بالعرض
السلام عليكم استاذ عماد على مجهودك الرائع عندي سؤال اتمنى تساعدني هل يمكنني ان ابحث في اوراق عمل مخصصه لانه عندي اوراق كثيره وانا اريد بحث في بعض اوراق وشكراا
السلام عليكم ورحمة الله استاذي الفاضل هل يمكن نسخ البيانات إلى شيت وبعد ذلك تدرج في الليست بوكس؟ أو نسخ البيانات من الليست بوكس إلى شيت لطباعتها؟ وجزاكم الله خيرا
السلامة عليكم ورحمة الله وبركاتة استاذ غاذي شكرآ ع الشرح الجميل والمفصل بس عندي مشكلة مع الكود بعد كتابة الكود بيظهر خطاء في المتغير 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
شكراً جزيلاً رابط ملف العمل محذوف ياريت ياأستاذ غازي تمر علي روابط اللي ليها ثلاث سنوات وسنتين وتغيرها وياريت الميديافاير لو سمحت وتكرمت وبارك الله فيك علي مجهودك الطيب .
السلام عليكم استاذ عماد يا ريت تعملنا درس عن البحث في السطر عن كلمتان مثال على ذالك السطر هو رحل وليد الى المدرسة لو كتبت رحل الى لازم يجبلي السطر مفيش حد شارح الكود دا بال vba عن طريق الفورم والكومبوبوكس داخل الفورم ويا ريت من التكست بوكس من على الشيت مباشرة شكرا لك جذيلا
السلام عليكم أستاذ عماد أتمنى من حظرتك الجواب على سؤالي جهزت فاتورة أكسل وعند الانتهاء حفظتها واليوم التالي حذفت بالخطأ ولَم انتبه وقمت بالحفظ للملف المحذوف هل أستطيع استعادة الملف بعد ما حذف كل شيء وقمت بعملية الحفظ أتمنى المساعدة بأسرع وقت
أستاذ عماد أتمنى أن تعلمنا كيفية بيع أو شراء عدة أصناف بالكرتون والقطعة والحبة وكيف لما أبيع بالكرتون ينقص بالمخزن الكراتين ولما أبيع بالقطعه ينقص بالمخزن بالقطعه وكيف لما أبيع بالحبة ينقص بالمخزن بالحبة وهكذا المرتجعات أتمنى أنت تفهم القصد وتحل مشكلة كثير من الناس وجزاك الله خيرا
السلام عليكم استاذ عماد وجزاك الله خير وان شاء الله في ميزان حسناتك: استاذ عماد عندي ملف البحث مكون من كمبو بوكس عدد 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نتبجة البحث في ليستبوكس.
السلام عليكم ورحمة الله
استاذي الفاضل
هل يمكن نسخ البيانات إلى شيت وبعد ذلك تدرج في الليست بوكس؟
أو نسخ البيانات من الليست بوكس إلى شيت لطباعتها؟
وجزاكم الله خيرا
السلامة عليكم ورحمة الله وبركاتة استاذ غاذي شكرآ ع الشرح الجميل والمفصل
بس عندي مشكلة مع الكود بعد كتابة الكود بيظهر خطاء في المتغير b =0
والكود مش راضي يبحث الرجاء الافادة يا استاذ
بارك الله فيك وجزاك الله عنا كل خير..بس عندي مشكلة المعلومة الموجودة في B لاتظهر كاملة عندما تكون طويلة
كيفك اعدل على الكود بحيث عند النقر المزدوج بالماوس يذهب الى السجل في اكسل
حضرتك حلت المشكلة لصاحب السوال و ما شرختش الكود للاسف 😡
يا أستاذ عماد أتمنى أن تشرح لنا كيفية ترحيل فاتورة مبعثرة تحتوي على أكثر من صنف وتاريخ وأسم العميل ورقم الفاتورة وإجمالي وغيره مع كيفية حفظ الكود بس أتمنى أن يترحل بدون كلمة 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
يا أستاذ عماد عندي مشكلة في حفض الماكرو إنو لما أحفظه وأخرج أرجع مره ثانية والكود موجود بس مايشتغل أتمنى حل المشكله وجزاك الله خير
Hello and thank you. The file not found! how can i get it please for reponse
شكراً جزيلاً رابط ملف العمل محذوف ياريت ياأستاذ غازي تمر علي روابط اللي ليها ثلاث سنوات وسنتين وتغيرها وياريت الميديافاير لو سمحت وتكرمت وبارك الله فيك علي مجهودك الطيب .
الملف غير متوفر يا استاذ , شكرا جزيلا و جزاك الله خيرا
تم تحديث الرابط الى الميديا فاير مباشرة
ملف العمل ما يتحمل عندي؟؟؟؟
السلام عليكم استاذ عماد
يا ريت تعملنا درس عن البحث في السطر عن كلمتان مثال على ذالك
السطر هو رحل وليد الى المدرسة
لو كتبت رحل الى لازم يجبلي السطر
مفيش حد شارح الكود دا بال vba
عن طريق الفورم والكومبوبوكس داخل الفورم ويا ريت من التكست بوكس من على الشيت مباشرة
شكرا لك جذيلا
السلام عليكم
أستاذ عماد أتمنى من حظرتك الجواب على سؤالي
جهزت فاتورة أكسل وعند الانتهاء حفظتها واليوم التالي حذفت بالخطأ ولَم انتبه وقمت بالحفظ للملف المحذوف
هل أستطيع استعادة الملف بعد ما حذف كل شيء وقمت بعملية الحفظ
أتمنى المساعدة بأسرع وقت
أستاذ عماد أتمنى أن تعلمنا كيفية بيع أو شراء عدة أصناف بالكرتون والقطعة والحبة وكيف لما أبيع بالكرتون ينقص بالمخزن الكراتين ولما أبيع بالقطعه ينقص بالمخزن بالقطعه وكيف لما أبيع بالحبة ينقص بالمخزن بالحبة وهكذا المرتجعات أتمنى أنت تفهم القصد وتحل مشكلة كثير من الناس وجزاك الله خيرا
الملف غير موجود
السلام عليكم استاذ عماد وجزاك الله خير وان شاء الله في ميزان حسناتك: استاذ عماد عندي ملف البحث مكون من كمبو بوكس عدد 2 واحد يعرض الحقول الرئيسية والثاني الفئات التي داخل الحقول وعندي ايضا زر امر وعندي قائمة اللست بوكس . الانجاز تم عمل ريط بين حقول الكمبو بوكس والفئة . واريد ان اخرج ( اظهار نتيجة واحدة للفئة المختارة ) في اللست بوكس وذلك عن طريق الضغظ على زر الامر . وقد حاولت بعمل الكود لزر الامر ولم ينجح وكذلك عملت الكود للست بوكس واظهر لي جميع الفئات ولم يظهر الاختيار المطلوب فقط. وشكرا
استاذي الكريم، هل من الممكن ان انواصل مع حضرتك عبر الوتساب، لانه اريد ان اطلب منك مساعدة بخصوص ملف على الاكسل يحتوي على ٢٠ شيت واريد ان اعمل صفحة للبحث مشابه للدرس اعلاه، رجاء اطلب من حضرتك التواصل هاتفيا لاشرح لك الفكرة طالبا مساعدتك وشكرا استاذي
رحمة الله على كل من آمن وتاب وعمل صالحا ...
بارك الله فيك أخي الحبيب عماد وجزاك الله كل خير
تم حل المشكلة منذ يومين على الرابط التالي
excel-egy.com/forum/t2285
جزاك الله خير استاذ ياسر
دائما سباق بالخير
ربنا مايحرمنا منك ومن علمك يا كبيرنا
الله ينور على حضرتك يا باش مهندس عماد
ولكن لو محتاج ابحث فى 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 شيتات فقط
لا يوجد ملف في الموقع 😭😭😭😭😭
سوف يتم تحديث الرابط
@@Emad_ghazi اتمنى انك تحدث الرابط في القريب العاجل
متى سيتم تحديث الرابط
جيب كود حبيبى
السلام عليكم ورحمة الله اذا أمكن اريد اتعلَّم كيف عمل برنامج خاص بالاكسل بالسجلات المدارس الثانوية وهو سجل القيد العام وهو يحوي على جميع معلومات الطلاب من الاسم الثلاثي واسم الام وتاريخ الميلاد وغيرها بحيث اذا ارت اَي اسم أو تحديث معلومة أستطيع ان ارجع اليها باي وقت يمكن ان احذف واحفظ وأصحح وهكذا وشكرا جزيلا اخوكم من العراق معاون مدير ثانوية
كيفية تحميل ملف العمل عن طريق الهاتف
بعد اذنك رقم تلفونك الوتس لو ممكن
بارك الله فيك