saad abed

اخى ضاحى ممتاز وبارك الله فيك صيغ الصور بحيث لا تزيد مساحة البرنامج فى حالة وجود اكثر من فورم وافضل برنامج لتصميم صور للفورم جزاك الله خيرا

الاستاذ محمد اشكرك كل الشكر فقد وصلت المعلومه .End(Direction) xlToLeft = 1 xlToRight = 2 xlUp = 3 xlDown = 4 وفعلا رقم 2 تعبر عن cells(2,1) فهل هناك ارقام اخرى لتغيير الخلايا اشكرك اخى محمد

السلام عليكم اريد ان اعرف وظيفة الارقام فى الكود التالى Worksheets(WS.Name).Cells(Rows.Count, 1).End(3)(2) هل رقم 3 بديل xlup ورقم 2

استاذ سليم اكوادك رائعة وفيها ابداعات جزاك الله خيرا

اخوتى الاعزاء بعد اعادة انشاء الملف الافتراضى فى المسار C:\Users\saadabed\AppData\Local\Temp\Rar$DIa3740.16254 افتح الاكسيس مره او اكثر لاجد اختفاء ملفRar$DIa3740.16254 واضطر لانشاءه مره اخرى فهل هناك من حل

كيفية تصحيح اسم مجلد قاعدة البيانات الافتراضى الرساله بتقول الملف غير موجود تم انشاء ملف جديد بالاسم والحمد لله اشكركم

السلام عليكم تظهر لدى رساله فى بداية تشغيل الاكسيس مكونه من سطرين تعذر على ميكرسوفت اكسيس تغيير دليل العمل الى مسار temp تاكد من انك تستخدم محرك الاقراص الصحيح وان طول المسار هو 260 حرف او اقل عملت رفع للاوفيس 2016 وتم عمل ستب ولا فائده علما لو وافقت على الرساله يعمل البرنامج كل الملفات اى كان موقعها على الجهاز

استاذ سليم كل الشكر والتقدير وصلت المعلومه واكتملت الفكره اشكرك اشكرك

