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

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


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



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





مساعده في تعديل كودات اكسل للأهمية

السلام عليكم لدي اكسل تمت برمجته مسبقا, اتمنى التعديل عليه مع بعض الاضافات المطلوبة اولا : يوجد كود في SHEET 2 , يقوم ..



12-07-2019 10:53 صباحا
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 42
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 

السلام عليكم

لدي اكسل تمت برمجته مسبقا, اتمنى التعديل عليه مع بعض الاضافات المطلوبة


اولا : يوجد كود في SHEET 2 , يقوم بتنفيذ عملية عند الكتابة في حقل L , اريد التعديل على الكود حيث يعمل نفس العملية و لكن عندما اضغط على زر HS CODE MERGEN.

ثانيا : اريد اضافة كود الى زر DELETE EMPTY ROW, يقوم بعمل DELETE للصفوص العرضية الفاضية من البيانات داخل الجدول, حيث يبقي الصفوص التي تحتوي على بيانات فقط.

ثالثا : اريد كود يقوم بإضافة صف عرضي تلقائياً عند الكتابة في آخر مربع من العمود B داخل اطاار الجدول.


ملاحظة : لا مشكلة اذا كان المساعد لا يستطيع عمل جميع الطلبات, فليتم عمله و ننتظر شخص آخر للتطوير
تم ضغط الملف لان الموقع لا يقبل امتداد الماكرو للأكسل
الرجاء المساعدة للضرورة القصوى, و شكرا للجميع
 
 
  AAAA.rar   تحميل rar مرات التحميل :(6)
الحجم :(31.311) KB







14-07-2019 10:02 صباحا
مشاهدة مشاركة منفردة [1]
e97h
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-07-2019
رقم العضوية : 13659
المشاركات : 42
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 27
الاعجاب : 7
 offline 
look/images/icons/i1.gif مساعده في تعديل كودات اكسل للأهمية
الرجاء المساعدة





31-07-2019 04:35 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7234
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 410
قوة السمعة : 20696
الاعجاب : 1430
 offline 
look/images/icons/i1.gif مساعده في تعديل كودات اكسل للأهمية
أخي الكريم
يفضل في طرح الأسئلة التركيز على نقطة واحدة فقط في كل موضوع .. 
من خبرتي في التعامل مع الأسئلة لا أجد تفاعل من الأعضاء مع الموضوعات المتعددة النقاط (هذه مجرد نصيحة ولك الأخذ أو عدم الأخذ بها)

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




31-07-2019 08:38 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 395
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 16
قوة السمعة : 3219
الاعجاب : 209
 offline 
look/images/icons/i1.gif مساعده في تعديل كودات اكسل للأهمية
بالنسبة للأزرار تم عمل الأكودد اللازمة

Option Explicit
Private Sub CommandButton1_Click()
add_for_me
End Sub
Rem +++++++++++++++++++++++++++++++++
Private Sub CommandButton2_Click()
del_info
End Sub

Rem ++++++++++++++++++++++++++++++++++++++
 Sub add_for_me()
    Dim x%, i%, Se#, Sf#, Sg#, Sh#, Si#

   For i = 2 To 10
     If Cells(i, 2) = vbNullString Then GoTo Next_I
     Se = IIf(IsNumeric(Cells(i, "E")), Cells(i, "E"), 0)
     Sf = IIf(IsNumeric(Cells(i, "F")), Cells(i, "F"), 0)
     Sg = IIf(IsNumeric(Cells(i, "G")), Cells(i, "G"), 0)
     Sh = IIf(IsNumeric(Cells(i, "H")), Cells(i, "H"), 0)
     Si = IIf(IsNumeric(Cells(i, "I")), Cells(i, "I"), 0)
     
    For x = i + 1 To 10
     If Cells(x, 2) = vbNullString Then GoTo Next_X
      If Cells(i, 2) = Cells(x, 2) Then
        Se = IIf(IsNumeric(Cells(x, "E")), Se + Cells(x, "E"), Se)
        Sf = IIf(IsNumeric(Cells(x, "F")), Sf + Cells(x, "F"), Sf)
        Sg = IIf(IsNumeric(Cells(x, "G")), Sg + Cells(x, "G"), Sg)
        Sh = IIf(IsNumeric(Cells(x, "H")), Sh + Cells(x, "H"), Sh)
        Si = IIf(IsNumeric(Cells(x, "I")), Si + Cells(x, "I"), Si)
      End If
      
Next_X:
     Next x
      Cells(i, "E") = Se: Cells(i, "F") = Sf: Cells(i, "G") = Sg
      Cells(i, "H") = Sh: Cells(i, "I") = Si
Next_I:
       Se = 0: Sf = 0: Sg = 0: Sh = 0: Si = 0
     Next i

End Sub
Rem++++++++++++++++++++++++++++++++++++++++++++++
Sub del_info()
Dim t%, y%, cnt%
y = 11
For t = 2 To y
 If Range("B" & t) = vbNullString Then GoTo Next_t
 cnt = Application.CountIf(Range("B2:B" & t), Range("B" & t))
 If cnt > 1 Then
 Range("b" & t).Resize(, 11).ClearContents
 End If
Next_t:
 Next
End Sub
Rem+++++++++++++++++++++++++++++++++++++


الملف مرفق

 
 
 
  AA_salim.rar   تحميل rar مرات التحميل :(3)
الحجم :(43.054) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ali mohamed ali، عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مساعدة في تعديل كود جمع القيم المبتدأ
5 12 المبتدأ
فورم اضافة وتعديل وحذف وحفظ الملف مجدى يونس
2 7 مجدى يونس
فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة مجدى يونس
5 59 مجدى يونس
اريد برنامج قابل للتعديل يعتبر مثل قاعدة البيانات للموظفين لدي في الشركة عبد الله السعيد
6 63 ابراهيم الحداد
تعديل كود ترحيل من صفحة الى أخرى بدون تكرار اسم الفندق فى نفس التاريخ مهند محسن
16 322 مهند محسن

الكلمات الدلالية
للأهمية ، اكسل ، كودات ، تعديل ، مساعده ،


 







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



الساعة الآن 10:20 مساء

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