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





طلب كود تعديل من نوع خاص

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



07-12-2017 08:27 مساء
زياد عبد الجليل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 313
الاعجاب : 45
 offline 
السلام على جميع الاخوة الافاضل اما بعد
لدي ملف به فورم اريد عمل كود التعديل فقط بحيث بعد النقر على صف معين في الليست بوكس تظهر محتوى الصف في التاكس بوكس بعده يتم تعديل اي قيمة 
لفهم المطلوب بدقة ارجو الاطلاع على الملف المرفق لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل من نوع خاص.rar   تحميل rar مرات التحميل :(2)
الحجم :(16.296) KB





09-12-2017 12:42 صباحا
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
اهلا استاذ زياد 
وجدت الفورم بتاعك ملغبط قوى البيانات فيه واليست بوكس
وعلية حاول على قدر استطاعتى ان اترك الامر كما صممته 
ولكنى عددلت بعض التعديلات الطفيفة 
واضفة تيكست بوكس 

فبمجرد الضغط على اى بيان باليست بوكس 
سيظهر الاول اسم القناة
ثم اسماء المديرين
وبالصف الثانى يظهر اسماء المديرين الاخرين لو وجد واذا لم يوجد تراها فارغة
وبالثالث هو عددهم ويمكنك تعديلها مع انى لو عندى وقت كنت لغيت العدد في التعديل ووضعت معادلة counta لعد الاسماء الموجوده ولكنى تركتها كما احببت انته في تيكست بوكس تعدلها كما تحب
واليك الاكواد الموضوعة بالفورم
كود التعديل

Dim sh As Worksheet, i As Byte, y As Integer, c As Range
If TextBox1 = "" Then GoTo 100
If MsgBox("هل تريد حفظ التعديلات الحالية", vbInformation + vbMsgBoxRight + vbYesNo, "تعديل") = vbNo Then Exit Sub
Set sh = Sheets("feuil1")
     With sh

For Each c In .Range("c2:c" & .Cells(Rows.Count, 3).End(xlUp).Row)
     If c = TextBox1.Text Then
         y = c.Row
         For i = 1 To 7
         .Cells(y, i + 2).Value = Me.Controls("TextBox" & i).Value
         Next i
         For i = 1 To 6
         .Cells(y - 1, i + 3).Value = Me.Controls("TextBox" & i + 7).Value
         Next i
         For i = 1 To 6
         .Cells(y + 1, i + 3).Value = Me.Controls("TextBox" & i + 13).Value
         Next i
     End If
Next c
End With
Exit Sub


100:
MsgBox "قم أولا بإختيار الأسم الذي تود تعديله", vbExclamation + vbMsgBoxRight, "خطأ"


كود اليست 

Private Sub ListBox1_Click()
'Dim x As Long, y As Long
'y = 1
'For x = 1 To 7
'Me.Controls("TextBox" & y) = ListBox1.List(ListBox1.ListIndex, x)
'y = y + 1
'Next


For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
TextBox1.Value = ListBox1.List(i, 1)
TextBox2.Text = ListBox1.List(i, 2)
TextBox3.Text = ListBox1.List(i, 3)
TextBox4.Text = ListBox1.List(i, 4)
TextBox5.Text = ListBox1.List(i, 5)
TextBox6.Text = ListBox1.List(i, 6)
TextBox7.Value = ListBox1.List(i, 7)
If TextBox1.Value <> "عدد المناصب" And TextBox1.Value <> "الفرع" And TextBox1.Value <> "" Then
TextBox14.Value = ListBox1.List(i + 1, 2)
TextBox15.Value = ListBox1.List(i + 1, 3)
TextBox16.Value = ListBox1.List(i + 1, 4)
TextBox17.Value = ListBox1.List(i + 1, 5)
TextBox18.Value = ListBox1.List(i + 1, 6)
TextBox19.Value = ListBox1.List(i + 1, 7)
Else
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
End If

If i >= 2 And TextBox1.Value <> "" Then
TextBox8.Value = ListBox1.List(i - 1, 2)
TextBox9.Value = ListBox1.List(i - 1, 3)
TextBox10.Value = ListBox1.List(i - 1, 4)
TextBox11.Value = ListBox1.List(i - 1, 5)
TextBox12.Value = ListBox1.List(i - 1, 6)
TextBox13.Value = ListBox1.List(i - 1, 7)
Else
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
End If
End If
Next i
End Sub


