Bagaimana untuk menyemak sama ada sel atau julat berbilang sel kosong dengan Excel VBA?

Bagaimana untuk menyemak sama ada sel atau julat berbilang sel kosong dengan Excel VBA?

Hari ini kita akan belajar tentang cara menyemak dengan mudah sama ada satu atau berbilang sel kosong menggunakan Visual Basic for Applications. Kandungan adalah berkaitan untuk Excel 2019 / 365, 2016 dan versi Microsoft Office yang lebih awal.

Kerja persediaan

Sebelum memulakan pengekodan dengan VBA dalam Excel, anda perlu memastikan bahawa tab pembangunan anda didayakan. Jika itu tidak berlaku, sila lihat tutorial ringkas ini .

Menyemak sama ada julat sel Excel kosong dengan VBA

  • Dalam Excel, buka persekitaran Visual Basic anda dengan menekan Alt+F11
  • Masukkan kod berikut sebagai prosedur dalam Lembaran Kerja anda, atau secara alternatif dalam modul VBA khusus.
Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub


  • Pergi ke hamparan anda dan pilih julat sel yang sewenang-wenangnya.
  • Kembali ke editor Visual Basic dan pastikan pemapar Segera (CTRL+G) kelihatan – kerana kaedah Debug.Print dalam kod akan mengeluarkan hasilnya ke tetingkap itu.
  • Tekan F5 untuk menjalankan kod anda.
  • Lihat ke dalam keputusan dalam tetingkap segera.

Bagaimana untuk menyemak sama ada sel atau julat berbilang sel kosong dengan Excel VBA?

  • Semua sel kosong akan dikenal pasti.

Kemungkinan sambungan kepada kod: Anda boleh memanjangkan kod ini mengikut keperluan sekiranya anda berminat untuk melangkau nilai kosong atau tidak melakukan apa-apa sekiranya sel tidak penuh. Begitu juga, anda boleh menyemak sama ada Julat itu sendiri kosong, iaitu – tiada sel hitam terkandung.

Menyemak medan bukan kosong

Dengan cara yang sama, anda boleh menggunakan harta IsEmpty untuk menyemak medan yang tidak kosong.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If

Bonus: Gunakan kod berikut jika anda ingin menyerlahkan sel kosong juga.

Malapkan i Selagi Malap c Sepanjang Malap myJulat Sebagai Julat Malapkan mySel Sebagai Julat Tetapkan myJulat = Julat("A1:A10") Untuk Setiap myCell Dalam myJulat ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Terdapat jumlah " & i & " sel kosong daripada " & c & "."


Cara menukar Chromebook akaun utama

Cara menukar Chromebook akaun utama

Untuk menukar akaun utama pada Chromebook anda, log masuk dengan akaun utama dan gunakan Powerwash untuk tetapan semula kilang peranti. Pelajari langkah-langkah yang mudah untuk proses ini.

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Nota Google Keep hilang? Inilah cara untuk mendapatkan mereka kembali

Jika nota Google Keep hilang, semak arkib, sampah dan pastikan anda menyegerakkan semula dan menggunakan Akaun Google yang betul.

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Apakah Maksud TTB dan Bagaimana Saya Menggunakannya?

Singkatan internet TTB mempunyai lebih daripada satu makna tetapi terdapat satu yang digunakan terutamanya untuknya. Inilah pandangan tentang bagaimana cara anda harus menggunakannya.

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Bagaimana Untuk Selesaikan Masalah Lampu Merah Pengawal PS4? [Penyelesaian Dicuba & Diuji]

Adakah anda sedang mencari penyelesaian pantas untuk menyelesaikan masalah lampu merah pengawal PS4? Kemudian cuba penyelesaian yang diberikan dan betulkan lampu merah pada PS4...

Cara Mengira Tahun Perkhidmatan dalam Excel

Cara Mengira Tahun Perkhidmatan dalam Excel

Ketahui cara mengira tahun perkhidmatan dalam Excel untuk memudahkan pengurusan pekerja dan manfaatkan fungsi-fungsi berguna seperti YEARFRAC dan DATEDIF.

Halia 2.7.53.0

Halia 2.7.53.0

Halia ialah penyemak ejaan dan tatabahasa percuma.

Blok

Blok

Blocks ialah permainan intelektual untuk pelajar sekolah rendah gred 3 untuk mempraktikkan kemahiran pengesanan dan mata mereka dan disertakan oleh guru dalam program sokongan pengajaran IT.

Prezi 6.26

Prezi 6.26

Prezi ialah aplikasi percuma yang membolehkan anda membuat persembahan digital, dalam talian dan luar talian.

Mathway

Mathway

Mathway ialah apl yang sangat berguna yang boleh membantu anda menyelesaikan semua masalah matematik yang memerlukan alat yang lebih kompleks daripada kalkulator terbina dalam peranti anda.

Adobe Presenter

Adobe Presenter

Adobe Presenter ialah perisian e-Pembelajaran yang dikeluarkan oleh Adobe Systems yang tersedia pada platform Microsoft Windows sebagai pemalam Microsoft PowerPoint.