display cell contents
Since you are wanting to have something resembling a tooltip, you
could use a comment. Through VBA, you could assign a comment to all
of the cells within the row and set the comment equal to the range
that contains the info you want displayed. Just something yo get your
creative juices flowing:
ActiveCell.AddComment.Text "Product Number:" & Chr(10) &
Cells(ActiveCell.Row, 1)
Bill Renaud wrote:
Try this for a starter idea. Paste the following event code into the
worksheet code module. When you double-click a cell, it toggles Status
Bar info on and off. Then select a cell, the info will appear on the
Status Bar. Double-click any cell again to toggle Status Bar reporting
off. The following code just uses column $A for its info. This avoids
having MsgBoxes popping up at each selection change.
Private blnStatusMsgOn As Boolean
'----------------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
blnStatusMsgOn = Not blnStatusMsgOn
Worksheet_SelectionChange ActiveCell
End Sub
'----------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngColA As Range
Set rngColA = Target.EntireRow.Resize(1, 1)
If blnStatusMsgOn _
Then
Application.StatusBar = "Info is '" & rngColA.Value & "'."
Else
Application.StatusBar = False
End If
End Sub
--
Regards,
Bill Renaud
|