طارق محمود

السلام عليكم أخي الكريم جرب أن تظلل الارقام ثم تستبدل المسافة بلاشيئ ثم مرة أخري تستبدل الشرطة بلاشيئ * للإستبدال إضغط Ctrl-H ولاتنسي ان تعيد تنسيق الأرقام بالشكل "0000000000" أي عشرة خانات

السلام عليكم أخي الفاضل ضيعت مني وأكيد من آخرين أكثر من ربع ساعة لتحميل الملف وتشغيله ثم في الآخر أجد الملف له كلمة سر ولايفتح !!!!!!!!!!!!!

السلام عليكم أخي العزيز لاحظ التالي لابد أن يكون الملفين مفتوحين في نفس الوقت إستخدمت النطاقات الديناميكية التالية لتقليل طول المعادلات n_sht ="[sale.xlsx]"&rep!$C$1&"!"&"$D$1:$D$40" rw =MATCH(rep!$C37,INDIRECT(sht),0) sht ="[sale.xlsx]"&rep!$C$1&"!"&"$C$1:$C$40" تفضل المرفق المبيعات.rar

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

السلام عليكم أخي الحبيب / هاني نتفق جميعا أننا نعرف بعضنا من خلال المنتدي المبارك ولانعرف بعض علي أرض الواقع (إلا قليلا) إذن لايمكن أن يتقدم من يريد المساعدة لمساعدة عضو ويترك الآخر لأسباب بينهما شخصية فلابد أن تسأل نفسك وهذا ما أوجهه لنفسي ولجميع الأعضاء عندما يكون لديهم أسئلة مالذي يجعل من يريد المساعدة يتقدم لمساعدة عضو ويترك الآخر أو يتقدم لموضوع ويترك الآخر؟ هذا سؤال مهم ولابد للجميع الإنتباه لهذا ، سأجيب من وجهة نظري ولكم جميعا التعليق بما تشاؤون أري أن الأسباب لهذا كثيرة وسأذكر منها فقط 3 أسباب رئيسية 1. المجيب لايعرف عن الموضوع ويخشي أن يضلل السائل كأن يسأل السائل سؤالا محاسبيا متخصصا أو سؤالا هندسيا متخصصا أو كأن يسأل السائل أن الإجابة بالأكواد والمجيب لايجيد الأكواد أنا مثلا أبعد عن الفورم لأن غيري كثيرين بارعين فيها ويحلونها بسرعة 2. عدم وضوح السؤال كأن يسأل السائل عن شيء ليس موجودا بالملف ، مثل حالتك هنا في السؤال عن مايدفعه العميل ومايتبقي عليه ولايوجد بالملف كله بجميع ورقاته أي إشارة لما دفعه العميل وماتبقي عليه غير في السؤال فقط ، فكيف 3. السؤال ليس سؤال بل موضوع كبير يستنزف وقت المجيب كأن يسأل السائل أريد عمل برنامج يحسب كذا ويستدعي كذا ويطبع كذا ويخزن في شكل ... في نفس الوقت هنا لن يتقدم للإجابة إلا من لديه وقت كبير، أنا مثلا أري في هذه الحالة أن أفيد بهذا الوقت الكبير 5 او 6 سائلين لعلك لابد أن تعيد طريقة طرح الموضوع أو السؤال فأنت تبذل وقت كبير في المتابعة والإلحاح بدون ان تبذل وقت لإعادة السؤال فعارض السؤال كمندوب المبيعات الذي يعرض سلعته فالمندوب الجيد يسأل نفسه ويلوم نفسه اولا إن لم تباع سلعته أرجو أن يتسع صدرك لردي هذا وتأخذه بمأخذ إيجابي ولاتأخذه سلبيا فلاتظن مثلا أنني أتنصل ، فقد فتحت ملفك هذا عشرات المرات لكني في كل مرة أفتحه أجد نقص هائل من البيانات مثلا أنت وضعت في صفحة العملاء 3 أعمدة فقط هكذا اسم العميل تاريخ فواتيره دين العميل اذا اشترى وتبقى عليه جزء من ثمن الفاتورة وتطلب ترحيل الفواتير لهذه الورقة من صفحة الفاتورة التي بها 7 أعمدة م الصنف العدد الوحدة سعر الوحدة اجمالى ملاحظات طلبت منك قبل ذلك أن تضع النموذج الذي تريده يدويا ، بمعني ضع بيانات حقيقية أو وهميه في ورقة الفاتورة ثم إنقلها يدويا لصفحة العملاء ، حتي يفهم المجيب أي عمود سيترحل لأي مستقبل ، أظنك لوعملت ذلك منذ شهور كان خلص الموضوع ونقطة أخري التي أشرت لك في أول ردي إليها السؤال عن شيء ليس موجودا بالملف ، مثل مايدفعه العميل ومايتبقي عليه ممكن تضيف أنت كما يتراءي لك في صفحة الفاتورة مثلا بين عمود اجمالى و عمود ملاحظات عمودا جديدا به ماتم دفعه مثلا الصنف الأول 120ج إجمالي ، دفع منها 100 فقط ، أين سنضع هذا البيان تقبل مني هذا وأعد صياغة السؤال ، وقد وضعت الرد هنا وليس علي رسالة خاصة لكي يستفيد باقي الإخوة الذين لايجدوا تفاعلا مع أسئلتهم وليشاركنا من أراد فموضوعك أصبح قديم جدا ومن المحزن ألا تستقر علي حل له حتي الآن أظنك بإذن الله تتفهم ذلك ولنعمل جميعا علي العبور للخطوة التالية تقبل ودي وإحترامي لشخصكم الكريم أخوك / طارق محمود

