محمد عبد الناصر قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 (معدل) السلام عليكم ورحمة الله وبركاتة عايز امر بحث عن اسم مثلا اسم الصنف المراد البحث عنه هو مواسير 32مم اسود مجلفن عايز امر البحث اكتب فيه مواسير اسود يوديني لكل مواسير اسود مش لازم اكتب مواسير 32 اسود مجلفن عشان يوديني ليها عايز اكتب اختصار فقط ثم يذهب الى اسم الصنف وارد ومنصرف - Copy.xlsm تم تعديل أبريل 28, 2019 بواسطه محمد عبد الناصر
سليم حاصبيا قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 ممكن ان يكون المطلوب 1-ليس عليك الكتابة (مخافة الوقوع بأخطاء املائية أو مسافات زائدة أو ناقصة وتوفيراً للوقت) 2 اختر الاسم الذي تريد من الكومبو الذي ياخذ معطياته من شيت salim دون تكرار 3- لتحديث البيانات في شيت salim اضغط على الزر "هات ما عندك" special_data.xlsm
محمد عبد الناصر قام بنشر أبريل 28, 2019 الكاتب قام بنشر أبريل 28, 2019 49 minutes ago, سليم حاصبيا said: ممكن ان يكون المطلوب 1-ليس عليك الكتابة (مخافة الوقوع بأخطاء املائية أو مسافات زائدة أو ناقصة وتوفيراً للوقت) 2 اختر الاسم الذي تريد من الكومبو الذي ياخذ معطياته من شيت salim دون تكرار 3- لتحديث البيانات في شيت salim اضغط على الزر "هات ما عندك" special_data.xlsm 383.55 kB · 1 download ماشاء الله ماشاء الله ايه الشغل العالي ده انت عملت حاجات انا مطلبتهاش بس هتنفعني اوي اوي ماشاء الله عليك استاذ سليه ربنا يعزك 1
وجيه شرف الدين قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 بارك الله فيكم استاذ سليم وجعله الله فى ميزان حسناتك 1
محمد عبد الناصر قام بنشر أبريل 28, 2019 الكاتب قام بنشر أبريل 28, 2019 مع الاسف كود هات ما عندك يعطي نتائج خاظئه مثلا في ملف ابحث عن جوانتي قماش وانظر الى النتائج الخطأ
وجيه شرف الدين قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 2 ساعات مضت, محمد عبد الناصر said: مع الاسف كود هات ما عندك يعطي نتائج خاظئه مثلا في ملف ابحث عن جوانتي قماش وانظر الى النتائج الخطأ بعد اذن استاذى ومعلمى الاستاذ سليم الذى اتعلم منه جزاه الله عنا خير الجزاء اتفضل الملف لعله يفى بالغرض ولكن ملحوظة بعد البحث لا يوجد جوانتى قماش فى الاصناف وارد ومنصرف.xlsm 1
سليم حاصبيا قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 انا لم أر اي خطأ مع ذلك تم تحديث البرنامج ليبدو أكثر وضوحاً 1-الأصناف تظهر مرتبة ابجدياُ 2- تلوين الوارد بلون والمنصرف بلون أخر 3-تعليم صفوف الشبكة حيث يوجد بيانات 4- اذا كانت كمية الوادر او المنصرف تساوي صفر لا تظهر في التقرير 5-تمييز صف المجاميع بلون مختلف عسى أن ينال الاعجاب لا استطيع التحسين أكثر من هذا special_data_sorted.xlsm 2 1
Ali Mohamed Ali قام بنشر أبريل 28, 2019 قام بنشر أبريل 28, 2019 بالتأكيد عمل ممتاز جعله الله فى ميزان حسناتك 2
وجيه شرف الدين قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 6 ساعات مضت, سليم حاصبيا said: انا لم أر اي خطأ مع ذلك تم تحديث البرنامج ليبدو أكثر وضوحاً 1-الأصناف تظهر مرتبة ابجدياُ 2- تلوين الوارد بلون والمنصرف بلون أخر 3-تعليم صفوف الشبكة حيث يوجد بيانات 4- اذا كانت كمية الوادر او المنصرف تساوي صفر لا تظهر في التقرير 5-تمييز صف المجاميع بلون مختلف عسى أن ينال الاعجاب لا استطيع التحسين أكثر من هذا special_data_sorted.xlsm 379.61 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads الله عليك استاذ سليم رائع جزاكم الله خير استاذى الحبيب ارجو ان تقيم ملفى فى المشاركة 1
سليم حاصبيا قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 صديقي مصطفى رداً على رغبتك بتقييم الملف 1- قدر الامكان يحب الابتعاد عن الحلقات التكرارية وخاصة اذا كانت تتجاوز 1000 صف في كل تغيير لحرف واحد في الليست بوكس 2- اما و قد فرضت علينا الحلقات التكرارية فلا بد من التقليل منها 3- في هذا التعديل للكود يتم تخفيض عدد الحلقات التكرارية 6 أضعاف ( كانت 1700 عدد الصفوف × 6 عدد الاعمدة)=حوالي 10.000 دورة وأكثر لكن بالتعديل الذي أجريته لك (ما بين علامات +++++++) بعد الغاء الحلقة التكرارية J يعود عدد دروات الحلقات التكرارية الى 1700 4 - أنصج دائماً ياستعمال الخاصيىة Option Explicit في رأس كل كود لضبط كل انواع الأخطاء 5- يمكن استعمال الفلتر المتقدم لهذا الغرض أفضل من الحلقات التكرارية 6 - و اخيراً الكود معدلاً (مع الملاجظة ان يبدأ العدد h من الرقم 6 و SH.Range("A6:F10000").ClearContents حتى لا يتغير رأس الجدول الكود بعد التعديل Private Sub TextBox1_Change() Dim WS As Worksheet: Set WS = Sheets("salim") Dim SH As Worksheet: Set SH = Sheets("تقرير") Set f = WorksheetFunction '+++++++++++++++++++++++++++++++ SH.Range("A6:F10000").ClearContents h = 6 '++++++++++++++++++++++++++++++++++++ lr = WS.Range("C" & Rows.Count).End(xlUp).Row For i = 5 To lr On Error Resume Next m = Len(TextBox1) a = 0 a = f.Search(TextBox1, Left(WS.Cells(i, 3), m)) If a > 0 Then '+++++++++++++++++++++++++++++++++++++++++ SH.Cells(h, 1).Resize(, 6).Value = _ WS.Cells(i, 1).Resize(, 6).Value h = h + 1 ''''''''''''''''For j = 1 To 9 ''''''''''''''''SH.Cells(h, j) = WS.Cells(i, j) ''''''''''''''''Next j '++++++++++++++++++++++++++++++++++++++++++++ End If Next i End Sub الملف من جديد Wared_Mustafa.xlsm
وجيه شرف الدين قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 (معدل) 3 ساعات مضت, سليم حاصبيا said: صديقي مصطفى رداً على رغبتك بتقييم الملف 1- قدر الامكان يحب الابتعاد عن الحلقات التكرارية وخاصة اذا كانت تتجاوز 1000 صف في كل تغيير لحرف واحد في الليست بوكس 2- اما و قد فرضت علينا الحلقات التكرارية فلا بد من التقليل منها 3- في هذا التعديل للكود يتم تخفيض عدد الحلقات التكرارية 6 أضعاف ( كانت 1700 عدد الصفوف × 6 عدد الاعمدة)=حوالي 10.000 دورة وأكثر لكن بالتعديل الذي أجريته لك (ما بين علامات +++++++) بعد الغاء الحلقة التكرارية J يعود عدد دروات الحلقات التكرارية الى 1700 4 - أنصج دائماً ياستعمال الخاصيىة Option Explicit في رأس كل كود لضبط كل انواع الأخطاء 5- يمكن استعمال الفلتر المتقدم لهذا الغرض أفضل من الحلقات التكرارية 6 - و اخيراً الكود معدلاً (مع الملاجظة ان يبدأ العدد h من الرقم 6 و SH.Range("A6:F10000").ClearContents حتى لا يتغير رأس الجدول الكود بعد التعديل Private Sub TextBox1_Change() Dim WS As Worksheet: Set WS = Sheets("salim") Dim SH As Worksheet: Set SH = Sheets("تقرير") Set f = WorksheetFunction '+++++++++++++++++++++++++++++++ SH.Range("A6:F10000").ClearContents h = 6 '++++++++++++++++++++++++++++++++++++ lr = WS.Range("C" & Rows.Count).End(xlUp).Row For i = 5 To lr On Error Resume Next m = Len(TextBox1) a = 0 a = f.Search(TextBox1, Left(WS.Cells(i, 3), m)) If a > 0 Then '+++++++++++++++++++++++++++++++++++++++++ SH.Cells(h, 1).Resize(, 6).Value = _ WS.Cells(i, 1).Resize(, 6).Value h = h + 1 ''''''''''''''''For j = 1 To 9 ''''''''''''''''SH.Cells(h, j) = WS.Cells(i, j) ''''''''''''''''Next j '++++++++++++++++++++++++++++++++++++++++++++ End If Next i End Sub الملف من جديد Wared_Mustafa.xlsm 404.46 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 3 downloads جزاكم الله خير الجزاء استاذى الحبيب والشكر موصولا لحضراتكم وعلى ملاحظاتكم البناءة وان شاء الله يكون فى ميزان حسناتك وانا فى اشد السعادة بهذا التقيم ولكن كل الاعمال التى أقوم بها فى المدرسة اعتمد على الحلقات التكراريه تم تعديل أبريل 29, 2019 بواسطه وجيه شرف الدين
سليم حاصبيا قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 7 دقائق مضت, وجيه شرف الدين said: لانى أجيد العمل على الحلقات التكرارية انا مش بقول لا تستعملها بل حاول ان تتجنبها قدر الامكان بوجود عدة دالات مثل Find & FindNext مثلاً او من خلال Filter & advanced filter
وجيه شرف الدين قام بنشر أبريل 29, 2019 قام بنشر أبريل 29, 2019 2 دقائق مضت, سليم حاصبيا said: انا مش بقول لا تستعملها بل حاول او تتجنبها قدر الامكان بوجود عدة دالات مثل Find & FindNext مثلاً او من خلال Filter & advanced filter ان شاء الله ساحاول بقدر الامكان والف شكر على اهتمامك وبحاول بقدر الامكان من خلال منبركم هذا ان اساعد الاخوة والاصدقاء بعد اذنك طبعا
رامي قلعجية قام بنشر مايو 6, 2019 قام بنشر مايو 6, 2019 السلام عليكم شهر مبارك الله يتقبل منا ومنكم اخس سليم بعد التحية الطيبة للجميع كيف يمكن تطبيق هذا الكود على كومبوبوكس وتظهرلي النتائج الي بالعامود b فقط من شيت سليم الي قصدته انا عاوز بحث عن طريق الكومبوبوكس فقط لا اريد ان اتي بعلومات الصف
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.