طارق محمود

السلام عليكم أخي المالكي تفيد هذه الدالة المهتمين بالإحصاء ففي بعض الأحيان يتعين عليهم تحديد القيمة الوسطي لمجموعة مدخلات (وليست القيمة المتوسطة) والله أعلم

السلام عليكم أخي مراد ارسل لي اميلك أو راسلني علي tarekmahmoud_2@hotmail.com أو حمل الملف مرة أخري من الفورشيرد عموما مرفق فيديو صغير لتشغيل الملف وليس به مشاكل murad001.rar

اخي أنا لاأفهم لقد حملت الملف من الرابط الذي ذكرته لك بالمشاركة # 17 عالفورشيرد وجربته علي جهازين آخرين بالإكسل 2003 ، 2010 ولم اجد مشاكل سأحاول إرساله لك عالإميل أرجو شرح الخطأ أو أخذ صورة منه (بإحدي صيغ الصور المعروفة - jpg - bmp - >>>)

أخي الكريم اقتبست من استاذنا جميعا أبوتامر رده الله سالما في أقرب وقت اقتبست دالته الجميلة VLOOK2ALL، وغيرت منها إلي دالة أخري تبحث عما هو غير موجود أي غياب وسميتها VLOOK_miss وهي ترجع لك تواريخ الغياب متسلسلة في العمود D كما ترغب بنفس فكرة تواريخ الحضور في العمود B. تفضل المرفق أخوك طارق محمود (أبوزياد) ENTRY3.rar

أخي الكريم السلام عليكم لايوجد ملف مرفق لإرفاق الملف لابد من ضغطه اولا عن طريق winrar أو winzip

السلام عليكم السؤال غير واضح هل تري مثل مي سلسلة حرف AA 1709 AA 1710 1711 AA 1712 AA 1713 1714 AA 1714 وهي تعني AA 1709 AA 1710 AA 1711 AA 1712 AA 1713 AA 1714 AA 1714 إظهار أن AA 1714 متكرر أو إظهار أنه ليوجد رقم مفقود؟

السلام عليكم أخي الكريم مرفق الملف وبه المعادلة المطلوبة Sumif تكلفة الاسمنت.rar

مرفق الملف وبه المعادلة الجديدة علي الرابط http://www.4shared.com/file/rCbUNeRb/ENTRY2.html

السلام عليكم أخي الحبيب استبدل المعادلة في الخلية B7 بالتالية =IF(VLOOK2ALL(my_range,$B$3,ROW()-6-COUNTIF($B$6:B6,"غ"),2)=0,"",IF(VLOOK2ALL(my_range,$B$3,ROW()-6-COUNTIF($B$6:B6,"غ"),2)=A7,A7,"غ")) ثم انسخها للأسفل

السلام عليكم اشرح ياأخي ماتقصد فلم أستطع فتح رسالة الخطأ المرفقة PHP

الحمد لله تمكنت من رفعه عالفورشيرد هذا هو الرابط http://www.4shared.c...M3da-4/__4.html

