طارق محمود

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

لاأدري إن كنت مصيبا أم لا لكن جرب التعديل التالي في أول الكود بعد 4 أو 5 أسطر تجد الشرط التالي If Cells(Cells.Rows.Count, clm).End(xlUp).Row >= 5 Then Range(Cells(5, clm), Cells(Cells(Cells.Rows.Count, clm).End(xlUp).Row, clm)).Clear End If إحذفه ثم بعده بعدة أسطر تجد الأمر For r1 = 5 To endr إستبدله بالتالي For r1 = x+1 To endr ليكون الكود بعد التعديل هكذا Dim y1, y2, z, g, L, H Sub dd() Rw = 5 Y = Val(InputBox("برجاء ادخل قيمة step")) clm = Val(InputBox("براجاء ادخال رقم عمود النتيجة")) x = Cells(Cells.Rows.Count, clm).End(xlUp).Row كان هنا شرط تم إلغاؤه endr = Cells(Cells.Rows.Count, 1).End(xlUp).Row g = [B5] y1 = g - Y y2 = g + Y L = g H = g For r1 = x+1 To endr ... ..

السلام عليكم أخي الحبيب أكيد انك لن تريد عمل التدقيق (المراجعة) علي 50,000 سطر كما أوضحت لو كانت 30 ثانية كما تقول فهذا سريع وليس بطيء مع هذا الكم من البيانات أعتقد انك تتابع تغير أسعار شيء ما فلاداعي لمقارنة الأسعار كل يوم - كل يوم- كل يوم لنفس البيانات القديمة لعشر سنوات مضت لاأعرف ان كنت مصيبا ام مخطئا بعد المقارنة ومعرفة الناتج +up ، up+ ، down ، down ، ... وما إلي ذلك يمكن تثبيت هذه النتائج بما فيها من كومنتات إذن عليك تغيير الكود ليعمل بداية من آخر سطر به نتيجة من عمود النتيجة وليس من أول سطر

السلام عليكم أخي العزيز بعد إذن الإخوة تفضل المرفق بالشيت الثاني ستجد الآتي عدلت لك في طريقة إدخال البيانات ليتناسب مع إمكانيات الورقة في الاكسل عليك إدخال البيانات من العمود A إلي G ثم يتم الباقي تلقائيا ستجد أن الخلايا بأعمدة الإستلامات (وصول الدفعات) ستتلون تلقايا بالكحلي واطار أحمر عند وضع أي رقم بخلية الطلبية (العمود C) وذلك لتنبهك بعدم إدخال بيانات بهذه الخلايا ، حيث يكون هذا السطر لإدخال طلبية جديدة فقط ثم الأعمدة الخضراء (تاريخ الطلبية - فارق أيام - الشريحة) يتم حساب محتوياتها تلقائيا وأخيرا الخلية K2 والتي تمكنك من معرفة الباقي من الطلبية بمعلومية رقمها الذي تغيره أنت (يدويا أو من السهم) مثال على المطلوب2.rar

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

السلام عليكم الفكرة هنا تعتمد علي المدي الديناميكي فالرسم البياني الأول مثلا ، يعتمد علي نطاقين month1 ، sales2 النطاق الأول month1 يتغير بتغير الخليتين H4,I4 إذا ضغطت Ctrl-F3 لاستعراض الأسماء التي تم تعريفها بالملف ستجد أن النطاق month1 معرف كالتالي =INDEX(Month,MATCH(Sales!$H$4,Month)):INDEX(Month,MATCH(Sales!$I$4,Month)) وهذا يعني أنه يحفظ رقم العنصرداخل المجال Month والذي يحتوي علي ماهو موجود بالخليتين H4,I4 ويكون المحور الأفقي من الرسم هو المجال بين هذين العنصرين والنطاق الثاني sales2 بنفس الطريقة يمكنك تتبعه

السلام عليكم ماتفضل به اخونا الكريم / محمد أبو البراء ، مضبوط ولاأدري لماذا لايعمل معك عموما تفضل أخي المرفق به التعديل المصنف1_c.rar

السلام عليكم تفضل أخي المرفق وبه الكود التالي في حدث تغيير الإختيار بالورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [E10:E50]) Is Nothing Then v = Target.Value x = WorksheetFunction.CountIf([E9:E49], v) If x = 0 Then x = "" Else x = "" End If Shapes.Range(Array("مربع نص 2")).Select Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = x Target.Select End Sub المصنف1_b.rar

