Wah jalan-jalan ke malaysia (searching-searching :D) ternyata ada yang ngadain event giveway lagi... Nah ini Cahaya Azla yang punya eventnya.. Yoyo.. Sapa yang berminat mampir aja ke blognya mba cahaya. hadiah-hadiahnya menarik lho. Persyaratan dan aturan mainnya dah ada di si mbak... Klik ini "END YEAR MEGA GIVEAWAY 2011 by Cahaya Azyla". Ayo buruan, ntar keburu berakhir eventnya

• Imann Abdul Gallery
• Meimei Clothing
• Spreadthegreennot
• Magnifique Bonbons
• Inspirasi Qaisara Collection
• Mabrook E-Store
• Shazlyn Kawaii Shoppe
• Latest Design
• Fara Collections
• Butterfly's Garden Shop
• The Gorgeous Closet
• Macaroons Kak Yong
• OTH Shop
• Maniq ( Snood & Hijab )
• Marina Sulaiman
• Miss Lily Shop
• Apampolkadot.com
• Le Papillon Designs
• Modern Muslim Collection
• Nong Talhah Collections
• Books-2u
• Aida Rabbaniyin Online Gallery
• Coklatmanis2u
• Shawls House
• E-Shop @ Ladyburd
• Elhyatt Bizz Full
• Annakku Comel Collection
• Murah Saje
• Aumuni's Shop
• Awin Macarons

Wah jalan-jalan ke malaysia (searching-searching :D) ternyata ada yang ngadain event giveway lagi... Nah ini Mba Shareeza binti Hashim (cery) yang punya eventnya.. Yoyo.. Sapa yang berminat mampir aja ke blognya mba cery.. Persyaratan dan aturan mainnya dah ada di si mbak... Klik ini "MamaFaiz"

Giveway akhir tahun...!!!

Wah seru banget....ga sengaja ni tau ada event giveway lagi.. Tadi tuwh lagi berkunjung ke blog mba hany terus ga sengaja liat mba fitria, di situ ada tutorial buat tas. saya pengen tahu gmn buat tas gitu??? (rasa ingin tahu yang begitu besar hehhe..) Pas lagi asyik-asyik lihat-lihat blog mba fitria saya ga sengaja ngeklik sebuah blog..eh ternyata blog ntu juga ngbahas kreatifitas lho miliknya teh fadilah...


Wah ternyata Teh Fadilah lagi buat event akhir tahun lho... hadiahnya menarik banget, hasil kerjainan teh fadilah sendiri... Persyaratan dan sebagainya ada di blog Teh fadilah.. Ayo sapa yang berminat klik aja "Giveway Akhir Tahun"..

Semangat !!!

wah akhir-akhir ni lagi ngetrend banget dengan artis-artis korea, film korea dan sampai gaya pakaian pun ala korea. nah saya bis searching-searching (kaya biasanya hehe), saya nemuin artikel yang bahas masalah fasion ala bintang korea.. yuk kita baca artikelnya,,, Moga bermanfaat ya teman-teman...

Atasan 
Kenakan atasan unik dan simpel dengan gambar menarik. Warna merupakan elemen penting untuk menarik perhatian. Warna pastel yang cerah untuk kesan cute atau warna terang yang berani bisa digunakan sesuai dengan selera. 

Sering kali tak cukup satu potong atasan untuk membuat penampilan sempurna. Atasan pendek di atas perut dipadu dengan dalaman tanktop atau tanktop longgar dengan dalaman di lapisan dalam sering digunakan. Tak berhenti sampai di situ, untuk penampilan sehari-hari, cardigans ringan atau jaket yang unik menjadi lapisan terakhir kombinasi atasan ala bintang Korea. 

Bawahan 
Para bintang Korea tak segan-segan menunjukkan kemulusan paha mereka. Mini menjadi salah satu kata kunci dalam penampilan mereka. Entah celana pendek super mini atau rok mini yang cantik.

Jika memang harus menggunakan celana, pastikan celana tersebut cukup ketat di tubuh. Tentu karena rata-rata bintang Korea ini bertubuh ramping maka celana ketat baik dari bahan jeans maupun kulit membuat penampilan mereka makin sempurna.  Legging warna-warni juga merupakan barang fashion yang umum digunakan untuk melengkapi atasan longgar.

Kaki 
Dari bawahan kita tidak langsung lompat ke sepatu. Di tengah-tengah itu masih ada elemen penting yakni stocking atau kaus kaki panjang selutut. Ingat, umumnya warna yang digunakan adalah warna-warna cerah yang menarik perhatian. Warna yang digunakan juga bisa senada dengan aksesoris yang dikenakan. 

Sepatu 
Bintang Korea tak pernah main-main dalam memilih sepatu. Boots memang salah sepatu yang umum digunakan oleh mereka, umumnya boots yang setinggi lutut. Soal warna para bintang yang selalu tampil maksimal ini tak pernah ragu-ragu. Warna cerah dan motif print seringkali menjadi pilihan mereka. Untuk sepatu cantik, pilihan model strappy atau bertali hampir selalu jadi andalan. 

Aksesori 
Nah ini salah satu elemen yang cukup penting dalam bergaya ala Korea. Topi, hiasan rambut, ikat pinggang yang menarik, dan gelang besar. Wanita Korea memang cukup senang mengenakan topi dan hiasan rambut dalam kesempatan busana sehari-hari. Aksesori tersebut membuat mereka terlihat semakin imut dan bergaya. 

Secara keseluruhan gaya berpakaian wanita Korea selalu berkesan, lucu, polos, dan bergaya. Sesekali mereka tampil lebih berani dan berkarakter namun tetap terkesan manis. 

Walau elemen fashion berwarna-warni, selalu ada keserasian dalam penampilan bintang Korea. Terutama mereka yang tergabung dalam kelompok musik. Penampilan semua anggota selalu terlihat serasi dan menonjolkan karakter masing-masing. 

Mereka juga hanya menggunakan sedikit warna dan motif agar terlihat lebih serasi dan simpel. Untuk kesempatan spesial seperti pertunjukan, kesan glamor mendominasi penampilan mereka. 

Bergaya ala bintang Korea tidak bisa diterapkan setengah-setengah. Selain busana, tata rambut dan make-up juga harus selalu menunjang penampilan. Wanita Korea memang terkenal total untuk selalu berusaha tampil sebaik mungkin.


sumber : yahoo

Iseng-iseng lihat-lihat blog teman-teman yang aku follow (soalnya udah lama ga pernah liat blog-blognya) dan ga sengaja ngklik salah satu blog teman saya itu dan ternyata postingan yang dibuat bikin aku pengen tahu "Giveway pojok utak atik". Kataku itu apa ya (penasaran)??? Akhirnya aku klik aja dan baca-baca. wah ternyata itu blog yang mensharing kreatifitas. I like it  dan serunya pojok utak atik punya mba hany ini lagi ngadain event. teman-teman yang berminat klik aja "Giveway pojok utak atik". ayo buruan ikutan acaranya, biar dapet hadiahnya

Berikut cara membuat fungsi Terbilang pada macro excel :

Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.

1. Pilih Tool – Macro – Visual Basic Editor atau Alt-F11
2. Insert – Module
3. Copy kode macro berikut ini

'******************************************************************'

Public Function terbilang(y 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

x = y

If x > 1E+15 Then
terbilang = ""
Exit Function
End If

'R.A :)

'cek bilangan negatif
If Left(x, 1) = "-" Then
x = Mid(x, 2, 100)
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,dll
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 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 bag triliun + ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If

'baca bag milyar + ditambah akhiran milyar
If milyar > 0 Then
baca = baca + ratus(milyar, 4) + "milyar "
End If

'baca bag juta + ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If

'baca bag ribu + ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If

'baca bag satuan + ditambah akhiran satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
End If

'baca bag sen + ditambah akhiran sen
If sen > 0 Then
baca = baca + "rupiah " + ratus(sen, 0) + "sen "
Else
baca = baca + "rupiah "
End If
End If

'jika bilangan negatif
If Left(y, 1) = "-" Then
terbilang = "# Minus " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "#"
Else
'jika bilangan positif
terbilang = "# " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "#"
End If


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 bag ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, 2) + "ratus "
End If
End If

'baca bag puluh + satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + "puluh "
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
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 = 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 = "Dua belas "
Case 13: angka = "Tiga belas "
Case 14: angka = "Empat belas "
Case 15: angka = "Lima belas "
Case 16: angka = "Enam belas "
Case 17: angka = "Tujuh belas "
Case 18: angka = "Delapan belas "
Case 19: angka = "Sembilan belas "
End Select
End Function

'******************************************************************'

4. klik File Save dan selesai.

untuk mencobanya silahkan kembali ke tampilan microsoft excel atau tekan alt+F11

lalu masukan nominal dan formula =terbilang()
contoh: