Endre Kommentar Color for en enkeltbruker

Mikki er på utkikk etter en måte å endre standardfargen på regneark kommentarer slik at hun kan fortelle hennes kommentarer bortsett fra kommentarer fra andre mennesker.

Når du legger til en kommentar til en celle i et regneark, kan Excel du å endre formateringen som brukes for at kommentaren. Når kommentaren er opprettet, gjør du følgende:

1. Høyreklikk på cellen og velg Rediger Kommentar fra hurtigmenyen. Dette plasserer innsettingspunktet i kommentaren hvor du kan skrive mer informasjon, om ønskelig.
2. Høyreklikk på kommentaren grense og velg Format Kommentar fra den resulterende hurtigmenyen. Excel viser Format Kommentar dialogboksen.
3. Bruk kontrollene i dialogboksen for å endre hvordan du vil at kommentaren skal vises.
4. Klikk på OK.

Disse trinnene er alt fint og bra, men de påvirker bare gjeldende kommentar. Hvis du ønsker å sette en standard for eventuelle kommentarer du legger i fremtiden, gjør Excel husker ikke formateringen, og det gir ingen måte å gjøre en endring til standard. I stedet griper Excel standard kommentar formatering fra Windows selv. Du kan endre dette ved å endre skjerminnstillingene for Windows, spesielt ToolTip skjerminnstilling. Hvis du endrer dette, så du har endret hvordan Excel formaterer dine kommentarer. (Du har også endret hvordan verktøytips vises i alle andre program på systemet ditt, også.)

En løsning er å bruke en makro til å sette inn dine kommentarer. Makroen kan ikke bare sette inn den kommentaren, men også formatere den i henhold til dine behov. Her er et eksempel på en kort makro som vil sette inn en kommentar til den valgte cellen, og dersom brukerens navn er "Mikki," gjøre bakgrunnsfargen turkis. (The brukerens navn er definert i oppsettet for Excel.)

Sub AddMyComment ()
Dim sUserName As String
Dim adr As String

sUserName = Application.UserName

Med ActiveCell
adr = .Address

Hvis sUserName = "Mikki" Da
ActiveSheet.Range (adr) .AddComment
Range (adr) .Comment.Shape.Select Sann
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41
Else
Range (adr) .AddComment
End If
Avslutt med
End Sub

Hvis du allerede har et regneark som inneholder mange kommentarer, kan det være lurt å se etter kommentarer som har teksten "Mikki" i dem og deretter endre fargen på disse kommentarene. Denne makroen passer regningen:

Sub ColorMyComments1 ()
Dim Mycom Som Kommentar

For Hver Mycom I ActiveSheet.Comments
Hvis InStr (myCom.Text, "Mikki") <> 0 Then
myCom.Shape.Fill.ForeColor.SchemeColor = 41
End If
Neste Mycom
End Sub

Forstå at makroen vil endre fargen hvis teksten "Mikki" forekommer i kommentarteksten. En liten variant av makro sjekker kommentar Forfatter attributt, og hvis det er satt til "Mikki", så gjør det endringen:

Sub ColorMyComments2 ()
Dim Mycom Som Kommentar

For Hver Mycom I ActiveSheet.Comments
Hvis myCom.Author = "Mikki" Da
myCom.Shape.Fill.ForeColor.SchemeColor = 41
End If
Neste Mycom
End Sub

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (12567) gjelder for Microsoft Excel 2007, 2010, og 2013.