السلام عليكم أخي الكريم أولا : أنا غيرت عنوان الموضوع لكي لا يتم حذفه (لأنه مخالف لقواعد المشاركة) ثانيا: الملف الذي أرفقته أنت يحتوي علي دالة Table وهي ليست من دوال الإكسل علي حد علمي (حتي أوفيس 2010) ثالثا: طريقتك في البحث أوحت لي بالفكرة وبحثت أنا أيضا في المواقع الأجنبية ووجدت لك هذا الملف البسيط وإن شاء الله تفهم دواله (صفيف) الملف من العنوان التالي http://www.sumwise.com/blog/fifo/ ============================== أخيرا إليك شرح بسيط للملف طريقة FIFO إختصار لجملة إنجليزية ترجمتها الوارد اولا يصرف اولا first-in first-out (FIFO) في المثال عمليتين شراء بأسعار مختلفة وعمليتين بيع ونريد تحقيق المعادلة في الخليتين الأصفرتين بالصورة المرفقة والشرح بالتفصيل (بالإنجليزية) بنفس الرابط السابق FIFO.rar

السلام عليكم أخي العزيز تفضل المرفق ، إن شاء الله هو ماتريد الكود الموجود بالملف "0.xlsm" كالتالي Sub Tarheel() PT = ActiveWorkbook.Path Application.DisplayAlerts = False For sh = 1 To 10 nm = Format(sh, "@") Sheets(nm).Activate LR = [A9999].End(xlUp).Row With Sheets(nm) .Sort.SortFields.Clear .Sort.SortFields.Add Key:=[I2], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers With .Sort .SetRange Range("A2:N" & LR) .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With Range("A1:N" & LR).Copy Workbooks.Open Filename:=PT & "\" & nm & ".xlsm" Sheets("maindata").Select Range("AA1").Select ActiveSheet.Paste ActiveWorkbook.Close (True) Next Application.DisplayAlerts = True End Sub kinguter.rar

السلام عليكم تفضل اخي أرجو أن يكون هو ماتريد 777_Adjusted.rar

الباسورد للبرنامج ولمحرر الأكواد هو 123

السلام عليكم أخي / باسم الموضوع سيأخذ وقتا طويلا كما أخبرتك إليك بعض التحسينات الممكن عملها علي الملف (1) عمل ورقة مجمعة بها بيانات السيارات وليكن اسمها DataBase ويكون بها أرقام السيارات ونظام الحساب المتفق عليه (يومي / أسبوعي / شهري) من المعروف أن الإيجار اليومي يقل إذا تم تأجير السيارة أسبوع أو أكثر في هذه الورقة DataBase يتم ربط أرقام السيارات بورقاتها بحيث أنك تضغط علي رقم السيارة فتتحول تلقائيا لصفحتها (2) في ورقة السيارة ، بمجرد اختيار نوع الحساب المتفق عليه (يومي / أسبوعي / شهري) ، تحصل تلقائيا علي فئة الإيجار المقابلة (3) تلوين أوتوماتيكي لحالات الايجار غير اليومي (4) عمل جدول خاص للمخالفات ثم إستدعاؤها ووضعها في مكانها بالجدول الخاص بالسيارة أنظر المرفق fastertry11111111111.rar

السلام عليكم أخي العزيز / باسم إن شاء الله سأساعدك ولو بالقليل مما تطلب ولكن شأني كشأن جميع الأعضاء هذا لوجه الله الكريم فلاداعي لقول "هناك أجر يحدده لا مانع لدينا من ذلك" ============================ لنبدأ أولا من هيكل الملف الذي أرسلته (1) أفهم منه أن لكل سيارة شيت (ورقة) منفصل فهمت ذلك من المثال الذي أعطيته أنت للسيارة KIA PICANTO C 14679 العمود F به عدد أيام الإيجار ، معادلة حساب عدد الأيام بها خطأ حسب فهمي أن شركات التأجير تحتسب يوم البداية ويوم النهاية بمعني لو أنني أجرت سيارة اليوم ورددتها غدا سيحتسب يومين إيجار (2) العمود C به قيمة الإيجار اليومي ، هل هذا طبيعي أن تكون نفس السيارة إيجارها لشخص 100 ثم لشخص آخر500 أم أن هذا مثال أم أنني لم أفهم ============================ ثانيا : أحب أن تعرف أن الموضوع سيطول حيث أنني غير متواجد بالموقع إلا نادرا نظرا لظروف عملي إلا أن يتدخل معنا أحد الأعضاء حسب وقته ============================ ثالثا : إن كان لك علاقة بشركات الإيجار الكبري القريبة منك ، تستطيع شراء نفس البرنامج المستخدم لديهم ، قد يكون أفضل كثيرا لتوفير الوقت ولملائمة مثل هذا البرنامج تماما لما تريد كنت قد أجرت منذ أكثر من 4 سنوات من شركة Diamond Lease في جبل علي - دبي ورأيت البرنامج الذي يعملون عليه ، بصراحة شيء رائع هذه الشركة لديها مايزيد عن خمسة آلاف سيارة وبدون مثل هذا البرنامج لن يستطيعوا السيطرة علي شيء إن شاء الله يبارك لكم في شركتكم وتكونون أكبر منها إسأل أحد العاملين بالشركة قد يكون البرنامج رخيصا وأسهل من كل هذا مازلت محتفظ برقمهم : 04.8852211 إن لم يكن تغير مع الزمن وهذا موبايل احد المسؤلين هناك 050.4698334 ========================== مع تمنياتي بالتوفيق والسداد

