طارق محمود

السلام عليكم لم أنتبه أنها مشاركتك الأولي لعلك بإذن الله أن تفيد وتستفيد كما هو حال باقي الأخوة هنا فأهلا ومرحبا بك أخي الكريم

السلام عليكم أهلا ومرحبا بك في المنتدي تفضل المرفق rem_50.rar

السلام عليكم حسب علمي يجوز هذا فقط إذا كان المراد جمعه المشروط رأسي (أعمدة وليس صفوف) عموما مرفق المطلوب بعد تحويل الصفوف لأعمدة Debit_only2.rar

تفضل المرفق check_Number2.rar

السلام عليكم تفضل المرفق Random_Name.rar

السلام عليكم تفضل المرفق (كل ما طلبت بدون إسم مستخدم الكمبيوتر) copy2.rar

السلام عليكم مرفق الحل بطريقتين الأولي الإشارة بصح الثانية تلوين بالأحمر check_Number.rar

جزاك الله خيرا أخي هادي وجزا الله كل الخير أخي نزار وإن شاء الله يكون سبب غيابه خيرا ونتشرف به قريبا بإذن الله

السلام عليكم معذرة أخي زياد تفضل ' a = Application.DefaultFilePath & "\All.xls" a = ActiveWorkbook.Path & "\All.xls" رجاء إستبدال السطر الأول في الكود Macro3 بالسطر الثاني إذا لم تستطع ذلك فقط إستبدل الملف Accounts_TEST2 بالأمس بهذا المرفق اليوم Accounts_TEST2.rar

السلام عليكم أذكر ان نفس السؤال هذا بصيغة أخري قد تكرر منذ حوالي 4 شهور وقد رددت عليه يمكنك البحث عنه أما بالنسبة لــ لا يساوي تعني <> أي أن لكتابة مثلا إذا كان A1 لا يساوي 5 تكتب هكذا If (A1 <> 5,...,...)

أخي ياسر جزاك الله خير مبروك علينا إحنا ترقيتك للأعضاء الفعالين فنشاطك ماشاء الله عالي جدا نفعنا الله وإياك بما نعمل وإلي الأمام دائما إن شاء الله بالنسبة للموضوع ده ، فعلا تعبني شوية ومازلت غير راضي عنه لو فيه أحد الإخوة متمكن في الجداوال المحورية يدخل معانا ويعدل الورقة الأخيرة لتكون أقرب للشكل المطلوب لأن طريقة أخي زياد (إذا فتحت ملفه لتلقي نظرة) فعلا تجهد البرنامج جدا فأي معاملة بين حسابين فقط تنشط 4×40 معادلة طويلة لباقي الحسابات عموما ننتظر رده يمكن هو يقترح شيء آخر فهو صاحب المسألة والله الموفق

السلام عليكم عندك حق المشكلة في طول المعادلات وعددها الكبير جدا أنا وجدت عندك علي الأقل في كل صف من الصفحة عدد 170 معادلة IF شرطية وإذا ضربنا هذا في عدد العمليات 10,000 فسينتج رقم كبير من المعادلات التي بلاشك تستهلك الذاكرة وتبطيء العمل بشدة يا أخي العزيز مع خالص إحترامي فإن الطريقة الأمريكاني تستهلك عند كل عملية عدد كبير من الخلايا المحتوية علي معادلات مع عمل شبكة وهمية لكافة الحسابات مع أن العملية بالتأكيد تخص حسابين إثنين فقط صح ولا أنا مش فاهم عموما أنا مازلت أري أن إستعمال نفس الطريقة التي وضعتها لك كمثال في السابق أنظر المرفق وبه تعديلات بسيطة عما قلته سابقا حيث سيكون ملف البيانات بالإكسل وليس بصيغة DBF وأيضا مع إضافة عمليات إفتراضية لنصل إلي 10,000 عملية موزعة عشوائيا علي الأربعين حساب وذلك حتي تري بنفسك الفارق في حجم الملف والسهولة في التعامل وكذلك بها ورقة إضافية "Account_Detail" شكلها قريب جدا من الشكل الأمريكاني الذي تريده أرجو مراجعتها جيدا ولابأس من تعديل الشكل الذي عندك قليلا الملف المرفق به 3 أكواد الأول : لتحديث ونقل البيانات (كما هو من قبل) الثاني: لتخزين البيانات منفصلة عن ملف العمل الثالث: للإستدعاء من نفس الملف المخزن سابقا الخطوات إحفظ الملفين في نفس المجلد إفتح Accounts_TEST2 ستجده خاليا من البيانات ثم إضغط علي الزرالأخضر لإستدعاء البيانات من نفس الملف All إضغط علي الزرالأصفر لتحديث ونقل البيانات ستجد أن كل البيانات تم تحديثها في جميع ورقات العمل إطبع أو أضف أو إنسخ ماشئت ثم إضغط علي الزرالأزرق لتخزين البيانات في All منفصلا وحذفها من الملف الأصلي راجع حجم الملفين اللي بهما 10,000 عملية علي 40 حساب عشوائي (1 ميجا ) وأخبرني النتيجة Accounts_TEST2.rar

