مساعدة (vbn)

[jojo2009]

السلام عليكم ورحمه الله وبركات / الى الاخوة الاعزاء 

بصراحة عندي برنامج رواتب من كثرت معادلات اصبح ملف بطى جدا 

بعض معادلات اريدها على  شكل اكواد (VBN)لتخلص من بطى ملف 

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

 

مساعدتى عمل كود VBN.rar

[jojo2009]

[ابو عبدالبارى]

الأخ الكريمjojo2009

السلام عليكم

أولا نرجو منك اتباع تعليمات المنتدى بتغيير الأسم الى اللغة العربية

ثانيا قليل من الصبر وستجد رد ان شاء الله على اسئلتك من الأخوة فى هذا المنتدى العريق ان شاء الله

جرب الكود التالى لعله يفى بالغرض

Sub abo_abary1()
For i = 4 To 10
Select Case Range("b" & i)
Case Is >= 400001
Range("d" & i) = "30%"
Case Is >= 300000
Range("d" & i) = "25%"
Case Is >= 5000
Range("d" & i) = "0%"
End Select
Next
End Sub




Sub abo_abary2()
For i = 15 To 19
Range("e" & i) = Range("b" & i) * Range("c" & i)
Next
End Sub

 

abo_abary_مساعدتى عمل كود VBN.zip

[jojo2009]

تسلم ياأخي العزيز   

اشكرك على ردك السريع لي 

لااعرف طريقة تغير الاسمي  الى اللغة العربية في منتدى