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

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


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


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





طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة

السلام عليكم اخواني واساتذتي الكرام لدي ملف عمل يومي اقوم فيه يوميا يحوالي 60 الى 80 عملية لصق لجداول عمل خاص بي احضرها ..



03-01-2020 02:34 صباحا
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
السلام عليكم اخواني واساتذتي الكرام
لدي ملف عمل يومي اقوم فيه يوميا يحوالي 60 الى 80 عملية لصق لجداول عمل خاص بي احضرها من مواقع نت وفي محاولة لاختصار الوقت بدأت بتصميم ازرار في الملف كل زر منها يقوم باللصق في المكان المحدد له فوجدت ان الملف سيمتلىء بالازارار والماكروات ثم خطرت لي فكرة صناعة كود برمجي يظهر لي صندوق ادخال لقيمتين اذا نحققنا وبالضغط على زر في الصندوق تكون النتيجة لصق في خلية معينة الادخال الاول عبارة عن اسم الشركة ولدي 25 شركة والادخال الثاني هو رقم من 1 الى 6 لأن الحد الأقصى لعمليات اللصق لكل شركة هو 6 علما ان اللصق خاص html لأن البيانات المنسوخة اجلبها من مواقع نت لهذه الشركات خاص بعملي كما قلت 

واذا كان بالامكان عمل قائمتين منسدلتين الاولى بدل الادخال الاول بأسماء الشركات والثاتية بدل الادخال الثاني من 1 الى 6 يكون ذلك اورع وافضل 
وانا بصراحة مبتدىء في عالم ال vba ومنذ عدة ايام وانا احاول ان اصنع هذا الكود ولكن في النهاية استسلمت وجئتكم طالبا النجدة
فهل من مغيث
والشكر والتقدير مرفوع سلفا

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  bbb.rar   تحميل rar مرات التحميل :(1)
الحجم :(145.917) KB
  bbb.rar   تحميل rar مرات التحميل :(1)
الحجم :(145.917) KB


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



03-01-2020 07:55 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
وعليكم السلام أخي الكريم 
المشكلة ليست واضحة بما يكفي ولا يوجد تفاصيل كافية

عموماً اطلعت على الملف ووجد أنك استخدمت نفس الكود عدة مرات لذا أقترح عليك عمل الآتي .. إنشاء ورقة عمل تكون بمثابة ورقة عمل مساعدة أو ورقة عمل إعدادات ، تضع فيها المعطيات المطلوبة وتكون نقطة الإنطلاق لك ..
اطلع على الملف المرفق وفي ورقة العمل Settings ستجد قائمة منسدلة بالخلايا الهدف التي تريد لصق البيانات بها ، اختر الخلية الهدف وانقر زر الأمر Do It لتنفيذ نفس الأكواد التي لديك لكن بدون تكرارها ..
 
 
 
  Habib Solution.rar   تحميل rar مرات التحميل :(1)
الحجم :(149.002) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، حسين مامون،



03-01-2020 04:44 مساء
مشاهدة مشاركة منفردة [2]
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
حياك الله استاذ ياسر وشكرا لتجاوبك السريع
في الاعادة افادة وسأسهب قليلا بشرح مشكلتي
انا اعمل في مجال التسديد الالكتروني وفي نهاية يوم العمل اقوم بجرد لواجهات العمل والجرد يعتمد بشكل اساسي على معطيين اساسيين الاول رقم الهاتف للمشترك اللذي سددت له والثاني قيمة التسديد وبالطبع يدخل اسم الشركة كمعطى ثالث واقوم بذلك باني افتح البيان المالي للشركة واقوم بنقل البيان المالي الى ملف العمل الخاص بي وهذا البيان يكون غالبا اكتر من صفحة وبالتالي نحن نتحدث عن عدة عمليات نسخ لكل شركة وعندي كما وضحت في الملف المرفق حوالي 25 شركة يعني نحن نتحدث عن حوالي 60 الى 100 عملية نسح لصق وهذا الامر اصبح ياخذ مني وقتا كبيرا 
هنا اتجهت الى ال vba في محاولة لتقليل الوقف والجهد وعملت ملف وسيط لاستخرج عن طريقه الجرد الخاص بي ولكني استاذ قليل الخبرة ومبتدىء ووقتي ضيق لذلك استعين بخبرات اساتذة الاكسل (ادامكم الله لأمثالنا) 
واذا وسع لي صدرك ووقتك وساعدتني به فسارفع لك ملفي اللذي اعمل عليه واين وصلت فيه واشرح لك بماذا افكر بالتفصيل ولن تكون اي كلمة شكر كافية اذا نجح معي هذا الملف لاني اتحدث عن 3 الى 4 ساعات توفير في اليوم واجرك على الله  

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



