dah_med قام بنشر ديسمبر 26, 2009 مشاركة قام بنشر ديسمبر 26, 2009 السلام عليكم ورحمة الله وبركاته إخواني أعضاء منتدنا الغالي أريد مساعدة في التعديل على كود للأستاذنا الحبيب جبور والمتمثل في إستدعاء قوائم التلاميذ حسب القسم وجزاكم الله خيرا ترحيل القوائم.rar رابط هذا التعليق شارك More sharing options...
مصطفى كمال قام بنشر ديسمبر 27, 2009 مشاركة قام بنشر ديسمبر 27, 2009 السلام عليكم ورحمة الله تعالى وبركاته أخي الكريم تفضل الملف التالي تمت إضافة الدالة vlook2all ، بواسطة VB من طرف بعض الإخوة، رجاء لا تنسى بالدعاء من ترجمها وطورها لنا بالمنتدى وخاصة والديه الدالة تشبه في عملها الدالة RECHERCHE لكن بشكل جيد جدا أرجو أن تحوز رضاك رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 27, 2009 الكاتب مشاركة قام بنشر ديسمبر 27, 2009 السلام عليكم ورحمة الله تعالى وبركاته أخي الكريم مصطفى جزاك الله كل خير على الرد وجميع إخوننا في المنتدى الذين يبذلون ما في وسعهم لمساعدة الآخرين لكن المرفق لا يظهر رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 27, 2009 مشاركة قام بنشر ديسمبر 27, 2009 السلام عليكم تم التعديل على الكود ليتوافق مع طلبك Sub kh_START() Dim MyRange As Range Dim R As Integer, N As Integer, M As Integer, C As Integer, CC As Integer Set MyRange = Range("base") kh_ClearContents 'عدد السطور الخارجة عن نطاق الاستدعاء N = 6 Application.ScreenUpdating = False With MyRange For R = 1 To .Rows.Count If .Cells(R, 1) = "" Then GoTo 1 If .Cells(R, 6) = Range("E4") Then M = M + 1 Cells(N + M, 1) = M For C = 1 To 6 CC = Choose(C, 2, 3, 4, 5, 8, 10) Cells(N + M, C + 1) = .Cells(R, CC) Next C End If 1 Next R End With 'تسطير الصفوف المحتوية على البيانات With Range("A7:H" & N + M) .Borders.LineStyle = 2 End With Application.ScreenUpdating = True End Sub تفضل المرفق ترحيل القوائم1.rar رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر ديسمبر 27, 2009 مشاركة قام بنشر ديسمبر 27, 2009 السلام عليكم فتح الله عليك استاذ خبور أكواد عجيبة رهيبة رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 28, 2009 الكاتب مشاركة قام بنشر ديسمبر 28, 2009 السلام عليكم ورحمة الله أستاذي خبور جزاك الله كل خير ومعذرة عن التأخر في الرد لأني كنت بعيدا عن المنزل أخوك محمد رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 28, 2009 الكاتب مشاركة قام بنشر ديسمبر 28, 2009 السلام عليكم أخي خير إن الكود يعمل مع مستوى واحد فقط أي مع 4م1 أما معا المستويات الأخرى فلا يستدعيها جرب متلا 3 م 1 من القائمة المنسدلة وجزاك الله خير أخوك محمد رابط هذا التعليق شارك More sharing options...
taksmdz قام بنشر ديسمبر 28, 2009 مشاركة قام بنشر ديسمبر 28, 2009 السلام عليكم يا أيها الاخوة المشرفين على هذا المنتدى المبارك جزاكم الله كل الخير وسدد خطاكم لمافيه الخير لقد تتلمذت على أيديكم وأصبحت أفهم نوعا ما في الاكسال رغم سني المتقدمة وهذا بفضل مجهوداتكم وصبركم علينا نحن الذين نحاول الفهم في مافاتنا من التعلم أما تدخلي هذه المرة فيمايخص استدعاء الأقسام من القائمة المنسدلة فان القسم 3م1 لم يكتب في القائمة الرئيسية بالشكل الصحيح وأما طلبي فهو أن يكون الاستدعاء للقائمة حسب العمود القسم والعمود الصنف أي ان نختار من العمودf مثلا 3 والعمود g مثلا 1 ولكم الشكر. رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 28, 2009 مشاركة قام بنشر ديسمبر 28, 2009 (معدل) السلام عليكم الاخ / محمد جرب متلا 3 م 1 من القائمة المنسدلة لا توجد بيانات لهذا المعيار في العمود f في بيانات النطاق base في مرفقك ------------------------------------- جزاك الله خيرا اخي الكريم taksmdz وأما طلبي فهو أن يكون الاستدعاء للقائمة حسب العمود القسم والعمود الصنف أي ان نختار من العمودf مثلا 3 والعمود g مثلا 1 غير سطر الشرط في الكود If .Cells(R, 6) = Range("E4") And .Cells(R, 7) = Range("F4") Then تم تعديل ديسمبر 28, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 29, 2009 الكاتب مشاركة قام بنشر ديسمبر 29, 2009 السلام عليكم أخي الكريم taksmdz جزاك الله خيرا على الملاحظة فقد نبهتني إلى الخطأ وهو أن القائمة المنسدلة كانت خلافا لما في العمودF وذلك هو السبب الذي أدى لعدم إستدعاء المستويات الأخري فجزاك الله خيرا أما طلبك فيحققه كود أستاذنا الحبيب خبور خير If .Cells(R, 6) = Range("E4") And .Cells(R, 7) = Range("F4") Then بشرط أن تجعل العمودF للقسم والعمود G للصف وتستدعي الأقسام في الورقة Liste في الخلية:E4 تكتب القسم وفي الخلية:G4 تكتب الصف وجزا الله الجميع خيرا أخوكم محمد رابط هذا التعليق شارك More sharing options...
مصطفى كمال قام بنشر ديسمبر 29, 2009 مشاركة قام بنشر ديسمبر 29, 2009 السلام عليكم ورحمة الله تعالى وبركاته بعد إذن الإخوة خاصة أستاذنا الكريم والكبير الأخ خبور أخي الكريم تمتحميل الملف مرة أخرى مع بعض التغييرات في تحديد القسم يجب تطابق اسم القسم في الورقة الأولى مع الورقة الثانية لمزيد من المعلومات حول طريقة عمل الدالة vlool2all استعن بالرابط التالي My link ترحيل القوائم.rar رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 29, 2009 الكاتب مشاركة قام بنشر ديسمبر 29, 2009 السلام عليكم أخي كمال جزاك الله خيرا على المرفق وعلى الرابط رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 30, 2009 الكاتب مشاركة قام بنشر ديسمبر 30, 2009 السلام عليكم أخي خبور أحتاج في الإمتحان أن أوزع التلاميد على أفواج فهل يمكن عمل ماكرو ثاني لإستدعاء التلاميذ حسب الأفواج ويكون مثلا من 1 إلى 25 بحيث أتحكم في الفوج حسب حجم القاعة وجزاكم الله خيرا أخوك محمد رابط هذا التعليق شارك More sharing options...
taksmdz قام بنشر ديسمبر 30, 2009 مشاركة قام بنشر ديسمبر 30, 2009 السلام عليكم اخوتي خبور ومحمد جزاكم الله خيرا على تجاوبكم معي وعلى الكود وسدد الله خطاكم لمافيه الخير. أخوكم TAKSMDZ. رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر ديسمبر 30, 2009 مشاركة قام بنشر ديسمبر 30, 2009 اكواد مفيش احسن من كده بس عايز اعرف ازاي اغير عمود F واخلي عمود ال P هو اللي هيتم الاستدعاء منه بدل عمود ال P رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 30, 2009 الكاتب مشاركة قام بنشر ديسمبر 30, 2009 السلام عليكم أخي cat101 بعد إذن أستاذي خبور غير فقط الرقم 6 في الكود التالي:If .Cells(R, 6) = Range("E4") Then أي إحسب أين أين يقع العمود المراد الإستدعاء منه في قاعدة البيانات ثم كتب العدد ففي الملف الخاص بي فالعمود:F يقع المكان6 والأفضل أخي إرفاق الملف حتي يكون العمل أكثر دقة ومعذرة ثانية لأستاذي خبور خير أخوك محمد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر ديسمبر 30, 2009 مشاركة قام بنشر ديسمبر 30, 2009 السلام عليكم اخي محمد لا تعتذر مني فانا مبسوط وفرحان من شرحك وان تستمر على هذا المنوال بارك الله فيك رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر ديسمبر 31, 2009 الكاتب مشاركة قام بنشر ديسمبر 31, 2009 السلام عليكم أخي خبور لقد أ0حببت الإكسل من خلال اعمالك الرائعة فالشىء الممتع في الإكسل هي خاصية البرمجة بالفيجول بسيك رغم اني حاصل على تقني سامي في البرمجة بلغة دالفي إلا أني من خلال أعمالك الرائعة وحبي للإكسل مند بداية تعليم يدفعني للتعلم لغة البرمجة بالفوجول بسيك فأرجو أن تصبر معنا وأعلم أننا نحبك في الله وندعو لك وننشر أعملك وأعمال أعضاء هذا المنتدى في بلدتنا فجزا اله الجميع خيرا وسدد خطاهم لما يحب ويرضى رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر ديسمبر 31, 2009 مشاركة قام بنشر ديسمبر 31, 2009 السلام عليكم أود المشاركة في الموضوع بهذين الملفين الأول خاص بترحيل القوائم : http://www.4shared.com/file/185443875/fdff889/_online.html الثاني خاص بقوائم الأفواج : http://www.4shared.com/file/185453972/ad192ead/__online.html أرجو أن يكونا مفيدين ملاحظة / النت عندي بطيء جدا وكان بودي المشاركة والرد على مساهمات الأعضاء لكن انقطاع النت في كل مرة يحول دون ذلك تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر ديسمبر 31, 2009 مشاركة قام بنشر ديسمبر 31, 2009 اريد تضبيط الكود العظيم ليتوافق مع العمل ولكم جزيل الشكر كنترولي.rar رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 1, 2010 مشاركة قام بنشر يناير 1, 2010 جزاك الله خيرا استاذ خبور واستاذ سالم واستاذ محمد والكل رابط هذا التعليق شارك More sharing options...
dah_med قام بنشر يناير 1, 2010 الكاتب مشاركة قام بنشر يناير 1, 2010 السلام عليكم ورحمة الله اخي cat101 لقد غيرت لك في الكود حسب فهمي لأنك لم توضح جيدا ما تريد لقد غيرت في الكود لكي يستدعي لك الناجحون وكذلك أصحاب الدور الثاني حسب اختيارك في القائمة المنسدلة في ورقة واحدة وهي:نصف العام أخوك محمد كنترولي.rar رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يناير 2, 2010 مشاركة قام بنشر يناير 2, 2010 أحسن الله اليك استاذ dah_med وجزاك كل خير كود كويس وعمل ممتاز ممكن تشرحه لو سمحت رابط هذا التعليق شارك More sharing options...
saffaa قام بنشر يناير 3, 2010 مشاركة قام بنشر يناير 3, 2010 شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا شكرا ممكن خط الاطار الخارجي يكون اثقل والداخلي زي ماهو رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان