Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
display cell contents
On my worksheet, are 3 hidden columns. One of the columns contains an ID
Number (for a cost center). Originally the columns were hidden because there would only be 1 ID. Now, the data has been expanded to include multiple IDs. But I still need to have the columns hidden. FYI........the right click is already being used for something else. I would like to display the ID when the user moves the cursor over any line with data (like a control tip). Is this possible? If so any help getting started would be appreciated. Any suggestions on other ways to accomplish this would be appreciated as well. As always, "Thanks" for the help.... -- JT |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
display cell contents
are you talking about selecting a cell with a row or are you talking about
hovering the mouse over a cell (probably not easily doable)? If selecting, then use the SelectionChange event -- Regards, Tom Ogilvy "JT" wrote: On my worksheet, are 3 hidden columns. One of the columns contains an ID Number (for a cost center). Originally the columns were hidden because there would only be 1 ID. Now, the data has been expanded to include multiple IDs. But I still need to have the columns hidden. FYI........the right click is already being used for something else. I would like to display the ID when the user moves the cursor over any line with data (like a control tip). Is this possible? If so any help getting started would be appreciated. Any suggestions on other ways to accomplish this would be appreciated as well. As always, "Thanks" for the help.... -- JT |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
display cell contents
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Big Cell Contents - I don't want them to display | Excel Discussion (Misc queries) | |||
function to display contents of a cell | Excel Worksheet Functions | |||
Lookup - Display contents of a cell | Excel Discussion (Misc queries) | |||
how do I display cell contents when I am over 32, 767 characters? | Charts and Charting in Excel | |||
display contents of cell | Excel Discussion (Misc queries) |