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

[taocom52]

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

[Amir Ghasemiyan]

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

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

[taocom52]

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

[Amir Ghasemiyan]

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

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

[shamsololama]

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

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

[Amir Ghasemiyan]

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

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

[amir_ts]

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

[LEFT]

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[/LEFT]

 
[LEFT]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


[/LEFT]

[shamsololama]

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

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

[taocom52]

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