Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk membuat sel flash merah di Excel?

Secara umum, kita menyerlahkan sel-sel dengan latar belakang yang berbeza untuk membuat mereka keluar dari orang lain, tetapi di sini, dalam artikel ini, saya memperkenalkan kod VBA boleh membuat sel-sel tertentu denyar dengan latar belakang merah ke luar biasa dalam Excel.

Buat sel flash merah dengan VBA


Pilih Sel Khusus (pilih sel / baris / lajur berdasarkan satu kriteria dua bijih.)

doc pilih sel tertentu

anak panah gelembung kanan biru Buat sel flash merah dengan VBA


Untuk membuat sekelip mata berkedip untuk menarik perhatian pengguna, berikut adalah kod VBA.

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja anda dan menjimatkan masa kerja anda.

1. Dayakan helaian yang anda mahu sel flash, dan tekan Alt + F11 kunci untuk dibuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, dan kemudian tampal di bawah kod VBA ke Modul skrip. Lihat tangkapan skrin:

VBA: Buat sel flash 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

sel flash doc 1

3. Akhbar F5 kunci, dan a Kutools untuk Excel dialog muncul untuk memilih sel yang anda mahu buat kilat, lihat tangkapan skrin:
sel flash doc 2

4. klik OK. Kini sel yang dipilih telah berkelip dengan latar belakang merah.

Petua:

(1) Dalam kod VBA, anda boleh menukar warna latar belakang (xColor = 3), kelajuan berkelip (xSpeed ​​= 0.6) dan masa berkedip (Melakukan xCount = 20) seperti yang anda mahukan.

(2) Kod VBA ini tidak akan menambah latar belakang kilat ke pemilihan kosong.

(3) Latar belakang kilat ini akan dialih keluar secara automatik selepas selesai masa kosong.

doc muat turun 1



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.