Cara membuat teks flicker di Excel

Langkah 1

Buka file Microsoft Excel 2010 di mana Anda ingin mengedipkan teks. Tekan tombol "Alt" dan "F11" untuk membuka konsol VBA.

Langkah 2

Klik kanan pada entri "ThisWorkbook" di sisi kiri konsol VBA. Gerakkan mouse Anda ke "Insert" dan pilih opsi "Modul".

Langkah 3

Klik dua kali pada opsi "ThisWorkbook". Salin kode berikut dan tempelkan di ruang kosong di sisi kanan layar:

Sub Pribadi Workbook_Open () Blink End Sub

Private Sub Workbook_BeforeClose (Batalkan Sebagai Boolean) NoBlink End Sub

Kode ini akan mulai di sebelah teks berkedip ketika Anda membuka buku ini, dan berkedip-kedip teks akan berhenti ketika Anda menutup buku, setelah Anda memasukkan kode untuk memberi tahu Excel apa yang "berkedip" dan "tidak berkedip" benar-benar berarti.

Langkah 4

Klik dua kali pada "Modul 1", dari daftar di sisi kiri layar. Letakkan kursor di sisi kanan layar dan tulis baris berikut:

Publik Timecount Sebagai Ganda

Ini menciptakan variabel yang disebut "Timecount" yang dapat digunakan di setiap subprogram.

Langkah 5

Tekan Enter untuk memindahkan kursor ke baris berikutnya dan tulis kode berikut:

Sub blink () Dengan ThisWorkbook.Worksheets ("Sheet1"). Range ("A1: A10"). Font If .ColorIndex = 3 Kemudian .ColorIndex = 2 Else .ColorIndex = 3 End Jika End Dengan Timecount = Sekarang + TimeSerial (0, 0, 1) Aplikasi. Waktu Tepat Waktu, "Blink",, True End Sub

Ini menciptakan subrutin yang disebut "Berkedip" yang akan menyebabkan semua teks dalam rentang yang ditetapkan ke flash. Anda dapat mengubah rentang "A1: A10" ke rentang apa pun yang Anda inginkan, termasuk sel individual.

Langkah 6

Tekan tombol "Enter" untuk mengakses baris berikut dan tulis kode berikut:

Sub noblink () ThisWorkbook.Worksheets ("Sheet1"). Range ("A1: A10"). Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime Timecount, "Blink",, Sub Akhir Palsu

Ini akan membuat subrutin yang akan dieksekusi ketika Anda menutup buku. Ini akan mengubah semua teks menjadi hitam, sehingga orang yang secara tidak sengaja membuka buku tanpa makro diaktifkan tidak akan melihat apa pun di kotak teks.

Langkah 7

Tutup konsol VBA dengan mengklik "X" di sudut kanan atas. Klik pada tab "File" di bagian atas layar dan pilih "Save as." Pilih "Excel diaktifkan untuk makro buku" dari bidang drop-down dan masukkan nama untuk buku. Klik "Simpan."

Langkah 8

Tutup file Excel dan buka kembali. Teks Anda, dalam rentang yang ditentukan dalam makro, akan mulai berkedip. Tergantung pada pengaturan keamanan Anda, Anda mungkin harus mengklik tombol "Enable Macros" di bagian atas layar untuk melihat teks yang berkedip.