اليك الملف ارجوا ان يكون هذا ما اردت 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل من نوع خاص.rar   تحميل rar مرات التحميل :(3)
الحجم :(33.017) KB


أثارت هذه المشاركة إعجاب: الصقر، زياد عبد الجليل،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 07:57 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 559
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 158
قوة السمعة : 3164
الاعجاب : 733
 Online 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص

جزاكم الله خيرا استاذ محمود 142



أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



09-12-2017 12:54 مساء
مشاهدة مشاركة منفردة [3]
زياد عبد الجليل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 313
الاعجاب : 45
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
بارك الله فيك استاذ ابو الذهب نعم هذا هو المطلوب بالضبط واذا اردت اضافة اي تعديلات على الملف فالمجال مفتوح لك للابداع لعل الاخوة يستعملون الملف وفق احتياجاتهم
بارك الله فيك استاذي الفاضل.
ممكن تعديل بسيط اريد عند الضغط على سطر عدد المناصبفي ليست بوكس ان لا تظهر البيانات في التاكس بوكس الخاصة بهذا السطر و عند الضغط على زر التعديل تظهر الرسالة الموضوعة في الكود "قم اولا باختيار الاسم الذي تود التعديل عليه"
100:
MsgBox "قم أولا بإختيار الأسم الذي تود تعديله", vbExclamation + vbMsgBoxRight, "خطأ"


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


تم تحرير المشاركة بواسطة :زياد عبد الجليل
بتاريخ:09-12-2017 01:11 مساء

سبب التعديل : /





09-12-2017 04:26 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
تفضل هذا التعديل واتمنى ان يكون ما تحب 

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل من نوع خاص (1).rar   تحميل rar مرات التحميل :(3)
الحجم :(36.009) KB


أثارت هذه المشاركة إعجاب: الصقر، زياد عبد الجليل،


توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 06:02 مساء
مشاهدة مشاركة منفردة [5]
زياد عبد الجليل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 76
المشاركات : 78
الجنس : ذكر
تاريخ الميلاد : 11-3-1977
يتابعهم : 4
يتابعونه : 3
قوة السمعة : 313
الاعجاب : 45
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
استاذ محمزد بارك الله فيك نعم هذا هو المطلوب بالضبط لكن لو تكرمت اريد عمل اضافة بسيطة على الملف تتمثل في النسخ و اللصق
مثلا اريد نسخ اسم موظف من فرع و لصقه في الصفحة 2 من نفس الملف تجد في الفورم شرح موجز للمطلوب وبارك الله فيك استاذ.
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  تعديل من نوع خاص.rar   تحميل rar مرات التحميل :(1)
الحجم :(19.786) KB





09-12-2017 06:05 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
والحمد لله ان تم المطلوب تمام

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



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 06:07 مساء
مشاهدة مشاركة منفردة [7]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
والحمد لله ان تم المطلوب تمام

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



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب



09-12-2017 06:12 مساء
مشاهدة مشاركة منفردة [8]
محمود ابو الدهب
menu_open
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 365
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 3
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 934
الاعجاب : 340
 offline 
look/images/icons/i1.gif طلب كود تعديل من نوع خاص
ويرجى في الموضوع الجديد توضح الامر اكثر من ذالك بمعنى ان يكفي ايكونة واحده اسمها نسخ البيانات 
ويتم النسخ الى شيت كذا
وفي النسخ يتم نسخ اسم كذا وكذا والاسم الثانى كذا
وتضع في الشيت الى هيتنسخ له جدول او بيان بشكل النتائج الى عايزها تظهر 
بمعنى يرجى توضيح الامر اكثر من ذالك 
 



توقيع :محمود ابو الدهب

 

لى عظيم الشرف بالانضمام لهذا الصرح العظيم 


 

وكم أتمنى من الله ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير 

 

تحياتى وتقدير للجميع / محمود ابوالدهب





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب دالة لحساب عدد الاشخاص بشرط معين سعيد العربي
13 108 YasserKhalil

الكلمات الدلالية
تعديل ،


 







الساعة الآن 08:29 صباحا