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

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




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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :e97h
عدد النتائج (35) نتيجة
13-09-2019 11:27 صباحا
icon تنفيذ امر بعد الغاء الخروج | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 تم ارفاق الملف
12-09-2019 05:55 مساء
icon تنفيذ امر بعد الغاء الخروج | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 اشكر الجميع ع المساهمة و لكن الى الان لازال الملف يرجع يفتح بعد الغلق بسبب التايمر

المشكلة فقط عندما يكون هناك ملف اكسل آخر مفتوح 
اما لو كان ملف العمل نفسه فقط مفتوح, راح يغلق من دون مشاكل

الرجاء الفحص
12-09-2019 10:21 صباحا
icon تنفيذ امر بعد الغاء الخروج | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 لدي تايمر في الاكسل
عند غلق الملف يجب ايقاف التايمر اولا.. في حال عدم ايقافه الملف راح يرفض الاغلاق

استطيع وضع امر تشغيل ماكرو stopbtn لايقاف التايمر في before close sub

و هكذا راح يتم ايقاف التايمر اول مايضغط المستخدم X لاغلاق الصفحة.. و لكن المشكلة ان لو المستخدم ضغط X و بعدها ضغط cancel .. راح يتم ايقاف التايمر ايضا

للعلم يوجد ماكرو آخر لإستئناف التايمر لو كان هنالك حل للمشكلة بطريقة اخرى

اسماء الماكرو
Startbtn - للاستئناف
Stopbtn - للإيقاف
12-09-2019 08:39 صباحا
icon تنفيذ امر بعد الغاء الخروج | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 هل يمكن وضع دالة if في بند before close.. بحيث يتم تفعيل الماكرو في بعد دقيقة واحدة من دخول البند؟
29-07-2019 09:04 مساء
icon حماية الاكسل عبر نظام التراخيص | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 تم التواصل معك عبر messenger
بإنتظار الرد
29-07-2019 08:59 مساء
icon برنامج حماية محرر الاكواد VBA protection | الكاتب :e97h |المنتدى: منتدى اعلانات وخدمات بالمقابل
 شكرا لك
29-07-2019 02:03 مساء
icon حماية الاكسل عبر نظام التراخيص | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 اخ ياسر خليل.. اتمنى ارسال طريقة التواصل معك ع الخاص
تواصلت مع المبرمج بخصوص البرنامج و لكنه لا يرد.. و وجدته كاتب اسمك بموضوعه للتواصل في حال لم يكن متواجد
27-07-2019 02:41 مساء
icon دمج قيم الصفوص المتشابهة في صف واحد | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 اهلا اخي

الكود يجمع الاصناف المتشابهة في الصفوف B-C-D
حاليا الكود يجمع قيم E-F-G-H, و باقي القيم تبقى مثل قيمة الصف الرئيسي

كل شيء تمام, اضافة صغيرة فقط, ان يتم جمع قيم عمود I ايضا
بحيث الاعمدة التي يتم جمع قيمها تكون E-F-G-H-I

و هذه الصور توضح ان الزر يجمع القيم المتشابهة المطلوبة, عدى قيمة I
قبل الضغط على الزد
pQxRI_hs
بعد التفيذ
Gv4DZ_2
الملف في المرفقات
حددت لك كود الدمج في المحرر بوضع
'          Yaser Khalild
لان الزر يتحوي على اكثر من عملية
شكرا
 
27-07-2019 09:00 صباحا
icon دمج قيم الصفوص المتشابهة في صف واحد | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 جدا متأسف استاذ ياسر على الطلبات الكثيرة، و لكن اكتشفت ان الكود لا يجمع قيم الPKG عمود I
الرجاء التعديل ليجمع الPKG ايضا
و شكرا

Sub SUM_Similar_Items_SUM_Unique_In_Three_Columns_Dictionary()

 

    Dim a, ws As Worksheet, i As Long, ii As Long, txt As String

 

   

 

    Set ws = ThisWorkbook.Worksheets("ITEMS")

 

    a = ws.ListObjects(1).DataBodyRange.Value

 

 

 

    With CreateObject("Scripting.Dictionary")

 

        For i = 1 To UBound(a, 1)

 

            If a(i, 1) <> "" Then

 

                txt = Join(Array(a(i, 1), a(i, 2), a(i, 3)), Chr(2))

 

                If Not .Exists(txt) Then

 

                    .Item(txt) = .Count + 1

 

                    For ii = 1 To UBound(a, 2)

 

                        a(.Count, ii) = a(i, ii)

 

                    Next ii

 

                Else

 

                    For ii = 4 To 7

 

                        a(.Item(txt), ii) = a(.Item(txt), ii) + a(i, ii)

 

                    Next ii

 

                End If

 

            End If

 

        Next i

 

        i = .Count

 

    End With

 

 

 

    ws.ListObjects(1).DataBodyRange.ClearContents

 

    ws.Range("B2").Resize(i, UBound(a, 2)) = a

 

End Sub

 




 
26-07-2019 09:27 صباحا
icon نعديل على كود تفعيل الخلية | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: YasserKhalil
اقتبـاس ،،
نعم باين انك فاهم المطلوب


لا تعليق .................


اخي لا تفهمني بالخطأ,, كنت اقصد انو عرف طلبي بما ان قدم لي الحل المناسب بعد ان كان متشكك في فهمي

المشاركة الأصلية كتبت بواسطة: YasserKhalil
لا يوجد حدث يتم تفجيره أثناء التغيير في الخلية نفسها !!!


تمام شكرا, لم اكن اعرف
26-07-2019 09:24 صباحا
icon حماية الاكسل عبر نظام التراخيص | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 شكرا لك اخي
من هو ياسر العربي؟ تقصد ياسر خليل؟
اتمنى  منه ان كان يقرأ ان يرسل تفاصيل العرض
25-07-2019 09:42 مساء
icon نعديل على كود تفعيل الخلية | الكاتب :e97h |المنتدى: اكسيل اسئله واجابات
 اشكرك اخي
نعم باين انك فاهم المطلوب
الكود يعمل و لكن عند الكتابة في الخلية  يجب الخروج من الخلية و الرجوع اليها حتى يتحقق الشرط
انا اريده يكتشف ان الشرط تحقق عند بداية الكتابة

الصفحة 1 من 3 < 1 2 3 > الأخيرة »





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

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