السلام عليكم نفس فكرة اخي الفاضل دغيدي مع زيادة توضيح لو اردت ان تتابع المعادلات طبعا وكما أوضح أستاذنا الكريم / جمال دغيدي لابد ان تزيد سهما للأنصبة لكي يكون إجمالي الأنصبة = 29.50 قيراط تفضل حساب ارض زراعية.rar

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

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

السلام عليكم أخي العزيز تم تغيير محتوي المجال cycle وتم الإستغناء عن الريفريش (التنشيط) سيكون ذلك أوتوماتيكيا عند دخول أي شيت من الـ 12 وستلاحظ أنها تستغرق بعض الوقت تم عمل ذلك من خلال كود صغير (من أمر واحد) لتنشيط الحسابات في حدث الدخول للورقة ونسخ الكود للإثني عشر شيتا تفضل الملف علي الرابط http://www.4shared.com/rar/iTlaz0Ol/TIME_SHEET_KLABSHA_6__1_.html

تقريبا فهمت المطلوب لكن لازم تشرح أولا ماهو الأساس في فرض الخطوة الأولي (سالب سالب) مرفق الملف وبه الصور مرة واحدة لمن أراد المحاولة سالب سالب.rar

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

أليس الأسهل أن تذهب للشيت الأول "Inbut data" وتعمل تصفية (فلتر) في هذا اليوم لكل من ليس فارغ وسيأتي لك الفلتر بجميع العمال المتواجدين في نفس اليوم ويمكنك من الفلتر إختيار فقط الــ E ، X ، T ، S ، D كما تريد

السلام عليكم أخي الحبيب عندك حق فالمتغير cycle ليس ديناميكيا ولابد أن يتغير مع تغير الصفحة مما يتطلب تغيرا كبيرا فيه إضغط Ctrl-F3 لتستعرض النطاقات المسماة ثم إفتح المجال cycle وغير محتواه إلي التالي cycle=INDIRECT("'"&RIGHT(CELL("filename"),LEN(CELL("filename"))-SEARCH("]",CELL("filename")))&"'!$N$4") ولكن سيلزمك ريفريش مع كل صفحة تدخلها الريفريش (التنشيط) سيكون عن طريق F9 أو فتح أي معادلة (فتحها بالضغط علي F2) فقط ثم إنتر

