ايهاب الغريب قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 السلام عليكم ورحمة الله وبركاته اخوانا الافاضل لي طلب لست ادري هل هو في المعقول ام لا ولكن كل شئ ربما يكون مقبول ومعقول مع اخوانا العباقرة في هذا المنتدي عايز قائمة منسدلة في الخلية D4 في ورقة قصاقيص يكون مصدرها الصف رقم ((( 1 ))) في ورقة بيانات وأكرر مرة أخر الصف وليس العمود ويبني علي اختيار أحد القيم بها تصفية النتائج تحت الصف 6 في ورقة قصاقيص علي سبيل المثال :- نختار من قائمة منسدلة في الخلية D4 في ورقة قصاقيص بنك الأسكندرية فرع ههيا فيظهر اسماء من عليهم اقساط في هذا البنك فقط وقيمة القسط امام كل اسم ورقمة القومي اتمني ان يكون لها حل عن عباقرة المنتدي وارجوا الا اكون قد اطلت علي حضراتكم والسلام عليكم ورحمة الله وبركاته Book1_4.rar
احمد ابوزيزو قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 ملاحظة خارج الطلب ولكنها داخل الموضوع مجرد ملاحظة علي حساب ضريبة الكسب الضريبة بالكشوف محسوبه علي 1% من جملة الاستخقاق بعيدا تماما عن قانون ضريبة الكسب
احمد ابوزيزو قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 نموذج لحساب ضريبة كسب العمل طبقا للقانون 91 لسنة 2005 وتعديلات القانون حتى 2013 من اعداد دعم فنى سوهاج نموذج حساب الضريبة.rar 1
ايهاب الغريب قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 شكرا اخي الفاضل لكنه مجرد مثال ولم يتم التطبيق وارجوا ان كان لديكم ما يفيد بهذا الصدد فلنتعلمه منكم وجزاكم الله خيرا
ايهاب الغريب قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 ارجو من اخوانا الافاضل عباقرة الاكسيل توضيح امكانية المطلوب من عدمه عمل قائمة منسدله مصدرها صف وليس عمود ولكم جزيل الشكر
ياسر خليل أبو البراء قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 تفضل أخي الحبيب الكود التالي يقوم بعمل القائمة المنسدلة كما طلبت Sub UniqueSortedList() Dim Arr, X As Object Application.ScreenUpdating = False With CreateObject("System.Collections.ArrayList") Set X = .Clone: X.Add " " Sheets("بيانات").Activate For Each Arr In Range("A1", Cells(1, Columns.Count).End(xlToLeft)).Value If Arr <> "" And Left(Arr, 3) = "بنك" Then If IsNumeric(Arr) Then If Not .Contains(Arr) Then .Add Arr Else If Not X.Contains(Arr) Then X.Add CStr(Arr) End If End If Next .Sort: X.Sort: .addRange X: Arr = Join(.ToArray, ",") End With Sheets("قصاقيص").Activate With Sheets("قصاقيص").Range("D4").Validation .Delete .Add xlValidateList, 1, 1, Arr End With Application.ScreenUpdating = True End Sub
ايهاب الغريب قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 جزاكم الله خيرا كنت افضل عملها بالمعادلات ولكن ان كان لا بد من الاكواد فارجوك ان تعلمني كيفية التنفيذ بالكود واكرر لك شكري وامتناني
بن علية حاجي قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 السلام عليكم ورحمة الله أخي الكريم إيهاب، هذه محاولة في الملف المرفق بإضافة تسميتين : Banks لقائمة منسدلة للبنوك، Bank_Col لتحديد عمود البنك المختار من قائمة البنوك، وإضافة عمود مساعد العمود DA من شيت "بيانات" وتم تعديل المعادلات في شيت "قصاقيص"... أرجو أن تفي بالغرض المطلوب... أخوك بن علية الملف المرفق : Book1_5.rar
ايهاب الغريب قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 (معدل) هي ممتازة استاذنا الكبير ولكن هل يمكن تصفية المنتج (الجدول الناتج عن اختيار العنصر من القائمة المنسدلة ) حتي يستوعب العناصر الناتجة لا بالزيادة او بالنقصان واقصد بالزيادة كما في الصور المرفقة فهل ذلك بالامكان؟ واخيرا جزاكم الله خيرا استاذنا تم تعديل يناير 18, 2015 بواسطه ايهاب الغريب
بن علية حاجي قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 السلام عليكم ورحمة الله أخي إيهاب، في الحقيقة هذا ممكن جدا يكفي فقط تمديد القائمة المنسدلة Banks وتعديل بسيط على معادلة التسمية Banks_Col ولكن المشكل هو أنه في الصف الأول من سيت بيانات توجد الكثير من الخلايا الفارغة لذا فالقائمة المنسدلة تصبح طويلة جدا وتحوي فراغات كثيرة... والتعديل على الملف ستجده في رد آخر بعد اقتراحاتك على هذه القائمة المنسدلة وعناصرها (تخصيص الأعمدة المراد إدراجها في القائمة)... أخوك بن علية
ايهاب الغريب قام بنشر يناير 18, 2015 الكاتب قام بنشر يناير 18, 2015 وعليكم السلام اخي الحبيب قمت بتعديل الملف بناء علي فكرتك جزاكم الله خيرا وفي انتظار تطبيق فكرة عرض الجدول الناتج فقط والسلام عليكم ورحمة الله وبركاته Book1_5.rar
بن علية حاجي قام بنشر يناير 18, 2015 قام بنشر يناير 18, 2015 (معدل) السلام عليكم ورحمة الله أخي الكريم إيهاب، في الحقيقة لقد قمت بالضروري ولم تترك لي شيئا سوى تمديد الجدول في شيت "قصاقيص" إلى 100 صف بمعادلاته باعتبار أن بعض البيانات تصل إلى حوالي 100 صف مثل "اشتراك سيارات"... أخوك بن علية الملف المرفق : Book1_5_2.rar تم تعديل يناير 18, 2015 بواسطه بن علية حاجي
ايهاب الغريب قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 وعليكم السلام ورحمة الله وبركاته اولا جزاكم الله خيرا علي الرد وان لم يكن هو المطلوب وربما يرجع ذلك لقصور امكانياتي في توصيل ما اريد اخي الفاضل عند اختياري اشتراك سيارة ظهر المائة مشترك هذا تمام ولكن عند اختيار جمعية الاسر المنتجة يظهر مشترك واحد ويبقي المائة صف في الجدول ما اريدة في حالة ظهور عدد اقل من المائة للجدول يتقلص عدد الصفوف لهذا العدد اخيرا اكرر شكري العميق لطول بالك علي UTF-8__Book1_5_2.rar
بن علية حاجي قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 السلام عليكم ورحمة الله أخي الكريم ايهاب، تم تمديد الصفوف إلى 200 صف بمعادلاته (تحسبا لأن تكون البيانات المستدعاة تحتاج إلى ما يقارب 200 صف)... والذي فهمته من مطلوبك هو أنك تريد عرض عدد الصفوف في الجدول بما يوافق عدد البيانات الموجودة لكل اختيار لعنصر القائمة في الخلية D4، وفي هذه الحالة المعادلات لا تمكّن من عمل ذلك (إخفاء الصفوف) لذا تم الاستعانة بكود، وقد تم إنشاء كود يقوم بإخفاء كل الصفوف الفارغة في الصفوف من 7 إلى 206 في شيت "قصاقيص" حسب عدد البيانات الفعلية (وهذا العدد مبين في الخلية F4)... أرجو أن يكون هذا الحل أو أقرب إليه... أخوك بن علية الملف المرفق : Book1_5.rar 1
ايهاب الغريب قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 السلام عليكم ورحمة الله وبركاته استاذنا انت شخصت المطلوب 10/10 ولكن المرفق لا يوجد به شئ من الحل حتي الملحوظة الجميلة المشار اليها في f4 ليست موجودة ارجوا عمل اللازم وشكرا
احمد ابوزيزو قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 بعد اذن السادة الاعضاء كود اخفاء او اظهار الصفوف الفارغة Sub إخفاء_الفارغ() Application.ScreenUpdating = False Dim Cl As Range For Each Cl In Range("c20:N20") If Cl.Value = 0 Then Cl.EntireColumn.Hidden = True End If Next Cl Range("A1").Select Application.ScreenUpdating = True End Sub Sub إظهار_الفارغ() Application.ScreenUpdating = False Columns("B:O").Select Selection.EntireColumn.Hidden = False Range("A1").Select Application.ScreenUpdating = True End Sub الكود من مشاركات الاعضاء يمكن التعديل علي الكود للتحكم في الصفوف التي ينطبق عليها الكود
احمد ابوزيزو قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 (معدل) الكود السابق الاشاره اليه Sub Exc() Range("c7:c210").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True End Sub http://www.officena.net/ib/index.php?showtopic=36591 delete.rar تم تعديل يناير 19, 2015 بواسطه احمد ابوزيزو
ياسر خليل أبو البراء قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 إثراءاً للموضوع هذا حل آخر كنت قد جهزته بالأمس بالأكواد Extract Data By Code.rar
ايهاب الغريب قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 لدي رسالة خطأ كما هو موضح في التالي
ياسر خليل أبو البراء قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 أخي الحبيب المشكلة بملفك حيث أنك قمت بعمل حدود لكل خلايا ورقة العمل ، وهذا خطأ فادح حيث أنه يثقل من التعامل مع الملف من ناحية ويتعارض مع هذا السطر في الكود.. قم بحميل المرفق التالي Extract Data By Code.rar
ايهاب الغريب قام بنشر يناير 19, 2015 الكاتب قام بنشر يناير 19, 2015 وعليكم السلام ورحمة الله وبركاته اولا جزاكم الله خيرا علي الرد وان لم يكن هو المطلوب وربما يرجع ذلك لقصور امكانياتي في توصيل ما اريد اخي الفاضل عند اختياري اشتراك سيارة ظهر المائة مشترك هذا تمام ولكن عند اختيار جمعية الاسر المنتجة يظهر مشترك واحد ويبقي المائة صف في الجدول ما اريدة في حالة ظهور عدد اقل من المائة للجدول يتقلص عدد الصفوف لهذا العدد اخيرا اكرر شكري العميق لطول بالك علي استاذي الفاضل ربما اكون حتي هذه المشاركة ماشي في الاتجاه الصحيح ولكن لسبب ما لم يواصل مع استاذي ابن عليه أسأل الله عز وجل ان يكون المانع له خير وارجو من حضرتك ان نكمل في نفس المنوال واكون شاكر لكم جميعا اساتذتي الكرام UTF-8__Book1_5_2.rar
بن علية حاجي قام بنشر يناير 19, 2015 قام بنشر يناير 19, 2015 السلام عليكم ورحمة الله أخي الكريم إيهاب، معذرة على الخلل في ردي السابق عند إرفاق الملف الخطأ لما ذكرته في هذا الرد... وفي المرفق تجد الملف الصحيح من صيغة .xlsm لإضافة كود إخفاء الصفوف الفارغة وضعته في حدث كود الشيت "قصاقيص"... معذرة مرة أخرى... أخوك بن علية الملف المرفق : Book1_5.rar
ايهاب الغريب قام بنشر يناير 21, 2015 الكاتب قام بنشر يناير 21, 2015 (معدل) الملف لا يعمل بكفاءة كما هو موضح بالصورة المرفقة تم تعديل يناير 21, 2015 بواسطه ايهاب الغريب
بن علية حاجي قام بنشر يناير 21, 2015 قام بنشر يناير 21, 2015 (معدل) السلام عليكم ورحمة الله الملف لا يعمل بكفاءة كما هو موضح بالصورة المرفقة أخي الكريم، أعتقد أن عملية الحساب التلقائية عندك غير مفعلة... وقد قمتَ حسب اعتقادي بتغيير عنصر القائمة المنسدلة في الخلية D4 إلى "اشتراك سيارات" ثم قمت بتنفيذ عملية الحساب يدويا (بالضغط على مفتاح F9 أو غيرها) وكانت الخلية F4 تحوي الرقم 6 لذا بعد تنفيذ عملية الحساب تم تغيير مضمون الخلية F4 إلى 99 ولكن لم يتم عرض سوى 6 عناصر من كل القائمة... والله أعلم ربما يكون عندك مشكل آخر... وليس لي فكرة أخرى لهذا الخطأ لأن الملف يعمل عندي بصورة جيدة... أخوك بن علية تم تعديل يناير 21, 2015 بواسطه بن علية حاجي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.