Messages In This Digest (12 Messages)

1a.: Re: Nama bulan menjadi angka Romawi From: i Haps
1b.: Re: Nama bulan menjadi angka Romawi From: i Haps
1c.: Re: Nama bulan menjadi angka Romawi From: Beby Asvi Yunita
1d.: Re: Nama bulan menjadi angka Romawi From: Ardi Prasetya
1e.: Re: Nama bulan menjadi angka Romawi From: NANG Agus

2a.: Validasi untuk Form From: Hachi Rizki

3.: Membagi data ke kolom From: Wxwx Tit

4a.: Menghilangkan karakter (...) di list From: Marthin Winner

5a.: Re: data unik From: liz_indri_haps

6.: conditional formating dengan warna berbeda-beda From: dyat

7a.: Re: Rencana Kerja Otomatis From: NANG Agus

8a.: Re: memindahkan data ke sheet lain From: i Haps

View All Topics | Create New Topic

Messages

1a.: Re: Nama bulan menjadi angka Romawi

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:36 am (PST)

=ROMAN(MONTH(C5))

masalah tersebut ternyata tidak terlalu sulit karaena Data di C adalah data
DATE
yg 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 = I
Ndak usah dibahas lagi karena tinggal melihat di sini

basic:
http://tech.groups.yahoo.com/group/XL-mania/message/11474
lebih khusus dihubungkan dengan nilai bulan:
http://tech.groups.yahoo.com/group/belajar-excel/message/14301

*
*
*2011/12/24 Endut Karim <endutkarim@yahoo.co.id>
*
>
> * *
> *Dear XL-Master,
> *
> *Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi*
> *Terlampir Problemnya
> Thanks bantuannya
> Regard
> Effendy Karim*
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1b.: Re: Nama bulan menjadi angka Romawi

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:36 am (PST)

*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 DATE
> yg 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 = I
> Ndak usah dibahas lagi karena tinggal melihat di sini
>
> *2011/12/24 Endut Karim <endutkarim@yahoo.co.id>
> *
>>
>> * *
>> *Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi*
>> *Terlampir Problemnya
>> Effendy Karim*
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1c.: Re: Nama bulan menjadi angka Romawi

Posted by: "Beby Asvi Yunita" beby@ptkmk.co.id bebyasvi71

Wed Dec 28, 2011 7:37 am (PST)

Selamat pagi, Mohon maaf mau coba bantu....CMIIW

=Choose(text([kolom bulan],"m"),"I","II","III","IV","V","VI","VII","VIII","IX","X","XI","XII")

Mungkin ada yg lebih simple???

Semoga membantu...

----- Original Message -----
From: Endut Karim
To: XL-mania@yahoogroups.com
Sent: Saturday, December 24, 2011 3:51 AM
Subject: ]] XL-mania [[ Nama bulan menjadi angka Romawi

Dear XL-Master,

Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi
Terlampir Problemnya

Thanks bantuannya

Regard

Effendy Karim

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1d.: Re: Nama bulan menjadi angka Romawi

Posted by: "Ardi Prasetya" stevengerrardi@yahoo.com stevengerrardi

Wed Dec 28, 2011 7:38 am (PST)

mudah2han membantu

di sel hasil ketik "=ROMAN(TEXT(C5,"m"),0)" untuk mengkonversi bulan ke huruf romawi

fungsi roman untuk mengubah angka biasa menjadi huruf romawi. dimana text(c5,"m") untuk mengambil angka bulan dan roman mengubahnya menjadi angka romawi dan o adalah jenis huruf romawi klasik > menurut excel saya kurang faham jenis-jenis huruf romasi di penjelasan sih ada 0,1,2,3, dan 4. dimana 1-4 adalah huruf romawi yang dipersingkat.

Wassalam

________________________________
From: Endut Karim <endutkarim@yahoo.co.id>
To: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Sent: Saturday, December 24, 2011 3:51 AM
Subject: ]] XL-mania [[ Nama bulan menjadi angka Romawi

Dear XL-Master,

Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi
Terlampir Problemnya

Thanks bantuannya

Regard

Effendy Karim

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
1e.: Re: Nama bulan menjadi angka Romawi

Posted by: "NANG Agus" nangagus@gmail.com

Wed Dec 28, 2011 7:50 am (PST)

Dear Endut Karim,

Coba pakai rumus ROMAN.

misalnyya di cell H5 diketik rumus:
=ROMAN(MONTH(C5))
Terus cupykan ke bawah,

2011/12/24 Endut Karim <endutkarim@yahoo.co.id>

> **
>
>
> Dear XL-Master,
>
> Saya punya problem yaitu Nama bulan yang digeneret menjadi Angka Romawi
> Terlampir Problemnya
>
> Thanks bantuannya
>
> Regard
>
> Effendy Karim
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

2a.: Validasi untuk Form

Posted by: "Hachi Rizki" hachiuz_ld27@yahoo.co.id hachiuz_ld27

Wed Dec 28, 2011 7:38 am (PST)

Dear all Excel expert,
Saya membuat User Form untuk input data,
Awalnya saya mengarahkan user yang input mengenai format2 yang seharusnya mereka input. Namun tetap saja masih banyak ditemukan ketidak sesuaian dalam hasil inputnya. Masalah saya sebagai berikut :
1. Textbox tanggal : Bagaimana caranya agar user input hanya dalam format tanggal yang ditentukan "dd mmm yy"
2. Format Time : Bagaimana cara agar user input hanya dalam format hh:mm
3. Format number : Bagaimana agar user hanya input angka saja (tidak kosong, bukan tanda strip, atau karakter lainnya)
4. Untuk Comb Box bagaimana agar mereka tidak bisa menulis sendiri, karena secara default untuk combo box user bisa pilih item di combo box, tetapi bisa juga mereka input manual

Mohon bantuannya, karena ketidak seragaman tersebut sangat merepotkan dalam pengolahan data lebih lanjut.

terima kasih,
hachi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)

3.: Membagi data ke kolom

Posted by: "Wxwx Tit" wxwxtit@yahoo.co.id wxwxtit

Wed Dec 28, 2011 7:39 am (PST)

Dear Pakar Excel,

Mohon bantuan dari pakar excel semua untuk memudahkan permasalahan saya.
Di dalam Kolom A terdapat beberapa data ex 100 baris, semua data tidak ada yang sama
dari data yg 100 itu ingin di pecah ke beberapa kolom
misalkan setiap kolom berisi 10 baris,

file
terlampir ya.
terima kasih atas pencerahannya.

SalamAlex Purnama

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

4a.: Menghilangkan karakter (...) di list

Posted by: "Marthin Winner" marthin_was@yahoo.com marthin_was

Wed Dec 28, 2011 7:39 am (PST)

Para Suhu mohon sarannya,

Saya memiliki data dengan format seperti berikut:

Badu (Badu)
Anita (Anit)
Charli (che)
..
..
..

dan seterusnya, hasil yg diinginkan adalah karakter (..) dihilangkan, sehingga menjadi

Badu
Anita
Charli

Berhubung jumlah datanya sangat banyak, mohon sarannya untuk kasus ini.

Terima Kasih,
Marthin

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

5a.: Re: data unik

Posted by: "liz_indri_haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:49 am (PST)

Dengan Formula:Seperti biasa, kita dapat menggunakan formula sorting;
dan karena sudah sering, tidak lagi dibahas di sini
Dengan MakroMakro sorting kali ini mengaplikasikan dua Kolom
Kunci(NomorSambungan) dan (TextNama Bulan)Berhubung text nama bulan
tidak punya nilai yg dapat menganggap:Januari = 1 ; Desember = 12, maka
harus dibuatkan KAMUS=nya lebih dulu
Array Data Unik NomorSambungan (ArSamb), didapat dari fungsi LOUV.
' susun hasil Normal + kolom sementara = nilai Bulan
Hasil.CurrentRegion.ClearContents For i = 1 To UBound(ArSamb) For
n = 1 To Tabel.Rows.Count If Tabel(n, 1) = ArSamb(i) Then
r = r + 1 For c = 1 To iCol Hasil(r, c) =
Tabel(n, c) Next c Hasil(r, iCol + 1) =
WorksheetFunction. _ Match(Trim(Hasil(r, 3)), arBulan, 0)
End If Next n Next i ' tabel hasil disort by Samb. & by
NilaiBulan Set Hasil = Hasil.CurrentRegion.Resize(Hasil.Rows.Count,
iCol + 1) Hasil.Sort _ Key1:=Range("J6"), Order1:=xlAscending, _
Key2:=Range("N6"), Order2:=xlAscending, _ Header:=xlGuess,
OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, _ DataOption2:=xlSortNormal
' tabel hasil dihilangkan beberapa data-nya (di Abnormalkan) For r =
Hasil.Rows.Count To 1 Step -1 If Hasil(r, 2) = Hasil(r + 1, 2) Then
_ Hasil(r + 1, 1).Resize(1, 2).ClearContents Hasil(r, iCol
+ 1) = vbNullString Next r
Berhubung meReplynya dari Milis Web, attachmentnya tidak dapat
dilampirkan di sini, tetapi jika berkenan, dapat anda unduh sendiri
filenya <http://www.box.com/s/b1orbia47q8rtcqsrdib> di
http://www.box.com/s/b1orbia47q8rtcqsrdib
- i -

--- In XL-mania@yahoogroups.com, Iksan Bondang <xanbondang@...> wrote:
> Kepada Master Excel yang budiman, mohon kiranya dapat membantu
permasalahan yang sedang saya hadapi ini,
> dengan rumus atau macro, pada daftar terlampir.
> Sekali lagi saya mohon maaf, karena permasalahan ini belum saya
temukan solusinya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

6.: conditional formating dengan warna berbeda-beda

Posted by: "dyat" dyat_dy@yahoo.com dyat_dy

Wed Dec 28, 2011 7:50 am (PST)

Dear Xl mania...

Butuh bantuan lagi dari tmen2 xl-mania

Gimana caranya membuat conditional formating dengan warna berbeda-beda jika dalam cell tersebut ada beberapa kondisi?..

contoh :
NOPOL KET
B 2448 S NEW
B 5555 K NEW
B 2448 S RO 1
F 2525 W NEW
F 2525 W RO 1
B 2448 S RO 2
B 2448 S RO 3

Yg saya inginkan pada KET yg NEW,RO 1,RO 2,RO 3 memiliki warna yg berbeda-beda... jadi ketika saya ketik nopol yg sama tapi ket berbeda dia akan langsung berubah warnanya nopolnya...

Trims...

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

7a.: Re: Rencana Kerja Otomatis

Posted by: "NANG Agus" nangagus@gmail.com

Wed Dec 28, 2011 7:50 am (PST)

Dear Boyok-Boyok dodol

Terlalu banyak yang harus dikerjakan pada file anda, saya hanya sempat
mencoba untuk mengisi rencana penggunaan pupuk dan Interval
Menggunakan rumus Index dan match, ditambah dengan IF yang berguna untuk
memilih perawatan 14 atau 16.
Silahkan dilanjutkan untuk Cell lainnya.
Selamat belajar.

Salam
NangAgus.

2011/12/26 boyok boyok <dodol_y@yahoo.co.id>

> **
>
>
> para suhu sebelumnya saya minta maaf postingan kemarin file size OVER dan
> cross posting
>
> mohon bantuanya untuk pembuatan rencana kerja 1 periode, karena selalu di
> update 1 minggu sekali ( Renc Kerja berjalan )
> kalo manual terlalu lama...
> padahal pas bos GPL ( gak pake lama )
> tolong bantuanya
>
> atass bantuanya trims
>
> yoyok
>
> Nb. file sudah saya usahakan <200 kb, tapi lebih dikit gak apa2 ya...
>
>
>
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)