التنسيق ياأخي كان Text أي نص سأسرد عليك الخطوات من القائمة بالإنجليزية ، عفوا ظلل الجدول بالورقة الأولي ثم من Format Cell Ctrl-1 Number General بدلا من Text

السلام عليكم أخي العزيز ضع المعادلة التالية في الخلية H2 (في الورقة Sheet2) وإنسخها للأسفل =IF(AND(A2>=Sheet1!$B$3,Sheet2!A2<=Sheet1!$B$4),1,"")

السلام عليكم أخي العزيز المشكلة كانت فقط في التنسيق تفضل الملف بلا مشاكل منهاج الحفظ2.rar

السلام عليكم سألني أخي العزيز /أبوحنين علي الخاص السؤال التالي وقد رأيت أن الإجابة قد تفيد الإخوة ممن يتصفحوا الموضوع ففضلت أن أضع الإجابة هنا لإرفاق الملف ليس هناك تعديل أنت بالفعل قد قمت بكل ذلك وأرسلته لي عالإميل لو تذكر أنا جربت الكود بعد إضافة الأمر السابق (باللون الأصفر) جربته علي الشيت 1 والشيت 2 كله تمام حفظته لك بصيغة xlsb لتوفير بعض من حجمه الكبير ومازلت أري كما يري أخي بن علية أنه لاداعي أبدا لمثل هذا التكرار فالبيانات واحدة موجودة في شيت Inbut data فلاداعي أبدا للشيت CARD ولاللشيتات من 2 إلي 12 ولاللشهور داخل الشيت 1 فيما عدا أول شهر فقط يمكنك ، يكفيك فقط أن تستقر علي شكل الطباعة وتحفظ بها وحتي إذا كان كل ذلك مهم الإحتفاظ به ، فليس من المهم الإحتفاظ بالمعادلات التي تجعل حجم الملف 18 ميجا وإذا كان مهما الإحتفاظ بالمعادلات فلاتجعلها في نفس الملف ممكن في ملف آخر مثلا سهل الأمور علي نفسك لتوفر وقتك ووقت من يريد المشاركة علي أية حال هذا رابط للملف لأن حجمه اكبر من المسموح بالمنتدي http://www.4shared.com/rar/5Tu4LFQ-/TIME_SHEET_KLABSHA_6.html

السلام عليكم أخي العزيز ستجد موضوع قريب جدا مما تريد علي الرابط http://www.officena.net/ib/index.php?showtopic=41982&page=2&hl=%2B%D8%A7%D9%84%D8%B3%D9%84%D8%A7%D9%85+%2B%D8%B9%D9%84%D9%8A%D9%83%D9%85#entry277257 وبه الملف "فاتورة جديدة7.xls" يلزمك قليل من التعديل ليتناسب مع نفس الشكل الذي تريد

السلام عليكم أخي العزيز أضف السطر الأصفر في أول الكود ليصبح هكذا Sub Arrange_Hours() Application.ScreenUpdating = False Dim sf As WorksheetFunction, W1 As Range, W2 As Range Set sf = Application.WorksheetFunction On Error Resume Next For lab = 1 To 120 .. ... End Sub

السلام عليكم أخي العزيز عذرا أنا كنت بعيد عن الإنترنت من ظهر الخميس أولا: بالنسبة لمشكلتك في المشاركة 28 ، 29 (جزء أول ، جزء ثاني) لو انتبهت لما أشرت لك إليه في مشاركتي 26 من أنه يوجد مجالين ديناميكيين جديدين لما وجدت خطأ تفضل الملف بعد إضافة المجالين الديناميكيين C_C =MATCH('X Day'!$F$2,'Inbut data '!$1:$1,0) P_ADR ="'Inbut data '!"&ADDRESS(2,C_C)&":"&ADDRESS(2,C_C+30) لاحظ جيدا 1- أن الفترة التي كنت أنت فرضتها في الخلية الصفراء F2 لم تكن موجودة أساسا في بيانات الشيت Inbut data 2- إخترت نسق xlsb بدلا من xlsm حيث يوفر ذاكرة أكثر تفضل المرفق TIME SHEET 120_5_A_xlsB.rar

