logo

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



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





23-01-2020 07:14 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 198
الدولة : الامارات العربية المتحدة
الجنس :
تاريخ الميلاد : 1-1-1966
قوة السمعة : 402
الاعجاب : 19
اخواني إدارة و أعضاء اكاديميةبدايةً .. شكري الجزيل لاستاذ ياسر و و استاذ حسين لمساعدتي في تحويل الترابط التشعبي من معادلة الى كود<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
اليوم مطلوب كود حذف و تعديل في صفحة ادخال بيانات الاصناف فقط و ابداء رايكم فيها
<br arabic="" droid="" kufi="" style="color: rgb(0, 0, 0); font-family: " />
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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

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



توقيع :حسين الحمادي
عن أبي هريرة رضي الله عنه عن النبي صلى الله عليه وسلم أنه قال : ( إِنَّ مِمَّا يَلْحَقُ الْمُؤْمِنَ مِنْ عَمَلِهِ وَحَسَنَاتِهِ بَعْدَ مَوْتِهِ : عِلْمًا عَلَّمَهُ وَنَشَرَهُ ، وَوَلَدًا صَالِحًا تَرَكَهُ ، وَمُصْحَفًا وَرَّثَهُ ، أَوْ مَسْجِدًا بَنَاهُ ، أَوْ بَيْتًا لِابْنِ السَّبِيلِ بَنَاهُ ، أَوْ نَهْرًا أَجْرَاهُ ، أَوْ صَدَقَةً أَخْرَجَهَا مِنْ مَالِهِ فِي صِحَّتِهِ وَحَيَاتِهِ يَلْحَقُهُ مِنْ بَعْدِ مَوْتِهِ ) رواه ابن ماجه

look/images/icons/i1.gif كود حذف و تعديل ادخال بيانات الاصناف
  23-01-2020 02:26 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 198
الدولة : الامارات العربية المتحدة
الجنس :
تاريخ الميلاد : 1-1-1966
قوة السمعة : 402
الاعجاب : 19
كود تعديل البيانات
CODE
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



توقيع :حسين الحمادي
عن أبي هريرة رضي الله عنه عن النبي صلى الله عليه وسلم أنه قال : ( إِنَّ مِمَّا يَلْحَقُ الْمُؤْمِنَ مِنْ عَمَلِهِ وَحَسَنَاتِهِ بَعْدَ مَوْتِهِ : عِلْمًا عَلَّمَهُ وَنَشَرَهُ ، وَوَلَدًا صَالِحًا تَرَكَهُ ، وَمُصْحَفًا وَرَّثَهُ ، أَوْ مَسْجِدًا بَنَاهُ ، أَوْ بَيْتًا لِابْنِ السَّبِيلِ بَنَاهُ ، أَوْ نَهْرًا أَجْرَاهُ ، أَوْ صَدَقَةً أَخْرَجَهَا مِنْ مَالِهِ فِي صِحَّتِهِ وَحَيَاتِهِ يَلْحَقُهُ مِنْ بَعْدِ مَوْتِهِ ) رواه ابن ماجه

اضافة رد جديد اضافة موضوع جديد




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









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

الساعة الآن 12:19 AM