03-01-2020 06:41 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
بارك الله فيك أخي الكريم

أعتقد يجب أن تشرح الموضوع من البداية وليس إلى ما توصلت إليه ، لربما يكون هناك طرق أفضل من التي توصلت إليها .. 
وفي الحقيقة أن الكلام بشكل نظري لن يفيد كثيراً في حل المشكلة ، لذا أقترح أن تضع رابط الموقع الذي تجلب منه البيانات فبدلاً من النسخ يمكن التعامل من خلال VBA مع الموقع بشكل مباشر وهذا سيكون أفضل لك (هذه وجهة نظري وليس لك الأخذ بها)
 

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



03-01-2020 09:36 مساء
مشاهدة مشاركة منفردة [4]
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
حياك الله استاذ 
اذا مبدئيا لنتجاوز موضوع النسخ واللصق ولنفترض اننا انتهينا من جلب المعلومات الى الملف سيصبح الملف بهذا الشكل (المرفق) وانا كتبت على كل جدول من الجداول ماهي البيانات المطلوب سحبها الى جدول النتيجة

والشكر والدعاء مرفوع لك سلفا 
 
 
  aaa (1).xlsb   تحميل xlsb مرات التحميل :(1)
الحجم :(112.412) KB


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



03-01-2020 10:21 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
وماذا لو كانت الخلية في العمود I فارغة مثل الخلية I24؟؟؟  هل سيتم تخطي مثل هذه الخلية؟

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



03-01-2020 10:36 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
عموماًجرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim a, ws As Worksheet, i As Long, k As Long
    
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(1)
        a = ws.Range("I5:P" & ws.Cells(Rows.Count, 9).End(xlUp).Row).Value
        ReDim b(1 To UBound(a), 1 To 3)
        
        For i = UBound(a) To LBound(a) Step -1
            If a(i, 1) <> "" Then
                k = k + 1
                b(k, 1) = a(i, 1)
                b(k, 2) = a(i, 7)
                If a(i, 8) <> "تسديد عبر تحويل مصرفي" Then b(k, 3) = "MTS" Else b(k, 3) = Empty
            End If
        Next i
        
        ws.Range("E4").Resize(k, UBound(b, 2)).Value = b
    Application.ScreenUpdating = True
End Sub

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



03-01-2020 11:12 مساء
مشاهدة مشاركة منفردة [7]
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
ساجرب الكود الان وانشاء الله على يدك استاذ ياسر يكون الحل
يارب

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



03-01-2020 11:33 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
جرب الكود وشوف ولو فيه مشكلة في تخطي الخلايا الفارغة شيل الشرط الخاص بتحديد الخلايا الفارغة أو اربطها بخلية أخرى تكون متأكد إنها لا يمكن أن تكون فارغة
لاحظ أن الرقم 1 في الجزء التالي يشير إلى العمود I
If a(i, 1) <> "" Then


لذا فإن العمود J سيكون رقمه في المصفوفة هو 2
والعمود K رقمه في المصفوفة هو 3 وهكذا .. حتى تعرف كيف تعدل على الكود بنفسك




04-01-2020 12:34 صباحا
مشاهدة مشاركة منفردة [9]
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
عظم الله اجرك استاذ ياسر الكود اكتر من ممتاز ولكن عذرا منك انا اوصلت اليك المعلومات من غير قصد بشكل خاطئ 
انا والله عن حسن نية وظنا مني اني احفف التعقيد بالطلب وضعت البيانات في جداول الشركات بطريقة لصق القيم من اجل الحفاظ على التنسيق في الملف ومن اجل السرعة في اعداد ملف الطلب
وتجنبا لاي خطأ مماثل قمت الان بالدخول الى واجهة mts وجلبت المعلومات تماما كما في جردي اليومي وقمت بلصقها عن طريق الزرين mts1 و mts2 حيث جلبت صفحتين من البيان المالي 
المعلومة الخطأ اللتي اوصلتها لك هي ان العمود J ليس قيم بل فيه معادلات تستخرج الاسم من العمود Q 
وكذلك العمود I هو معادلات تستخرج الرقم بناءا على الاسم 
وهذا هو السبب في انه توجد بعض الخلايا الفارغة في العمود Q حيث نستكملها نحن لاحقا من بيانات تأتينا من الشركة ولذلك انا بحاجة الى سحب المعلومات في الصف اللذي فيه خلاية فارغة الى جدول النتيجة لأن القيمة الثانية وهي قيمة المبلغ اللذي سدده الزبون هي الاهم  (باستثناء الخلية الفارغة في الصف اللذي يحوي على جملة "تسديد عبر تحويل مصرفي" فان هذا الصف بكل معلوماته يجب ان لا يتقله الكود عند التنفيذ)
واكرر اعتذاري الشديد والله فعلت ذلك عن حسن نية وهذا الملف (المرفق) هو الملف اللذي اقوم بعمله نسقه انت استاذ بما تراه مناسب

