طارق محمود

السلام عليكم أخي الكريم إجعلها بصيغة الصفيف {} عن طريق أن تضغط (بعد الانتهاء من كتابة المعادلة في الخلية) ، تضغط Ctrl-Shift-Enter بدلا من Enter وحدها ستكون الصيغة كالتالي =LARGE($C$14:$C$36,{1;2;3;4;5}) مرفق الملف معدلا اكبر خمس قيم.rar

السلام عليكم تفضل المرفق بدون اللجوء لأكواد الأشهر فقط المعيار سيكون إسم الشهر وعلي أساسه سيتم الترحيل أسفل نفس الشهر إن كان الإسم متطابق وإن لم يكن الشهر موجود في "شيت داتا" فسيتم عمل مجموعة أعمدة جديدة لتلقي الترحيل الترحيل بشكل افقي2.rar

السلام عليكم غير كود الترحيل للتالي Sub TARHEEL() Dim k As String, Mnth As String, nCL As Integer Mnth = [E2] nCL = Sheets(5).[BBB1].End(xlToLeft).Column + 2 If [B3] = "تم ترحيل البيانات" Then k = MsgBox("هل تريد ترحيل البيانات مرة أخرى", vbYesNo, "تنبيه") If k = vbYes Then 1: Sheets(5).Columns("A:E").Copy Sheets(5).Cells(1, nCL) Sheets(5).Cells(3, nCL).Resize(99, 5).ClearContents Sheets(5).Cells(3, nCL).Value = Mnth Union([A5:B9999], [F5:F9999]).Copy Sheets(5).Cells(3, nCL + 1).PasteSpecial [B3] = "تم ترحيل البيانات" Application.CutCopyMode = False End If Else GoTo 1 End If End Sub وهذا الملف وبه الكود الجديد الترحيل بشكل افقي.rar

لاحول ولاقوة إلا بالله إنّا للّه و إنّا إليه راجعون اللهم اغفر له وارحمه وثبته عند السؤال .. وارزق اللهم أهله جميل الصّبر والسلوان اللهم إني أشهدك أن له عليا أفضالا كثيرة فيسر له وأدخله جنتك بلا حساب ولاسابقة عذاب

السلام عليكم تفضل المرفق max-min-2.rar

السلام عليكم أخي العزيز لعل المرفق به ماتريد إستخدمت نطاقا ثابتا لحساب موضع الشهر (باللغة العربية) وهو _POS ويساوي =MATCH(Sheet1!$N$3,Sheet1!$A$3:$L$3,0) تفضل المرفق Match.rar

السلام عليكم أجد الشاشة غريبة في ثوبها الجديد الإخوة الأعزاء لا أستطيع تنزيل الملفات ، ربما بعض الإصلاح مازال مستمرا عموما أحببت أشارك بنقاط توضيحية 1- شدني جزء من مشاركة أبولجين حيث يقول"والامر الذي احتاج اليه هو اذا كانت قيمة المتوسط اكثر او تساوي 360 نقوم بطرح 360" أخي العزيز إذا كانت جميع الزوايا أقل من 360 فلايمكن أن تكون قيمة المتوسط اكثر او تساوي 360 ، إلا إذا كنت تقصد المجموع وليس المتوسط 2- رياضيا يمكن التعبيرعن الزاوية بالموجب باتجاه عكس عقارب الساعة وبالسالب في إتجاه عقارب الساعة أي أن الزاوية 30 هي نفسها الزاوية (-330) والزاوية 350 هي نفسها الزاوية (-10) ويستخدم هذا الأسلوب (التعبير بالسالب عن الزوايا) لتلك التي تزيدعن 180 3- قد تكون الملحوظتان السابقتان بلافائدة إذا استطعت تحميل الملف 4- مما أثار اللخبطة لكثير من القراء أن مصطلح "زوايا دائرية" الذي استخدمه أبولجين هو في عالم الرياضيات له معني آخر غير مايقصده هنا حيث تقسم الدائرة في نظام الزوايا الدائرية (بدلا من 360 درجة) إلي ضعف النسبة التقريبية أي أن الـ 360 تكون مكافئة لـ حوالي 6.283183 درجة دائرية وبالمقلوب الزاوية الدائرية التي تساوي (1) هي الزاوية التي يتساوي طول قوسها مع نصف قطر الدائرة

