اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

الأخ الكريم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

  • Like 2
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information