Terima kasih Mbak Rara atas masukannya yang sempurna, karena memberikan alternatif untuk berlatih.
Soal ini hanya mencoba merangsang rekan2 yang baru belajar VBA untuk mempraktekkan apa yang dipelajarinya, sedangkan bagi para Pakar VBA (mbak Rara salah satunya) mau menyediakan sedikit waktu untuk memberikan soal2 kecil untuk dipecahkan bersama. Salam, Hendrik Karnadi practice makes perfect ________________________________ From: Rara Wilis <[email protected]> To: [email protected] Sent: Monday, 25 June 2012, 4:01 Subject: Re: [belajar-excel] Mari berlatih membuat Macro Nah Pak Hendrik sudah memberikan PERSAMAAN-NYA Istilah "Persamaan" / "Equation" harusnya tidak asing bagi kita-kita yg di bangku SMP tidak membenci Guru Matematik / "Al Jabar" kita..... Salah satu Contoh penyelesaian Manual maupun makro ada di lampiran Dan berhubung belum ada yg menyambar ajakan berlatih ini, maka Rara memberanikan diri untuk mengajukan kode makronya Jika benar bisa utuk bahan belajar bersama (terutama bagi pemula) Tapi jika salah mari kita koreksi bersama (juga dlm rangka belajar) Private Sub CommandButton1_Click() '--Deklarasai variables Dim Jarak As Single, MenitKe As Single Dim Kec_A As Single, Kec_B As Single '--Initial variables Jarak = Range("H17").Value Kec_A = Range("H18").Value Kec_B = Range("H19").Value '--Persamaan MenitKe = Jarak / (Kec_A + Kec_B) * 60 '--Penyelesaian persamaan, '--hasil akhir ditulis di cells Range("H27").Value = TimeSerial(0, MenitKe, 0) Range("H27").NumberFormat = "[m]:ss" Range("H29").Value = MenitKe / 60 * Kec_A Range("H31").Value = MenitKe / 60 * Kec_B End Sub terimakasih pak Hendrik..... terima kash semua... ~rara Wi 2012/6/23 hendrik karnadi <[email protected]> Perhitungan manualnya + seperti ini : >j (jarak)= 100 >a (kecepatan A) = 80 >b (kecepatan B) = 40 > >m adalah menit saat A dan B bertemu, yaitu jarak dibagi kecepatan (total), >sehingga m = j/(a+b) * 60 Pada saat bertemu, >Jarak yang telah ditempuh oleh A (ja) pada saat bertemu B, ja = m/60 * 80 >Jarak yang telah ditempuh oleh B (jb) pada saat bertemu A, jb = m/60 * 40 >Coba tulis Variable di atas pada module VBA (kalau bisa pakai DIM...), >kemudian tampilkan m,ja danjb dengan MsgBox >Selamat mencoba lagi, anda pasti bisa .... >Salam, >Hendrik Karnadi > > From: Siti Nurhikmah <[email protected]> >Sent: Wednesday, 2 January 2002, 22:30 > >Pengen banget Pak Hendrik, tapi blank gak tau sama sekali....hiks hiks > >
