Kako utripati ali utripati besedilo določene celice v Excelu?
Če želite na svojem delovnem listu določeno celico narediti izjemno, kaj pa utripati besedilo te celice? Ta članek vam bo prikazal način utripanja besedila določene celice v Excelu.
Utripa ali utripa besedilo določene celice s kodo VBA
Utripa ali utripa besedilo določene celice s kodo VBA
Naredite naslednje, če želite utripati besedilo določene celice v Excelu.
1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite naslednjo kodo v okno Code.
Koda VBA: Utripajoče besedilo določene celice v Excelu
Sub StartBlink()
'Updated by ExtendOffice 20181010
Dim xCell As Range
Dim xTime As Variant
On Error Resume Next
Set xCell = Range("Sheet2!A1")
On Error Resume Next
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Opombe: v tej kodi VBA Sheet2 in A1 označujeta, da bo besedilo v celici A1 Sheet2 v trenutnem delovnem zvezku utripalo.
3. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.
Zdaj potrebujete gumb za vklop in izklop utripanja.
4. klik Razvojni > Vstavi > Gumb (nadzor obrazca). Oglejte si posnetek zaslona:
5. Na delovnem listu narišite gumb, nato pa Dodeli makro Pojavi se pogovorno okno, kliknite StartBlink v Makro Ime in nato kliknite OK . Oglejte si posnetek zaslona:
6. Z desno miškino tipko kliknite vstavljeni gumb in kliknite Urejanje besedila v meniju z desnim klikom. Nato besedilo gumba spremenite v besedilo, ki ga potrebujete, na primer vklop / izklop utripanja.
Od zdaj naprej, ko kliknete na gumb, začne besedilo celice A1 utripati. In ob ponovnem kliku na gumb besedilo celice A1 preneha utripati.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!