VBA Dengan | Bagaimana Menggunakan Dengan ... Akhiri Dengan Penyataan di Excel VBA?

Dengan Penyataan dalam Excel VBA

Dengan pernyataan digunakan dalam VBA untuk mengakses ke semua sifat dan kaedah objek yang disebutkan. Kita perlu membekalkan objek VBA mana yang kita rujuk terlebih dahulu kemudian tutup pernyataan Dengan End Dengan , kemudian di dalam pernyataan ini, kita dapat melakukan semua perubahan sifat dan kaedah dari objek yang disebutkan.

Berikut adalah sintaks dengan Penyataan Dalam VBA.

 Dengan [OBJEK] [Kod ... Apa yang perlu dilakukan?] Tamat Dengan

Objek itu tidak lain hanyalah rangkaian sel atau sel yang kita maksudkan dan kemudian kita dapat mengubah sifat dan melakukan semua kaedah yang berkaitan dengan sel atau sel tertentu itu.

Bagaimana Menggunakan Dengan Penyataan di Excel VBA?

Berikut adalah beberapa contoh untuk menggunakan With Statement dalam Excel VBA.

Anda boleh memuat turun Templat VBA Dengan Excel ini di sini - Templat VBA Dengan Excel

Contoh # 1

Andaikan anda mempunyai nilai tertentu dalam sel A1, saya telah memasukkan teks sebagai "Excel VBA" di sel A1.

Sekarang untuk sel ini, saya perlu melakukan beberapa tugas iaitu memformat di excel.

Saya ingin menukar saiz fon, nama fon, dan warna dalaman, memasukkan sempadan, dan lain-lain ... Yang biasa kita lakukan ialah kita terlebih dahulu merujuk sel dengan menggunakan objek VBA RANGE.

Kod:

 Sub Dengan_Contoh1 () Julat ("A1") Sub Akhir

Sekarang untuk menukar saiz fon kita mengakses harta "font" sel ini.

Di bawah harta FONT kita mengakses properti Size dan memasukkan ukuran dengan meletakkan tanda sama.

Kod:

 Sub Dengan_Contoh1 () Julat ("A1"). Font.Size = 15 Sub Akhir

Sekarang juga kita melakukan tugas pemformatan lain seperti yang ditunjukkan di bawah.

Kod:

 Sub With_Example1 () Range ("A1"). Font.Size = 15 Range ("A1"). Font.Name = "Verdana" Range ("A1"). Interior.Color = vbJauh Kuning ("A1"). Batas .LineStyle = xl Sub End Berterusan

Ini akan melakukan semua tugas yang disebutkan tetapi jika anda melihat kod untuk melakukan setiap aktiviti pemformatan yang kami berikan alamat sel setiap kali, ini menjadikan kodnya kelihatan panjang dan memakan masa.

Sekarang kita akan menggunakan pernyataan VBA With untuk mengurangkan kemasukan alamat sel setiap masa. Buka pernyataan DENGAN Excel VBA dan berikan alamat sel.

Kod:

 Sub Dengan_Contoh1 () Dengan Julat ("A1") Sub Akhir

Di dalam pernyataan With letakkan titik untuk melihat semua sifat dan kaedah sel A1.

Sekarang aktiviti pemformatan pertama mengubah saiz fon, jadi akses FONT dan di bawah akses SIZE ini.

Kod:

 Sub Dengan_Contoh1 () Dengan Julat ("A1"). Font.Size = 15 Sub Akhir

Begitu juga, berikan kod pemformatan lain dan tutup VBA With Statement.

Kod:

 Sub Dengan_Contoh1 () Dengan Julat ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xlTerusan Berakhir Dengan Sub Akhir

Jalankan kod untuk melihat semua pemformatan dalam objek yang disebutkan iaitu sel A1.

Jadi, semua pemformatan diterapkan pada sel. Lihat betapa hebatnya teknik ini.

Contoh # 2

Sebagai contoh, jika anda ingin menukar semua sifat yang berkaitan dengan fon, anda boleh menyebutkan sifat sel dan FONT.

Kod:

 Sub Dengan_Contoh2 () Dengan Julat ("A1"). Fon Akhir Dengan Sub Akhir

Di dalam vba Dengan Penyataan, kita dapat melihat senarai IntelliSense yang akan menunjukkan sifat dan kaedah yang berkaitan dengan harta FONT sahaja.

Kita boleh melakukan apa sahaja aktiviti dengan ini sekarang.

Kod:

 Sub With_Example2 () With Range ("A1"). Font .Bold = True 'Font akan menjadi Bold .Warna = vbAlias' Font warna akan menjadi Alias. Italic = True 'Font akan menjadi gaya miring .Ukuran = 20' Ukuran fon akan be 20 .Undline = True 'Font akan digarisbawahi End With End Sub

Hasilnya akan seperti yang ditunjukkan di bawah.

Contoh # 3

Kod di bawah ini hanya akan mengakses sifat yang berkaitan dengan sempadan sel.

Kod:

 Sub Dengan_Contoh3 () Dengan Julat ("B2"). Sempadan .Warna = vbRed 'Warna sempadan akan berwarna merah. Garis Garis = xlContoh' Sempadan penuh .Berat = xlTebal 'Tebal tebal Tamat Dengan Sub Akhir

Hasil kod ini adalah seperti berikut.

Perkara yang Perlu Diingat

Dengan pernyataan digunakan untuk meminimumkan kod.
Kita perlu membekalkan objek terlebih dahulu untuk Dengan penyataan.
Setelah objek tertentu dibekalkan, kita hanya dapat mengakses sifat dan kaedah objek tersebut.