Daftar Isi:
- Bagaimana cara kerja makro
- Untuk menerapkan makro ini, Anda perlu menyalin dan menempelkannya ke jendela kode acara Worksheet_Change. Menempatkan makro di sini memungkinkannya berjalan setiap kali Anda membuat perubahan pada sheet:
Video: Cara Membuat Filter Data dengan VBA/Macro Excel 2024
Di Excel, Anda mungkin mengerjakan data yang sangat sensitif sehingga Anda ingin menghemat setiap sel atau rentang sel tertentu. berubah. Makro ini memungkinkan Anda menentukan rentang sel yang, bila diubah, memaksa buku kerja untuk menyimpan.
Pada contoh yang ditunjukkan, Anda ingin agar buku kerja disimpan saat diedit ke salah satu sel di kisaran C5: C16.
Bagaimana cara kerja makro
Rahasia kode ini adalah metode Intersect. Karena Anda tidak ingin menyimpan lembar kerja saat ada perubahan sel lama, Anda menggunakan metode Intersect untuk menentukan apakah sel target (sel yang berubah) berpotongan dengan kisaran yang ditentukan sebagai kisaran pemicu (C5: C16 dalam kasus ini).
Metode Persimpangan mengembalikan salah satu dari dua hal: objek Range yang mendefinisikan persimpangan antara dua rentang yang diberikan, atau tidak sama sekali. Jadi intinya, Anda perlu membuang sel target melawan metode Intersect untuk memeriksa nilai Nothing. Pada saat itu, Anda dapat memutuskan apakah akan menyimpan buku kerja tersebut.
Lembar Kerja Pribadi_Change (Target ByVal As Range) 'Langkah 1: Apakah kisaran berubah berpotongan? Jika Intersect (Target, Range ("C5: C16")) Tidak Ada Then 'Langkah 2: Jika tidak ada persimpangan, keluar prosedur Exit Sub' Langkah 3: Jika ada persimpangan, simpan buku kerja Else ActiveWorkbook. Save 'Langkah 4: Tutuplah Jika pernyataan End If End Sub
Pada Langkah 1, Anda cukup memeriksa untuk melihat apakah sel target (sel yang telah berubah) berada pada kisaran yang ditentukan oleh metode Intersect. Nilai tidak berarti sel target berada di luar kisaran yang ditentukan.
Jika ada persimpangan, Langkah 3 memecat metode Save dari buku kerja yang aktif, menimpa versi sebelumnya.Pada Langkah 4, Anda cukup menutup pernyataan If. Setiap kali Anda memulai cek If-Then-Else, Anda harus menutupnya dengan End If yang sesuai.
Cara menggunakan makro
Untuk menerapkan makro ini, Anda perlu menyalin dan menempelkannya ke jendela kode acara Worksheet_Change. Menempatkan makro di sini memungkinkannya berjalan setiap kali Anda membuat perubahan pada sheet:
Aktifkan Editor Visual Basic dengan menekan Alt + F11.
-
Di jendela proyek, cari nama proyek / buku kerja Anda dan klik tanda plus di sebelahnya untuk melihat semua lembar.
-
Klik lembar dimana Anda ingin memicu kode.
-
Dalam daftar drop-down Event, pilih Change event.
-
Ketik atau tempel kode di modul yang baru dibuat, ubah alamat jangkauan yang sesuai dengan kebutuhan Anda.
-
Masukkan kode Anda ke dalam acara Change Worksheet.