اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود للبحث ينقل المؤشر الى أول خلية خالية


الردود الموصى بها

أخواني الأفاضل

السلام عليكم

وكل عام وأنتم بالف خير

أريد لو أمكن كود للبحث في عمود الاسماء التي تبدأ من B19 إلى B318 وقد قمت بتسمية نطاقه بـ Asma في الشيت المسمى farest

ويتم الدخول لهذه الصفحة من الصفحة الرئيسية بالزر المسمى (سداد الرسوم الدراسية )

ولو أمكن جعل الكود يعمل يحرك المؤشر تلقائيا الى أول خلية خالية من ضمن الخلايا الظاهرة (الغير مخفية) لصاحب ذلك الاسم الذى تم البحث عنه

فمثلا عن البحث عن الاسم حسن جعفر في الفصل الأول يضع المؤشر في الخلية O21 لأنها أول خلية خالية بينما اذا قمت باختيار الفصل الثاني والبحث عن نفس الاسم

حسن جعفر يضع المؤشر في الخلية AQ21

لأنها أول خلية خالية له في ذلك الفصل وهكذا

ولكم منى الشكر الجزيل

مرفق الملف

M5.rar

رابط هذا التعليق
شارك

اخي القدير الفاضل

خالد القدس

بعد التحية و التقدير

فقط اضف الكود التالي الى نهاية كل كوود يخص فصل

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

تقبل خالص تحياتي و تقديري الدائمين

رابط هذا التعليق
شارك

استاذ خالد القدس عمل رائع و ممتاز عند فتح الملف الخاص بك فى شيت farest عند الوقوف على الخلية يعطى مربع مثل التعليق باسم العمود فكرة ممتازة برجاء توضيح كيفية عملها للاستفادة ولكم جزيل الشكر و جزاك الله خيراً

رابط هذا التعليق
شارك

السلام عليكم

أستاذي الأكرم أحمد يعقوب

كود غاية في الروعة والاتقان يدل على تمكن غير عادي

ما أجمل العلم والخلق في الرجل إن أجتمعا

رفع الله قدرك في الدنيا والآخرة

أخي أحمد هل من الممكن إضافة بسيط وهي عندما اكتب حرف في خانة الاسم يظهر لي كل الأسماء التي تبدأ بهذا الحرف لتسهل عملية البحث

كذلك لاحظت بعد تطبيق الكود فعلا يقوم البرنامج بتحديد أول خلية خالية لذلك الطالب ولكن إذا قمت بالكتابة مباشرة لا يكتب إلا بعد وضع المؤشر يدويا في الخلية المحددة هل من الممكن جعل الكتابة تبدأ مباشرة في الخلية المحددة

ولك خالص شكري وإمتناني

:clapping::wub::clapping:

أخي أستاذ khhanna

السلام عليكم

بالنسبة للتعلق فهو من قائمة بيانات ثم التحقق من الصحة ثم من تبويب رسالة ادخال اكتب نص التعليق المطلوب

تم تعديل بواسطه خالد القدس
رابط هذا التعليق
شارك

جزاك الله كل خير

أخي أحمد هل من الممكن إضافة بسيط وهي عندما اكتب حرف في خانة الاسم يظهر لي كل الأسماء التي تبدأ بهذا الحرف لتسهل عملية البحث

من خصائص كومبوبوكس الموجودة في يسار الشاشة السفلي تختار الخيار AutoTab و تحولة الى True وجرب ان شاء الله كله تمام

رابط هذا التعليق
شارك

السلام عليكم

أستاذي العزيز أحمد

جربت تغيير الخيار AutoTab و تحولة الى True ولكن لم ينجح

وكذلك كيف اجعل الخلية المحددة هي النشطة مباشرة بعد أن اضغط على أحد أزرار الفصول بدون اغلاق الفورم

وجزاك الله كل خير

رابط هذا التعليق
شارك

جربت تغيير الخيار AutoTab و تحولة الى True ولكن لم ينجح

OKطيب

مش النتيجة عند كتابة اول حرف من الإسم يظهر لك اول اسم يبدأبهذا الحرف كاملا

اذا ضغطت على زر القائمة سوف تجد القائمة تقف عند الإسم الذي يبدأ بهذا الحرف

وهذا ما فهمته من سؤالك

= = = = = = = = = = = = =

اما الجزء الثاني

فانني اول مرة اتعامل مع فورم يبقى في الورقة

لذلك المسألة محتاجة بعض التجارب

دمت بود

تم تعديل بواسطه احمد يعقوب
رابط هذا التعليق
شارك

السلام عليكم أستاذي الأكرم أحمد فعلاً الأولى بقت تمام أول ما ابدا كتابة الحرف يكمل البرنامج باقي الاسم لأول اسم مطابق وكده تمام التمام ولو كمان نجحت التجارب في المسالة الثانية تكون إكتملت بحمد الله وفضله ثم بمجهودك وفضلك أستاذي العزيز (( وهل جزاء الإحسان إلا الإحسان ))

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله وبركاته

اخي خالد

افضل حل استطعت الوصول البه لحل طلبك في المرفق

كالتالي

بعد اختيار الإسم و الضغط على الفصل

سوف يصل المؤشر الى اول خلية فارغة للإسم ثم يختفي الفورم

بعد ادخال 3 خانات متتالية المبلغ - الرقم - التاريخ

سوف يظهر النموذج تلقائيا مرة اخرى

او يمكنك تحريك الأسهم 3 مرات الى اليسار و يظهر النموذج

شاهد المرفق

آمل ان يكون هذا يفي بالغرض

m5.rar

رابط هذا التعليق
شارك

السلام عليكم

معلمي وأستاذي الكريم أحمد يعقوب هذا هو ما اريده وزيادة

فأسال الله لك الحسنى وزيادة

وأن يمتع ناظريك برؤية وجهه الكريم

أمين يارب العالمين

رابط هذا التعليق
شارك

السلام عليكم و رحمة الله وبركاته

اخي خالد جزاك الله كل خير على هذه الدعوات الطيبة

اللهم آمين لنا ولك و لجميع المسلمين

استاذي الحبيب خبور

جزاك الله كل خير على مرورك الكريم

وهذا قليل من فيضكم الكريم

اخي امير

شكرا على مرورك الكريم و بارك الله فيك

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information