Bagaimana cara membuat sel berkedip merah di Excel?
Secara umum, kami menyorot sel dengan latar belakang berbeda untuk membuatnya keluar dari yang lain, tetapi di sini, di artikel ini, saya memperkenalkan kode VBA yang dapat membuat sel tertentu berkedip dengan latar belakang merah menjadi luar biasa di Excel.
Buat sel berkedip merah dengan VBA
Buat sel berkedip merah dengan VBA
Untuk membuat sel berkedip berkedip untuk menarik perhatian pengguna, berikut adalah kode VBA.
1. Aktifkan lembar yang ingin Anda flash sel, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke file Modul naskah. Lihat tangkapan layar:
VBA: Membuat sel berkedip merah
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. tekan F5 kunci, dan a Kutools untuk Excel dialog muncul untuk memilih sel yang ingin Anda buat flash, lihat tangkapan layar:
4. klik OK. Sekarang sel yang dipilih telah berkedip dengan latar belakang merah.
Tip:
(1) Dalam kode VBA, Anda dapat mengubah warna latar belakang (xWarna = 3), kecepatan kedip (xSpeed = 0.6) dan berkedip kali (Lakukan Sampai xCount = 20) seperti yang anda inginkan
(2) Kode VBA ini tidak akan menambahkan latar belakang flash ke pilihan kosong.
(3) Latar belakang flash ini akan dihapus secara otomatis setelah waktu kosong selesai.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!