Cara Mengekstrak Data Dari Beberapa Spreadsheet

Mengekstrak data dari spreadsheet Excel mengubah konten sel sheet menjadi variabel. Buku kerja kemudian dapat menempelkan nilai ke dalam lembar baru, mengekspornya ke dokumen atau melakukan penghitungannya. Misalnya, buku kerja mungkin berisi serangkaian lembar, masing-masing mencakup periode penjualan perusahaan Anda. Makro Visual Basic dapat membuka setiap lembar secara bergantian dan menyalin konten sel tertentu, menyusun daftar total penjualan dari setiap lembar.

1

Tekan "Alt-F11" untuk membuka editor Visual Basic Excel.

2

Ketik kode berikut untuk membuka blok makro:

Sub mcrExtractData ()

3

Tambahkan baris berikut untuk membuat array nilai:

Dim extractedValue (1 hingga 10) sebagai Long

Ganti "1" dan "10" dengan lembar pertama dan terakhir yang datanya ingin Anda ekstrak. Misalnya, untuk mengekstrak data dari sheet 3 hingga 12, gunakan baris:

Dim extractedValue (3 hingga 12) sebagai Long

4

Tambahkan baris berikut untuk mendeklarasikan variabel yang akan digunakan loop makro:

Dim i sebagai Integer

5

Tambahkan baris berikut untuk membuka loop For-Next:

Untuk i = 1 sampai 10

Ganti "1" dan "10" dengan lembar pertama dan terakhir yang datanya ingin Anda ekstrak. Misalnya, untuk mengekstrak data dari sheet 3 hingga 12, gunakan baris:

Untuk i = 3 sampai 12

6

Tambahkan baris berikut untuk mengaktifkan lembar pertama:

Lembar (i). Aktifkan

7

Tambahkan baris berikut untuk mengekstrak data dari lembar pertama:

extractedValue (i) = Range ("C1"). Nilai

Ganti "C1" dengan sel yang datanya ingin Anda ekstrak. Misalnya, untuk mengekstrak nilai sel E10, gunakan baris:

extractedValue (i) = Range ("E10"). Nilai

8

Tambahkan baris berikut untuk menutup loop For-Next:

Selanjutnya i

9

Tambahkan baris berikut untuk mengakhiri makro:

Akhiri Sub

10

Tekan tombol "F5" untuk menjalankan makro.