VB Programmer قام بنشر يوليو 3, 2011 مشاركة قام بنشر يوليو 3, 2011 السلام عليكم أنا عضوة جديدة بالمنتدى و أتمنى أن أستفيد من الخبرات الموجودة هنا عندي مشكلة و احتاج لحل من الخبراء فتحت صفحة إكسل جديدة و أدرجت Activ x control - combo و عملت كود باستخدام vba بحيث إن المستخدم بإمكانه اختيارنوع الأصل ليظهر له في الخلية التالية رقم الأصل ثم على أساسه يتم تعبئة الكومبو الآخر بتصنيف الأصل و عند اختيار المستخدم من كومبو تصنيف الأصل يظهر رقم التصنيف في الخلية التالية و بعدها يصبح رقم الجرد جاهز في آخر خلية في الجدول.. كل شيء يعمل تمام لكن مشكلتي تتلخص قي أني أريد طريقة بحيث أنسخ كوموب الأصل و كومبو تصنيف الأصل لعدد 100 خلية في الصفحة مع الاحتفاظ بالأكواد فهل هناك طريقة مثل استخدام المصفوفات؟؟ أرجو الرد من أهل الخبرة.. فأنا بحاجةللمساعدة.. و اعتذر عن الإطالة.. Fixed_Asset_Form.rar رابط هذا التعليق شارك More sharing options...
VB Programmer قام بنشر يوليو 3, 2011 الكاتب مشاركة قام بنشر يوليو 3, 2011 نسيت أقول لكم أول شي لازم نضغط على Sheet3 ثم نرجع لاستمارة الأصول لأن كود تعبئة الكومبو بالبيانات يعمل في Sheet Activation.. بانتظار ردودكم بارك الله فيكم رابط هذا التعليق شارك More sharing options...
VB Programmer قام بنشر يوليو 4, 2011 الكاتب مشاركة قام بنشر يوليو 4, 2011 للرفع.. بارك الله فيكم رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 4, 2011 مشاركة قام بنشر يوليو 4, 2011 (معدل) السلام عليكم ورحمة الله أختي الكريمة، أهلا بك عضوة جديدة في هذا الصرح الكبير بين إخوانك واخواتك، نتمنى لك الإفادة والاستفادة... بالنسبة لملفك وحسب ما فهمت تريدين إنشاء الكومبو في كل خلايا الجدول وأقترح عليك القيام بذلك بطريقة أخرى وذلك باستعمال خاصية "التحقق من الصحة" Validation واستعمال القوائم المنسدلة المتعددة، وقد قمت بالعملية في الملف المرفق بإضافة ورقة عمل بها كل أنواع الأصول (ويمكن تغييرها وتمديدها) مع قوائم تصنيفات كل هذه الأصول (ويمكن تغييرها وتمديدها) وإضافة بعض التسميات والمعادلات المناسبة للعملية... أتمنى أن يفي هذا العمل بالغرض إلى أن يقوم احد الإخوة العارفين أكثر بالأكواد بحل المسألة بطريقة الأكواد... ملاحظة: الملف المرفق به ملفين متشابهين أحدهما بإصدار 2003 ، والآخر بإصدار 2007 (للاستفادة) أخوك بن علية Fixed_Asset_Form.rar تم تعديل يوليو 4, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
VB Programmer قام بنشر يوليو 5, 2011 الكاتب مشاركة قام بنشر يوليو 5, 2011 و عليكم السلام و رحمة الله و بركاته أولاً أود أن أشكرك جزيل الشكر على مساعدتي.. و أقول لك الله يجزاك عني كل خير. ثانياً: بالضبط هذا المطلوب.. أجدت أخي الكريم.. بارك الله فيك.. أنا ممكن أكتب أكواد فيجوال لكن لست متمكنة من الإكسل.. و أريدأن أعرف أين (List) التي وضعت فيها الشرط؟؟ و عندي سؤال آخر.. عندما نختار في نوع الأصل أصل ما له تصنيف المفروض حقل التصنيف يكون فارغ.. و ذلك خوفاً من أخطاء الإدخال من قبل الموظفات.. فهل يمكن ذلك عن طريق Data Validation؟؟ لأني استطعت تحقيق ذلك بالكود.. أو لا يمكن تحقيق هذا الشرط مع Data Validation؟؟ مع الشكر الجزيل.. واعتذر عن الإطالة.. رابط هذا التعليق شارك More sharing options...
VB Programmer قام بنشر يوليو 5, 2011 الكاتب مشاركة قام بنشر يوليو 5, 2011 أخي الكريم بارك الله فيك لاحظت إن كود رقم الأصل مكون من ثلاث خانات.. بينما المطلوب هو خانتين فقط ... هل هناك طريقة أتبعها لكي أعدل الملف بنفسي؟؟ ملاحظة: لا أعتقد إني بحاجة للأكواد الآن.. :) مع الشكر الجزيل رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر يوليو 6, 2011 مشاركة قام بنشر يوليو 6, 2011 السلام عليكم ورحمة الله أختي الكريمة، لا شكر على واجب وتجديننا إن شاء الله في الخدمة بما نستطيع ونعرف... في الحقيقة إن الأكواد في الإكسيل أحسن وأفضل لتخفيف وتبسيط عمل الملفات بينما المعادلات الكثيرة والتنسيقات تجعل في أكثر الأحيان عمل الملفات بطيئا وحجمها كبير ... وإجابة على بعض أسئلتك: * أريدأن أعرف أين (List) التي وضعت فيها الشرط؟؟ : هذه تجدينها في خاصية "إدراج/تسمية" Insertion/Name من قائمة الاختيارات... * و عندي سؤال آخر.. عندما نختار في نوع الأصل أصل ما له تصنيف المفروض حقل التصنيف يكون فارغ.. : وهذه تم حلها بواسطة خاصية "التنسيقات الشرطية" Conditional Formatting لخلايا هذا العمود... * كود رقم الأصل مكون من ثلاث خانات.. بينما المطلوب هو خانتين فقط ... تم تغييره بواسطة "تنسيق الرقم بالخلايا" وكل هذه العمليات وأخرى (قمت بتغيير بعض المعادلات) تجدينها في الملف المرفق (نسختين)... وإن شاء الله أكون قد وُفّقت في تحسين أداء الملف... أخوك بن علية Fixed_Asset_Form.rar 1 رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر يوليو 6, 2011 مشاركة قام بنشر يوليو 6, 2011 مشكور يا اخي بن علية افكار رائعة وسهلة للفهم جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
VB Programmer قام بنشر يوليو 9, 2011 الكاتب مشاركة قام بنشر يوليو 9, 2011 و عليكم السلام و رحمة الله و بركاته ما شاء الله تبارك الله عمل رااااااائع.. أجزل الله لك المثوبة أخي... لكني لازلت لم أتمكن من الوصول إلى List.. مع العلم أني أعمل على Excel 2010.. الله يجزاك خير من جد شغل مضبوط.. أضفت عناصر للقوائم الفارغة وظهرت البيانات بدون أي مشاكل.. بارك الله فيكم.. رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يوليو 9, 2011 مشاركة قام بنشر يوليو 9, 2011 و عليكم السلام و رحمة الله و بركاته ما شاء الله تبارك الله عمل رااااااائع.. بالفعل عمل رائع يستحق الاستاذ بن عليه الثناء عليه لكني لازلت لم أتمكن من الوصول إلى List.. مع العلم أني أعمل على Excel 2010.. =OFFSET(Sheet1!$A$2;;;COUNTA(Sheet1!$A:$A)-1) هذه هي معادلة تعريف List والله اعلم ابو احمد 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.