السلام عليكم أخي مراد إن كان الخطأ الذي تقصده عدم إزالة البيانات القديمة من ورقتي 50 ، 100 قبل نقل البيانات الجديدة فعلاجه فيما يلي أما إن كان الخطأ غير ذلك فأرجو توضيحه علاج خطأ عدم إزالة البيانات القديمة من ورقتي 50 ، 100 قبل نقل البيانات الجديدة أضف السطور الثلاثة قبل سطر فك حماية الشيت Feuil1 في كلا الكودين ليصبلحا كالتالي Sub Filter50() ' Sheets("50day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) ....... ....... ....... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub Sub Filter100() ' Sheets("100day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) ....... ....... ....... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub كنت أريد إرفاق الملف ولكن عندي مشكلة مع النت والتحميل حاول تطبق التعديلات وسأحاول رفعه علي موقع آخر

السلام عليكم أخي الحبيب كلام الأخ يحي مضبوط إحفظ بصيغة csv لكن لاتفتح الناتج بالإكسل بل افتحه بالـNotepad أو بالـ Wordpad وتستطيع كذلك تعديل الإمتداد إلي txt كما تحب مرفق الملف from excel to text.csv و لاتفتحه بالإكسل بل افتحه بالـNotepad أو بالـ Wordpad from excel to text.rar

السلام عليكم أخي الحبيب من صفحتك الشخصية إعدادات Notification Options حدد ماتريد

السلام عليكم أخي العزيز إستخدم دالة الجمع بدلا من الجمع المفرد بمعني في الخلية F12 بدلا من =C12+D12+E12 ضع =SUM(C12:E12) وفي الخلية G12 بدلا من =(F12+B12)/5 ضع =SUM(B12,F12)/5 ثم إنسخ منهما لباقي الخلايا

السلام عليكم أخي الحبيب بالنيابة عن جميع الإخوة كلنا نسمح بنقل جميع الأعمال ولايوجد أي حرج في ذلك علي حد علمي ، كل من يشارك بعمل هنا يبتغي منه وجه الله عن طريق مساعدة الناس ولكن من الممكن بغرض نشر العلم أن تضع مع كل موضوع الرابط إليه مثلا موضوعنا هذا رابطه http://www.officena....showtopic=36096 فيستطيع القاريء الدخول علي الموقع ويجذب غيره وبهذا ينتشر العلم وينوبك من الثواب نصيب إن شاء الله

السلام عليكم أخي الحبيب مراد (أبو حسام الدين) كلنا في هذه الظروف والله المستعان طمئنني علي الأهل في الجزائر الحبيبة إن شاء الله تكون الأمور للأحسن يوجد ثلاث أماكن (محلات) للنطاق في الكود وهم بلون أحمر فيما يلي .... Range("A8:L529").Select Selection.AutoFilter ActiveSheet.Range("$A$8:$L$529").AutoFilter Field:=12, Criteria1:=">99", Operator:=xlAnd Range("A8:L529").Select ..... غيرها جميعا ومثلها في الكود الآخر أيضا بسيطة ان شاء الله بفرض ان الباسوورد 123 ضع في أول الكود أمر فك الحماية و في آخر الكود أمر إعادة الحماية مرة أخري كالتالي Sub AnyName() Sheets("Feuil1").Unprotect (123) .. الكود ... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub مرفق أيضا الملف وبه التعديلات به أكثر من 500 إسم وبفرض ان باسوورد حماية الشييت 123 تفضل المرفق حساب الإجازات والعطل3.rar

السلام عليكم أخي الحبيب جرب الرابط http://www.officena.net/ib/index.php?showtopic=35508&st=0&p=187362&hl=+%DE%C7%C6%E3%C9%20+%E3%E4%D3%CF%E1%C9&fromsearch=1&#entry187362 أو http://www.officena.net/ib/index.php?showtopic=33080&st=0&p=171043&hl=+VALIDATION%20+iNDIRECT&fromsearch=1&#entry171043 أو http://www.officena.net/ib/index.php?showtopic=26812&st=0&p=128773&hl=+VALIDATION%20+iNDIRECT&fromsearch=1&#entry128773

السلام عليكم أخي العزيز الدالة offset ترجع العنوان لجيران الخلية وليس للخلية بمعني أنني لوكتبت مثلا في خلية ما =OFFSET(K5,2,3)+4 فها يعني أن يضيف 4 علي قيمة الخلية الجارة للخلية K5 ، تلك الجارة التي تبعد عنها 2خلية للأسفل و3 خلية لليمين أي الخلية N7 جرب هذا المثال أولا وغير في الخلية N7 وستجد أن الخلية التي كتبت بها المعادلة تتأثر بالتغيير

السلام عليكم صحيح فهذا الكود خاص فقط بهذه الورقة كما قلت لك في مشاركتي من قبل لذلك لابد من أخذ نسخة من الكود لكل ورقة تريده ان يعمل بها كما أوضحت في مشاركتي السابقة أو عمل كود آخر للملف ككل بالمنتدي كثير من الموضوعات ادخل واقرا وحاول وكلنا معك لأي أسئلة واستفسارات مع تمنياتي بالتوفيق والسداد

السلام عليكم أخي الكريم كل شيء سهل إن شاء الله بالصبر والتعلم افتح الملف افتح محرر الفيجوال بيزيك ALT-F11 ستجد علي اليسار قائمة بها أسماء الملفات المفتوحة وأسفل كل ملف مكوناته وفي ملفنا هذا لن تجد إلا Sheet1 (إكسبريس) ------------- الخيار الأول للأكواد الخاصة بهذه الورقة فقط This workbook ------------- الخيار الثاني للأكواد الخاصة بالملف كله وطبعا يمكن إضافة موديول أو فورم أو أكثر أيضا أنقر دبل كليك علي Sheet1 (إكسبريس) ستجد المؤشر انتقل اوتوماتيكيا للجهه اليمني من الشاشة حيث ستكتب الكود (أو تنسخه) أي أنك ستكتب هنا كود خاص فقط بهذه الورقة ولن يتم تنفيذه في باقي الملف ان كان به اكثر من ورقة وستجد أيضا تصنيف آخر للكود وذلك أعلي المساحة المخصصة لكتابة الكود مباشرة والتصنيف هذا (إن ضغطت علي السهم الخاص به) ستجده إما General أو Worksheet أي أنك ستحدد الكود هذا للورقة عموما أم أنه مرتبط بحدث معين في الورقة وهذا هو معني كلمة حدث موضوع السؤال وكودنا الحالي مرتبط كما هو واضح في اسمه Worksheet_BeforeDoubleClick بعملية الدبل كليك وكموجز سريع عن الكود أنه يعمل أوتوماتيكيا عندما تضغط دبل كليك داخل هذه الورقة إن كان موضع ضغط دبل كليك في غير المواضع المطلوبة يخرج من البرنامج وكأن شيئا لم يحدث وإن كان موضع ضغط دبل كليك في أي موضع من المواضع المطلوبة يبدأ بالتنفيذ كالتالي يراجع علي الصف أعلي الموضع إن كان مخفيا ، يظهره ومايتبعه 199 أسفل الموضع وإن كان ظاهرا ، يخفيه ومايتبعه 199 أسفل الموضع أرجو أن أكون وفقت لتسهيل الأمر عليك مع خالص تحياتي

السلام عليكم أخي العزيز باستخدام الدالة OFFSET مع تثبيت أول الصف وأول العمود أنظر المرفق Book1-2.rar

السلام عليكم أخي جبريل مرفق حل سريع يوجد دالة من دوال الإكسل مخصصة لهذا الغرض ولكنها تتعامل مع الأرقام وليس مع الحروف هي دالة MODE لذلك يمكنك التحايل علي ذلك كالتالي تستبدل كل حرف من حروف الإتجاه برقم مثلا 1 = E 2 = W 3 = N 4 = S عن طريق Ctrl-h كما فعلت أنا في المثال المرفق في الورقة الثانية ثم تستخدم الدالة MODE ومن الممكن أن تستبدل مرة أخري كل رقم بحرف من حروف الإتجاه تفضل المرفق الجزء الثاني من السؤال غير واضح اكبر قيمة مكررة.rar

السلام عليكم شكرا أخي زين علي مرورك الكريم بس أنا إسمي طارق محمود (أبو زياد) بالنسبة للدالة MEDIAN وكذلك AVERAGE من المعلوم طبعا شأنها شأن باقي الدوال أنه من الممكن الإستغناء عن مجموعة الأرقام المدخلة بتحديد مجال للدالة فبدلا من =AVERAGE( 2000, 1000, 10, 20, 8000) أو =MEDIAN(2,3,3,5,7,10) يمكن أن يكون مثلا =MEDIAN(G3:K4)

السلام عليكم أخي الكريم / مصطفي ضع الكود التالي في حدث الورقة "اكسبريس" Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column <> 3 Then Exit Sub For i = 1 To 12 k = (i - 1) * 201 If Target.Row = k + 3 Then GoTo 10 Next i Exit Sub 10 If Rows(k + 2).EntireRow.Hidden = True Then Rows(k + 2).EntireRow.Hidden = False Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = False Else Rows(k + 2).EntireRow.Hidden = True Range(Rows(k + 4), Rows(k + 202)).EntireRow.Hidden = True End If End Sub وبعدها تحفظ الملف بصيغة xlsm لحفظ الماكرو مع الملف ثم بالضغط دبل كليك علي أي من الأرقام (1...12) سوف يخفي أو يعيد إظهار مايلي (أ) صفا واحدا من فوقها (ب) 199 صفا واحدا اسفلها ليصل للشهر التالي وهكذا مرفق الملف أيضا اكسبريس.rar