طارق محمود

السلام عليكم أخي/ أحمد غانم أخي / أبو أنس جزاكما الله خيرا وأعطاكما مثلما دعوتما وأكثر

السلام عليكم أخي العزيز غيرت قليلا في كود الدالة ليصبح كالتالي Public Function Ecart(Prop, Reas) As Variant Dim diff As Double If Prop = Reas Then Ecart = "-" ElseIf Prop < Reas Then diff = Reas - Prop Ecart = "(+)" & " " & Format(diff, "##,##0.00") ElseIf Prop > Reas Then diff = Prop - Reas Ecart = "(-)" & " " & Format(diff, "##,##0.00") End If If Ecart < 0 And ActiveCell.Column = 9 Then Ecart = "": GoTo 5 If Ecart > 0 And ActiveCell.Column = 10 Then Ecart = "" 5 End Function مرفق الملف بعد التعديل جرب وأخبرني ECART_TAREQ.rar

السلام عليكم أخي العزيز إنسخ هذا الكود Sub Sort_New() Range([A3], [A3].End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select c = Selection.Columns.Count r = Selection.Rows.Count ActiveCell.Offset(0, c - 1).Range("A1").Activate With ActiveSheet.Sort .SortFields.Clear .SortFields.Add Key:=ActiveCell .SetRange Selection .Header = xlNo .Apply End With [A1].Select End Sub وسيتم الترتيب بناءا علي آخر عمود حتي لو لم يكن D

السلام عليكم لاداعي لكود الترتيب من قوائم الإكسل أنظر الفيديو Sort.rar

السلام عليكم أخي الفاضل والحبيب الغالي / أبوردينة أنت الأحلي جزاك الله خيرا وجعلني عند حسن ظنكم

السلام عليكم لحل هذه النقطة إما أن تلغي الملفات من المجلد قبل تشغيل الكود وإما أن نضيف سطرين للكود يجعله يحفظ الملفات محل الموجودة بدون السؤال أنظر أيهما تفضل الحل الأول تستطيع عمله والثاني تستطيع استبدال الكود بالتالي Sub Create_Files_from_Data() Application.DisplayAlerts = False Dim dd(99) As Variant LR = [B10000].End(xlUp).Row On Error Resume Next pt = ActiveWorkbook.Path For r = 2 To LR myname = pt & "\" & Cells(r, "C") & "-" & Cells(r, "D") & ".xls" For c = 2 To 21 dd(c - 1) = Cells(r, c) Next c Workbooks.Open Filename:=pt & "\sample.xls" Sheets("حساب عميل").Activate [H2] = dd(1): [C3] = dd(2): [C4] = dd(3): [C2] = dd(4) [C5] = dd(5): [C6] = dd(6): [C7] = dd(7): [C8] = dd(8) [H4] = dd(9): [H6] = dd(10): [J6] = dd(11): [H7] = dd(12) [J7] = dd(13): [E7] = dd(14): [E2] = dd(15): [E3] = dd(16) [E4] = dd(17): [E5] = dd(18): [E6] = dd(19): [H8] = dd(20) ActiveWorkbook.SaveAs Filename:=myname, FileFormat:=xlExcel8 ActiveWorkbook.Close Next r MsgBox ("الحمد لله ، تم عمل عدد " & LR - 1 & " ملف جديد" & Chr(10) & "وتم نقل بيانات العملاء إليها وغلقها") Application.DisplayAlerts = True End Sub أي أنك تضيف سطر في أول الكود لتعطيل عملية رسائل التبيه ثم سطر قبل الآخر لتفعيلها مرة أخري Sub Create_Files_from_Data() Application.DisplayAlerts = False ....... ......... .......... ..... Application.DisplayAlerts = True End Sub لم أفهم جيدا المفروض أن يسمح بذلك بلامشاكل إن كنت ترغب في عدم غلق الملفات بعد نقل البيانات إليها مثلا فقط إحذف السطر ActiveWorkbook.Close والموجود بالأواخر قبل سطر Next r مباشرة أو أعد السؤال بصيغة أخري

السلام عليكم أخي العزيز كليك يمين علي التاريخ في الجدول ثم إختر GROUP أنظر الفيديو في المشاركة #4

السلام عليكم أخي الحبيب / أحمد الكود الجديد يعمل بالزر الأزرق في الصفحة الأولي يوجد بالملف ورقة إسمها Sample مخفية الكود يظهرها وينسخها ويغير اسم النسخة ليكون باسم الموظف ويملأ خانة اسم الموظف بداخلها ويكرر ذلك حسب الأسماء الموجودة بالعمود B بالورقة Data ثم يعيد إخفاء الورقة Sample مرة أخري تفضل المرفق MASTER0_8.rar

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك وزملاؤك مرفق مضغوط لمجلد (فولدر) وبه ملفان الملف الأول DATA وبه بعض البيانات الافتراضي وبه ايضا كود الملف الثاني Sample لاتغيره ولاتحركه من هذا المجلد أولا فك الضغط وخزن المجلد كاملا في المكان الذي تريد ثانيا إفتح الملف الأول DATA ثم إضغط علي الزر الأحمر لتشغيل الكود سيقوم بفتح الملف Sample بعدد مرات العملاء وفي كل مرة ينقل إليه البيانات ويخزنه في نفس المجلد برقم الوحدة والقطاع كما تريد ثم يغلق الملف تفضل المرفق a_tolba.rar

السلام عليكم أهلا ومرحبا أخي الكريم / محمد المحاسب طبعا انت بين إخوانك وننتظر مشاركاتك ولاتتردد في أي أسئلة أتمني أن يكون لك شأن كبير بالمنتدي قريبا إن شاء الله

السلام عليكم أخي الكريم السؤال غير واضح فهمت أن الرقم 1.08115996566884 في المعادلة = 1+ الجمارك (في الخلية H1) لكي تستعمله ضع مكان هذا الجزء من المعادلة *1.08115996566884 فتستبدله بهذا *(1+$H$1) أما الرقم 1.09675227480134 فلم أجد علاقة مباشرة بينه وبين نسبة الشحن في الخلية H2

السلام عليكم إخواني الأحباب رأيت أن معظم أعضاء ومرتادي المنتدي من المعلمين (المدرسين) ورغبة في الخروج قليلا من التفكير الدائم في مصر والثورة وباقي بلاد العرب والمسلمين فقد وجدت في تصفحي علي النت أبيات طريفة تصف تعب المدرسين مع التلاميذ للشاعر / إبراهيم طوقان تعليقا علي قول الشاعر أحمد شوقي:قم للمعلم وفه التبجيلا--كاد المعلم أن يكون رسولا أترككم مع الأبيات شوقي يقول وما درى بمصيبتي ... ( قم للمعلم وفه التبجيلا ) أُقعد فديتك هل يكون مبجلا ؟ ... من كان للنشئ الصغار خلليلا ويكاد يقلقني الأمير بقولـه : ... ( كاد المعلم أن يكون رسولا ) لو جرب التعليم شوقي ساعـة ... لقضى الحياة شقاوة وخمولا حسـب المعلم غـمـة وكـآبة ... مرأى الدفاتر بكرة وأصيـلا مائة على مائة إذا هي صلحت ... وجد العمى نحو العيون سبيلا لا تعجبوا إن صحت يوما صيحة ... ووقعـت مابين البنوك قتيـلا يــا من يريد الانتحار وجدته ... إن المعلم لا يعيش طويــلا وطبعا أحلي الشعر أكذبه ، فلايظن أحدكم ان عمره سيقصر او يطول لأنه مدرس !!! متعكم الله جميعا بالصحة والعمر الطويل في طاعته عز وجل أخوكم / طارق محمود

معك أخي الكريم بن علية أخي السائل سأغير العنوان لكيلا يغلق

السلام عليكم أخي الكريم تفضل المرفق شهر_1T.rar

السلام عليكم تفضل اخي الكريم المرفق به ماطلبت المتبقي على الموعد.rar

السلام عليكم أخي العزيز واضح من امتداد الملف (xlsx) أنك تستخدم الإكسل 2007 / 2010 لذلك سأستخدم الدالة SUMIFS تفضل المرفق 1.rar

السلام عليكم الكود يعمل عندي مضبوط أنظر الفيديو علي اكسل 2003 وايضا علي 2010 وكل مرة أدخل فيها بيانات ، بس إنتر ينقل للتي تليها أنظر مرفق 2 فيديو Inter1_VID.rar

السلام عليكم أخي العزيز قم بعمل التالي (1) إخفي الأعمدة الير مستخدمة (كل ماهو بعد العمود F) (2) من Tools ثم Options ثم Edit ثم move selection after enter وإجعلها Right يمين بدلا من الأسفل (3) ضع الكود التالي في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) cc = Target.Column If cc = 2 Or cc = 3 Then Target.Offset(0, 4 - cc).Select: Exit Sub If cc > 4 Then Target.Offset(1, -cc + 1).Select End Sub تفضل المرفق وبه الخطوات الثلاثة Inter1.rar

