Dengan Penyataan dalam Excel VBA
Dengan pernyataan digunakan dalam VBA untuk mengakses semua sifat dan kaedah objek yang disebutkan. Kita perlu membekalkan objek VBA mana yang kita rujuk terlebih dahulu kemudian tutup pernyataan With dengan End With , kemudian di dalam pernyataan ini. Kami dapat melakukan semua perubahan dan kaedah harta benda yang disebutkan.
Berikut adalah sintaks Dengan Penyataan dalam VBA.
Dengan (OBJEK) (Kod … Apa yang perlu dilakukan?) Tamat Dengan
Objek itu tidak lain hanyalah sekumpulan 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.
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 merujuk sel terlebih dahulu dengan menggunakan objek VBA RANGE.
Kod:
Sub Dengan_Contoh1 () Julat ("A1") Sub Akhir
Sekarang untuk menukar ukuran fon, kita mengakses sifat "font" sel ini.
Di bawah properti FONT, kami mengakses properti Size dan memasukkan ukuran dengan meletakkan tanda sama.
Kod:
Sub Dengan_Contoh1 () Julat ("A1"). Font.Size = 15 Sub Akhir
Sekarang juga, kami 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 Akhir Berterusan
Ini akan melakukan semua tugas yang disebutkan, tetapi jika anda melihat kod untuk melakukan setiap aktiviti pemformatan, kami selalu memberikan alamat sel. Ini menjadikan kodnya kelihatan panjang dan memakan masa.
Sekarang kita akan menggunakan pernyataan VBA Dengan 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 mengubah semua sifat yang berkaitan dengan fon, anda boleh menyebutkan sel dan sifat FONT.
Kod:
Sub Dengan_Contoh2 () Dengan Julat ("A1"). Fon Akhir Dengan Sub Akhir
Inside the VBA With Statement, we can see the IntelliSense list. It will show properties and methods related to FONT property only.
We can perform any set of activities with this now.
Code:
Sub With_Example2() With Range("A1").Font .Bold = True 'Font will be Bold .Color = vbAlias 'Font color will be Alias .Italic = True 'Font will be italic style .Size = 20 ' Font size will be 20 .Underline = True 'Font will be underlined End With End Sub
The result of this will be as shown below.
Example #3
The below code will access only cell border-related properties.
Code:
Sub With_Example3() With Range("B2").Borders .Color = vbRed 'Border color will be red .LineStyle = xlContinuous 'Full border .Weight = xlThick 'Thick border End With End Sub
The result of this code is as follows.
Things to Remember
- Dengan pernyataan digunakan untuk meminimumkan kod.
- Kita perlu membekalkan objek terlebih dahulu untuk With statement.
- Setelah objek tertentu dibekalkan, kita hanya dapat mengakses sifat dan kaedah objek tersebut.
