Bagaimana mengira barisan lembaran kerja Excel menggunakan makro VBA

Pengarang: Joan Hall
Tarikh Penciptaan: 25 Januari 2021
Tarikh Kemas Kini: 1 Julai 2024
Anonim
How to Create a Button to insert a picture in an active cell of an Excel worksheet using VBA MACROS
Video.: How to Create a Button to insert a picture in an active cell of an Excel worksheet using VBA MACROS

Kandungan

Kadang-kadang kita perlu tahu bilangan baris yang digunakan dalam spreadsheet Excel supaya kita dapat membuat formula atau bahkan makro VBA. Mujurlah, terdapat beberapa cara yang agak mudah untuk dilakukan dan Excel VBA adalah salah satu daripada mereka.Cara termudah untuk mengetahui maklumat ini adalah pergi ke bahagian bawah lembaran kerja anda dan melihat nombor di sebelah kanan titik data terakhir; Walau bagaimanapun, dengan VBA, pengiraan ini sangat mudah.


Arahan

Dengan VBA, sangat mudah untuk mengira bilangan baris dalam lembaran kerja Excel (BananaStock / BananaStock / Getty Images)

    Penjadualan makro

  1. Buka lembaran kerja Excel anda dan editor VBA dengan menekan "Alt + F11".

  2. Mulakan fail projek VBA baru dengan mengklik kanan pada buku kerja anda, dipaparkan dalam menu di sebelah kanan, dan memilih "Baru".

  3. Mulakan fungsi baru dengan menaip "Sub CountRows ()". Ini memberitahu pengkompil VBA bahawa terdapat subrutin baru untuk fail projek. Sekiranya anda memilih mengubah nama subroutine, tukar teks "CountRows" ke mana-mana nama yang dikehendaki, yang mesti diikuti oleh kurungan yang ditunjukkan di atas, contohnya "YourName ()".

  4. Buat pembolehubah termasuk teks "Dim Count as Long" pada baris seterusnya.


  5. Masukkan kod berikut:

    Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0) .Select Loop Until IsEmpty (ActiveCell.Offset (0, 1))

    Ini memberitahu program pengkompil bahawa ia perlu untuk menghuraikan pembolehubah Kira dan kemudian menghitung baris seluruh lembaran kerja. Kod menambah pembolehubah ke Total Count, dan kemudian bergerak ke sel berikutnya selagi kosong. Apabila ia mencapai sel kosong, pelaksanaan berhenti.

  6. Aktifkan kotak teks dengan menambah baris baru dengan teks "Count MsgBox". Ini akan memaparkan kotak pop timbul yang memberitahu anda jumlah baris. Untuk membuat kotak itu sedikit lebih berguna, anda boleh memasukkan sebarang teks tambahan. Garis nama semula kepada:

    MsgBox "Ada" [bilangan kiraan] "baris"

    Anda boleh menukar teks dalam tanda petikan seperti yang dikehendaki.

  7. Akhirnya, taipkan "Sub Akhir" dalam barisan baru untuk keluar dari fungsi subrutin.


    Menjalankan makro

  1. Kembali ke lembaran kerja Excel anda dan simpannya.

  2. Sorot sel lajur pertama yang mengandungi bilangan data yang terbesar. Lajur ini tidak boleh mengandungi sel kosong dari atas ke bawah.

  3. Buka menu "Alat" dan pilih "Macros" untuk memaparkan kotak dialog yang mengandungi semua makro yang diprogramkan untuk lembaran kerja.

  4. Pilih makro yang dicipta dalam Bahagian 1, dengan nama "CountRows" atau nama lain yang anda berikan, dan klik "Jalankan". Apabila selesai, makro akan memaparkan kotak teks pop timbul yang memberitahu anda bilangan baris diisi

Bagaimana

  • Jika anda hanya perlu mendapatkan nombor, alternatif yang lebih mudah dan mudah ialah mengira baris dengan menggunakan formula. Dalam sel kosong, ketik "= COUNT (A: A, IF (A> 0,1,0))", di mana A adalah lajur yang bilangan barisnya dikira.