طارق محمود

إجابة الجزء الثاني من السؤال تنسيق الخلايا علي أنها نصوص فقط غيرها لتكون "عام" 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

السلام عليكم أخي إبراهيم عادة يتم إنزال النسخة بواسطة متخصصي الآي تي بالشركة للأسف ليس لدي حاليا

السلام عليكم أرجو أن يكون هذا هو المطلوب المصنف1_4.rar

السلام عليكم تفضل Book0001_2.rar

السلام عليكم إن شاء الله يكون هذا المرفق ماتريد المعادلة المستخدمة مع النطاق الديناميكي جيدة جدا من حيت السرعة والكفاءة وهي تعمل على اوفيس 2003 ، 2007 ، 2010 وما فوق ولن تتأثر بعمل المنظومة مشاركة (شير) كشف حساب فتره -2014 .rar

لاشيء نسخة الأوفيس اللي معاك ناقصة إما أن تستبدلها أو تلجأ لحلول أخري كما بمشاركتك رقم 5 بالفعل

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

السلام عليكم إن شاء الله يكون هذا ماتريد تعمدت أن أجعل المعادلات بسيطة (لذلك تجدها طويلة) ، حيث أنك تستخدم xls وليس xlsx أي أنه ليس لديك أوفيس 2007 ومافوق وإلا كانت دالة Sumifs أولي بالإستخدام كشف حساب فتره -2014 اوفيسنا2.rar

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

السلام عليكم أخي العزيز تم ذلك أضفت تأكيد قبل الإضافة ولاأعرف إن كان هذا ماتريد أم لا وأيضا تم تفعيل زر الإستدعاء تفضل المرفق المصنف1_3.rar

السلام عليكم أخي العزيز أول خطوة إدخال بيانات الشيك من الفورم تفضل المرفق المصنف1_2.rar

السلام عليكم تفضل أخي إن شاء الله يكون ماطلبت تغيرات سعر الذهب.rar

السلام عليكم أخي العزيز أولا أنا عدلت العنوان لمخالفته لقواعد المشاركة ثانيا : حل سريع ، فكرته استبدال جميع المسافات الفارغة في الأسماء بلفظة " بن " ، لاحظ وجود مسافة قبل وبعد بن ظلل جميع الخلايا التي تحتوي الأسماء ثم إضغط علي كنترول -إتش Ctrl-H ، هذا امر الإستبدال بالإكسل ستظهر لك قائمة Find and Replace وفي خانة Find what ضع مسافة " " وفي خانة Replace with ضع " بن " ثم إضغط Replace All

عندك خطآن وليس واحدا الخطأ الأول في هذا السطر LR = [b999].End(xlUp).Row هذا معناه أن يذهب إلي الخلية [b999] ومنها يقفز للأعلي End(xlUp).Row هذا الأمر مماثل لما يحدث إذا ضغطت Ctrl-Up زر الكنترول مع السهم لأعلي (في صفحة الإكسل وليس في الفيجوال بيسيك) فهذا يجعل المؤشر يقفز للأعلي ليس سطرا واحدا بل حتي تتغير الحالة من فراغ إلي كتابة (أو من كتابة إلي فراغ) ثم يكتب رقم السطر في المتغير LR وفي حالتنا نفترض أن الخلية B999 فارغة لأنها بعيدة للأسفل فإذا قفز منها للأعلي حتي تتغير الحالة من فراغ إلي كتابة سيقف عند آخر سطر به بيانات وهذا هو المطلوب أما الخطأ عندك فقد اخترت (بعد التعديلات التي أجريتها علي الملف) عمود B الذي هو كله فارغ فبتنفيذ هذا السطر يقفز المؤشر لأعلي ولايجد كتابة حتي السطر الأول فيعطي المتغير LR قيمة (1) هذا الأمر كان في محله في المسألة الأولي أما الآن فيمكنك استبداله كالتالي LR = Cells.SpecialCells(xlCellTypeLastCell).Row فهذا أدق يجعل المتغير يأخذ قيمة آخر سطر به بيانات في نطاق الورقة كلها الخطأ الثاني في هذا السطر For rww = 3 To L والذي من المفروض أن يكون هكذا For rww = 3 To LR حتي تستفيد من حساب LR في أول سطر إذن الكود بعد التعديل Sub del_abs_FR() LR = Cells.SpecialCells(xlCellTypeLastCell).Row For col = 3 To 40 If Weekday(Cells(3, col)) <> 6 Then GoTo 10 For rww = 3 To LR If Cells(rww, col).Value = "غ" Then a = Cells(rww, col).Address(RowAbsolute:=False, columnAbsolute:=False) MsgBox " العثور علي تسجيل غياب يوم جمعة بالخلية" & a: Cells(rww, col).Value = "" End If Next rww 10 Next col End Sub

السلام عليكم أخي العزيز الأرقام بها كسور حتي الرقم الثالث مما يجعلها تنتج فارق بالجمع أنظر الصورة

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