Bagaimana cara memeriksa apakah bentuk atau gambar ada di lembar aktif?
Misalnya, sudah ada lusinan bentuk atau gambar yang ditambahkan di lembar kerja aktif, dan sekarang Anda ingin memeriksa apakah bentuk atau gambar tertentu ada di lembar aktif atau tidak, bagaimana Anda bisa dengan cepat menangani pekerjaan ini tanpa memeriksa bentuk atau gambar satu per satu? Di Excel, tidak ada fungsi bawaan yang dapat membantu Anda, tetapi dalam artikel ini, saya memperkenalkan kode VBA untuk menemukan dengan cepat apakah bentuk atau gambar ada di lembar aktif.
Periksa apakah bentuk atau gambar ada di lembar aktif
Periksa apakah bentuk atau gambar ada di lembar aktif
Harap terapkan kode makro di bawah ini untuk memeriksa apakah gambar tertentu ada di lembar aktif.
1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul dan tempel kode di bawah ini ke skrip.
VBA: Periksa apakah ada bentuk atau gambar
Sub CheckImage () 'UpdatebyExtendoffice20170927 Dim xChar Sebagai Gambar Dim xFlag Sebagai Boolean Dim xCharName Sebagai String Pada Kesalahan Lanjutkan Aplikasi Berikutnya.ScreenUpdating = False xCharName = "cat" xFlag = False Untuk Setiap xChar Di ActiveSheet.Pictures Debug.Print xChar.Name Jika xChar.Name = xCharName Kemudian MsgBox "Gambar Ada di Lembar Aktif", vbInformation, "KuTools Untuk Excel" xFlag = Benar Keluar Untuk Akhir Jika Berikutnya Jika Tidak xFlag Lalu MsgBox "Gambar Tidak Ada di Lembar Aktif", vbInformation, "KuTools Untuk Excel" Selesai Jika Application.ScreenUpdating = True End Sub
3. tekan F5 untuk menjalankan kode, dialog muncul untuk mengingatkan Anda jika gambar ada di lembar aktif.
jenis: Di kode makro, Anda dapat mengubah nama gambar di xCharName = "kucing" untuk memenuhi kebutuhan Anda.
Artikel Relatif:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!