Mina EL-Prince

الف شكر للاستاذ المبجل @ محمد حسن المحمد ، شكرا لدعمك ومجهودك الرائع وشكرا لكل من تكرم بالمرور والمتابعة والتعليق تكميلا لشرح الفكرة الفكرة اللى موجود في Sheet1 انا اعرفها وبستخدمها بس محتاجة وقت وتركيز كبير وفي حالة الإضافة او التعديل بتاخد وقت طويل وخاصة مع كمية بيانات كبيرة ولكن انا عايز اعمل مجموعة من الجداول العادية واربطها بطريقة شبيها بالموجودة في قواعد البيانات بحيث انة تظهر ليا النتائج بطريقة متسلسلة طبعا لسة في إضافة للاصناف لكل مندوب وباشكال مختلفة ، فلوس طن كرتونة الفكرة اللى في Sheet1 انا محتاج على الأقل اعمل لكل صنف 3 قيم في التشكيل الوظيفي لكل مندوب وحنلاقي ان احنا بنعمل عدد لانهائي من الصفوف برجاء متابعة Sheet 2 لتوضيح الفكرة انا غير متاح لي غير استخدام الاكسل وذلك طبقا لما هو متاح في مكان عملي لكم وافر الشكر والاحترام وفي انتظار دعمكم بناء تسلسل وظيفي بالجداول المحورية.xlsx

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

شكرا اخي العزيز على الرد ولكن انا اسف اني النتيجة غير ناجحة برجاء العلم اني احاول عمل الدائرة التكرارية على اسماء الشيتات التي تظهر في واجهة الماكرو وليس الاسماء التي تظهر امام مستخدم الاكسل العادي ، حيث اني قمت بترقيم الشيت من رقم Sheet01 وحتي Sheet23 اريد جعل الرقم 01 يتم تغييرة حتي الرقم 23 ولكم جزيل الشكر

السادة اعضاء منتدانا العزيز اوفيسنا ارجو المساعدة في الماكرو التالي : فكرة البرنامج بسيطة جدا وهي عبارة عن رفع الحماية عن الصفحة واخفاء مجموعة من الاعمدة وتفعيل الحماية مرة اخرة وعمل تكرار على عدد 23 صفحة المشكلة اللى بتواجهني هو اني عايز اشتغل على اسم شيت الاكسل اللى جوا الماكرو مش اللى بيظهر في الاكسل وعلية انا ظبط المتغير ودية النقطة اللى انا مش عارف اتخاطاها Sub FrcstAll() Dim ShtNme As Worksheet NwFrcst = "All" For M = 2 To 23 Step 1 If Len(M) = 1 Then Set ShtNme = Worksheets("Sheet" & 0 & M) Else Set ShtNme = Worksheets("Sheet" & M) End If With ShtNme .Unprotect "" If NwFrcst = "All" Then .Range("D:F, J:L, S:U").EntireColumn.Hidden = True .Range("M:O").EntireColumn.Hidden = True .Range("G:I, P:R, V:X").EntireColumn.Hidden = False Else .Range("D:F, J:L, S:U").EntireColumn.Hidden = False .Range("M:O").EntireColumn.Hidden = True .Range("G:I, P:R, V:X").EntireColumn.Hidden = True End If .Protect "" End With Next M End Sub

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

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

السادة اعضاء المنتدي الكرام لدي شيت اكسل يحتوي علي 77 ورقة عمل كل ورق عبارة عن جدول محوري لمندوب ، الجداول المحورية بتاخد البيانات من علي سيستم الشركة كل ما اريدة هو طريقة لربط فلتر يخص الشهر في الـ 77 جدول الموجودين في 77 ورقة ببعضهم بحيث ان اقوم بالاختيار في ورقة واحد فيتم الاختيارت في كل الاوراق الاخر هل من طريقة لعمل هذا شكرا لوقتكم الثمين

الاساتذة الاجلاء / اعضاء منتدي اوفيسنا اطلب مساعدتكم في الاتي لدي شيت اكسل يحتول على 64 صفحة عبارة عن بايفت تابل كل صفحة عبارة عن بيانات مندوب طبعا كل الاختيارت عبارة عن فلاتر اريد ان اغير فلتر السنة في صفحة واحدة فيتم تغييرة تلقائيا في الـ 64 صفحة كذلك فلتر الشهر هل هناك امكانية ف Pivot table تقوم بهذا العمل طبعا الشيت دة خاص بالشركة التي اعمل بها ومن خلالة نقوم بسحب البيانات من على السيستم الخاص بالشركة شكرا لوقتكم

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

استاذ / احمد عبد الناصر انا شاكر لتعبك واهتمامك واجاباتك اللي فى الصميم دوما معلش حتعبك معايا في سؤال تاني MainDataBase!R2C45 لو انا عايز رقم الصف هو اللى يبقي متغير على الفورمة دية اكتبها ازاي شاكر مرة اخري لتعبك واهتمامك لقد قمت بالبحث علي الانترنت ووجدت طريقة كتابة الكود بالشكل الاتي MainDataBase!R[" & xxx & "]C45 السؤال هل الطريقة هذة صحيحة ام خاطئة لانة عند تجربتة اعطتي رقم متغير مختلف عند كل صف ولكني اريد رقم ثابت وعند إزالة الاقواس لكي يتم احتسابها كرقم ثابت اعترض الماكرو على ذلك برجاء التكرم من خبراء الاكسل بمساعدتي شكرا لكم