السلام عليكم أخي العزيز جرب أنت في ملف آخر ستجد ماقلته لك صحيح اما في ملفك هذا فالأرقام الظاهرة اصلا مقربة بمعني أن الظاهر 0.95 قد يكون حقيقة = 0.950000001 وهذا يجعل الدالة تقرب للأعلي وإن أردت أن تتجنب هذا الخطأ ، فلتضف إلي المعادلة دالة تقريب أخري مثلا الخلية L11 ، المعادلة بها الآن =CEILING(K11;0.05) غيرها إلي =CEILING(ROUNDDOWN(K11;2);0.05)

السلام عليكم أخي الحبيب في سؤالك هذا لن تحتاج دالة IF فقط وببساطة ستكون معادلتك هي CEILING(I10;0.05) حاول أن تغير بعد ذلك قيمة الخلية I10 ، ستجد أن 3.17 تعطي 3.20 بينما 3.95 تبقى كما هى 3.95

السلام عليكم أخي العزيز المشكلة عندك في أمرين (1) هناك بعض النطاقات الديناميكية وليس لها استخدام ، وقد حذفتها (2) أن المعادلات الموجودة في ورقة stor تحدد نطاق كبير جدا للعمل فيه أكثر من 60,000 سطر ن كل معادلة تجعل الإكسل يمر عليها جميعا وقد غيرت لك النطاق إلي 3000 فقط طبعا الكود سيجعل الملف سريع جدا سنحتاج لتغيير جميع معادلات الورقة "stor" لتكون بالكود وتناسب طلبك ولكن هذا قد يأخذ بعض الوقت وأنا مشغول قليلا مؤقتا إليك الملف (مرفق) وقد أصبح الملف مقبول السرعة (ليس سريعا وليس بطيئا) بعد التغييرات السابقة Store3.rar

