Mohon tunggu...
Asyik Belajar Di Rumah
Asyik Belajar Di Rumah Mohon Tunggu... -

Pengumpul materi belajar anak-anak di rumah Yang diambil dari pengalaman sendiri atau banyak referensi yang tersebar di internet (http://belajarasyikdirumah.blogspot.com/)...Kalau bingung menyapa...sapa saja Wibi :)

Selanjutnya

Tutup

Nature

Membuat Animasi Pergerakan Matahari dengan Excel

25 Desember 2012   06:25 Diperbarui: 24 Juni 2015   19:04 3376
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.

Saat berselancar kemarin, saya menemukan harta karun :) Harta karun ini memungkinkan saya untuk bisa membuat gerakan melingkar dari suatu Objek yang dipilih. Misalkan, kita buat suatu objek Oval di Excel. Secara otomatis Excel memberi nama objek tersebut "Oval 1". Untuk mengetahui nama objek yang diberikan Excel, klik objeknya dan lihat di bagian kiri gambar, tepat di atas header kolom, disitu tertulis "Oval 1" Membuka Visual Basic Editor Selanjutnya, kita akan menggunakan Visual Basic Editor untuk menulis kode makro "gerakan melingkar". Jika versi Excel anda seperti saya, yang tidak ada icon untuk Visual Basic Editornya, ikuti saja langkah berikut: 1. klik logo Microsoft dalam lingkaran paling kiri atas

1356388010254456640
1356388010254456640
2. Klik "Excel Options" di kiri bawah dialog box yang muncul
13563883712117640821
13563883712117640821
Selanjutnya akan mucul kotak dialog berikut
13563887901101722849
13563887901101722849
Klik customize, dan dalam combo box di kotak hijau pilih "All Commands" lalu pilih "Visual Basic" dan klik "Add". Terakhir klik "OK". Icon visual basic akan muncul di ribbon Excel
1356415231512690800
1356415231512690800
klik icon tersebut dan selanjutnya copy kode makro berikut

======================================================================

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'waiting for in milliseconds' Sub test() Dim centerLeft As Long, centerTop As Long Dim Radius As Double Dim Theta As Double centerLeft = 500 centerTop = 500 Radius = 450 With ActiveSheet.Shapes("Oval 1") For Theta = 0 To 2 * Application.Pi() Step Application.Pi() / 180 .Left = centerLeft + (Radius * Cos(Theta)) .Top = centerTop - (Radius * Sin(Theta)) Sleep 40 DoEvents Next Theta End With End Sub

======================================================================

Jalankan makronya dengan cara memilih "View" lalu pilih "Macros" dan "View Macros"

1356415513808265464
1356415513808265464
Pilih macro yang sudah kita salin, dalam hal ini macro "test" dan klik "Run"
1356415700410617970
1356415700410617970
Setelah mengklik "Run" maka objek yang sudah kita buat ("Oval 1") akan bergerak melingkar seperti berikut
Dengan sedikit imajinasi, tinggal tambahkan gambar bumi dan lintasan matahari seperti ini
1356415937163069578
1356415937163069578

Mohon tunggu...

Lihat Konten Nature Selengkapnya
Lihat Nature 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