Modul Macro dalam Excel

Rumus Terbilang

Dengan menggunakan modul Macro, silahkan sobat ikuti langkah2 berikut

1. Buka Work Sheet Excel Baru
2. Letakkan Pointer di Sel A1
3. Click Tool >> Macro >> Visual Basic Editor
4. Di Visual Basic click Insert >> Module
5. Copy kan Fungsi di bawah ini ke Macro Module:

Public Function TERBILANG(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim letak(5) letak(1) = "RIBU " letak(2) = "JUTA " letak(3) = "MILYAR " letak(4) = "TRILYUN " If (x < terbilang = "" x =" 0)" terbilang = "NOL" tanda =" True" teks = "">= 1E+15) Then TERBILANG = "NILAI TERLALU BESAR" Exit Function End If For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) TERBILANG = teks End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "SE" angka(2) = "DUA " angka(3) = "TIGA " angka(4) = "EMPAT " angka(5) = "LIMA " angka(6) = "ENAM " angka(7) = "TUJUH " angka(8) = "DELAPAN " angka(9) = "SEMBILAN " Dim posisi(2) posisi(1) = "PULUH " posisi(2) = "RATUS " bilang = "" For j = 2 To 1 Step -1 tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "BELAS " Else angka(y) = "SE" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "SATU " End If bilang = bilang & angka(y) ratusan = bilang End Function

Jika sudah, sailhkan save di Macro


Udah Sob, abis itu balik ke Work Sheet Excel yg pertama tadi
Di sel B1 isikan formula “=terbilang(A1)
Jika setelah Enter muncul kata “NOL” berarti formula di terima
Silahkan tes, dengan mengisi angka berapapun di sel A1

Selamat mencoba

Pagi Hari BBM Masih Padat

Tau ga Sob, klo lo mau beli BBM lebih bagus di pagi hari?
Bukan karna pagi hari msi sepi, belum banyak yang antri aja lo, tapi hal ini juga dipengaruhi oleh temperatur bumi. Di pagi hari temperatur bumi kita masih dingin akan sangat menguntungkan bagi kita. HAl ini dikarenakan SPBU mempunyai tangki penampung BBM yang ditanam di dalam tanah. Semakin dingin tanahnya maka semakin padat/kental bahan bakarnya. Jika temperatur mulai panas/hangat, So bahan bakarnya akan mengembang. Jadi kalo beli bahan bakar pada siang hari atau petang hari….sebenarnya bahan bakar yang diisikan ke dalam tanki kendaraan lo jelas lebih sedikit dibanding jumlah liter yang kamu beli.

Dalam business perminyakan, gravity yang spesifik dan temperatur bensin, diesel dan bahan bakar pesawat jet, ethanol dan produk minyak lainnya punya peranan penting. Kenaikan 1 derajat merupakan hal yang sangat berpengaruh dalam business ini. Tetapi SPBU tidak memberikan ganti rugi/kompensasi karena temperatur.

SALAH SATU YANG PALING PENTING ADALAH ISI BAHAN BAKAR SAAT TANKI KENDARAAN
KAMU MASIH SETENGAH PENUH.

Soalnya semakin banyak bahan bakar yang ada di tanki kendaraan, maka semakin sedikit udara yang ada di bagian tanki yang kosong. Bensin menguap lebih cepat dari pada yang bisa kita bayangkan. Tanki penyimpanan bensin mempunyai apa yang kita sebut atap yang mengapung yang berfungsi sebagai clearance zero antara bensin dan atmosfer sehingga penguapannya bisa dikurangi.

YANG PERLU DIINGAT LAGI, JANGAN ISI BENSIN JIKA ADA TRUK BAHAN BAKAR
SEDANG MENGISI TANKI PENYIMPANAN

Hampir pasti bensin/solar akan teraduk saat bahan bakar dipompakan dari truck ke tanki penyimpanan, dan kemungkinannya akan ada kotoran di dasar tanki penyimpanan yang teraduk naik dan terikut masuk ke tanki kendaraan kamu.

Sedikit info yang pasti kalo buat lo pade yang tinggal di dekat kampus atau lagi jadi anak kost dan bawa kendaraan sendiri bisa deh jadi bahan pertimbangan sebelum beli BBM soalnya kalo siang hari selain hal di atas yang udah di sebutin ada lagi hal yang perlu di perhatiin yaitu antrian kendaraan yang panjang pada waktu siang hari dan terik matahari yang panas bisa bikin lo ga nyaman kan..?

Semoga bermanfaat..
PRIORITY

Jumper Start

Bukan cuma cewe, mobil kadang juga suka ngambek. Terutama klo si mobil jarang disentuh. Terutama yang batteraynya [accu] udah berumur. Dijamin dah, tiga hari kagak di belay pasti ngambek [soak alias tekor]. Terus gimana cara ngidupinnya klo si mobil kesayangan ngambek ngambek? Cara mudahnya sih didorong sob…

Cara Jumper Accu yang Benar dan Aman
Pertama pastikan kabel jumper dan tangan Kamu dalam posisi kering.
Awas jangan asal Jumper ya… Ikuti langkah2 di bawah ini:

1. Pastikan mobil yang mogok tidak menyalakan apapun (lampu, AC, tape, dsb),
2. Hubungkan kabel positif (+) ke terminal positif (+) accu yang soak.
3. Hubungkan kabel positif (+) ke terminal positif (+) accu yang baik.
4. Hubungkan kabel negatif (-) ke terminal negatif (-) accu yang baik.
5. Hubungkan kabel negatif (-) ke body atau rangka jauh dari posisi accu.
6. Nyalakan mesin mobil yang Accu-nya baik sekitar 30 detik
7. Nyalakan mesin mobil yang Accu-nya soak.
8. Setelah mesin sudah menyala, lepas hubungan kabel kebalikan dari langkah di atas.
9. Mengapa kabel negatif (-) dihubungkan ke body/frame mobil yang accunya soak dan harus jauh dari accu itu sendiri?

Awas sob ini bahaya… karena accu yang soak mengeluarkan gas yang mudah terbakar, gas tersebut bisa tersulut oleh kontak (percik api) ketika kabel negatif (-) dipasang dekat dengan accu.
Selamat mencoba…

priority