Merujuk Lembaran Kerja dengan Pembolehubah Objek - Petua Excel

Isi kandungan

Joe sedang berusaha untuk mengetahui ralat pada makro baru yang baru ditulisnya.

Garis yang memberikan NextRow mengembalikan ralat yang mengatakan "Pemboleh ubah Objek atau Dengan Pembolehubah Blok Tidak Ditetapkan".

Pemboleh ubah objek cukup hebat. Dalam petua lama di, saya akan menggunakan pemboleh ubah biasa seperti berikut:

OrigName = ActiveSheet.Name Worksheets(OrigName).Copy

Ada cara yang lebih baik. Anda boleh menentukan pemboleh ubah menjadi objek apa pun, seperti lembaran kerja. Terdapat beberapa kelebihan untuk ini. Lebih pendek menggunakan pemboleh ubah objek di tempat Lembaran Kerja (OrigName). Juga, semasa anda menaip kod, VBA akan mengetahui bahawa pemboleh ubah adalah lembaran kerja dan menawarkan sifat dan kaedah yang sesuai setelah anda menaip titik. Inilah kod baru:

Dim WSO as Worksheet Set WSO = Activesheet WSO.Copy

Caranya, ialah apabila anda mempunyai pemboleh ubah objek, ia harus ditetapkan dengan kata kunci Tetapkan. Sekiranya anda gagal memasukkan Set dalam kod, anda akan mendapat "Objek Pembolehubah atau Dengan Pembolehubah Blok Tidak Ditetapkan" yang agak tidak intuitif. Joe hanya perlu mendahului tugas pemboleh ubahnya dengan kata Set.

Artikel menarik...