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

برجاء المساعدة بزر كود يمكننى من الكتابة داخل التعليق


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

السلام عليكم

جرب هذا الكود


Sub Abu_Ahmed_Cmnt()

  ActiveCell.ClearComments

x = InputBox("اكتب ما تريد هنا", "ادراج تعليق")

    ActiveCell.AddComment

   ActiveCell.Comment.Visible = False

    ActiveCell.Comment.Text Text:=" MISHO:" & Chr(10) & x

ActiveCell.Select

End Sub

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

السلام عليكم

جزاك الله خير استاذ احمد كود جميل

ولاثراء الموضوع

اخي الفاضل فضل1

كود في حدث الصفحة عند النقر على الخلية التي فيها تعليق يثبت التعليق

كي تدخل اي البياان ثم تنقر على اي خليه فارغه كي يختفي التعليق

زر كود تعليق_ALI.rar

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

المايسترو

كود رائع وفكرة ممتازة وطريقة زكية للتحايل والتعامل مع التعليق من خلال الكود . بارك الله فيك ياحبيبى ويخليك لنا ودائما تشاركنا بألحانك الاكسيلية دائما يارب .

ولكن يامايسترو لى سؤال هل ممكن من خلال هذا الكود استطيع اظهر كل ماكتبته وعمل التنسيقات وتكبير وتصغير التعليق ؟

alidroos

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

فى النهاية لايسعنى الا ان اشكر الاستاذان الفاضلان / المايسترو والعملاق الجديد

على كل مايبذلونه من حب وجهد وعطاء وعلم للجميع داعيا لهم ان يجازيهم الله عن هذه الاعمال خيرا يوم القيامة اللهم امين .

تم تعديل بواسطه فضل 1
رابط هذا التعليق
شارك

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

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



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

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

Important Information