Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I've created a Jeopardy game, and the cells that have the dollar
values are hyperlinked to another sheet with that specific answer in it. I've edited the style of followed hyperlinks to be blue, basically blank after followed. At the end of the game, or anytime for that matter, I would like to have a macro that resets the followed hyperlinks back to their original "un"followed color. Also, if anyone knows where I could post this file once completed, I believe it may work well for others. I've found similar Jeopardys as powerpoints and such, but this one uses buttons and calculates score totals for each player. The only thing it lacks is Daily Doubles popups and answers, but i'm sure someone can fill that in. Thanks- |
#2
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Here's a code found at AllExperts, the expert being Damon
Ostrander...... Sub RefreshHlinks() 'Refreshes all hyperlinks on the active worksheet Dim Hcount As Integer Dim CellLoc() As Range Dim HlinkAddress() As String Dim HlinkSubAddress() As String Dim i As Integer With ActiveSheet.Hyperlinks Hcount = .Count ReDim CellLoc(Hcount) ReDim HlinkAddress(Hcount) ReDim HlinkSubAddress(Hcount) 'Save hyperlink addresses For i = 1 To Hcount Set CellLoc(i) = .Item(i).Range HlinkAddress(i) = .Item(i).Address HlinkSubAddress(i) = .Item(i).SubAddress Next i ..Delete 'deletes all hyperlinks on sheet 'Restore all hyperlinks For i = 1 To Hcount If HlinkSubAddress(i) = "" Then ..Add CellLoc(i), HlinkAddress(i) Else ..Add CellLoc(i), HlinkAddress(i), HlinkSubAddress(i) End If Next i End With End Sub |
#3
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]() Also, if anyone knows where I could post this file once completed, I believe it may work well for others. *I've found similar Jeopardys as powerpoints and such, but this one uses buttons and calculates score totals for each player. *The only thing it lacks is Daily Doubles popups and answers, but i'm sure someone can fill that in. I see you are on Gmail, You can create your own google site and store files on it, then attach a link to the file in your post, for example. Here is a link the the WorkBook RefreshHyperlinks http://sites.google.com/site/davesex...attredirects=0 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Hyperlinks: Hyperlinks change on copy/paste? | Excel Worksheet Functions | |||
Update 2000 Excel hyperlinks to 2003 hyperlinks | Excel Worksheet Functions | |||
How toi turn-off hyperlinks [excel]? Email hyperlinks pop up ! | Excel Discussion (Misc queries) | |||
reset cell.Hyperlinks.Count to 0 | Excel Programming | |||
Excel Hyperlinks- cell content v. hyperlinks | Excel Discussion (Misc queries) |