Page 1 of 1
Quick Excel Question
Posted: Tue Mar 23, 2010 11:39 pm
by Puma60
I'm making this small IT system for school, but I have a minor problem. I've tried googling but didn't find anything. I basically want to change the colours of the Macro buttons so they blend in with the background colours a little bit more. Is there any way to do this?
Ta very much!
Re: Quick Excel Question
Posted: Wed Mar 24, 2010 12:36 am
by Deadsolid
I tried it on Excel 2007 and I couldn't get it to work.
If you're on a different version try:
Right click>Properties>BackColor...select a color
TBH I don't think you want those buttons to blend entirely. If the user can't distinguish them, then it could cause confusion.
Edit: NVM ur on 07.
Re: Quick Excel Question
Posted: Wed Mar 24, 2010 1:29 am
by Grounded
Hi Mr. Mike Davidson
Re: Quick Excel Question
Posted: Wed Mar 24, 2010 3:14 am
by -.-
hm could you send me a link to that file?
for some reason i think there is a format tab you are missing on the ribbon
Re: Quick Excel Question
Posted: Wed Mar 24, 2010 1:14 pm
by Pepsico
If you click on the buttons, you should get an option on the bar ontop where you can change it or change color
Re: Quick Excel Question
Posted: Wed Mar 24, 2010 4:11 pm
by Guardia
If you missed the other thread u made, hope this can help.
I cant find a way to do this without using VB. If u know VB codings, try these.
Have 1 cell on each "Last Paid" column to calculate the date differences between the date on the column and the current date. U can hide that column later.
The function on cell T8
=DAYS360(S8,TODAY())The function on cell T9
=DAYS360(S9,TODAY())The function on cell T10
=DAYS360(S10,TODAY())and so on. Make sure the format for the new column is set to "number".
After that, create a command button under ur table to act as a refresh button.
The coding for the refresh button should be like this :-
Code: Select all
Private Sub CommandButton1_Click()
If Range("T8").Value > 365 Then
With Range("S8").Font
.Color = -16776961
.Bold = True
End With
Else
With Range("S8").Font
.ColorIndex = xlAutomatic
.Bold = False
End With
End If
If Range("T9").Value > 365 Then
With Range("S9").Font
.Color = -16776961
.Bold = True
End With
Else
With Range("S9").Font
.ColorIndex = xlAutomatic
.Bold = False
End With
End If
If Range("T10").Value > 365 Then
With Range("S10").Font
.Color = -16776961
.Bold = True
End With
Else
With Range("S10").Font
.ColorIndex = xlAutomatic
.Bold = False
End With
End If
End Sub
I believe the coding can be more simple, but I'm too lazy to think of other ways. Maybe these steps can give u the idea on how to do it. Hope it helps.