Hallo,
Ik heb een vraag over Excel wat betreft Tooltips.
Sommige van mijn kolommen mogen niet breder gemaakt worden, echter is de value van een paar cellen veel te lang om weer te geven.
Is er een manier / een code die ik kan toevoegen en oproepen voor alleen die kolommen?
Ik heb laatst wat gevonden, echter pakt die AL mijn cellen, en dat hapert nogal...
Dit is de code waar ik heb over heb:
[XML]' Copy all the code below into ThisWorkbook module
' WARNING: the manually typed comments in the sheets
' of this workbook will be destroyed!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
addComments Sh.UsedRange
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
addComments Sh.UsedRange
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
Sh.UsedRange.SpecialCells(xlCellTypeComments).ClearComments
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
addComments Target
End Sub
Private Sub addComments(Optional Rng As Range)
Dim x As Range
If Rng Is Nothing Then Set Rng = ActiveSheet.UsedRange
With Application
.ScreenUpdating = False
.DisplayCommentIndicator = xlCommentIndicatorOnly
End With
For Each x In Rng.Cells
With x
.ClearComments
If Len(.Text) Then
With .AddComment(.Text).Shape
.TextFrame.AutoSize = True
.AutoShapeType = msoShapeRoundedRectangle
.TextFrame.Characters.Font.Size = 14
End With
End If
End With
Next
Application.ScreenUpdating = True
End Sub[/XML]
Ik snap zelf niks van deze "algebra", maar ik hoop dat iemand hier dat wel snapt.
Hopelijk hebben jullie hier een oplossing voor!
Alvast bedankt!, Mvg, K.Vanstaen.
Ik heb een vraag over Excel wat betreft Tooltips.
Sommige van mijn kolommen mogen niet breder gemaakt worden, echter is de value van een paar cellen veel te lang om weer te geven.
Is er een manier / een code die ik kan toevoegen en oproepen voor alleen die kolommen?
Ik heb laatst wat gevonden, echter pakt die AL mijn cellen, en dat hapert nogal...
Dit is de code waar ik heb over heb:
[XML]' Copy all the code below into ThisWorkbook module
' WARNING: the manually typed comments in the sheets
' of this workbook will be destroyed!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
addComments Sh.UsedRange
End Sub
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
addComments Sh.UsedRange
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
Sh.UsedRange.SpecialCells(xlCellTypeComments).ClearComments
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
addComments Target
End Sub
Private Sub addComments(Optional Rng As Range)
Dim x As Range
If Rng Is Nothing Then Set Rng = ActiveSheet.UsedRange
With Application
.ScreenUpdating = False
.DisplayCommentIndicator = xlCommentIndicatorOnly
End With
For Each x In Rng.Cells
With x
.ClearComments
If Len(.Text) Then
With .AddComment(.Text).Shape
.TextFrame.AutoSize = True
.AutoShapeType = msoShapeRoundedRectangle
.TextFrame.Characters.Font.Size = 14
End With
End If
End With
Next
Application.ScreenUpdating = True
End Sub[/XML]
Ik snap zelf niks van deze "algebra", maar ik hoop dat iemand hier dat wel snapt.
Hopelijk hebben jullie hier een oplossing voor!
Alvast bedankt!, Mvg, K.Vanstaen.