Mohon tunggu...
windhu prasetyo simson
windhu prasetyo simson Mohon Tunggu... Wiraswasta - sosial, budaya dan teknologi

Wiraswasta

Selanjutnya

Tutup

Gadget

Manfaat Excel Lebih Jauh

22 November 2021   08:16 Diperbarui: 22 November 2021   09:15 207
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.
Lihat foto
Dokumentasi pribadi

Dari Excel kita bisa membuat aplikasi, tahap awal dimulai dari proses otomatisasi pekerjaan sampai kemudian tahap lanjutannya kita bisa membuat aplikasi sederhana.

Lanjutan dari pembahasan mengenai Microsoft excel, pembahasan kita adalah bagaimana caranya agar kita dapat memaksimalkan kegunaan excel bagi kehidupan kita, di dalam pekerjaan rutin kita. Banyak sekali hal yang bisa kita buat dengan proses otomatisasi excel melalui vba macro ini. Mulai dari input ribuan sampai jutaan data, membuat sheet baru, memindahkan ke file berbeda, membuat form seperti aplikasi, sampai bahkan bisa  membuat game sederhana dstnya.

Jadi cakupannya sangat banyak dan akan sayang sekali jika kita tidak memanfaatkannya.

Baik kali ini akan coba saya berikan contoh sederhana bagaimana seakan-akan suatu warna dapat bergerak sendiri dengan mengaktifkan vba macro excel.

Pada macronya ditulis seperti ini :

Sub Macro1()

Cells(3, 5).Interior.Color = vbRed

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(3, 5).Interior.Color = xlNone

 

Cells(5, 5).Interior.Color = vbYellow

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(5, 5).Interior.Color = xlNone

 

Cells(7, 5).Interior.Color = vbGreen

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(7, 5).Interior.Color = xlNone

 

 

Cells(3, 5).Interior.Color = vbRed

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(3, 5).Interior.Color = xlNone

 

Cells(5, 5).Interior.Color = vbYellow

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(5, 5).Interior.Color = xlNone

 

Cells(7, 5).Interior.Color = vbGreen

Application.Wait (Now + TimeValue("00:00:00001"))

Cells(7, 5).Interior.Color = xlNone

 

End Sub

Jadi di sini warna akan berubah-ubah dari warna merah, kuning dan hijau. Di sini juga ada delay yang berfungsi supaya warna tersebut berubah tidak terlalu cepat. 

Contoh ini adalah contoh yang sangat sederhana, masih banyak lagi hal yang bisa kita dalami di excel semoga bermanfaat.

Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H

HALAMAN :
  1. 1
  2. 2
  3. 3
  4. 4
Mohon tunggu...

Lihat Konten Gadget Selengkapnya
Lihat Gadget Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun