طلب : كيف نجعل مربع تحرير وسرد مرتبطا بالخلايا الممتلئة فقط فى نطاق

[عبد الفتاح كيرة]

السلام عليكم

عندنا فورم

به مربع تحرير وسرد

و قد عينت فى خصائصه

أنه مرتبط بنطاق اسمه

names

النطاق عبارة عن 500 صف

أول 150 خلية منها بها بيانات

و الباقى خلايا فارغة

لكنه قابل للزيادة أو النقص

عند البحث بالكود التالى

لو حددنا عنصرا فارغا فى مربع التحرير

تظهر رسالة خطأ

كيف نجعل مربع التحرير مرتبطا بالخلايا غير الفارغة فقط داخل النطاق names

و هذا هو الكود

Sub ComboBox1_Change()

TextBox1.Value = ComboBox1.Value

Dim Snum As Long

Dim Lastr As Long

Lastr = Sheets("All").Range("b" & Rows.Count).End(xlUp).Row

Snum = WorksheetFunction.Match(ComboBox1.Text, Sheets("All").Range("b5:b" & Lastr), 0)

TextBox2.Value = Sheets("All").Cells(Snum + 4, 3).Value

TextBox3.Value = Sheets("All").Cells(Snum + 4, 16).Value

TextBox4.Value = Sheets("All").Cells(Snum + 4, 21).Value

TextBox5.Value = Sheets("All").Cells(Snum + 4, 22).Value

TextBox6.Value = Sheets("All").Cells(Snum + 4, 26).Value

End Sub

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

اجعل مربع التحرير و السرد يأخذ بياناته من مدى ديناميكي يزداد و ينكمش مع البيانات المتعلقة بها

أوممكن ترفق ملف به نموذج نساعد بعضنا البعض

دمت بخير

أيسم إبراهيم

[عبد الفتاح كيرة]

أفعل إن شاء الله

وشكرا لسرعة ردك

زر الأمر المسمى

" البحث عن بيانات طالب "

فى الورقة

" data"

برنامج شئون الطلاب للرفع 2003.zip

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

تفضل المرفق به _إن شاء الله _ ما طلبت

أضف إسما جديدا في النطاق و ستجد أنه تمت إضافته لمربع التحرير و السرد

و أيضا لا يوجد أماكن فارغة

دمت بخير

أيسم إبراهيم

برنامج شئون الطلاب للرفع 2003.zip

[عبد الفتاح كيرة]

ممتاز جدا أخ أيسم

مفهوم

مشكلة أخرى صغيرة

حقل تاريخ الميلاد

يظهر فى الفورم

بصيغة التاريخ الأمريكى

الشهر فى البداية من اليسار ثم اليوم ثم السنة

وبأرقام عربية ( يعنى إنجليزية )

مع أن الحقل الذى يستدعى منه التاريخ

أرقام هندية و بصيغة تاريخ معتادة

انظر الصورة

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

أضف السطر التالي بعد السطر السابع في كودك

TextBox2.Value = Format(Sheets("All").Cells(Snum + 4, 3).Value, "Medium Date")

] أو السطر التالي

TextBox2.Value = Format(Sheets("All").Cells(Snum + 4, 3).Value, "DD/MMMM/YYYY")

كلاهما يحقق ما تريد لكن بشكلين مختلفين في نمط الشرطة التي بين أجزاء التاريخ

دمت بخير

أيسم إبراهيم

[عبد الفتاح كيرة]

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

وبارك فيك

أنا اخترت هذا التنسيق

"YYYY/MM/DD"

و هذا هو الشكل المناسب المطلوب

[عبد الفتاح كيرة]

تم تعديل يونيو 20, 2010 بواسطه kemas