ملاحظة اخيرة : في العمود الثاني من النتيجة أنا اريد المعلومات التي في العمود N في الكود اللذي عملته حضرتك يسجب المعلومات من العمود O


 
 
 
  aaa.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(145.224) KB





04-01-2020 06:41 صباحا
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
الملف الجديد لم أفهم التغيير الذي قمت به .. يفضل عدم إرفاق أكثر من ملف مرفق في الموضوع الواحد حتى لا يتشتت الأعضاء ويفقد الموضوع أهميته
لذا أقترح عليك طرح موضوع جديد وإرفاق ملف مرفق واحد فقط لا يتغير في كل رد ، ووضع بعض النتائج المتوقعة حيث أنني لم أفهم المطلوب ولا المعطيات ..
ضع مثالين أو ثلاثة من النتائج المتوقعة واشرح لنا كيف تجلب البيانات ومن أي خلايا ومن أي نطاق ، واعذرني لأن العمل على التخمين يضيع الوقت والجهد بشكل كبير ولست من هواة العمل على التخمين

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



04-01-2020 11:57 صباحا
مشاهدة مشاركة منفردة [11]
حبيب
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-10-2017
رقم العضوية : 909
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 27-6-1978
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 29
الاعجاب : 8
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
شكرا لسعة صدرك استاذ وسأعمل بنصيحتك لكن اولا سأحاول قليلا بنفسي لذا امر اخير 
لم افهم هذا القسم من الكود
        a = ws.Range("I5:P" & ws.Cells(Rows.Count, 9).End(xlUp).Row).Value
        ReDim b(1 To UBound(a), 1 To 3)


هل تتكرم بشرحه لي خصوصا عند 
Cells(Rows.Count, 9)
و UBound و LBound حتى الان لافهمهم بشكل جيد




04-01-2020 05:02 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8413
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 440
قوة السمعة : 24541
الاعجاب : 2756
 offline 
look/images/icons/i1.gif طلب كود لصندوق ادخال فيه قيمتين اذا تحققتا يعطي نتيجة معينة
الجزء الأول للحصول على رقم آخر صف به بيانات بناءً على العمود التاسع وهو العمود I
والجزء LBound يشير إلى رقم أول صف بالمصفوفة (والصفوف داخل المصفوفة غير الصفوف في ورقة العمل حيث يكون أول صف بالمصفوفة هو رقم 1 ولكنه في ورقة العمل مرتبط بالمصفوفة نفسها ..)
والجزء UBound يشير إلى آخر صف بالمصفوفة
لاحظ أن المصفوفة تخزن النطاق من أول الخلية I5 إلى العمود P وآخر صف به بيانات
لذا فإن أول صف بالمصفوفة يقابله الصف رقم 5 في ورقة العمل
واول عمود بالمصفوفة يقابله العمود التاسع في ورقة العمل

 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حركة الصندوق محمد حسن المحمد
16 1653 محمد حسن المحمد
استخراج تقرير دفتر الصندوق (Cash book) Abo Sohaib
2 392 Abo Sohaib
عمل تقرير دفتر الصندوق Cash Book Abo Sohaib
0 225 Abo Sohaib
حركة الصندوق حسب الصنف أو فئة العملة محمد حسن المحمد
30 3132 محمد حسن المحمد
نموذج ادارة الصندوق faraktoz
7 1699 الصقر

الكلمات الدلالية
لصندوق ، ادخال ، قيمتين ، تحققتا ، يعطي ، نتيجة ، معينة ،


 







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

الساعة الآن 03:44 مساء

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