셀 내용의 툴팁

Question

텍스트가 포함 된 모든 셀 (빈 상태가 아닌)의 "Sheet1"열, "C9 : 10000"열에서 자동으로 어떻게 툴팁을 표시 할 수 있습니까?

이 항목의 목적은 셀의 열을 탐색하고 셀이 활성화되어 있거나 마우스를 올리면 툴팁이 전체 텍스트를 표시하는 "풍선"유형으로 나타납니다.

감사

Answer 1

당신은 데이터 유효성 검사의 InputMessage 빌릴 수 :

Dim rng As Range 

For Each rng In Range("B2:B10") 
    With rng.Validation 
     .Delete 
     .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, _ 
      Operator:=xlBetween 
     .IgnoreBlank = True 
     .InCellDropdown = True 
     .InputTitle = "" 
     .InputMessage = rng.Text 
     .ShowInput = True 
     .ShowError = True 
    End With 
Next rng 

(빈 셀은 무시 될 것이다)

당신은 비록 셀을 클릭해야하고, 한계가있다 최대 문자 수 (아직 무엇인지 확인하지 않았습니다.) : 254 자 추가).

위의 코드에서 InputMessage의 최대 길이이므로 Left(rng.Text, 254)을 사용하면 더 이상 오류가 발생합니다.

BTW 위의 코드에서 대부분의 속성은 선택 사항입니다. 기록 된 매크로에서 이것을 빌 렸습니다.