السلام عليكم أخي جمال ، سلمت يمينك أنا بالفعل بدأت في معالجة الموضوع بالدالة " sumproduct " ولكني لم أفلح وعندما توصلت وجدتك سبقتني بكثير ماشاء الله عليك عموما الملف المرفق (بعد إذنك) به حل سريع بالجداول المحورية ، قد يكون أنسب (في حالات معينة) Test.rar

أخي الحبيب / محمد الخازمي عذرا لم أر مشاركتك

السلام عليكم أخي العزيز لانحتاج معادلات فقط تنسيق أنظر شرح موقع الأوفيس https://support.office.com/ar-sa/article/%D8%B9%D8%B1%D8%B6-%D8%A7%D9%84%D8%AA%D9%88%D8%A7%D8%B1%D9%8A%D8%AE-%D9%83%D8%A3%D9%8A%D8%A7%D9%85-%D8%A7%D9%84%D8%A3%D8%B3%D8%A8%D9%88%D8%B9-14f02f1d-8e3d-45a5-bdf8-3d962bf15327?ui=ar-SA&rs=ar-SA&ad=SA&fromAR=1 وانظر المرفق الخلية A1 بها تاريخ وباقي الخلايا بها معادلة واحدة وهي: A1 = ستلاحظ اختلاف الناتج باختلاف التنسيق يمكنك الوقوف علي كلا منها لمعرفة تنسيقها ماعدا الخلية الصفراء بها معادلة لجلب اسم اليوم باللغة العربية تفضل المرفق Weekdays.rar

ولايهمك أبا البراء كما اتفقنا كثيرا لااعتذار ولايحزنون المهم السائل يستفيد ================= عشان مافيش حاجة اسمها Worksheet_open توقعت ان يكون السائل مبتديء (كما كنا جميعا) وتوقعت ايضا ان يكون في حدث الورقة وهو لم يحسن توصيل الطلب ولكن يبدو ان كلامك انت الاصح تقبل ودي واحترامي

السلام عليكم أخي الكريم عدل الكود ليصبح كالتالي Private Sub Worksheet_Activate() With Range("A1", Cells(Rows.Count, "A").End(xlUp)) Range("B1").Resize(.Rows.Count).Value = .Value End With End Sub

السلام عليكم أخي العزيز أنظر الفيديو المرفق Fill_Down.rar

السلام عليكم تفضل المرفق لو هو المطلوب حدد الموضوع مجاب لو ليس هو المطلوب يرجي شرح أكثر لمعيار النقل او الإعادة Classeur1_2.rar

السلام عليكم أخي العزيز غير المعادلة في B6 إلي =CELL("address",OFFSET(ورقة1!$A$1,MATCH(A6,ورقة1!$A$2:$A$5,0),0))

السلام عليكم أخي العزيز أنظر بالمرفق الأعمدة الثلاثة E,F,G لاحظ أنه : 1- يمكن عمل المعادلات الثلاثة مرة واحدة في عمود واحد ولكنني فضلت تفصيلها حتي تتابع سريان الأوامر 2- معادلاتك القديمة بالعمود D لم تكن تلبي الشرط المطلوب ، مثلا الموظف الثالث رقم الهوية 3333333 تاريخ التحاقه هو 3-Mar-15 لايوجد فيما ذكرت متوافقة مع تاريخ الالتحاق أرجو أن يكون هذا هو ماتريد وإلا فسر لي حالة هذا الموظف الثالث تفضل المرفق دالة IF لانهائي مع الالتزام بتاريخ الاتفاقية ورقمها.rar

