Cara Mengekstrak Data Dari Banyak Spreadsheet
Mengekstraksi data dari lembar kerja Excel mengubah konten sel lembar ke variabel. Buku kerja kemudian dapat menempelkan nilai-nilai ke lembar baru, mengekspornya ke dokumen atau melakukan perhitungan pada mereka. Misalnya, buku kerja dapat 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.
Ketikkan kode berikut untuk membuka blok makro:
Sub mcrExtractData ()
3.
Tambahkan baris berikut untuk membuat array nilai:
Redup diekstrak Nilai (1 hingga 10) sebagai Panjang
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:
Redup diekstrak Nilai (3 hingga 12) sebagai Panjang
4.
Tambahkan baris berikut untuk mendeklarasikan variabel yang akan digunakan loop makro:
Dim i sebagai Integer
5.
Tambahkan baris berikut untuk membuka lingkaran Berikutnya:
Untuk i = 1 hingga 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 hingga 12
6.
Tambahkan baris berikut untuk mengaktifkan sheet pertama:
Sheet (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) = Rentang ("E10"). Nilai
8.
Tambahkan baris berikut untuk menutup loop For-Next:
Selanjutnya saya
9.
Tambahkan baris berikut untuk mengakhiri makro:
End Sub
10.
Tekan tombol "F5" untuk menjalankan makro.
Pesan Populer
Shredder Anda membutuhkan perawatan rutin agar tetap berjalan lancar dan memotong kertas dan bahan lainnya dengan benar. Perangkat ini berisi beberapa bilah pemotong yang perlu diminyaki setidaknya setiap bulan. Anda harus segera mengatasi kemacetan dan tidak membebani perangkat dengan kertas terlalu banyak
Baca Lebih Lanjut
Di tempat kerja, sikap positif dan moral yang tinggi berjalan seiring. Sikap yang kasar atau negatif dapat menurunkan semangat kerja, yang berpotensi menyebabkan gangguan dan hasil kerja yang lambat. Namun, sikap sehat dapat menciptakan alur kerja yang lancar dan peningkatan produktivitas. Karena setiap tempat kerja berbeda, tidak ada tiket ajaib untuk meningkatkan moral atau mendorong sikap positif
Baca Lebih Lanjut
Etika adalah bagian penting dari setiap lingkungan bisnis. Namun, itu bukan topik yang paling menarik atau menyegarkan, yang membuatnya sulit untuk memberikan informasi tentang etika dan bagaimana menjadi etis bagi karyawan. Sebagai seorang manajer, Anda dapat menggunakan beberapa latihan yang menyenangkan, tetapi edukatif, etis yang informatif bagi karyawan tetapi juga menantang mereka, menghadirkan mereka dengan dilema etis yang terpaksa mereka selesaikan baik sebagai individu maupun sebagai tim
Baca Lebih Lanjut
Kenyamanan webinar memungkinkan perusahaan mengadakan pertemuan dari mana saja dengan orang-orang di seluruh dunia, tetapi duduk di ruangan sendiri sambil menghadap layar komputer bisa jadi agak tidak personal. Icebreakers melibatkan hadirin webinar dalam rapat Anda dan membantu mereka berinteraksi satu sama lain
Baca Lebih Lanjut
Ketika sebuah perusahaan mengembangkan kampanye pemasaran dan periklanan, keputusan tentang perlu tidaknya menggunakan warna sering kali harus dibuat. Meskipun warna dapat menambah biaya iklan cetak Anda, ada beberapa cara warna membuat iklan yang bagus. Dengan memahami manfaat warna dalam kampanye iklan Anda, Anda dapat membantu menjustifikasi biaya tambahan penggunaannya
Baca Lebih Lanjut