السلام عليكم طبعا أنا تعمدت عدم شرح المدي CC لأترك لمن أراد أن يتعرف بنفسه علي ذلك وهذا الجزء الذي يرد علي سؤال سألني أيضا أخي العزيز /أبوحنين علي الخاص (قبل السؤال السابق) السؤال التالي وأيضا رأيت أن الإجابة قد تفيد الإخوة ممن يتصفحوا الموضوع ففضلت أن أضع الإجابة هنا وليس علي الخاص وقد أجلت إجابته لأنها تعتمد أيضا علي المدي الديناميكي والإجابة بالمرفق إن شاء الله ستجدونها سهلة تم إضافة عدد 2 مدي ديناميكي C_C =MATCH('X Day'!$F$2,'Inbut data '!$1:$1,0) P_ADR ="'Inbut data '!"&ADDRESS(2,C_C)&":"&ADDRESS(2,C_C+30) تفضلوا المرفق TIME SHEET 120_3.rar

الإجابة علي هذا السؤال ستكون طويلة وتحتاج تركيز سأقسمها أقسام القسم الأول: يلزمك معرفة المدي الديناميكي أو Dynamic Range ففي هذه المعادلة تم استخدام هذه الخاصية (المدي الديناميكي) مرتين RR , CC وكما اتفقنا سنحاول تفتيت المشكلة لأصغر أجزاء ممكنة ثم تتغلب علي كل جزء منفصلا مثلا في حالتنا هذه المعادلة سنتخيلها هكذا OFFSET(X;RR;CC+A8) وشرحنا هذه الدالة سابقا وهي تعني أنها تأتي لك بمحتوي خلية منسوبة للأخري ولنسمي هذه الأخري خلية المرجع X أي أن المعادلة ستأتي بالخلية التي تبعد عن الخلية A1 في الورقة "Inbut data" بمقدارRR صفوف ، CC+A8 أعمدة نرجع لموضوع المدي الديناميكي المدي أو النطاق في الإكسل نوعين ثابت و ديناميكي الثابت هو نطاق ثابت كأن تسمي مجموعة خلايا Lab_NO كما فعلنا ليسهل الرجوع لها في المعادلات الديناميكي هو نطاق متغير بتغير موقع الخلية النشطة أو الخلية التي ستطلب هذا المدي في معادلة مثال: جرب ذلك ، يمكنك تسمية مجال ديناميكي r مثلا هكذا =ROW() وبعدها في أي مكان في الصفحة أو في الملف تكتب =r فقط تجدها تساوي رقم الصف الذي أنت فيه القسم الثاني: في الملف الخاص بك ، في الورقة 1، تلاحظ أنك قمت بتثبيت عدد الصفوف لكل عامل 40 صف فيمكن بسهولة التعرف علي رقم العامل أي إذا كان في الصف من 1:40 فهو العامل رقم 1 وإذا كان في الصف من 121:160 فهو العامل رقم 4 وهكذا وعلي هذا فالصف مثلا 138 يحتوي بيانات العامل 4 كيف نستفيد من هذا إذا قسمنا رقم الصف ÷ 40 ستأتي النتيجة 138÷40 = 3.45 الصحيح منها 3 ، أي أن رقم العامل هو 4 القسم الثالث: للتعرف علي النطاقات المسماة في الملف إضغط Ctrl-F3 ولطباعة النطاقات المسماة وعناوينها في الصفحة لديك إختر مكان فارغ في الورقة ثم من قائمة Formula ثم Define Names ثم Use in Formula ثم آخر خيار Paste Names إذا ضغطت Paste List ستجد قائمة مثل هذه All_Labor =NAME!$C$2:$U$10 CC =MATCH(cycle,'Inbut data '!$1:$1,0)-5 cycle ='1'!$N$4 Lab_NO =NAME!$C$2:$C$121 p_riod ='Inbut data '!$ST$3:$ST$16 RR =MATCH(INDEX(Lab_NO,INT(ROW()/40)+1),'Inbut data '!$C:$C,0)-1 القسم الرابع: لاحظ في آخر القسم الثالث ، المدي RR وهو معادلة طويلة نسبيا سنلجأ لنفس الطريقة سنحاول تفتيت المشكلة MATCH(INDEX(Lab_NO,INT(ROW()/40)+1),'Inbut data '!$C:$C,0)-1 MATCH(X,Y,0) وهذه الدالة MATCH كما اتفقنا مكونة هي الأخري من 3 عوامل تبحث عن الأول في الثاني بشرط الثالث وترجع رقمه في المجال أي أنها تبحث عن X في المجال Y بشرط التطابق (المعامل الثالث فقط يقبل False , True وهذه تكافيء 0 أو 1) 0 أو False تعني التطابق أي يعطي خطأ إن لم يجدها بالضبط أي أنه إذا كان الرقم X هو الخامس في مجال Y فسترجع الرقم 5 أما X فهي = INDEX(Lab_NO,INT(ROW()/40)+1) فإذا إستخدمت هذه المعادلة في الصف 138 مثلا كما سبق وأشرنا فسيرجع لنا المعامل الثاني (الأزرق) بالصحيح من قسمة 138÷40 ثم يضيف 1 = 4 إذن هذا صف من صفوف العامل رقم 4 INDEX ترجع لي بالرقم الرابع من المجال Lab_NO فلو كان العامل الرابع في المجال Lab_NO رقمه مثلا 26376 فستعود الـ X بهذا الرقم إذن المدي RRعند الصف 138 مثلا سيكون = MATCH(X,Y,0) أي = ترتيب هذا العامل (الذي أتانا رقمه من الدالة Index) ، ترتيبه في العمود C من الورقة "Inbut data" بالرجوع للقسم الأول: والمعادلة الرئيسية (OFFSET('Inbut data '!$A$1;RR;CC+A8 فهذه الدالة ستأتي لك بالخلية التي تبعد عن الخلية A1 في الورقة "Inbut data" بمقدارRR صفوف ، CC+A8 أعمدة بناءا علي ماسبق سيكون أسهل عليك فهم المجال CC ولماذا أضفنا عليه قيمة الخلية A8 أرجو أن أكون وفقت في شرح هذه المعادلة

السلام عليكم سألني أخي العزيز /أبوحنين (منشئ الموضوع) علي الخاص السؤال التالي ولما رأيت أن الإجابة قد تفيد الإخوة ممن يتصفحوا الموضوع ففضلت أن أضع الإجابة هنا وليس علي الخاص

السلام عليكم بعد إذن أخ الحبيب / جمال أخي / سعد عابد سأل سؤال في المشاركة #5 وتاه سؤاله في زحمة المعجبين والمحبين لأخونا / جمال عبد السميع الدالة LOOKUP يعقبها 3 حدود يفصل بينها فاصلة أو فاصلة منقوطة حسب السيستم (النظام) في جهازك وهي تبحث عن الحد الأول في المجال الثاني زتأتي بالمقابل له من الثالث سأحدثك أولا عن الحد الثاني ، ناتج قسمة 1÷أي شيء سيكون أقل من الواحد إلا لو المقام صفر سيعطي خطأ وهذه هي الخدعة في تلك المعادلة إذن سيبحث عن 2 ونحن نعرف أنه لن يجده أبدا (لأن نتيجة الحد الثاني أقل من 1 أو خطأ) فسيأتي بآخر خلية ليس بها خطأ الخطأ سيحدث إن كانت الخلية فارغة ، فسيعطينا الشرط D2:L2<>"" وقتها False أي 0 فتكون قسمة 1÷0 تعطي خطأ فيأتي بآخر خلية لم تعطي خطأ أي (ليست فارغة)

السلام عليكم أخي الحبيب/ جمال (أبو محمود) كعادتك دائما ، فكرة جميلة وبسيطة بارك الله فيك وجزاك الله خيرا تقبل تحياتي وتقديري