طباعة نص في خلية

[Messo09]

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

تحياتي القلبية إلى كافة أعضاء و مشرفي منتدانا الغالي ..

السؤال المطروح على الجميع و أرجو أن أجد الحل لديهم هو كيف بمجرد تحديد خلية ما يطبع فيها كلمة أو حرف مثلا "x" و إذا ما قمت بتحديدها مرة أخرى تصبح فارغة . مع أن يكون هذا النص ثابتا أي في كل مرة أقوم بتحديد تلك الخلية أو النطاق من الخلايا ... ولكم مني جزل الشكر .

[شوقي ربيع]

 تفضل 

هذا الكود يضع علامت x عند تحديد الخلية ويفرغها اذا كانت العلامة موجودة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Select Case Selection
  Case "x": Selection.ClearContents
  Case "": Selection.FormulaR1C1 = "x"
  End Select
  
End Sub

[Messo09]

الله يبارك فيك أخي ...لك كل الشكر و التقدير مني.