Excel - Makro untuk membuat sel-sel berkedip
Isu
Saya ingin membuat sekelip sel di bawah Excel. Bolehkah ini menjadi makro atau cara yang lebih mudah?
Penyelesaian
-1. Pilih sel
-2. Pilih Gaya dari menu Format.
-3. Dalam kotak dialog Gaya, masukkan nama gaya baru, seperti 'Berkedip'.
-4. Menggunakan kawalan dalam kotak dialog, ubah atribut gaya.
-5. Klik OK.
Gaya ini boleh digunakan untuk sel-sel pilihan anda.
Kini anda perlu membuat makro:
Dim NextTime Seperti Tarikh Sub StartFlash () NextTime = Sekarang + TimeValue ("00:00:01") Dengan ActiveWorkbook.Styles ("Berkelip"). Font Jika .ColorIndex = xlAutomatic Kemudian .ColorIndex = 3 .ColorIndex = Tamat Dengan Aplikasi. PadaTime NextTime, "StartFlash" End Sub
-------------------------------------------------- ----------------------
Sub StopFlash () Application.OnTime NextTime, "StartFlash", jadual: = False ActiveWorkbook.Styles ("Berkelip"). Font.ColorIndex = xLAutomatic End Sub
- Untuk memulakan kedipan, lancarkan StartFlash
- Untuk menghentikan penggunaan StopFlash .
Petua ini didasarkan pada //exceltips.vitalnews.com/Pages/T0214_Flashing_Cells.html
Terima kasih kepada Jeff untuk tip ini.