Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengedipkan atau mem-flash teks sel tertentu di Excel?

Untuk membuat sel tertentu menonjol di lembar kerja Anda, bagaimana jika mengedipkan teks sel ini? Artikel ini akan menunjukkan kepada Anda metode mengedipkan teks dari sel tertentu di Excel.

Teks berkedip atau berkedip dari sel tertentu dengan kode VBA


Teks berkedip atau berkedip dari sel tertentu dengan kode VBA

Lakukan hal berikut untuk mengedipkan teks dari sel tertentu di Excel.

1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode berikut ke jendela Kode.

Kode VBA: Teks berkedip dari sel tertentu di Excel

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

Note: dalam kode VBA ini, Sheet2 dan A1 menunjukkan teks di sel A1 dari Sheet2 akan berkedip di buku kerja saat ini.

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Sekarang Anda memerlukan tombol untuk memulai dan menghentikan kedipan.

4. klik Pengembang > Menyisipkan > Tombol (Kontrol Formulir). Lihat tangkapan layar:

5. Gambarlah tombol di lembar kerja Anda, lalu Tetapkan Makro kotak dialog muncul, silakan klik MulaiBlink dalam Makro nama kotak, dan kemudian klik OK tombol. Lihat tangkapan layar:

6. Klik kanan tombol yang disisipkan, dan klik Edit Teks dari menu klik kanan. Kemudian ubah teks tombol tersebut menjadi teks yang Anda butuhkan seperti Start / Stop Blinking.

Mulai sekarang, saat mengklik tombol, teks sel A1 mulai berkedip. Dan saat mengklik tombol itu lagi, teks di sel A1 berhenti berkedip.


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (26)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Kode ini tidak akan berhenti berkedip itu macet. Apa yang saya lakukan salah?
Komentar ini diminimalkan oleh moderator di situs
Bisakah teks yang berkedip ini diterapkan pada suatu kondisi. yaitu jika tanggal tercapai atau mendekati pada satu lembar kerja, sel pada sampul/lembar menu berkedip
Komentar ini diminimalkan oleh moderator di situs
Bagaimana itu bisa membuat sel acak berkedip dalam rentang tertentu?
Komentar ini diminimalkan oleh moderator di situs
Bekerja... Hebat
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara memasukkan kode ini di bawah ini sehingga saya tidak memerlukan tombol tetapi kedipan dimulai secara otomatis pada pembukaan buku kerja?

Sub Workbook_Open Pribadi ()

'kode disini

End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai Dayle,
Silakan masukkan kode ini ke jendela ThisWorkbook.

'Masukkan ke jendela "Buku Kerja Ini"
Sub Workbook_Open Pribadi ()
BintangBlink
End Sub

Masukkan kode di bawah ini ke dalam jendela Modul. Dan kemudian simpan buku kerja sebagai Buku Kerja Excel Macro-enabled. Semoga saya bisa membantu. Terima kasih atas komentar Anda.

'Mulai berkedip
Sub BintangBlink()
Redupkan xCell Sebagai Rentang
Redupkan xTime Sebagai Varian
Setel xCell = Rentang("A1")
Dengan ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Jika xCell.Font.Color = vbRed Maka
xCell.Font.Color = vbPutih
Lain
xCell.Font.Color = vbRed
End If
Berakhir dengan
xTime = Sekarang + TimeSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , Benar
End Sub
'Berhenti berkedip
SubstopBlink()
xTime = Sekarang + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Jadwal:=False
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai,
ini berfungsi dengan baik tetapi ketika saya melindungi lembar saya, kedipan tidak berfungsi menampilkan pesan debug.
Komentar ini diminimalkan oleh moderator di situs
Hari baik,
Silakan coba kode berikut.

Sub MulaiBlink()
Redupkan xCell Sebagai Rentang
Redupkan xTime Sebagai Varian
On Error Resume Next
Setel xCell = Rentang("A1")
On Error Resume Next

