azoz100
عدد المساهمات : 7
تاريخ التسجيل : 06/02/2017
 |  موضوع: فورم يتعامل مع نطاق محدد فقط من الشيت  الأحد مارس 19, 2017 8:30 am | |
| أكرر شكري لك يا استاذ مجدي وأسأل الله لك الصحة والعافية وأن يرزقك من حيث لا تحتسب
عندي استفسار لم أجد له حل :
لدي فورم مكون من ثلاث تكستات وأزرار اوامر ..
الشيت المراد التعامل معه مكون من 12 عمود و36 صف
كل الصفوف والأعمدة فيها دوال ومعادلات وعليها حماية ما عدا نطاق مكون من ثلاثة أ‘مدة تبدأ من العمود الأول الصف السابع (a7:c7 ) لأدخال الرقم وموضوعات المقرر وعدد الحصص أو صفحات المقرر وسأرفق صورة لعدم القدرة على رفع لملف ويستمر يضيف الموضوعات الموضوع تلو الاخر حتى الصف a36
والمطلوب من هذا الفورم أن يتعامل مع هذا النطاق أي a7:c7 ويستمر حتى يصل a36:c36
لأني عندما احذف ينحذف ما يحويه الشيت بمعادلاته بكل شي وهذا مشكلة
كذلك والامر الهام اريد عندما يصل الموصوع في الصف a36 يعطي رسالة بعدم الاضافة لان السطر a37 فيه حقول احصائيات ومعادلات | |
|
azoz100
عدد المساهمات : 7
تاريخ التسجيل : 06/02/2017
| | موضوع: رد: فورم يتعامل مع نطاق محدد فقط من الشيت الأحد مارس 19, 2017 10:22 am | |
| | |
|
مجدى يونس
Admin
عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69
| | موضوع: رد: فورم يتعامل مع نطاق محدد فقط من الشيت الأحد مارس 19, 2017 10:23 am | |
| اخى العزيز تعودنا بان ترسل ملف بالمطلوب وعلينا حل المشكلة ولا ينفع صور حمل الملف على موقع تحميل وارسله | |
|
azoz100
عدد المساهمات : 7
تاريخ التسجيل : 06/02/2017
| | موضوع: هذا الملف أستاذي الأحد مارس 19, 2017 10:39 am | |
| هذه الصورة اريد الكود اللي يمكنني من ادخال البيانات من الفورم بدءا من a11:c11 نزولا حتى a30:c30 وبعد الصف الاخير يعطي رسالة بعدم الاضافة
وايضا يكون المسح والتعديل للنطاق المذكور فقط
https://up.top4top.net/downloadf-4434n2sk1-rar.html | |
|
مجدى يونس
Admin
عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69
| | موضوع: رد: فورم يتعامل مع نطاق محدد فقط من الشيت الأحد مارس 19, 2017 11:27 am | |
| انتظرت ردك بالاسم ام الرقم وعموما اليك الملف حمل الملف | |
|
azoz100
عدد المساهمات : 7
تاريخ التسجيل : 06/02/2017
| | موضوع: رد: فورم يتعامل مع نطاق محدد فقط من الشيت الأحد مارس 19, 2017 12:40 pm | |
| بسم الله الرحمن الرحيم
اولا بارك الله فيك وفي علمك ونفع بك وبعلمك وجزاك الله خيرا على ما تقوم به من عمل جليل
تم تحميل الملف وكل شيء تمام ولله الحمد
ولكن بقي حاجة بسيطة ربما سقطت منك سهوا وهي الأهم :
وهي : لا أريد أن تتعدى المعلومات المدخلة الصف
a26:c26
بمعنى عندما تصل الادخالات العمود والصف المذكورين يعطي رسالة بعدة إمكانية الأضافة
وتقبل مني أجزل التحايا وعظيم الامتنان | |
|
مجدى يونس
Admin
عدد المساهمات : 3773
تاريخ التسجيل : 22/02/2013
العمر : 69
| | موضوع: رد: فورم يتعامل مع نطاق محدد فقط من الشيت الأحد مارس 19, 2017 2:19 pm | |
| عدلت للبحث بالاسم والبداية من a7 Private Sub TextBox4_Change()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Sheets(1).Activate
ListBox1.Clear
ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
k = 0
For Each c In Range("B6:B26" & ss)
B = InStr(c, TextBox6)
If B > 0 Then
ListBox1.AddItem
ListBox1.List(k, 0) = Cells(c.Row, 2).Value
ListBox1.List(k, 1) = Cells(c.Row, 1).Value
ListBox1.List(k, 2) = Cells(c.Row, 3).Value
k = k + 1
End If
Next c
End Sub Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 1)
TextBox2.Text = ListBox1.List(i, 0)
TextBox3.Text = ListBox1.List(i, 2)
End If
Next i
End Sub | |
|
