خالد القدس قام بنشر ديسمبر 20, 2009 قام بنشر ديسمبر 20, 2009 أخواني الأفاضل السلام عليكم وكل عام وأنتم بالف خير أريد لو أمكن كود للبحث في عمود الاسماء التي تبدأ من B19 إلى B318 وقد قمت بتسمية نطاقه بـ Asma في الشيت المسمى farest ويتم الدخول لهذه الصفحة من الصفحة الرئيسية بالزر المسمى (سداد الرسوم الدراسية ) ولو أمكن جعل الكود يعمل يحرك المؤشر تلقائيا الى أول خلية خالية من ضمن الخلايا الظاهرة (الغير مخفية) لصاحب ذلك الاسم الذى تم البحث عنه فمثلا عن البحث عن الاسم حسن جعفر في الفصل الأول يضع المؤشر في الخلية O21 لأنها أول خلية خالية بينما اذا قمت باختيار الفصل الثاني والبحث عن نفس الاسم حسن جعفر يضع المؤشر في الخلية AQ21 لأنها أول خلية خالية له في ذلك الفصل وهكذا ولكم منى الشكر الجزيل مرفق الملف M5.rar
احمدزمان قام بنشر ديسمبر 20, 2009 قام بنشر ديسمبر 20, 2009 اخي القدير الفاضل خالد القدس بعد التحية و التقدير فقط اضف الكود التالي الى نهاية كل كوود يخص فصل For R = 19 To 9999 If Cells(R, 2) = ComboBox18.Text Then Let RR = R GoTo 9 End If Next R 9 For CC = 4 To 9999 If Columns(CC).Hidden = False And Cells(RR, CC) = "" Then Cells(RR, CC).Select GoTo 8 End If Next CC 8 End Sub اي لنهاية كوود الفصل الأول و نهاية كوود الفصل الثاني و نهاية كود الفصل الثالث و هكذا بحيث يصبح كوود الفصل الأول بالشكل التالي Private Sub CommandButton1_Click() ' سداد رسوم الأول Sheets("farest").Select Cells.Select Selection.EntireColumn.Hidden = False Selection.EntireRow.Hidden = False Rows("1:16").Hidden = True Columns("AG:IU").Hidden = True Range("B19").Select Dim R As Integer For R = 19 To 9999 If Cells(R, 2) = ComboBox18.Text Then Let RR = R GoTo 9 End If Next R 9 For CC = 4 To 9999 If Columns(CC).Hidden = False And Cells(RR, CC) = "" Then Cells(RR, CC).Select GoTo 8 End If Next CC 8 End Sub تقبل خالص تحياتي و تقديري الدائمين
خالد الشاعر قام بنشر ديسمبر 21, 2009 قام بنشر ديسمبر 21, 2009 استاذ خالد القدس عمل رائع و ممتاز عند فتح الملف الخاص بك فى شيت farest عند الوقوف على الخلية يعطى مربع مثل التعليق باسم العمود فكرة ممتازة برجاء توضيح كيفية عملها للاستفادة ولكم جزيل الشكر و جزاك الله خيراً
خالد القدس قام بنشر ديسمبر 21, 2009 الكاتب قام بنشر ديسمبر 21, 2009 (معدل) السلام عليكم أستاذي الأكرم أحمد يعقوب كود غاية في الروعة والاتقان يدل على تمكن غير عادي ما أجمل العلم والخلق في الرجل إن أجتمعا رفع الله قدرك في الدنيا والآخرة أخي أحمد هل من الممكن إضافة بسيط وهي عندما اكتب حرف في خانة الاسم يظهر لي كل الأسماء التي تبدأ بهذا الحرف لتسهل عملية البحث كذلك لاحظت بعد تطبيق الكود فعلا يقوم البرنامج بتحديد أول خلية خالية لذلك الطالب ولكن إذا قمت بالكتابة مباشرة لا يكتب إلا بعد وضع المؤشر يدويا في الخلية المحددة هل من الممكن جعل الكتابة تبدأ مباشرة في الخلية المحددة ولك خالص شكري وإمتناني أخي أستاذ khhanna السلام عليكم بالنسبة للتعلق فهو من قائمة بيانات ثم التحقق من الصحة ثم من تبويب رسالة ادخال اكتب نص التعليق المطلوب تم تعديل ديسمبر 21, 2009 بواسطه خالد القدس
احمدزمان قام بنشر ديسمبر 21, 2009 قام بنشر ديسمبر 21, 2009 جزاك الله كل خير أخي أحمد هل من الممكن إضافة بسيط وهي عندما اكتب حرف في خانة الاسم يظهر لي كل الأسماء التي تبدأ بهذا الحرف لتسهل عملية البحث من خصائص كومبوبوكس الموجودة في يسار الشاشة السفلي تختار الخيار AutoTab و تحولة الى True وجرب ان شاء الله كله تمام
خالد القدس قام بنشر ديسمبر 22, 2009 الكاتب قام بنشر ديسمبر 22, 2009 السلام عليكم أستاذي العزيز أحمد جربت تغيير الخيار AutoTab و تحولة الى True ولكن لم ينجح وكذلك كيف اجعل الخلية المحددة هي النشطة مباشرة بعد أن اضغط على أحد أزرار الفصول بدون اغلاق الفورم وجزاك الله كل خير
احمدزمان قام بنشر ديسمبر 22, 2009 قام بنشر ديسمبر 22, 2009 (معدل) جربت تغيير الخيار AutoTab و تحولة الى True ولكن لم ينجح OKطيب مش النتيجة عند كتابة اول حرف من الإسم يظهر لك اول اسم يبدأبهذا الحرف كاملا اذا ضغطت على زر القائمة سوف تجد القائمة تقف عند الإسم الذي يبدأ بهذا الحرف وهذا ما فهمته من سؤالك = = = = = = = = = = = = = اما الجزء الثاني فانني اول مرة اتعامل مع فورم يبقى في الورقة لذلك المسألة محتاجة بعض التجارب دمت بود تم تعديل ديسمبر 22, 2009 بواسطه احمد يعقوب
خالد القدس قام بنشر ديسمبر 23, 2009 الكاتب قام بنشر ديسمبر 23, 2009 السلام عليكم أستاذي الأكرم أحمد فعلاً الأولى بقت تمام أول ما ابدا كتابة الحرف يكمل البرنامج باقي الاسم لأول اسم مطابق وكده تمام التمام ولو كمان نجحت التجارب في المسالة الثانية تكون إكتملت بحمد الله وفضله ثم بمجهودك وفضلك أستاذي العزيز (( وهل جزاء الإحسان إلا الإحسان ))
احمدزمان قام بنشر ديسمبر 23, 2009 قام بنشر ديسمبر 23, 2009 السلام عليكم و رحمة الله وبركاته اخي خالد افضل حل استطعت الوصول البه لحل طلبك في المرفق كالتالي بعد اختيار الإسم و الضغط على الفصل سوف يصل المؤشر الى اول خلية فارغة للإسم ثم يختفي الفورم بعد ادخال 3 خانات متتالية المبلغ - الرقم - التاريخ سوف يظهر النموذج تلقائيا مرة اخرى او يمكنك تحريك الأسهم 3 مرات الى اليسار و يظهر النموذج شاهد المرفق آمل ان يكون هذا يفي بالغرض m5.rar
خالد القدس قام بنشر ديسمبر 23, 2009 الكاتب قام بنشر ديسمبر 23, 2009 السلام عليكم معلمي وأستاذي الكريم أحمد يعقوب هذا هو ما اريده وزيادة فأسال الله لك الحسنى وزيادة وأن يمتع ناظريك برؤية وجهه الكريم أمين يارب العالمين
عبدالله باقشير قام بنشر ديسمبر 23, 2009 قام بنشر ديسمبر 23, 2009 السلام عليكم بارك الله فيك اخي احمد يعقوب عمل رائع تقبل تحياتي وشكري
احمدزمان قام بنشر ديسمبر 23, 2009 قام بنشر ديسمبر 23, 2009 السلام عليكم و رحمة الله وبركاته اخي خالد جزاك الله كل خير على هذه الدعوات الطيبة اللهم آمين لنا ولك و لجميع المسلمين استاذي الحبيب خبور جزاك الله كل خير على مرورك الكريم وهذا قليل من فيضكم الكريم اخي امير شكرا على مرورك الكريم و بارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.