استاذ / احمد عبد الناصر انا شاكر لتعبك واهتمامك واجاباتك اللي فى الصميم دوما معلش حتعبك معايا في سؤال تاني MainDataBase!R2C45 لو انا عايز رقم الصف هو اللى يبقي متغير على الفورمة دية اكتبها ازاي شاكر مرة اخري لتعبك واهتمامك

السؤال الاول MainDataBase.Range("AS4:CZ906") ببساطة الكلمة الاولة هي اسم شيت الاكسل MAINDATABASE والجزء التاني التعبير اني اللى جاي دة نطاق اللي حاولت اعملة مرار وتكرار دون نتيجة هو اني اغير رقم 906 بمتغير والاحتفاظ بباقي الكود كما هو السؤال الثاني هل يمكن تحويل شيت اكسل يحتوي على اوامر ماكرو إلي برنامج مستقل بذاتة لايحتاج إلي وجود اكسل على الجهاز ويعمل متسقلا بذاتة كبرنامج ؟؟؟؟ شكرا لاعضاء منتدانا الكرام

ممتاز استاذ / احمد عبد الناصر هذا هو المطلوب هل تتكرم بشرح هذة الخطوات السحرية من صاحب الانامل السحرية اشكرك كثيرا لسرعة استجابتك واهتمامك

جرب الملف المرفق فيه بعض البيانات الوهمية ,فهل هذه هي النتيجة التي تريد ؟ يقوم بكامل العمل و حده و لا يحتاج الي اي شيء , لكنه في الاساس يعتمد نفس طريقة المعادلة فان لم تكن المعادلة تؤدي الغرض فلن يفعل الكود . تحياتي اشكرك استاذ احمد عبد الناصر الفكرة كدة مظبوطة فيما عدا شىء واحد هو انة يجب ان تعود إما 1 او بصفر 1= متعامل في هذا الصنف من خلال الفواتير 0= لم يتعامل في هذا الصنف من خلال الفواتير بمعني اخر بدلا من ان تعود في الخلية C2 في الصفحة CUSTMERDATABASE بقيمة 18 تعود بقيمة 1 وإذا لم يكن تعامل في هذا الصنف تعود بقيمة 0 او خلية فارغة

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

اعضاء منتدي اوفيسنا الكرام تحية طيبة وبعد اعمل على فكرة تسمي في عملي التوزيع ومعناها عدد العملاء المتعاملين في صنف معين فلو افترضنا على سبيل المثال انة لدي شيت اكسيل فارغ يوجد اسماء العملاء فية فى قاعدة بيانات العملاء (شيت 1 ) رقم واحد تحت العمود A النطاق A1:A2499 ومتسلسل حتي 2500 عميل وانة يوجد لدي في فواتير العملاء (شيت 2 ) صفحة رقم 2 فواتير جميع العملاء من بداية الشهر وحتي اخرة حيث ان اسم العميل تحت العمود B النطاق B1:B2499 تبدا الاعمدة متسلسلة في صفحة قاعدة بيانات العملاء (شيت 1 ) بداية من عمود B وحتي العمود CW عدد 100عمود ( الهدف) المصفوفة B1:CW2499 تبدا الاعمدة متسلسلة في صفحة فواتير جميع العملاء ( شيت 2 ) بداية من عمود C وحتي العمود CX عدد 100 عمود ( البيانات التي يتم معالجتها) المصفوفة C1:CX2499 المطلوب اذا كان لدينا عدد 100 صنف متسلسلين من 1 وحتي 100 ونريد معرفة اذا كان العميل متعامل وليكن على سبيل المثال هل العميل متعامل في الصنف رقم 1 من خلال الفواتير الموجودة في صفحة فواتير جميع العملاء ام لا ارجو التكرم بمساعدتي حيث اني حاولت كثيرا واخر ماتوصلت الية مجرد فكرة عن عمل تكرارات ومتغيرات ولكني تهت ولم استطيع ان اصل إلي شيء برجاء الاقتراح علي ماذا افعل محلوظة : كتبت معادلة بالاكسل لتوضيح ماذا اريد ان افعل ولكن ما اريد فعل اريد فعلة بالفيجوال بيسك شكرا جزيلا ______ _______.rar

السادة الافاضل اعضاء المنتدي الكرام لقد قمت باعداد برنامج محاسبي بسيط باستخدام اكواد الفيجوال بيسك ومعادلات الاكسل في ذات الوقت ولاسباب شخصية قمت بعمل حماية للملف بعدد مرات لفتح الشيت وبعد ذلك يتم مسح كل البيانات الموجود بالشيت ويتم ذلك بشرط يتم اختبارة عند فتح الشيت واثناء تصميم الشيت قمت بكتابة الاكواد الخاصة بكل وظيفة في صفحات الاكسل على واجهة الماكرو وليس في Modules وكل شيء سليم والمعادلات والاكواد مفيهاش اي مشكلة ولكن عند تنفيذ عملية الحماية وحذف صفحات الشيت طبقا للشرط الموضوع يحدث مايلي يتم حذف صفحات الاكسل من واجهة الاكسل فقط ولا يظهر منها اي شئ ولكن عندما يتم فتح الجزء الخاص بالماكرو تكون الصفحات موجود وتاخذ نفس الرمز الخاص بـ ThisWorkbook ونجد ان الكود المكتوب على هذة الصفحات موجود فهل اجد لديكم مساعدة كيف يمكنني حذف هذة الصفحات نهائيا من واجهة الماكرو باستخدام الماكرو ، علما اني حاول باستخدام برنامج مستقل تماما ولايقوم باستدعاء اي برامج من اي صفحات اخري حتي لا يتم تنشيطها في الذاكرة شكرا لكم وفي انتظار ردكم