اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

ممكن مساعدة من أهل الخبرة فى عمل المعادلات اللازمة لظهور الرصيد مدين ودائن أى ظهور الرصيد فى خانتين مقسوم الى مدين ودائن وليس ( خانة واحدة موجب وسالب ) مع مراعاة وجود رصيد سابق

كشف حساب.rar

  • Like 1
قام بنشر

السلام عليكم ورحمة الله وبركاته

اخى الكريم

اليكم المرفق عسى ان يكون المطلوب

عبارة عن قيود يوميه

ادخال العمليات او القيود ف sheet1

وكشف حساب يتم

ادخال اسم الحساب والفترة المراد بها الكشف فقط

يظهر الكشف الرصيد مدين ودائن مع

اظهار الرصيد اخر الكشف  عند طباعة الكشف مع التفقيط

امكانيه طباعه الكشف

هذا العمل تم بالاستفاده من المنتدى الرائع

والاساتذة الكرام والمبدعين

قيود بكشف حساب.rar

  • Like 1
قام بنشر
استفسار بسيط من الاساتذة الكرام .... كيف يمكن عدم ظهور الرصيد فى باقى الخانات الى مش مكتوب امامها حركة

 

 

السلام عليكم

القيم التي لاتريدها هي أصفار وتوجد وسيلة سرية لأخفاء الخلايا التي تحتوي علي أصفار

 

من Excel Options

ثم Advanced

ثم من القائمة اليمين إنزل للأسفل حتي Display

ثم إنزل للأسفل حتي إسم الشييت الذي به البيان ثم أزل علامة إختيار

Show a zero in cells that have zero values

 

 

لكن إن كنت تريد أن تظهر الأصفار في باقي الشييت وتخفيها فقط في هذين العمودين أو الأربعة

فيمكنك ذلك بالتنسيق الشرطي Conditional Format

  • Like 1
قام بنشر

السلام عليكم ورحمة الله وبركاته

اخى الكريم

اليكم المرفق عسى ان يكون المطلوب

عبارة عن قيود يوميه

ادخال العمليات او القيود ف sheet1

وكشف حساب يتم

ادخال اسم الحساب والفترة المراد بها الكشف فقط

يظهر الكشف الرصيد مدين ودائن مع

اظهار الرصيد اخر الكشف  عند طباعة الكشف مع التفقيط

امكانيه طباعه الكشف

هذا العمل تم بالاستفاده من المنتدى الرائع

والاساتذة الكرام والمبدعين

ملفات مرفقة

 

عمل رائع

جزاكم الله كل الخير

سؤال : كيف يمكن حماية شيت (كشف الحساب) لتلافي الخطأ في المعادلات

و الإبقاء على زر الطباعة يعمل بشكل طبيعي

  • Like 1
قام بنشر

الأستاذ الكريم / احمد غانم

 

فقط اجعل كود الطباعه هكذا

بإفتراض ان باسوورد حماية الشيت (( الحماية العادية للشيت )) (( 12345 ))

Sub Printing()
    ActiveSheet.Unprotect Password:="12345"
    Rows([Row] & ":300").EntireRow.Hidden = True
    
    ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
    Rows("8:300").EntireRow.Hidden = False
    ActiveSheet.Protect Password:="12345"
End Sub

وتقبل منى وافر الاحترام والتقدير

  • Like 3
قام بنشر

 

الأستاذ الكريم / احمد غانم

 

فقط اجعل كود الطباعه هكذا

بإفتراض ان باسوورد حماية الشيت (( الحماية العادية للشيت )) (( 12345 ))

Sub Printing()
    ActiveSheet.Unprotect Password:="12345"
    Rows([Row] & ":300").EntireRow.Hidden = True
    
    ActiveWindow.SelectedSheets.PrintPreview
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    
    Rows("8:300").EntireRow.Hidden = False
    ActiveSheet.Protect Password:="12345"
End Sub

وتقبل منى وافر الاحترام والتقدير

 

الأخ الكريم محمود الشريف

السلام عليكم

اشكرك جزيل الشكر دعائي لكم بقبول الأعمال في هذا الشهر الفضيل

و جعله الله زيادة في ميزان حسناتكم

  • Like 1
قام بنشر

أخى فى الله

الأستاذ الكريم // احمد غانم

الشكر لله أخى الكريم وبارك الله فيكم

وتقبل منكم ومنا صالح الاعمال

وتقبل منى وافر الاحترام والتقدير

  • Like 1
  • 4 months later...
  • 2 years later...
  • 2 months later...
قام بنشر

أي ملف أخي الكريم

ارفق الملف لنحاول تجربته وموافتك بنتيجة عمله من عدمها

إذا كان الملف يحتوي على أكواد فلابد من تفعيل الماكرو لديك في نسخة الأوفيس التي قمت بتنصيبها

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information