نشان داده شدن یک متن طولانی در یک سلول کم عرض

[taocom52]

سلام بر اساتید و دیگر دوستان
میخواستم بدونم اگر در یک سلول با عرض کم یک متن طولانی نوشته بشه ،چطور با بردن ماوس روی آن سلول ، متن نشان داده بشه؟

[Amir Ghasemiyan]

سلام بر اساتید و دیگر دوستان
میخواستم بدونم اگر در یک سلول با عرض کم یک متن طولانی نوشته بشه ،چطور با بردن ماوس روی آن سلول ، متن نشان داده بشه؟

سلام دوست عزیز
شما سه روش میتونین استفاده کنید
1- فرمت سل: اگر متنتون خیلی طولانی نیست میتونین از فرمت سل گزینه shrink to fit و یا wrap text استفاده کنید
2- کامنت: میتونین روی سلول کامنت بذارین و محتوای سلول رو بنویسید
3- دیتا ولیدیشن: از بخش دیتا ولیدیشن نیز میتونین اینکار رو انجام بدین و با حالت دوم تفاوت زیادی نداره

[taocom52]

استاد منظورم اینکه بدون ایمکه کامنت بنویسیم با بردن ماوس روی سلول محتوای سلول که یک نوشته نسبتا طولانی است مثل کامنت نمایش داده بشه

[Amir Ghasemiyan]

استاد منظورم اینکه بدون ایمکه کامنت بنویسیم با بردن ماوس روی سلول محتوای سلول که یک نوشته نسبتا طولانی است مثل کامنت نمایش داده بشه

پس از روش سوم استفاده کنید

[shamsololama]

پس از روش سوم استفاده کنید


با درود فراوان
روش سوم ، به چه صورت میشه استفاده کرد که با بردن موس روی هر سل محتوای آن رو نشون بده بدون اینکه متن را در ولیدیشن نوشته باشیم ؟
سپاسگزارم

[Amir Ghasemiyan]

با درود فراوان
روش سوم ، به چه صورت میشه استفاده کرد که با بردن موس روی هر سل محتوای آن رو نشون بده بدون اینکه متن را در ولیدیشن نوشته باشیم ؟
سپاسگزارم

درود بر استاد شمس العلما
در این حالت با هاور کردن ماوس نمیشه. با سلکت کردن سلول میشه.
در data validation تب دوم (input message) تایتیل و متن مینویسیم بعد که سلول انتخاب بشه متن نمایش داده میشه

[amir_ts]

با سلام خدمت اساتید محترم
فکر کنم راه حل کدنویسی هم بد نباشه امتحان کنیم.البته با توجه به موضوع جابه جایی تاپیک با نظر مدیران عزیز انجمن میباشد.




Sub ShowComments()
Dim WS As Worksheet
Dim iCell As Range
For Each WS In ActiveWorkbook.Worksheets
For Each iCell In WS.UsedRange
With iCell
If CStr(.Value) <> "" Then
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(.Value)
.Comment.Shape.ScaleWidth 3.7, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft
End If
If .Formula <> "" Then
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(.Formula)
.Comment.Shape.ScaleWidth 3.7, msoFalse, msoScaleFromTopLeft
.Comment.Shape.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft
End If
End With
Next
Next
End Sub






Sub ClearComments()
Dim WS As Worksheet
Dim iCell As Range
For Each WS In ActiveWorkbook.Worksheets
For Each iCell In WS.UsedRange
iCell.ClearComments
Next
Next
End Sub

[shamsololama]

درود بر استاد شمس العلما
در این حالت با هاور کردن ماوس نمیشه. با سلکت کردن سلول میشه.
در data validation تب دوم (input message) تایتیل و متن مینویسیم بعد که سلول انتخاب بشه متن نمایش داده میشه


با درود فراوان
بله با تایپ متن میشه ولی اینکه خود کار متن داخل هر سلول رو نمایش بده نمی شه گفتم شاید راه حلی هست که من نمی دونم سپاسگزارم از پاسختون

[taocom52]

متشکرم مثل همیشه جالب بود.