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

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


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


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





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

السلام عليكم لدي اكسل تمت برمجته مسبقا, اتمنى التعديل عليه مع بعض الاضافات المطلوبة اولا : يوجد كود في 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
المشاركات : 8432
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24602
الاعجاب : 2774
 offline 
look/images/icons/i1.gif مساعده في تعديل كودات اكسل للأهمية
أخي الكريم
يفضل في طرح الأسئلة التركيز على نقطة واحدة فقط في كل موضوع .. 
من خبرتي في التعامل مع الأسئلة لا أجد تفاعل من الأعضاء مع الموضوعات المتعددة النقاط (هذه مجرد نصيحة ولك الأخذ أو عدم الأخذ بها)

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



31-07-2019 08:38 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 449
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 21
قوة السمعة : 3482
الاعجاب : 333
 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، عبدالله فتحى،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب تعديل فى كود ترحيل و كود بحث mo7amed.2017
2 107 أحمد يوسف
تعديل على ملف اكسيل واضافة تحصيلات ومعرفة حسابات العملاء luka
2 80 YasserKhalil
تعديل كود لايعمل a.kawkab
3 103 a.kawkab
تعديل الكود mostah
4 95 YasserKhalil
تعديل عمل أزرار خيارات النقل والنسخ شبل
8 272 شبل

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


 







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

الساعة الآن 09:31 مساء

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