السلام عليكم تفضل أخي المرفق الجمعة : أحمر ، الخميس أصفر Cond_Format.rar

السلام عليكم أخي العزيز زياد مازال ضيق الوقت يلازمني أرجو إرسال الملف لأني سأفصل برنامج علي البيانات اللي فيه وممكن تغير كل الأسماء (يكون عندك مثلا حساب 1 = الأسم 1 ، وهكذا) وبذلك تحفظ أسرار العمل وممكن طبعا لو الملف كبير قوي تقسمه بالـ winrar أو ترفعه علي الرابيد شير مثلا وتعطي لي العنوان

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

أخي ياسر السلام عليكم تفضل الكود والملف المرفق مع إضافة بسيطة أنك تستطيع كتابة الرقمين بدون ترتيب (الأصغر أولا مثلا) Function FX(a As Integer, b As Integer) As Integer If b < a Then c = a: a = b: b = c ' Assure a is less than b FX = 0 For i = a To b FX = FX + i * i Next i End Function function01.rar

السلام عليكم أخي الغالي ابو اسامة آسف لعدم متابعتي كنت تريد شيء

إستكمالا للسؤال الثاني ممكن أن تضغط Ctrl-G إختصارا للأمر Goto ستجد الأسماء التي سميتها بالملف وعناوينها وبذلك يمكنك الذهاب للمجال الذي تريد من المجالات التي سميتها بعد إختيارها بالماوس أما بالنسة لسؤالك الأول سأشرح ببساطة عن طريق المعادلة التالية VLOOKUP(H6,Credit,2,0) فهذه المعادلة تحتوي علي 4 متغيرات: H6 ، النطاق Credit ، والقيمة 2 ثم القيمة 0 فهذه المعادلة تطلب من الإكسل بحث رأسي عن القيمة الموجودة فيH6 وذلك في العمود الأول من النطاق Credit دائما العمود الأول فإذا وجدها فيرجع لنا القيمة الموجودة بالعمود 2 من النطاق Credit أما القيمة 0 فتفيد الدقة في البحث بمعني أنه إذا لم يجد القيم H6 بالضبط فيرجع رسالة خطأ لأننا في بعض الحالات لانحتاج الدقة كمثال إذا كانت القيمة H6 تمثل تاريخ مثلا 5/5 والعمود المطلوب في النطاق هو يمثل الرصيد عند كل عملية فإذا لم يكن هناك عمليات حسابية في اليوم المطلوب أو كان اليوم عطلة فإن الدالة في هذه الحالة سترجع لك أقرب قيمة قبله أي الرصيد يوم 4/5 أو 3/5 أو أقرب يوم قبل 5/5 به بيانات يارب تكون واضحة

السلام عليكم عفوا أخي زياد فلم أري مشاركتك إلا الآن لقد إعتقدت أنك وجدت حلا للموضوع مازلت أري أن الحل ممكن عن طريق وضع البيانات كلها بلا تعقيد ولا فورمات حتي بصيغة dbf أو txt (لتقليل الحجم لأقصي حد) وبعد ذلك إجعل كل التشكيل والإخراج في ملف صغير يستدعي البيانات من هذا الملف الأول وكذلك يخزنها به بنفس الصيغة dbf أو txt أما بالنسة لمشاركتك الأخري (أيضا لم أرها من قبل ، عذرا لأن وقتي ضيق جدا) سأجيب سؤالك الثاني قبل الأول يتعرف الإكسل علي الأسماء التي يسميها المستخدم في كامل الملف أي أنه إذا عندك الملف الذي أرسلته لك مثلا Accounts_TEST.xls في الورقة Credit ظللت العمودين A:B: سوف يظهر إسم الخليه النشطة في هذا المجال (العمودين A:B:) والتي إسمها A1 تقف بالماوس عليها وتسمي المجال بما شئت وهنا سميته أنا Credit ونفس الحال بالنسبة للإسم Debit أنظر للصورة المرفقة

إخواني الأعزاء أحمد يعقوب - خالد القدس - ياسر خليل جزاكم الله خيرا جميعا

أحبك الله الذي أحببتني فيه وأنا والله أحبك في الله

السلام عليكم بعد إذن أخي وأستاذي أحمد يعقوب حل بسيط متواضع ولكنه يؤدي الغرض تفضل أخي خالد (يووه ياسر) VLookup_2Conditions2.rar

السلام عليكم ولايهمك ياجميل الحقيقة أنا كنت سأتطوع بعمل الإختيارين إحتياطيا (الخيار الحالي + خيار حذف الكسور الاقل من 5 قروش) لكن لضيق الوقت قررت أترك فرصة لرؤية مشاركاتك الجميلة ربنا يوفقنا جميعا لما فيه الخير

تفضل الحل بالكود Sub Macro1() ' Range("bd2").Select For i = 1 To 7 x = ActiveCell.Offset(0, 2).Value * 10 y = (x - Int(x)) / 10 ActiveCell.Value = y ActiveCell.Offset(1, 0).Select Next i End Sub وكذا المرفق يوجد زر أحمر إضغط عليه وتوكل علي الله Salary_2009_Advanced3.rar

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