استاذى الفاضل سليم اسال الله ان يجزيك خيرا على الابداعات التى تقدمها اكاد افهم اليه الكود باستثناء طريقة الجمع فى الكود ما افهمه من الكود الاعلان عن المتغيرات Dim Rg_A As Range Dim Rg_D As Range, Rg_G As Range Dim a%, d%, g%, X% Dim St1$, St2$ Dim Dic As Object ثم مسح مكان استدعاء البيانات Range("k3").CurrentRegion.ClearContents ثم تعيين المتغيرات وتعريفها Set Rg_A = Range("A3", Range("A2").End(4)) Set Rg_D = Range("D3", Range("D2").End(4)) Set Rg_G = Range("G3", Range("G2").End(4)) a = Rg_A.Rows.Count: d = Rg_D.Rows.Count g = Rg_G.Rows.Count St1 = "All Products": St2 = "All Volume" Set Dic = CreateObject("Scripting.dictionary") ثم عمل ثلاث حلقات تكراريه تبدا من الصف الثالث الى عدد صفوف الرنج المشار اليه بالحلقه For X = 3 To a - 2 If Not Dic.exists(Cells(X, 1).Value) Then Dic(Cells(X, 1).Value) = Cells(X, 2) Else Dic(Cells(X, 1).Value) = Dic(Cells(X, 1).Value) + Cells(X, 2) End If Next ما افهمه من الحلقه التكراريه اذا لم تجد عنصر الكائن اى عدم تكراره فى الرنج فانه يساوى cells(x,2 والا اللى انا فهمه اجمع العنصر بالرقم المجاور ارجو شرح هذه الجزئية اشكرك الباقى واضح

أحسنت استاذ سليم

اخى سليم اشكر مجهودك الجبار واشكر سرعة ردك على كل الاعضاء اتتبع ردودك لان بها افكار واكواد محكمه ======================== اخى سليم كده هضطر لفصل الخليه الى على عمودين هل هناك افكار لتظل فى عمود واحد لان لدينا بمصر رقم السياره حروف وارقام حتى لو ضمن الفكره ان اغير التنسيق ما دام المضمون صح بمعنى الرقم - حروف الرقم / حروف الرقم* حروف اى شئ مقبول اشكر ك اخى الكريم

السلام عليكم خلية تحتوى على ارقام ثم سلاش وحروف فى الفرز اريد الفرز على الارقم فقط الطريقة العادية لا تعطى المطلوب النتيجة المطلوبه فرز الخلايا على الارقام دون النظر لما بعد السلاش / اشكركم فرز.xlsm

اخى رائد جزاك الله خيرا اتتبع ردودك

البرنامج ممتاز المفروض الكشوف تبقى اكواد مش بيفوت تيبل لكى تلبى كل الاحتياجات لو طرحه للمساعده اشرح فكرة البرنامج وما توصلت له ونساعد خطوه خطوه

السلام عليكم كنت لا افهم طريقة عمل البرنامج حتى قرات عنه البرنامج يخفى اكوادك ومشروعك فى ملف dll رغم ان المشروع مفتوح واكوادك تعمل فهو ينقلها تماما من الملف برنامج ممتاز وهناك اكواد تخفى vba فلو وضعنا الكود قبل تشفيره اظن ان اى شخص لا يستطيع الوصول للاكواد

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

اخى الرائد77 بارك الله فيك موضوع مميز وارجو الاهتمام بالرد على التساؤلات حينما دخلت على مشروع الاكواد وجدته مفتوح المفروض الا يظهر الاكواد بعد التشفير اشكرك موضوع مهم جدا

اخى عبدالفتاح يلجا البعض الا خفض الماكرو للوصول للمصنف ثم الوصول الى المشروع ملف الرجيسترى يعمل على تمكين الماكرو فى اصدار2013 وهناك ملفات لكل اصدارات الويندز هل استطيع ان يعمل الملف فى بداية عمل ملف الاكسيل هى فكره خطرت فى بالى هل استطيع تحقيقها ============================== الطلب الثانى الا يفتح التطبيق مصنف اخر طالما الملف مفتوح

السلام عليكم لازال البحث عن حماية شبه كامله يشغلنى تمكين الماكرو فى بداية فتح الملف هناك ملف ريجيسترى فى المرفقات كيف استفيد منه فى بداية فتح الملف بحيث يمكن الماكرو ============================ هل توجد طريقه لمنع فتح ملف اكسيل اخر اثناء عمل الملف 2013.rar

اخى محمد ايمن اشكرك كل الشكر

الف مبروك وبالتوفيق للاخ عبدالفتاح في بي اكسيل والاخ الرائد 77 وكل عام وانتم بخير

استاذ محمد ايوه المفروض النسخه لا يستطيع العميل اعطاءها لاخر بحيث يحتاج المبرمج لتنشيطها على جهازه

استاذ محمد ايمن ======================= نافذة الدوس الخاصه بالويندز ام نافذه البرنامج (لا تستمر فى الظهور) =============================== اشكرك من خلال اجابتك عرفت ان اى برنامج كسر حماية لا يستطيع الوصول لمحرر الاكواد البرنامج نفسه يستطيع كسرها بعكس الحماية هل توجد اى افكار لمعالجه فكرة عكس الحمايه لو غيرت اسم الملف بعد عمل الحماية لانه بيضيف اسم البرنامج

اخى محمد ايمن هل هناك اكواد تجبر تمكين الماكرو اى فى حدث فتح التطبيق يغير اعدادات الماكرو وتمكينه وهل هناك حماية برقم المازر بورد بحيث يعمل البرنامج على جهاز بعينه اشكرك اخى الكريم

اخى محمد ايمن انت مبدع وانا مع رايك تكرار الباك اب اليومى مفيد للرجوع اليه فى اى وقت خصوصا اذا كانت الداتا ليست كبيره اشكرك