السلام عليكم أخي العزيز يلزمك عدة خطوات أولا: نسخ كود فك الحماية في جميع الورقات ولعمل ذلك 1- إنسخ الكود التالي في الملف عندك Sub copy_Button() nm = ActiveSheet.Name Selection.Copy For i = 1 To Sheets.Count If Sheets(i).Name = nm Then GoTo 10 Sheets(i).Select ActiveSheet.Paste 10 Next End Sub 2- إلغي الحماية عن الشيتات جميعها 3- أضف زر في إحدي الشيتات وعين له الكود الخاص بفك الحماية 4- كليك يمين علي الزر بعد تعيين الكود له ثم شغل الكود الذي نسخته في الخطوة 1 ثانيا : تضع كود الحماية في حدث يخص الملف كله عند تنشيط أي ورقة هكذا Private Sub Workbook_SheetActivate(ByVal Sh As Object) Cells.Select Selection.Locked = False Selection.FormulaHidden = False Selection.SpecialCells(xlCellTypeFormulas, 23).Select Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub وبهذه الطريقة كلما انتقلت لورقة جديدة سيتم حمايتها أوتوماتيكيا ثم يمكنك فك الحماية من الزر الذي تم ترتيبه سابقا إليك المرفق وبه الخطوات مفعلة المخزن.rar

إجابة الجزء الثاني من السؤال تنسيق الخلايا علي أنها نصوص فقط غيرها لتكون "عام" General

السلام عليكم أخي الكريم إرفق الملف

السلام عليكم القيم التي لاتريدها هي أصفار وتوجد وسيلة سرية لأخفاء الخلايا التي تحتوي علي أصفار من Excel Options ثم Advanced ثم من القائمة اليمين إنزل للأسفل حتي Display ثم إنزل للأسفل حتي إسم الشييت الذي به البيان ثم أزل علامة إختيار Show a zero in cells that have zero values لكن إن كنت تريد أن تظهر الأصفار في باقي الشييت وتخفيها فقط في هذين العمودين أو الأربعة فيمكنك ذلك بالتنسيق الشرطي Conditional Format

السلام عليكم تفضل المرفق كشف حساب.rar

السلام عليكم لاأدري هل هذا المرفق ماتريد سؤال 1-2.rar

السلام عليكم تفضل أخي المرفق فائزين.rar

عندنا حالتين (1) إن كانت العلاقة المطلوبة بين الأرقام بسيطة يمكن ذلك بسهولة مثلا إذا وضعت بخلية ما رقم 7 ثم بالخلية التالية رقم 10 إذا ظللت الخليتين ستجد في أسفل يمين أو يسار الخليتين (حسب إتجاه الشاشة) مربع صغير أسود إن ضغطته ثم سحبت الماوس (بدون أن ترفعه بعد الضغط) ستزيد الخلايا التالية أو تنقص حسب اتجاه سحبك للماوس جرب وأخبرني (2) وإن كانت العلاقة المطلوبة بين الأرقام ليست بسيطة يمكن ذلك عن طريق وضع معادلة (تشمل العلاقات) في أول خلية ثم من خيار Fill Down أو Fill Right أو مايماثلهما يمكنك ملئ الخلايا بنفس العلاقة

السلام عليكم معذرة لانشغالي عنك يحدث هذا لأنني كنت أعتمد في الترحيل علي العمود A ، حيث أنك تريد كعوب الشيكات فقط فتم تبديله في الكود بالعمود D r = .[D999].End(xlUp).Row + 1 السطر الثالث من هذا الجزء من الكود الذي يحسب السطر التالي للكتابة For i = 1 To Sheets.Count If Sheets(i).Name = d Then With Sheets(i) r = .[D999].End(xlUp).Row + 1 .Cells(r, 6) = Me.TextBox3.Value .Cells(r, 4) = Me.TextBox1.Value .Cells(r, 5) = n End With تفضل المرفق به التصليح وباقي الطلبات من عدم التكرار وخلافه ، تم عملها سابقا ولابد من تجربة الملف ، قد يظهر أخطاء أخري عند الإستخدام المصنف1_7.rar

السلام عليكم نعم أخي قف علي المحور الأفقي ، كليك يمين ، آخر خيار Format Axis ، ثم من أول خيار في القائمة التي ستظهر Axis Options ثم في خامس خيار من الأعلي Value in Reverse Order أخي أعتقد أن هذه مرتبطة بالموقع الذي تجلب منه البيانات لأن الكود ليس به مثل هذا المحدد

السلام عليكم تم عمل المطلوب تم عمل المطلوب ليس له داعي حيث يمكنك الإستدعاء والتعديل من زر إستدعاء تم عمل المطلوب ثانياً : عند الضغط علي زر مدفوعات يقوم الفورم برصد الاتي : - ... ... لم أفهم جيدا ، إشرح أكثر ، مع ملاحظة أنني لست محاسبا المصنف1_6.rar