أكاديمية الصقر للتدريب

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


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





تعديل على كود التعديل

السلام عليكم ان امكن التعديل على كود تعديل لكي يتم تعديل الاسم المختار من صفحة DATA لكي يتم تمكين تعديل على خليه الاسم م ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


07-07-2021 08:20 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم
ان امكن التعديل على كود تعديل لكي يتم تعديل الاسم المختار من صفحة DATA لكي يتم تمكين تعديل على خليه الاسم مثلا اضافة اللقب وان يتم التعديل على كل الصفوف في حال وجود تكرار للاسم المراد التعديل عليه .مع جزيل الشكر للجميع
 
 
  تعديل على كود .xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(472.748) KB



أفضل إجابة مقدمة من hassona229 وهي:
في البدايه

لو الملف الموجود لديك بنفس الفورم في الملف المرفق
اضف على الفورم
 Textbox
سيصبح اسمه
TextBox4
 ثم بعد ذلك

عدل في الاكواد كما يلي

في الكود Private Sub ListBox1_Click  توجد السطور التالية

TextBox3.Text = Me.ListBox1.List(I, 0)
TextBox1.Value = Me.ListBox1.List(I, 3)

اضف بعدها هذا السطر

TextBox4.Text = Me.ListBox1.List(I, 3)

لتصبح هكذا

TextBox3.Text = Me.ListBox1.List(I, 0)
TextBox1.Value = Me.ListBox1.List(I, 3)
TextBox4.Text = Me.ListBox1.List(I, 3)


وفي الكود Private Sub CommandButton2_Click  اللى هو كود التعديل
عدل هذا السطر

WS.Cells(C.Row, 2).Value = TextBox1.Value

الى

WS.Cells(C.Row, 2).Value = TextBox4.Value

هذا السطر

MsgBox "تم التعديل بنجاح"

عدله ليصبح هكذا

MsgBox "تم التعديل بنجاح"
TextBox1_Change

 
عرض الإجابة




08-07-2021 05:26 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
في البدايه

لو الملف الموجود لديك بنفس الفورم في الملف المرفق
اضف على الفورم
 Textbox
سيصبح اسمه
TextBox4
 ثم بعد ذلك

عدل في الاكواد كما يلي

في الكود Private Sub ListBox1_Click  توجد السطور التالية

TextBox3.Text = Me.ListBox1.List(I, 0)
TextBox1.Value = Me.ListBox1.List(I, 3)

اضف بعدها هذا السطر

TextBox4.Text = Me.ListBox1.List(I, 3)

لتصبح هكذا

TextBox3.Text = Me.ListBox1.List(I, 0)
TextBox1.Value = Me.ListBox1.List(I, 3)
TextBox4.Text = Me.ListBox1.List(I, 3)


وفي الكود Private Sub CommandButton2_Click  اللى هو كود التعديل
عدل هذا السطر

WS.Cells(C.Row, 2).Value = TextBox1.Value

الى

WS.Cells(C.Row, 2).Value = TextBox4.Value

هذا السطر

MsgBox "تم التعديل بنجاح"

عدله ليصبح هكذا

MsgBox "تم التعديل بنجاح"
TextBox1_Change

 

08-07-2021 11:31 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
شكرا جزيلا استاذ حسونه المحترم سوف اقوم بتطبيق الكود غدا واعلمك بالنتيجة 
تحياتي لك 

09-07-2021 12:15 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
بالتوفيق ان شاء الله 

09-07-2021 01:47 مساء
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
شكرا جزيلا استاذ حسونه فضلا وليس امرا 
يحدث خطأ عند اختيار بعض الأسماء من اليست بوك
كذلك فعند الضغط سهوا على زر التعديل وكانت التكست بوك فارغة فانه يقوم بمسح كل الاسماء من صفحه data (محتاج ان لا يقوم بعمل اي شيى في حال كانت التكست بوك فارغة )
وقمت باضافة للكود لكي يقوم بالتعديل على الاسم في حاله فتح الفورم من صفحه اخرى 
 ان امكن طريقه اخرى يمكن فيها الاستغناء عن تكست بوكس ٤ 
وشكرا جزيلا لحضرتك 
 
  الكود.jpg   تحميل jpg الكود.jpg مرات التحميل :(0)
الحجم :(81.458) KB
  الخطا.jpg   تحميل jpg الخطا.jpg مرات التحميل :(0)
الحجم :(198.458) KB
 
  الملف المعدل.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(471.129) KB


10-07-2021 11:03 صباحا
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
اقتبـاس ،،
يحدث خطأ عند اختيار بعض الأسماء من اليست بوك

لم يظهر اي خطأ
اقتبـاس ،،
فعند الضغط سهوا على زر التعديل وكانت التكست بوك فارغة فانه يقوم بمسح كل الاسماء من صفحه data

في الكود
Private Sub CommandButton2_Click()

بعد هذا السطر
WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row

اضف هذا السطر
If TextBox1 = "" Then Exit Sub

ليصبح هكذا

Private Sub CommandButton2_Click()
WSLR = WS.Cells(Rows.Count, 1).End(xlUp).Row
If TextBox1 = "" Then Exit Sub


 


10-07-2021 08:52 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif تعديل على كود التعديل
مشكور جهودك استاذ حسونه العزيز الله يجعلها في ميزان حسناتك 
هل يوجد طريقه للاستغاء عن تكست بوكس ٤.
تحياتي لحضرتك 


الصفحة 1 من 2 < 1 2 > الأخيرة »


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


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:57 صباحا