Quick Excel Question

[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!

[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.

[Grounded]

Hi Mr. Mike Davidson

[-.-]

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

[Pepsico]

If you click on the buttons, you should get an option on the bar ontop where you can change it or change color

[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.