Jika xCell.Font.Color = vbRed Maka
xCell.Font.Color = vbPutih
Lain
xCell.Font.Color = vbRed
End If
xTime = Sekarang + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Bekerja. bagus
Tetapi setelah melindungi lembar saya LOCK & Hidden (kecuali sel yang berkedip) itu tidak berfungsi.
Siapapun tolong bantu saya memecahkan masalah ini.
Komentar ini diminimalkan oleh moderator di situs
MANTAB GAN
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara mengubah ini ke lembar 1?
Komentar ini diminimalkan oleh moderator di situs
Hai Sam,
Jika Anda ingin membuat sel A1 di Sheet1 atau lembar kerja spesifik lainnya berkedip, tambahkan "Sheet1!" atau nama lembar kerja lainnya sebelum alamat sel. Lihat baris kode di bawah ini:

Setel xCell = Range("Sheet1!A1")
Komentar ini diminimalkan oleh moderator di situs
hai, saya butuh bantuan di google sheets..

Saya membutuhkan seluruh baris untuk berkedip jika F3:F1001 berisi "STAT". seluruh baris harus berwarna oranye tetapi juga berkedip sampai kotak centang kolom W3:W1001 dicentang.

apa itu mungkin? Bisakah kamu menolong? pleaseeeeeeeee
Komentar ini diminimalkan oleh moderator di situs
Hai mekka,
Maaf tidak dapat membantu Anda dengan itu. Terima kasih atas komentarmu.
Komentar ini diminimalkan oleh moderator di situs
saat melindungi lembar kode ini tidak berfungsi
Komentar ini diminimalkan oleh moderator di situs
tidak bekerja,

Tolong bantu
Komentar ini diminimalkan oleh moderator di situs
bagaimana cara mem-flash sel tertentu yang hanya berisi Teks tertentu?
Komentar ini diminimalkan oleh moderator di situs
bagaimana saya bisa membuat flash berkedip untuk lembar waktu saya. di mana sel berisi waktu di atas 10 jam. mohon sarannya
Komentar ini diminimalkan oleh moderator di situs
Hai jass,
Kode VBA berikut dapat memecahkan masalah Anda. Ayo cobalah.
Jangan lupa untuk mengubah nama sheet dan rentang jam dalam kode.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Komentar ini diminimalkan oleh moderator di situs
Hai, saya perlu melakukan hal yang sama untuk nilai sel duplikat di kolom yang dipilih di mana nilai sel akan berkedip jika nilai duplikat muncul di excel
Komentar ini diminimalkan oleh moderator di situs
Halo,
Saya mencari solusi untuk mem-flash / mengedipkan berbagai sel yang mendekati tanggal di masa mendatang, katakanlah dalam satu minggu. Maksud saya sesuatu seperti tanggal pengiriman pesanan pembelian adalah 30 Agustus. Saya ingin mulai mem-flash sel pada 25 Agustus dan seterusnya dan bahkan setelah 30 Agustus hingga dikirimkan.
Bisakah seseorang memberi saya solusi?
Terima kasih,
Sanjeev.
Komentar ini diminimalkan oleh moderator di situs
Hai Sanjeev Raghavan,
Kode VBA berikut dapat membantu Anda. Dalam kode, Anda perlu mengubah Lembar5!D2:D5 ke nama sheet dan rentang yang ingin Anda kedipkan.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Komentar ini diminimalkan oleh moderator di situs
Terima kasih kristal. Biarkan saya mencoba dan kembali kepada Anda.
Komentar ini diminimalkan oleh moderator di situs
Nama lembar Ringkasan dan kolom O

saya ingin memiliki kode untuk membuat sel berkedip merah/putih pada tanggal jatuh tempo. Dapatkah seseorang tolong bantu?
Komentar ini diminimalkan oleh moderator di situs
apakah mungkin membuatnya tanpa tombol dan otomatis berjalan?
Komentar ini diminimalkan oleh moderator di situs
Hai Malek,
Pengguna Sanjeev Raghavan mengajukan pertanyaan yang mirip dengan pertanyaan Anda, Anda dapat memeriksa balasan dan melihat apakah itu menyelesaikan masalah Anda.
@Sanjeev Raghavan
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL