Wanita dan Komputer

Wanita dan komputer ada kesamaan, aku punya 6 kesamaan, coba kalian ?

1. Wanita dan komputer sama menariknya
2. Seperti halnya wanita, komputer juga punya logika internal yang ga dapat dimengerti oleh siapapun, kecuali Penciptanya sendiri.
3. Bahasa baku yang digunakan oleh komputer pun ga pernah bisa dimengerti oleh penggunanya, sama halnya dengan bahasa baku yang digunakan wanita.
4. Pesan notifikasi pada komputer yang bertuliskan 'Bad Command or File Name, persis halnya dengan pesan notifikasi dari wanita yang berarti 'kalo kamu ga tahu ngapain aku marah padamu maka aku pun ga bakal kasi tau kesalahanmu'
5. Kesalahan terkecil yang dibuat sekalipun, akan tersimpan dalam waktu lama di dalam memori internal komputer, persis dengan ingatan wanita.
6. Jika pengguna sudah memiliki komitmen dengan satu komputer maka akan banyak dana yang dikeluarkan untuk membeli aksesoris guna memperindah komputer tersebut, yang ini resiko yang jadi harga mati kan?

Tapi sayang, aku ga sepaham komputer tentang wanita.

FUNGSI TERBILANG PADA EXCEL

Bagi yang sering bekerja dengan Excel tentu sangat membutuhkan fungsi terbilang. Baik, aku akan mendefinisikan sedikit tentang fungsi terbilang, Fungsi Terbilang ialah (macem kek dosen ia :-D) Fungsi yang memudahkan kita untuk menulis nominal angka, biasanya berkaitan dengan nilai uang (catet), Cotonya ketika membuat daftar harga selain nominal angka kadang harus mencantumkan juga nominal dengan huruf misal 10.000 menjadi "Sepuluh ribu", nah kalo daftar harganya banyak tentunya kamu akan kerepotan untuk menuliskannya, jadi dengan Fungsi ini kamu tinggal mengetikan =terbilang(pilih sell).

Caranya:

dari lembar kerja excel kamu tekan Alt+F11 kemudian tekan Insert kemudian Module dari situ akan muncul Module1 nah di Module1 copykan text berwarna biru (semoga engga buta warna) dibawah ini

Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1000000000000# Then
Terbilang = "<>"
Exit Function
End If
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1)
Else
baca = baca
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen"
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
'Baca Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
'Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + "puluh "
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
ratus = baca
End Function
Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If Posisi <= 1 Or Posisi > 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function

Setelah text diatas tercopy tutup dengan menekan close (tanda X warna merah di sudut kanan atas), selesai

Bagaimana menggunakannya?

Untuk menggunakannya ketik "=Terbilang(pilih sell)" tentunya tanpa tanda petik

conto: pada sell A1 ketik "10000" (tanpa tanda petik) kemudian pada sell B1 ketik "=Terbilang(A1)" (tanpa tanda petik) kemudian Enter, tentunya pada Sell B1 akan tertulis "Sepuluh ribu".

Begitu kira-kira, selamat mencoba dan semoga bermanfaat

TES BUTA WARNA

Kemaren kedatangan temen yang lagi sedih, panggil saja Eko (nama samaran), baru saja Eko ditolak lamaran kerjanya karena ngga lulus tes buta warna, padahal semua tes lainnya lulus dengan nilai sangat bagus, tragis ya... kira-kira begini kalo orang buta warna gambar yang seharusnya seperti di bawah ini tapi telihat seperti di bawah

Kaya gitu kira kira kalo udah buta warna parah. Nah biar ngerti buta warnakah kamu, nih aku punya gambar buat ngetes buta warna, coba lihat yang jeli gambar dibawah

Dari gambar diatas bagi yang engga buta warna pasti menemukan tulisan angka, bagi yang buta warna jangan harap bisa menemukan angka. Ada info sekitar 10 juta pria di Amerika buta warna. Hal itu mencakup sekitar 8% dari populasi pria se-Amerika. Buta warna (disebut juga kekurangan daya penglihatan terhadap warna) hanya berpengaruh kurang dari 1% terhadap wanita. Kebanyakan buta warna itu keturunan. Kasus yang lain disebabkan umur, glaukoma, katarak dan karena pengobatan khusus. Jadi yang merasa cewe bisa sdikit bernapas lega :-D.

Tipe buta warna

1. Kebutaan merah - hijau. Penderita dah pasti ga bisa membedakan antara merah dan hijau. Ini adalah tipe yang umum ditemukan.

2. Kebutaan biru - kuning. Kesulitan membedakan antara biru dan hijau.

3. Kebutaan hijau. Tidak mampu membedakan bagian hijau dari spektrum warna.

4. Ketiadaan penglihatan warna. Hanya melihat hitam, putih dan abu-abu. Kondisi ini sangat jarang.

Terus apa penyebab buta warna ?

Di dalam retina dari masing-masing mata kita ada tiga kerucut. Setiap kerucut bereaksi dengan warna yang berbeda yaitu cahaya - merah, biru atau hijau. Kerusakan sebuah kerucut menyebabkan kebutaan warna ringan. Jika kerucut benar-benar rusak, buta warna menjadi lebih berat.

Bagaimana mengatasi buta warna ?

Bagi yang buta warna harus ikhlas menerimanya, karena tidak ada obat atau operasi untuk menyembuhkan, satu kata bijak buta warna merupakan ciri yang unik dan bukan keterbatasan. Jangan rendah diri, banyak profesi menarik yang engga butuh warna

DAPUR KEHIDUPAN

Posting Motivasi, sebenernya kurang menarik dibanding nyumbang trik ato tips, tapi tak apalah aku cuba.

Ini terdedikasi buat temen baru aku di Friendster, panggil saja Nana, nana punya seruan mayan ngenes, jadi kali aja dengan motivasi yang aku tulis ini bisa jadi obat, ya na ya....... :-)

Aku crita ya.. gini critanya :

Seorang anak gadis mengeluh kepada ibunya tentang sulitnya kehidupan yang harus dia hadapi. Tanpa berkata sepatah kata pun, ibunya mengajak anaknya ke dapur. Si ibu lalu menyiapkan tiga buah panci yang berisi air mendidih.
Panci pertama diisinya dengan wortel, panci kedua diisi telur, dan panci ketiga diisi kopi. Beberapa menit kemudian masing-masing isi panci itu dipindahkan ke mangkuk terpisah. Si ibu lalu meminta putrinya untuk memotong wortel dan telur, serta menghirup aroma kopi.
Gadis itu menemukan bahwa wortel yang tadinya keras telah menjadi lembek, telur yang tadinya cair menjadi keras, sementara bubuk kopi tidak banyak berubah - justru air perebusnya yang berubah menjadi beraroma kopi. “Ibu, apa makna semua ini?” tanya putrinya dengan nada heran.
“Air panas adalah lambang kesulitan hidup, “ kata ibunya.
“Wortel yang dimasukkan ke air panas menjadi lembek, itu melambangkan orang yang menjadi lemah dan menyerah saat didera kesulitan hidup."
"Telur menjadi keras, melambangkan orang yang menghadapi kesulitan hidup dengan keras hati. Ia mungkin berhasil melalui kesulitan hidup, namun dengan menjadi kehilangan kelembutan hati."
"Sedangkan kopi, ia tidak banyak berubah, justru airnya yang berubah menjadi beraroma kopi. Ini melambangkan orang yang mampu mengubah lingkungan. Ia tidak menyerah terhadap kesulitan hidup, justru mengubahnya menjadi sesuatu yang lebih baik - dalam hal ini minuman yang nikmat."
“Pertanyaannya sekarang, jalan mana yang akan kau pilih anakku?” tanya ibunya.
“Apakah engkau akan menjadi lembek dan menyerah, atau engkau akan menjadi keras, atau mungkin engkau akan merubah kesulitan menjadi suatu kemenangan? Semuanya terserah kepadamu karena engkau sendirilah yang menjadi ‘koki’ kehidupanmu,” demikian nasihat ibunya.
Yang lebih menentukan bukanlah seberapa banyak kesulitan yang menimpa seseorang, melainkan bagaimana sikap yang dipilihnya.

Udahan ah, loh kok aku sok dewasa gini?, tak apalah moga diambil manfaatnya aja..., sampe jumpa di blog motivasi yang laen

FORMAT ANGKA DAN TANGGAL DI MAIL MERGE

Format Tanggal atau angka pada saat kamu membuat dokukmen mail merge dengan data source dari file excel kadang format di dokumen tidak sesuai dengan yang kamu inginkan, misalnya angka yang kamu inginkan terformat 1.000.000,00 tapi pada dokumen mail merge tertulis 1000000 tanpa pemisah angka, itu juga terjadi pada format tanggal yang harusnya kamu ingin tampil 11 April 2009 tertulis 04/11/2009. Nah dibawah ini ada cara untuk memformat angka dan tanggal seperti yang kamu inginkan, simak ya

di dokumen mail merge kamu klik kanan Variabel yang akan kamu format , contoh: Variabel pas aku ambil gambarnya adalah Variabel bing kemudian pilih edit field, dari situ muncul menu pop up seperti dibawah ini

kemudian klik Field Codes, akan muncul seperti gambar dibawah

Pada jendela diatas klik Options…, perhatikan gambar dibawah, untuk data-data angka yang akan kamu format menjadi desimal dengan dua digit dibelakang koma, Kemudian kamu ketikan kode \# ##,##

Sedangkan untuk pengaturan tanggal kamu masukan kode \@ “dd MMMM YYYY”

Begitu kira-kira Format Angka dan Tanggal yang diperlukan