Jika diinginkan pakai makro, sebenarnya SAMA SAJA
hanya kita pakai "slank" / dialex VBA
di sini dicontohkan makro diotomatiskan jalannya; kalau cell H3 di click
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim box As Range, DatArea As Range
If Target.Address = "$H$3" Then
' Area yg akan diproses ditetntukan oleh Yu Ser melalui InputBox
On Error Resume Next
Set DatArea = Application.InputBox( _
"Tentukan Range Input Datanya", _
"Mengkonversi nilai Bulan menjadi AngkaRomawi", , , , , , 8)
' Loop ke semua baris InputBox, ditulisnya di kolom ke 6
For Each box In DatArea
'Kalkulasinya : Sami-mawon...
box(1, 6) = WorksheetFunction.Roman(Month(box(1, 1)))
Next box
End If
End Sub
'>> (sebenarnya mubazir, lha-wong bisa pakai formula kok pakai makro)
2011/12/27 i Haps <hapsari.stlizbeth@gmail.com>
=ROMAN(MONTH(C5))masalah tersebut ternyata tidak terlalu sulit karaena Data di C adalah data DATEyg bisa diambil ANGKA BULAN nya dengan : MONTH(C5)
Kalau mau cari yg susah adalah :** diketahui TEXT nama Bulan (misal C5 = "Januari")** ingin dikonversi menjadi Angka Romawi = INdak usah dibahas lagi karena tinggal melihat di sini2011/12/24 Endut Karim <endutkarim@yahoo.co.id>
Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka RomawiTerlampir Problemnya
Effendy Karim
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :( |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário