Mengelakkan Penggunaan Select dalam Excel VBA

Memperkemas Kod VBA Excel: Ditching .Pilih untuk Kecekapan

Menggunakan kaedah .Select dalam Excel VBA secara meluas dianggap sebagai amalan yang tidak baik kerana kesannya terhadap kebolehgunaan semula dan kecekapan kod. Ramai pembangun menyedari kelemahan tetapi sering bergelut dengan mencari pendekatan alternatif.

Dalam artikel ini, kami akan meneroka cara untuk mengelak daripada menggunakan .Pilih dan fokus pada menggunakan pembolehubah untuk merujuk objek seperti ActiveCell. Dengan memahami dan menggunakan teknik ini, anda boleh menjadikan kod Excel VBA anda lebih bersih dan lebih mantap.

Meningkatkan Kecekapan VBA Excel dengan Mengelak .Pilih

Skrip pertama menunjukkan cara mengelak daripada menggunakan .Select kaedah dengan menggunakan pembolehubah untuk merujuk objek tertentu dalam Excel VBA. Dalam contoh ini, kita mulakan dengan mengisytiharkan pembolehubah menggunakan Dim pernyataan untuk mentakrifkan lembaran kerja (ws), julat (rng), dan sel individu dalam julat itu (cell). Dengan menetapkan pembolehubah ini dengan Set perintah, kita boleh terus memanipulasi julat yang ditentukan tanpa memilihnya. Skrip bergelung melalui setiap sel dalam julat menggunakan For Each...Next gelung, menggandakan nilai setiap sel. Pendekatan ini meningkatkan kebolehgunaan semula dan kecekapan kod, kerana ia menghapuskan pemilihan yang tidak perlu dan memfokuskan pada manipulasi sel langsung.

Skrip kedua mempamerkan konsep yang sama tetapi memfokuskan pada menyalin nilai dari satu julat ke julat lain tanpa menggunakan .Select kaedah. Kami sekali lagi menggunakan Dim pernyataan untuk mengisytiharkan pembolehubah bagi lembaran kerja sasaran (targetSheet), julat sumber (sourceRange), dan julat sasaran (targetRange). Selepas menetapkan pembolehubah ini dengan Set arahan, skrip menyalin nilai daripada sourceRange kepada targetRange secara langsung dengan memberikan sifat nilai julat sasaran kepada julat sumber. Kaedah ini memastikan bahawa kod kekal bersih dan cekap, mengelakkan perangkap yang berkaitan dengan penggunaan .Select dan meningkatkan prestasi keseluruhan skrip VBA.

Sub AvoidSelectWithVariables()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    ' Set worksheet and range variables
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    ' Loop through each cell in the range
    For Each cell In rng
        ' Perform actions on each cell directly
        cell.Value = cell.Value * 2
    Next cell
End Sub

Sub RefactorWithoutSelect()
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    ' Define the worksheet and ranges
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    Set sourceRange = targetSheet.Range("B1:B10")
    Set targetRange = targetSheet.Range("C1:C10")
    ' Copy values from source to target range without selecting
    targetRange.Value = sourceRange.Value
End Sub

Menguasai Excel VBA: Teknik Lanjutan untuk Mengelak .Pilih

Selain menggunakan pembolehubah untuk memintas .Select kaedah, teknik lain yang berkesan melibatkan penggunaan With kenyataan. The With pernyataan membolehkan anda melakukan berbilang operasi pada satu objek tanpa merujuk objek tersebut berulang kali. Ini bukan sahaja memudahkan kod anda tetapi juga meningkatkan kebolehbacaan dan prestasinya. Sebagai contoh, daripada memilih julat dan kemudian melakukan berbilang tindakan padanya, anda boleh membungkus tindakan tersebut dalam With blok, dengan itu mengelakkan keperluan untuk digunakan .Select.

Satu lagi kaedah lanjutan untuk dielakkan .Select sedang menggunakan Application objek untuk memanipulasi sifat dan kaedah Excel secara langsung. The Application object menyediakan cara untuk mengawal Excel secara keseluruhan, membolehkan anda berinteraksi dengan pelbagai elemen persekitaran Excel tanpa memilihnya. Sebagai contoh, anda boleh menukar helaian aktif atau mengakses sel aktif secara terus melalui Application objek, dengan itu memperkemas kod anda dan menjadikannya lebih cekap. Teknik ini, digabungkan dengan penggunaan pembolehubah dan gelung, boleh meningkatkan kemahiran pengaturcaraan VBA anda dengan ketara dan menghasilkan kod yang lebih boleh diselenggara dan berprestasi.

Mengoptimumkan Kod VBA Excel dengan Mengelak .Pilih

Skrip pertama menunjukkan cara mengelak daripada menggunakan .Select kaedah dengan menggunakan pembolehubah untuk merujuk objek tertentu dalam Excel VBA. Dalam contoh ini, kita mulakan dengan mengisytiharkan pembolehubah menggunakan Dim pernyataan untuk mentakrifkan lembaran kerja (ws), julat (rng), dan sel individu dalam julat itu (cell). Dengan menetapkan pembolehubah ini dengan Set perintah, kita boleh terus memanipulasi julat yang ditentukan tanpa memilihnya. Skrip bergelung melalui setiap sel dalam julat menggunakan For Each...Next gelung, menggandakan nilai setiap sel. Pendekatan ini meningkatkan kebolehgunaan semula dan kecekapan kod, kerana ia menghapuskan pemilihan yang tidak perlu dan memfokuskan pada manipulasi sel langsung.

Skrip kedua mempamerkan konsep yang sama tetapi memfokuskan pada menyalin nilai dari satu julat ke julat lain tanpa menggunakan .Select kaedah. Kami sekali lagi menggunakan Dim pernyataan untuk mengisytiharkan pembolehubah bagi lembaran kerja sasaran (targetSheet), julat sumber (sourceRange), dan julat sasaran (targetRange). Selepas menetapkan pembolehubah ini dengan Set arahan, skrip menyalin nilai daripada sourceRange kepada targetRange secara langsung dengan memperuntukkan sifat nilai julat sasaran kepada julat sumber. Kaedah ini memastikan bahawa kod kekal bersih dan cekap, mengelakkan perangkap yang berkaitan dengan penggunaan .Select dan meningkatkan prestasi keseluruhan skrip VBA.