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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





كود حذف و تعديل ادخال بيانات الاصناف

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



23-01-2020 07:14 صباحا
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 111
الاعجاب : 1
 offline 
اخواني إدارة و أعضاء اكاديمية
بدايةً .. شكري الجزيل لاستاذ ياسر و و استاذ حسين لمساعدتي في تحويل الترابط التشعبي  من معادلة الى كود
اليوم مطلوب كود حذف و تعديل في صفحة ادخال بيانات الاصناف  فقط و ابداء رايكم فيها

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

كود ادخال بيانات الموظف

Private Sub newCustomer_Click()
    Application.ScreenUpdating = False
        Dim iRow As Long
        iRow = Sheets("بيانات الاصناف").Range("B1048576").End(xlUp).Row + 1
                With ThisWorkbook.Sheets("بيانات الاصناف")
                   .Range("A" & iRow).Value = iRow - 1
           .Range("B" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f5").Value
           .Range("C" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f8").Value
           .Range("D" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f11").Value
           .Range("E" & iRow).Value = Sheets("ادخال بيانات الاصناف").Range("f14").Value
                   End With
                
    Sheets("ادخال بيانات الاصناف").Range("f5").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f8").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f11").Value = ""
        Sheets("ادخال بيانات الاصناف").Range("f14").Value = ""
        Application.ScreenUpdating = True
    End Sub

 




23-01-2020 02:26 مساء
مشاهدة مشاركة منفردة [1]
mostah
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 92
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
قوة السمعة : 111
الاعجاب : 1
 offline 
look/images/icons/i1.gif كود حذف و تعديل ادخال بيانات الاصناف
كود تعديل البيانات
Private Sub newCiteam1_Click()
Sheets("بيانات الاصناف").Activate
Range("f5").Value = TextBox1.Value
TextBox2.Value = Range("f8").Value
TextBox3.Value = Range("f11").Value
TextBox4.Value = Range("f14").Value
End Sub

 







الكلمات الدلالية
تعديل ادخال ، بيانات ، الموظف ،


 







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

الساعة الآن 09:42 صباحا

أعلن هنا
أعلن هنا
أعلن هنا