8a.: Re: memindahkan data ke sheet lain

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:51 am (PST)

Di milis sudah sering ada penjelasan (karena ada pertanyaan) mengenai
MEMFILITER data
( Biasanya judul /subject pertanyaannya "macem-macem" bahkan "aneh-aneh",
tanpa menyadari bahwa keperluannya adalah memFILTER !

Tabel Pak Heri ini juga akan diFIILTER dengan kriteria A, B dan C
(A B dan C adalah data uniq di kolom 1 pada tabe l yg akan difilter)

Hasil Filtering-nya di copykan ke sheet yg senama dengan kriterianya.
Jadi pak Heri bisa menggunakan
1. *Auto Filter* (karena filteringnya mash terlalu sederhana)
atau ba juga menggunakan
2. *Formula Filter * Ingat formula *SMALL(IF* bukan ??

Untuk data yg banyak, formula filter tidak terlalu menyenangkan, karena
dia termasuk formula yg bekerja keras (sehingga semakin banyak cell yg
memuat rumus berat spt itu, semakin lamban kinerja worksheet)

Contoh workbokk yg kita lampirkan disini tidak menggunakan AutoFIlter,
tidak pula menggunakan Formula Filter, tetapi menggunakan Tombol
sekali ceklik, semua beres (kalau tidak error!)

Jika sheet1, ditambah datanya si Tombol harus dipencet lagi, agar data di
sheets hasil diperbarui.

Saat ini untuk memisahkan data ex sheet1, cukup hanya dipindah ke 3 buah
sheet
penampung (A,B,C)
Seandainya penambahan data di sheet1 termasuk adanya UniqItem baru (misal
selain
ada data A, B, C ada juga data baru D, E, F, Q, X dst, si TOmbol tidak akan
gemetar
karena dia sudah diberi ProTp maupun S.O.P untuk menghadapi keadaan spt itu.
Sheet baru akan dibuatkan oleh si Tombol, untuk anda (termasuk jika pada
saat pertama
kali BELUM ADA Sheet penampung (A,B,C dst..)

Berikut ini code yg mendukung si Tombol agar si Tombol tidak terlalu
plonga-plongo..

Sub *UnmergeDb()*
'-------------------------------------
' modifikasi dari makro STDEV(i) /Apr 2009
' iHaps, 23 Dec 2011
'-------------------------------------
Dim dTbl As Range, NewTbl As Range, Header As Range
Dim UniqItem, newSht As Worksheet, sht As Worksheet
Dim n As Long, r As Long, w As Integer
Set dTbl = Sheets("Sheet1").Cells(1).CurrentRegion
Set Header = dTbl.Resize(1, dTbl.Columns.Count)
Set dTbl = dTbl.Offset(1, 0).Resize(dTbl.Rows.Count - 1,
dTbl.Columns.Count)
UniqItem = LOUV(dTbl.Resize(dTbl.Rows.Count, 1))
For w = 1 To UBound(UniqItem)
For Each sht In Worksheets
Application.DisplayAlerts = False
If sht.Name = UniqItem(w) Then sht.Delete
Application.DisplayAlerts = True
Next sht
Next w
For w = 1 To UBound(UniqItem)
Set newSht = Worksheets.Add
newSht.Move after:=Sheets(Sheets.Count)
newSht.Name = UniqItem(w)
Header.Copy newSht.Cells(1)
Set NewTbl = newSht.Cells(2, 1)
r = 0
For n = 1 To dTbl.Rows.Count
If dTbl(n, 1) = UniqItem(w) Then
r = r + 1
dTbl(n, 1).Resize(1, dTbl.Columns.Count).Copy
NewTbl(r, 1).PasteSpecial xlPasteValuesAndNumberFormats
End If
Next n
Columns("A:C").EntireColumn.AutoFit
Cells(1).Select
Next w
MsgBox "Kelar deh boss!", 64, ThisWorkbook.Name
End Sub
'------------------------------------

iHaps.-

2011/12/23 Heri Haryanto <heriharyanto@astom.co.id>

> **
>
> Selamat siang xl-mania,****
>
> Mohon petunjuknya atas kasus saya dibawah ini, mungkin udah pernah
> dibahas, cumin saya cari2 gak ketemu kira2 keyword nya apa.**
>
> **
>
> Akhirnya saya minta petunjuk langsung aja****
>
> ** **
>
> 1****
>
> Mau memindahkan data di sheet1, ke sheet A, B dan C****
>
> 2****
>
> di *sheet A* berisi data sheet1 yang kol1 nya A****
>
> 3****
>
> di *sheet B* berisi data *sheet1* yang *kol1* nya B****
>
> 4****
>
> di *sheet C* berisi data *sheet1* yang *kol1* nya C.****
>
> Jika ada tambahan data di *Sheet1, maka akan menambah data di sheet A, B
> atau C*****
>
> ** **
>
> File terlampir, Terimakasih sebelumnya****
>
> **
>
> **
>
> Heri Haryanto****
>
> PT. Astom Indonesia
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Create New Topic | Visit Your Group on the Web

Messages

+-:: 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Kamis, 29 Desember 2011

Messages In This Digest (12 Messages)

Messages

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:36 am (PST)

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:36 am (PST)

Posted by: "Beby Asvi Yunita" beby@ptkmk.co.id bebyasvi71

Wed Dec 28, 2011 7:37 am (PST)

Posted by: "Ardi Prasetya" stevengerrardi@yahoo.com stevengerrardi

Wed Dec 28, 2011 7:38 am (PST)

Posted by: "NANG Agus" nangagus@gmail.com

Wed Dec 28, 2011 7:50 am (PST)

Posted by: "Hachi Rizki" hachiuz_ld27@yahoo.co.id hachiuz_ld27

Wed Dec 28, 2011 7:38 am (PST)

Posted by: "Wxwx Tit" wxwxtit@yahoo.co.id wxwxtit

Wed Dec 28, 2011 7:39 am (PST)

Posted by: "Marthin Winner" marthin_was@yahoo.com marthin_was

Wed Dec 28, 2011 7:39 am (PST)

Posted by: "liz_indri_haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:49 am (PST)

Posted by: "dyat" dyat_dy@yahoo.com dyat_dy

Wed Dec 28, 2011 7:50 am (PST)

Posted by: "NANG Agus" nangagus@gmail.com

Wed Dec 28, 2011 7:50 am (PST)

Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Wed Dec 28, 2011 7:51 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me