mrastra قام بنشر يوليو 30, 2010 قام بنشر يوليو 30, 2010 السلام عليكم ورحمة الله وبركاتة اخوتى فى الله كل عام وحضراتكم بخير بمناسبة حلول شهر رمضان المبارك وبمناسبة بدا السنة المالية الجديدة لى سؤل وهو هل يمكن اخفاء عامود ويمثل رقم حساب مثل " ارصدة مدينة اخرى " طالما ن جميع سجلاتة صفر او فاضية بدون ارقام الموضوع:- مرفق شيت اكسيل يمثل المقبوضات اليومية وتشمل اسم العميل ورقم الايصال واجمالى الايصال اى اجمالى المبلغ المحصل من العميل تفصيلة الايصال لو كان مثلا حساب عملاء حساب رقم 161 بيدفع العميل جزء من قيمة الوحدة السكنية او الارض ولو كان متاخر فى السداد بيدفع غرامات على المبلغ بيدخل فى حساب اخر وهو " غرامات وتعويضات " وممكن بنفس الايصال يدفع مجلس امناء بيدخل فى حساب اخر " مجلس الامناء " المشكلة :- من كثرة الحسابات والتى تمثل اعمدة عرض الورقة (A4) لا يسمح بطباعة جميع الاعمدة مهما عملنا نسبة تصغير الورقة وبالكاد تقدر تقرا الارقام المطول :- فضلا لا امرا كيف اخفى عامود اثناء الطباعة جميع سجلاتة = صفر من اول عميل لاخر عمليل مع الاخذ فى الاعتبار ان مقبوضة اليوم التالى مختلفة عن اليوم الحالى بمعنى انة فى المقبوضة الاولى لا يوجد اى ارقام فى العامود مثلا صندوق الشرطة والمقبوضة التى تليها يوجد فى العامود المذكور مبال مالية مرفق مثال للتعديل علية مع شرح فكرة الحل وشكرا مقدما يوم 25.rar
ياسر خليل أبو البراء قام بنشر يوليو 30, 2010 قام بنشر يوليو 30, 2010 مع الاخذ فى الاعتبار ان مقبوضة اليوم التالى مختلفة عن اليوم الحالى أخي الحبيب ممكن توضح يعني ايه مقبوضة!!
عبد الفتاح كيرة قام بنشر يوليو 30, 2010 قام بنشر يوليو 30, 2010 يدويا لإخفاء عمود انقر بزر الماوس الأيمن أعلاه و اختر إخفاء ولن يظهر فى الطباعة
mrastra قام بنشر يوليو 31, 2010 الكاتب قام بنشر يوليو 31, 2010 السلام عليكم ورحمة الله وبركاتة اخى الكريم yasserkhalil فى نظام المحاسبة يوجد مصطلحات دارجة ومنها مقبوضة ومدفوعة وتسوية كلمة مقبوضة هى المبالغ المالية المحصلة من العميل لدى الجهه او الشركة ،،،،مدفوعة تعنى المبالغ المالية المدفوعة من الجهه او الشركة للعميل ،،،تسوية هو الفرق او ناتج خطا ما ونقوم بتصويبة بعمل تسوية لمبلغ محدد مقبوضة اليوم التالى تعنى ورقة الاكسل المرفقة والمطلوب هو اخفاء العامود لو ان جميع الخلايا بصفر اخى الكريم kemas المطلوب ليس اخفاء العامود بالطريقة اليدوية لانها هاتكون مرهقة جدا ونسبة الخطاء فيها كبيرة تخيل لو عندى 1000 عميل باليوم الواحد وكمان يوجد عدد اكثر من المرفوق بكثير ولكن للتسهيل وضعت عينة واللى يسرى عليها يسرى على الكل
طارق محمود قام بنشر يوليو 31, 2010 قام بنشر يوليو 31, 2010 السلام عليكم حل وسط أن يقوم الإكسل بتلوين بالأحمر مثلا أوتومايكيا للأعمدة التي فيها إجمالي الخزينة ، الصف 223، = صفر وذلك بالتنسيق الشرطي معتمدا علي الصف 223 الذي به إجمالي الخزينة لأن هذا الصف لو صفر ، يعني مافيش بيانات في كامل العمود ثم تقوم يدويا بإخفاء الأحمر "لن يكون مرهقا" مع إعتبار أنك قد تضطر إلي أو تريد عدم إلغاء بعض الأعمدة مثلا لأن الكود سيخفي بلا رجوع لك أنظر المرفق يوم 25.rar
mrastra قام بنشر يوليو 31, 2010 الكاتب قام بنشر يوليو 31, 2010 (معدل) مشكور مقدما وجارى التحميل وفعلا اعتقد انة حل وسط كما تفضلت بالتعليق بعد كتابة الرد خطرت ببالى فكرة ان شاء الله يتم عمل مقبوضة بدون بيانات بالماكرو او حتى يدويا دى سهلى وبالكود نحذف العامود الخالى من البييانات وموضوع انة هايحذف بلا رجعة مش مهم لانى عندى السورس الخاص بالمقبوضة اتكل على الله وادينى الكود فضلا لا امرا وبالنهاية لك الشكر حتى ترضى وكل عام والجميع بخير تم تعديل يوليو 31, 2010 بواسطه mrastra
طارق محمود قام بنشر يوليو 31, 2010 قام بنشر يوليو 31, 2010 الأفضل تجرب الأول عدد الأعمدة إجمالا ليس بكبير وسوف تخفي بسهولة ووقت قصير الأعمدة الحمراء جرب من فضلك
أيسم إبراهيم قام بنشر أغسطس 4, 2010 قام بنشر أغسطس 4, 2010 (معدل) السلام عليكم الأخ الكريم موضوعك ظل يشغلني طول الفترة الماضية لأني كنت في حاجة لمثله لكن لم أستطع تنفيذه ولا حتى الحصول عليه من الأخوة الزملاء و الأساتذة في المنتدى. المهم توصلت لحل يرضيك جدا و ينفذ كل ما تطلب بضغطة زر واحد الكود التالي يقوم بإخفاء الأعمدة الفارغة و التي تساوي صفر أيضا ثم قمت بعمل معاينة للطباعة في الكود ( منها يمكنك تنفيذ عملية الطباعة ) ثم قمت في النهاية بعمل إظهار للأعمدة التي تم إخفاؤها للتجهيز للمقبوضة التالية أتمنى أن يفي بكل ما تطلب دمت بخير أيسم إبراهيم Sub AY_Hide_Columns()<BR> Dim RowCell As Range<BR> Application.ScreenUpdating = False<BR> For Each RowCell In Sheet1.Range("$A$223:$Z$223")<BR> If RowCell.Value = Sheet1.Range("$Z$2").Value And RowCell <> vbNullString Then<BR> RowCell.EntireColumn.Hidden = True<BR> ElseIf Sheet1.Range("$Z$2").Value = vbNullString Then Sheet1.Range("A223:Z223").EntireColumn.Hidden = False<BR> Else<BR> RowCell.EntireColumn.Hidden = False<BR> End If<BR> Next RowCell<BR> <BR>ActiveSheet.PrintPreview<BR>Range("A1:Z225").Select<BR>Selection.EntireColumn.Hidden = False<BR>Range("A1").Select<BR>Application.ScreenUpdating = True<BR>End Sub<BR> يوم 25.rar تم تعديل أغسطس 4, 2010 بواسطه أيسم إبراهيم
ياسر خليل أبو البراء قام بنشر أغسطس 4, 2010 قام بنشر أغسطس 4, 2010 أخي أيسم بارك الله فيك إثراءاً للموضوع هذا حل آخر على حسب ما فهمت من الطلب أخوكم أبو البراء Baraa.rar
أبوعبد الله قام بنشر أغسطس 4, 2010 قام بنشر أغسطس 4, 2010 أخي العزيز إضافة إلى ما تفضل به إخواني الأعزاء من حلول وكلها حلول متميزة ، هذه فكرة أخرى في نفس الإطار لعلها تفيد والشكر موصول لجميع من شارك . تحياتي أبو عبدالله إخفاء الأعمدة الخالية عند الطباعة.rar
mrastra قام بنشر أغسطس 5, 2010 الكاتب قام بنشر أغسطس 5, 2010 جزاكم الله كل خير وساقوم بتحميل جميع المرفقات والعودة اليكم بالنتائج
mrastra قام بنشر أغسطس 5, 2010 الكاتب قام بنشر أغسطس 5, 2010 السلام عليكم ورحمة الله جميع الحلول ممتازة وفيها فكر من اساتذة كبار وجميل ان الواحد نال شرف حلولكم على سؤالى جعلة الله فى ميزان حسناتككم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.