Penyataan Set Excel VBA
VBA Set adalah pernyataan yang digunakan untuk menetapkan kunci nilai apa pun mengatakan objek atau rujukan ke pemboleh ubah, kami menggunakan fungsi ini untuk menentukan parameter untuk pemboleh ubah tertentu, misalnya, jika kita menulis Set M = A yang berarti sekarang M rujukan mempunyai nilai dan atribut yang sama dengan apa yang dimiliki oleh A.
Dalam VBA, objek adalah teras utama kerana tanpa objek, kita tidak dapat melakukan apa-apa. Objek adalah Buku Kerja, Lembaran Kerja, dan Julat. Apabila kita menyatakan pemboleh ubah, kita perlu menetapkan jenis data padanya, dan kita juga dapat menetapkan objek sebagai jenis data. Untuk memberikan nilai pada pemboleh ubah objek yang dinyatakan, kita harus menggunakan kata "SET." Kata "Set" digunakan untuk merujuk pada objek baru di VBA, misalnya, merujuk pada julat lembaran kerja tertentu.
Bagaimana cara menggunakan Penyataan Set Excel VBA?
# 1 - Tetapkan Pernyataan dengan Julat Pembolehubah Objek
Sebagai contoh, anggap anda kerap menggunakan julat A1 hingga D5. Daripada menulis kod sebagai Range ("A1: D5") setiap kali, kita dapat menyatakan pemboleh ubah sebagai julat dan menetapkan rujukan julat sebagai Rentang ("A1: D5")
Langkah 1: Menyatakan pemboleh ubah sebagai objek Range.
Kod:
Sub Set_Contoh ()
Dim MyRange Sebagai Julat
Sub Akhir
Langkah 2: Pada saat kami menetapkan jenis data sebagai rentang, gunakan kata "Tetapkan."
Kod:
Sub Set_Contoh () Dim MyRange Sebagai Range Set MyRange = End Sub
Langkah 3: Sekarang sebutkan julatnya.
Kod:
Sub Set_Contoh () Dim MyRange Sebagai Range Set MyRange = Range ("A1: D5") Sub End
Langkah 4: Sekarang, pemboleh ubah "MyRange" sama dengan julat A1 hingga D5. Dengan menggunakan pemboleh ubah ini, kita dapat mengakses semua sifat dan kaedah dalam julat ini.
Kita boleh menyalin, menambah komen di excel, dan melakukan banyak perkara lain.
Sebagai contoh, tujuan, saya telah membuat beberapa nombor di sini.
Sekarang menggunakan pemboleh ubah, saya akan menukar saiz fon menjadi 12.
Kod:
Sub Set_Contoh () Dim MyRange Sebagai Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 End Sub
Ini akan mengubah saiz fon julat yang ditetapkan.
Seperti ini, kita dapat melakukan banyak hal dengan rentang tertentu dengan menggunakan kata "Set."
# 2 - Tetapkan Pernyataan dengan Pemboleh ubah Objek Lembaran Kerja
Kami telah melihat bagaimana "set" berfungsi dengan objek jarak jauh di VBA. Ia berfungsi sama seperti objek lembaran kerja juga.
Katakan anda mempunyai 5 lembaran kerja dalam buku kerja anda, dan anda ingin terus kembali ke satu lembaran kerja tertentu. Anda boleh menetapkan nama lembaran kerja tersebut ke pemboleh ubah objek yang ditentukan.
Contohnya, lihat kod di bawah.
Kod:
Sub Set_Worksheet_Contoh () Dim Ws Sebagai Lembaran Kerja Set Ws = Lembaran Kerja ("Lembaran Ringkasan") Sub Akhir
Dalam kod di atas, pemboleh ubah "Ws" didefinisikan sebagai pemboleh ubah objek, dan di baris berikutnya, dengan menggunakan kata "Set," kita menetapkan variabel ke lembar kerja bernama "Lembar Ringkasan."
Sekarang dengan menggunakan pemboleh ubah ini, kita dapat melakukan semua perkara yang berkaitan dengannya. Lihat dua set kod di bawah ini.
# 1 - Tanpa Kata "Tetapkan"
Kod:
Sub Set_Worksheet_Example1 () 'Untuk memilih lembaran kerja Lembaran kerja ("Lembaran Ringkasan"). Pilih' Untuk Mengaktifkan Lembaran Kerja lembaran ("Lembaran Ringkasan"). Aktifkan 'Untuk menyembunyikan Lembaran Kerja Lembaran ("Lembaran Ringkasan"). Terlihat = xlVeryHidden' Ke buka helaian Lembaran Kerja ("Lembaran Ringkasan"). Terlihat =
Setiap kali saya menggunakan objek lembar kerja untuk merujuk pada lembaran "Lembaran Ringkasan", ini menjadikan kodnya panjang dan memerlukan banyak masa untuk mengetik.
Sebagai sebahagian daripada kod yang sangat besar, adalah mengecewakan untuk menaip nama lembaran kerja seperti ini setiap kali anda perlu merujuk lembaran kerja.
Sekarang perhatikan kelebihan menggunakan perkataan Set in Code.
# 2 - Dengan Kata "Set"
Kod:
Sub Set_Worksheet_Example() Dim Ws As Worksheet Set Ws = Worksheets("Summary Sheet") 'To select the sheet Ws.Select 'To Activate the sheet Ws.Activate 'To hide the sheet Ws.Visible = xlVeryHidden 'To unhide the sheet Ws.Visible = xlVisible End Sub
The moment we set the worksheet name, we can see the variable name while entering the code as part of the list.
#3 - Set Statement with Workbook Object Variables
The real advantage of the word “Set” in VBA arises when we need to reference different workbooks.
When we work with different workbooks, it is so hard to type in the full name of the workbook, along with its file extension.
Assume you have two different workbooks named “Sales Summary File 2018.xlsx” and “Sales Summary File 2019.xlsx” we can set the two workbooks like the below code.
Code:
Sub Set_Workbook_Contoh1 () Dim Wb1 Sebagai Buku Kerja Dim Wb2 Sebagai Buku Kerja Set Wb1 = Buku Kerja ("Fail Ringkasan Jualan 2018.xlsx") Tetapkan Wb2 = Buku kerja ("Fail Ringkasan Jualan 2019.xlsx") Sub Akhir
Kini pemboleh ubah Wb1 sama dengan buku kerja bernama "Fail Ringkasan Jualan 2018.xlsx", dan pemboleh ubah Wb2 sama dengan buku kerja bernama "Fail Ringkasan Jualan 2019.xlsx".
Dengan menggunakan pemboleh ubah ini, kita sebenarnya dapat mengakses semua sifat dan kaedah yang berkaitan dengan buku kerja.
Kita boleh memendekkan kod seperti di bawah.
Tanpa Menggunakan Kata Kunci Tetapkan untuk mengaktifkan buku kerja:
Buku Kerja ("Fail Ringkasan Jualan 2018.xlsx"). Aktifkan
Menggunakan Tetapkan Kata Kunci untuk mengaktifkan buku kerja:
Wb1. Aktifkan
Ini menjadikan penulisan kod lebih mudah, dan juga, setelah nama buku kerja ditetapkan, terdapat kekhawatiran kesalahan kesalahan ketik nama buku kerja.
