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

مساعدة في message box


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

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

أخواني في الله

برجاء مساعدتكم في معادلة SUBTOTAL وتحويلها الي كود يظهر قيمته في message box

بالمرفقات شرح لما اريد

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

SUBTOTAL.rar

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

ضع هذا الكود في زر أمر


Sub Abu_Ahmed()

Range("A2").ClearComments

With Range("A2").AddComment

.Text Text:="عدد الأسماء هو  " & Application.CountA(Range("B4:B160")) & " أسم"

.Visible = True

End With

End Sub

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

أخي واستاذي عبدالله المجرب ابو احمد

دائما سباق لفعل الخيرات وتقديم العون لنا وانتهز الفرصة جد لاشكرك وانت لا تحتاج لشكري علي سلسلة شروحات الترحيل لانها كانت طريقي للتعلم ولا املك شيئا اقدمه الا دعائي لك في ظهر الغيب ان يبارك لك في علمك وزقك واولادك

تقبل تحياتي

اخوك ضاحي الغريب

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

أخي النبيل / أبو احمد "أ.عبدالله المجرب"

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

فكرة الكود رائعة لاضافة تعليق وقمت بعد اذنك بتعديله ليصبخ Msg Box كما أريد بالصورة التالية



MsgBox vbNewLine & " عدد الأسماء " & " ( " & Application.CountA(Range("B4:B1000")) & " ) " & " أسـم ", vbOKOnly, "شئـون الموظفين"

وجزاك الله كل الخير عما قدمته وتقدمه لنا من عون دائما

تقبل تحياتي أخوك / ضاحي الغريب

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

أخي واستاذي عبدالله المجرب ابو احمد

دائما سباق لفعل الخيرات وتقديم العون لنا وانتهز الفرصة جد لاشكرك وانت لا تحتاج لشكري علي سلسلة شروحات الترحيل لانها كانت طريقي للتعلم ولا املك شيئا اقدمه الا دعائي لك في ظهر الغيب ان يبارك لك في علمك وزقك واولادك

تقبل تحياتي

اخوك ضاحي الغريب

حياك الله اخي ضاحي الغريب

وشكراً على الدعاء واسأل الله ان يكون لك بمثل ما دعيت وأكثر

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information