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

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

قام بنشر

السلام عليكم

جرب هذا الكود


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

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