السلام عليكم أخي الكريم إرجع للمشاركة رقم 4

السلام عليكم علي هذا تكون معادلة أخونا الفاضل / thair younus هي التي يمكنها العمل علي جميع اصدارات الأكسل بما فيها 2003 تفضل المرفق بصيغة 2003 وبها معادلة أخونا thair younus الفرق بين تاريخين.rar

السلام عليكم أخي العزيز / أحمد البحيري بعد إذنك ، تصليح، سأل أخونا thair younus ، وأجبته عن الويندوز وهو يسأل عن الإكسل وأجيبه أنا بالنيابة أن هذه الدالة NETWORKDAYS.INTL ليست موجودة قبل إكسل 2010 ، حتي أنها ليست ضمن 2007 وهنا بالرابط التالي ستجد شرح لها http://office.micros...gin=HA010342655

السلام عليكم أخي العزيز لاحظت أمرين (1) أنك لم تستخدم معادلات لتحصل علي الأسبوع ، (2) أنك لم تستخدم خاصية جميلة من خصائص الجداول المحورية ألا وهي خاصية التجميع الذاتي بمعني أنك إذا وضعت بيانات رقمية (تواريخ مثلا) في أحد الأعمدة فيمكن للإكسل تجميعها بناءا علي ماتريد (شهري ، سنوي) مرفق الملف مرة أخري وبه المعالجة ومعه أيضا فيديو صغير لهذا الغرض sample4.rar