حبيبي أبا البراء لابأس ولاإعتذار ولايحزنون كل عام وأنتم بخير أنا لاأنزعج أبدا من مداخلات الأحبة بل العكس يزيد ذلك من ثراء الموضوع

الكود التالي سيفي بالغرض Sub nnn() LR = [G9999].End(xlUp).Row For r = 6 To LR Cells(r, "G").GoalSeek Goal:=0.1, ChangingCell:=Cells(r, "F") Next End Sub

أخي العزيز أولا مانوع الملف التيكست الذي به مجموعة الاوامر المراد نقلها المثال الذي وضعته أنا كان ملف باتش فايل للمثال فقط ، فيلزم لتشغيله مثلا أن يكون الامتداد bat وليس txt وبصراحة لاأدري نوع الملف أو اللغة التي يحتاجها السيرفر لديك إرسل لنا ملف تيكست كمثال (الذي به مجموعة الاوامر) ولكن ارسل واحد حقيقي من الذي موجود بالفعل علي السيرفر

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

السلام عليكم أخي الكريم في الملف المرفق مجموعة الاوامر المراد نقلها موجودة بالعمود H والكود المستخدم هو Sub SaveText() Application.ScreenUpdating = False Application.DisplayAlerts = False a = Format(Hour(Now), "00") & Format(Minute(Now), "00") new_F = ActiveWorkbook.Path & "\sample" & a & ".txt" Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues Columns("A:A").EntireColumn.AutoFit Application.CutCopyMode = False With ActiveWorkbook .SaveAs Filename:=new_F, FileFormat:=xlText .Save .Close End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub بالضغط علي الزر الاسود يبدأ بتنفيذ الكود حيث يأخذ نسخة من العمود H ويلصقها بملف جديد ويحفظ هذا الجديد بصيغة txt بإسم sample.txt مع الوقت بصيغة hhmm في نفس المجلد الموجود به الملف الأصلي فمثلا لو ضغطت علي الزر الساعة 9:50 ص سيكون اسم الملف sample0950.txt Sample.rar

طبعا إعمل بداية الفلتر (التصفية) من الصف 9

وعليكم السلام ممكن استخدام الفلتر العادي في هذه الحالة أنظر الفيديو المرفق filter.rar

تفضل أخي الكريم Aziz02.rar

السلام عليكم الاستكمال ، إتفقنا أن المعادلة =SUMPRODUCT(MAX((A2:A16=F1)*(B2:B16))) تأتي لنا بأقصي رقم ينتج عن حاصل ضرب شرط في قيمة حيث الشرط هو A2:A16=F1 و القيمة هي قيم المصفوفة B2:B16 ============================== وأعطانا الشرط False True False False False False False False False False False True False False False أو 0 ; 1 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 1 ; 0 ; 0 ; 0 والآن القيمة وهي قيم المصفوفة B2:B16 أي 1 ; 2 ; 5 ; 6 ; 2 ; 3 ; 3 ; 7 ; 8 ; 4 ; 5 ; 4 ; 9 ; 10 ; 6 بالترتيب إذن حاصل ضرب بالترتيب هو (0x1); (1x2); (0x5); (0x6); (0x2); (0x3); (0x3); (0x7); (0x8); (0x4); (0x5); (1x4); (0x9); (0x10); (0x6) = 0; 2; 0; 0; 0; 0; 0; 0; 0; 0; 0; 4; 0; 0; 0 أقصي رقم في هذا الناتج = 4 يعني ببساطة أنت تستطيع جلب أكبر قيمة في العمود B بلا مشاكل بالدالة MAX مثلا لكن الشرط ينتج عنه إما 0 أو 1 حسب مساواته للوصف المطلوب والدالة تضرب هذين ببعضهما وتأتي بأكبر حاصل ضرب