Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hover-over Function
Is it possible to have subroutine or function that will display the
"=weekday()" of a given date displayed in a message box if the contents of that cell represents a date? Ideally I'd like a "hover-over" function that would display the "=weekday()" of the cell being hovered-over, but ...... Thanks in advance, Raul |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hover-over Function
This will use the cell comment to display the week day. The comment is
mouse-over by default. Put this code in the worksheet code module: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wkday As String Dim comm As Comment If IsDate(Target) Then wkday = Weekday(Target) If ActiveSheet.Comments.Count 0 Then For Each comm In ActiveSheet.Comments If comm.Parent.Address = Target.Address Then Target.Comment.Delete End If Next End If Target.AddComment "Weekday = " & wkday End If End Sub Mike F "Raul" wrote in message ... Is it possible to have subroutine or function that will display the "=weekday()" of a given date displayed in a message box if the contents of that cell represents a date? Ideally I'd like a "hover-over" function that would display the "=weekday()" of the cell being hovered-over, but ...... Thanks in advance, Raul |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hover-over Function
Mike,
Thanks for your response. I've inserted a module in the workbook I'm working with and copied your code to this new modue. How do I pass the "Target" range to this subroutine? Thanks, Raul "Mike Fogleman" wrote: This will use the cell comment to display the week day. The comment is mouse-over by default. Put this code in the worksheet code module: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wkday As String Dim comm As Comment If IsDate(Target) Then wkday = Weekday(Target) If ActiveSheet.Comments.Count 0 Then For Each comm In ActiveSheet.Comments If comm.Parent.Address = Target.Address Then Target.Comment.Delete End If Next End If Target.AddComment "Weekday = " & wkday End If End Sub Mike F "Raul" wrote in message ... Is it possible to have subroutine or function that will display the "=weekday()" of a given date displayed in a message box if the contents of that cell represents a date? Ideally I'd like a "hover-over" function that would display the "=weekday()" of the cell being hovered-over, but ...... Thanks in advance, Raul |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Hover-over Function
Mike,
Disregard my previous message. I inserted your code in the worksheet code module (as you instructed) and it worked like a charm. Thanks a bunch, Raul "Raul" wrote: Mike, Thanks for your response. I've inserted a module in the workbook I'm working with and copied your code to this new modue. How do I pass the "Target" range to this subroutine? Thanks, Raul "Mike Fogleman" wrote: This will use the cell comment to display the week day. The comment is mouse-over by default. Put this code in the worksheet code module: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim wkday As String Dim comm As Comment If IsDate(Target) Then wkday = Weekday(Target) If ActiveSheet.Comments.Count 0 Then For Each comm In ActiveSheet.Comments If comm.Parent.Address = Target.Address Then Target.Comment.Delete End If Next End If Target.AddComment "Weekday = " & wkday End If End Sub Mike F "Raul" wrote in message ... Is it possible to have subroutine or function that will display the "=weekday()" of a given date displayed in a message box if the contents of that cell represents a date? Ideally I'd like a "hover-over" function that would display the "=weekday()" of the cell being hovered-over, but ...... Thanks in advance, Raul |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Making rows 'hover'? | Excel Discussion (Misc queries) | |||
Hover values in chart | Charts and Charting in Excel | |||
a button that will hover | Excel Programming | |||
Hover change | Excel Discussion (Misc queries) | |||
Hover over variable? | Excel Programming |