مطلوب عمل شيت اكسل تقسييم تركات ( مواريث )

[Ahmed Hosny]

السلام عليكم ورحمه الله 

رجاء المساعدة فى عمل شيت اكسل مواريث حيث اننى قمت بعمل شيت اكسل لتقسييم التركات ولكن اريد كيفية عمل قائمة منسدلة عند اختيار النصيب وليكن (ربع - نص - ثمن - ثلث ) يتم حساب بالخانة المجاوة (نص *صافى التركه  كمثل تم عمل قائمة منسدلة بها الانصبة(ثلث-ربع -نصف -ثمن) عند اختيار نصيب مثلا الثلث يتم احتساب = صافى التركة *  1/3    مع عمل زر للطباعة الجدول المحدد

    مع الشكر

مرفق شيت اكسل لتوضيح

تركات تعديل.xlsx

[Ali Mohamed Ali]

وعليكم السلام اخى الكريم

تفضل لك كل ما طلبت

 

تركات تعديل.xlsm

[Ahmed Hosny]

مشكور استاذنا الفاضل كما طلبت وربنا يكرمك ويزيدك بالظبط تم تنفيذ المطلوب برجاء طلب اخير كيفية عمل زر طباعة مثل اللى حضرتك عملته لانى مش عارف ادخل عليه او اعرف ازاى حضرتك عملته ولك جزيل الشكر والتقدير على مساعدتك 

[Ali Mohamed Ali]

أولا هتقوم بالضغط على Alt F11

هتفتح لك شاشة اختر من قائمة Insert

Module ثم بعد ذلك قم بلصق هذا الكود به

Sub UNHIDE_BLANK()
     ActiveSheet.Range("$B$4:$K$33").AutoFilter Field:=1
        Selection.AutoFilter
    Range("B4").Select
End Sub

ثم بعد ذلك اذهب لصفحة الإكسيل ومن قائمة Developer اختر Insert

ثم بعد ذلك اختر شكل Command Button

ثم بعد ذلك عمل دبل كليك عل هذا الشكل ووضع هذا الكود بالصفحة التى ستفتح

Private Sub CommandButton2_Click()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.PrintPreview
UNHIDE_BLANK
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[Ahmed Hosny]

الأستاذ الفاضل على بجد مشكور لمجهودك ووقتك ومساعدتك

وربنا يجعله فى ميزان حسناتك وربنا يزيدك ويقدر على مساعده 😊