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 bentuk berkelip atau berkelip berulang-ulang dalam Excel?

Jika anda ingin membuat bentuk berkelip berulang-ulang dalam lembaran kerja, satu kaedah dalam artikel ini boleh membantu anda.

Buat bentuk berkelip berulang-ulang dengan kod VBA


Buat bentuk berkelip berulang-ulang dengan kod VBA


Dalam lembaran kerja, untuk membuat bentuk berkelip, sila lakukan seperti berikut.

1. Tekan butang Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin dan tampal kod VBA ke dalam tetingkap Kod.

Kod VBA: Buat bentuk berkelip berulang-ulang dalam lembaran kerja

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Nota:

1). dalam kod, baru adalah nama bentuk yang akan menjadikannya berkelip. Sila ubah kepada anda sendiri.

2). 00: 00: 01 bermakna bentuknya akan berkelip setiap saat.

3. Tekan butang Alt + Q kunci bersama untuk keluar Microsoft Visual Basic untuk Aplikasi tingkap.

4. Masukkan Butang ke dalam lembaran kerja dengan mengklik Pemaju > Memasukkan > Butang (Kawalan Borang) seperti gambar di bawah yang ditunjukkan.

5. Dalam bermunculan Berikan Makro kotak dialog, pilih flash dalam Nama makro kotak, dan kemudian klik OK butang.

6. Kemudian tukar teks paparan pada butang yang anda perlukan. Dalam kes ini, saya menukar teks paparan untuk Mula berkedip seperti screenshot yang ditunjukkan di bawah.

7. Ulangi langkah di atas 4 dan 5 untuk memasukkan butang baru dan tentukan StopIt makro ke butang ini.

8. Tukar teks paparan butang baru ini.

Kemudian anda dapat melihat dua butang yang diberikan dengan makro yang berbeza dimasukkan ke dalam lembaran kerja. Lihat tangkapan skrin:

Mulai sekarang, apabila mengklik pada butang Mula berkedip, bentuknya mula berkelip dengan warna yang berbeza. Sekiranya anda mahu menghentikan kilat, sila klik butang Stop blinking.


Artikel berkaitan:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

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.