13 New Messages
Digest #2599
2b
Re: Menampilkan data yang hanya di berikan angka [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
6b
Re: Menggabungkan data yang sama menjadi sebuah summary [1 Attachmen by "Mr. Kid" nmkid.family@ymail.com
Messages
Sat Oct 19, 2013 9:32 am (PDT) . Posted by:
"Shenly" shenly_excelmania
terima kasih Mr. tapi ko cara tersebut hanya berlaku untuk objek type shapes, sementara untuk objek seprti CheckBox dkk ko ga berpengaruh ya????
Salam
Shenly ^^*
Pada Sabtu, 19 Oktober 2013 6:56, Mr. Kid <mr.nmkid@gmail.com> menulis:
Wa'alaikumussalam Wr. Wb.
Coba CTRL G -> klik Special -> pilih Objects -> tekan OK -> tekan Delete
"pilih yang spesial yaitu objects, kemudian di Delete"
Wassalam,
Kid.
2013/10/18 Shenly <shenly_excelmania@yahoo.co.id>
>
>Assalamualaikum...
>haloo temen2..mau tanya, gimana ya cara hapus objek yang banyak, dari hasil copas dari web,
>saya suka hapus satu persatu, sedangkan objeknya banyak banget...jadi suka esmosi sendiri hehehe...
>di antos jawabannya hehehe
>
>
>Salam
>Shenly ^^*
Salam
Shenly ^^*
Pada Sabtu, 19 Oktober 2013 6:56, Mr. Kid <mr.nmkid@gmail.
Wa'alaikumussal
Coba CTRL G -> klik Special -> pilih Objects -> tekan OK -> tekan Delete
"pilih yang spesial yaitu objects, kemudian di Delete"
Wassalam,
Kid.
2013/10/18 Shenly <shenly_excelmania@
>
>Assalamualaikum
>haloo temen2..mau tanya, gimana ya cara hapus objek yang banyak, dari hasil copas dari web,
>saya suka hapus satu persatu, sedangkan objeknya banyak banget...jadi suka esmosi sendiri hehehe...
>di antos jawabannya hehehe
>
>
>Salam
>Shenly ^^*
Sat Oct 19, 2013 9:45 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
ada object form2 dan activex nya ya...
pake vba saja ya... letakkan prosedurnya di sebuah general module
di worksheet yang aktif, jalankan prosedur berikut :
public sub HapusShapes()
dim shp as shape
for each shp in activesheet.shapes
shp.delete
next shp
end sub
kalau mau seluruh workbook sekalian, tambahkan loop setiap sheet dalam
workbook, lalu hapus shapes dalam sheet tersebut
public sub HapusShapesWorkbook()
dim sht as worksheet, shp as shape
for each sht in thisworkbook.worksheets
for each shp in sht.shapes
shp.delete
next shp
next sht
end sub
Wassalam,
Kid.
2013/10/19 Shenly <shenly_excelmania@yahoo.co.id>
> **
>
>
> terima kasih Mr. tapi ko cara tersebut hanya berlaku untuk objek type
> shapes, sementara untuk objek seprti CheckBox dkk ko ga berpengaruh ya????
>
>
> Salam
> Shenly ^^*
>
>
> Pada Sabtu, 19 Oktober 2013 6:56, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
> Wa'alaikumussalam Wr. Wb.
>
> Coba CTRL G -> klik Special -> pilih Objects -> tekan OK -> tekan Delete
> "pilih yang spesial yaitu objects, kemudian di Delete"
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/10/18 Shenly <shenly_excelmania@yahoo.co.id>
>
> **
>
> Assalamualaikum...
> haloo temen2..mau tanya, gimana ya cara hapus objek yang banyak, dari
> hasil copas dari web,
> saya suka hapus satu persatu, sedangkan objeknya banyak banget...jadi suka
> esmosi sendiri hehehe...
> di antos jawabannya hehehe
>
> Salam
> Shenly ^^*
>
>
>
>
>
>
ada object form2 dan activex nya ya...
pake vba saja ya... letakkan prosedurnya di sebuah general module
di worksheet yang aktif, jalankan prosedur berikut :
public sub HapusShapes(
dim shp as shape
for each shp in activesheet.
shp.delete
next shp
end sub
kalau mau seluruh workbook sekalian, tambahkan loop setiap sheet dalam
workbook, lalu hapus shapes dalam sheet tersebut
public sub HapusShapesWorkbook
dim sht as worksheet, shp as shape
for each sht in thisworkbook.
for each shp in sht.shapes
shp.delete
next shp
next sht
end sub
Wassalam,
Kid.
2013/10/19 Shenly <shenly_excelmania@
> **
>
>
> terima kasih Mr. tapi ko cara tersebut hanya berlaku untuk objek type
> shapes, sementara untuk objek seprti CheckBox dkk ko ga berpengaruh ya????
>
>
> Salam
> Shenly ^^*
>
>
> Pada Sabtu, 19 Oktober 2013 6:56, Mr. Kid <mr.nmkid@gmail.
>
> Wa'alaikumussal
>
> Coba CTRL G -> klik Special -> pilih Objects -> tekan OK -> tekan Delete
> "pilih yang spesial yaitu objects, kemudian di Delete"
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2013/10/18 Shenly <shenly_excelmania@
>
> **
>
> Assalamualaikum.
> haloo temen2..mau tanya, gimana ya cara hapus objek yang banyak, dari
> hasil copas dari web,
> saya suka hapus satu persatu, sedangkan objeknya banyak banget...jadi suka
> esmosi sendiri hehehe...
> di antos jawabannya hehehe
>
> Salam
> Shenly ^^*
>
>
>
>
>
>
Sat Oct 19, 2013 9:34 am (PDT) . Posted by:
alen_hafit
Selamat sore para MAster,
ini adalah kali kesekiannya saya bertanya kepada para master, dan saya sangat puas. saya mau meminta bantuannya lagi,
adakah cara excel untuk bisa menampilkan data item yang hanya dari berikan Qty pada data base.
file terlampir
terimakasih para master yang mau membantu saya.
Alen
ini adalah kali kesekiannya saya bertanya kepada para master, dan saya sangat puas. saya mau meminta bantuannya lagi,
adakah cara excel untuk bisa menampilkan data item yang hanya dari berikan Qty pada data base.
file terlampir
terimakasih para master yang mau membantu saya.
Alen
Sat Oct 19, 2013 10:13 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Alen,
Mungkin seperti file terlampir yang pakai Index dan array formula Small IF
Wassalam,
Kid.
2013/10/19 <alen_hafit@yahoo.com>
> **
>
>
> Selamat sore para MAster,
>
>
> ini adalah kali kesekiannya saya bertanya kepada para master, dan saya
> sangat puas. saya mau meminta bantuannya lagi,
>
> adakah cara excel untuk bisa menampilkan data item yang hanya dari berikan
> Qty pada data base.
> file terlampir
>
> terimakasih para master yang mau membantu saya.
>
> Alen
>
>
>
Mungkin seperti file terlampir yang pakai Index dan array formula Small IF
Wassalam,
Kid.
2013/10/19 <alen_hafit@yahoo.
> **
>
>
> Selamat sore para MAster,
>
>
> ini adalah kali kesekiannya saya bertanya kepada para master, dan saya
> sangat puas. saya mau meminta bantuannya lagi,
>
> adakah cara excel untuk bisa menampilkan data item yang hanya dari berikan
> Qty pada data base.
> file terlampir
>
> terimakasih para master yang mau membantu saya.
>
> Alen
>
>
>
Sat Oct 19, 2013 10:03 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
oh pakai function terbilang yang sepanjang jalan kenangan itu yak...
asumsinya si fungsi terbilang sudah menghasilkan seperti fungsi terbilang
lainnya
buat function baru
public function Pengen( angka as double ) as string
dim sRes as string
dim iNilai as integer
sres=terbilang( int( angka ) )
inilai=cint((angka - int(angka) )*100)
select case inilai
case <1
'do nothing
case is < 10
sres= sres & " koma nol " & terbilang ( inilai )
case is > 9
sres= sres & " koma " & terbilang( inilai )
end select
pengen=sres
end function
Kemudian, UDF Pengen digunakan dalam worksheet
Wassalam,
Kid.
2013/10/19 prazt math <praztmath@gmail.com>
> **
>
>
> Manjur MK obatnya...jos ganjos....makasih MK...
> Fungsi tersebut kalo disisipkan ke macro terbilang yang kemarin saya
> cancumkan kira" gmn ya mr. Kid? Hehehe
> Pada 19 Okt 2013 11:39, "Mr. Kid" <mr.nmkid@gmail.com> menulis:
>
> **
>>
>>
>> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & rept("nol ",
>> int(mod( a1,1) * 100) <10 ) & terbilang( int(mod( a1,1) * 100) ) , "" )
>>
>> gitu kali ya
>>
>>
>> 2013/10/19 prazt math <praztmath@gmail.com>
>>
>>> **
>>>
>>>
>>> Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
>>> kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
>>> yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
>>> pencerahan mr.Kid
>>> Pada 19 Okt 2013 06:41, "Mr. Kid" <mr.nmkid@gmail.com> menulis:
>>>
>>> **
>>>>
>>>>
>>>> Pakai Fungsi terbilang yang sudah tersebar dimana saja itu
>>>>
>>>> misal A1 berisi 17.561 akan diambil sampai 2 digit dibelakang koma.
>>>> Di B1 diberi formula dengan fungsi terbilang
>>>> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & terbilang(
>>>> int(mod( a1,1) * 100) ) , "" )
>>>>
>>>> Wassalam,
>>>> Kid.
>>>>
>>>>
>>>>
>>>> 2013/10/18 PRAZT <praztmath@gmail.com>
>>>>
>>>>> **
>>>>>
>>>>>
>>>>> Terima kasih bung Ade tanggapanya, yang saya inginkan memang terbaca
>>>>> seperti itu****
>>>>>
>>>>> Misal 2,10 ya terbaca dua koma sepuluh bukan dua koma satu nol****
>>>>>
>>>>> Mungkin itu aturan dari saya atau bisa di bilang permintaan saya
>>>>> hehehe.....****
>>>>>
>>>>> ** **
>>>>>
>>>>> ********
>>>>>
>>>>> PRAZTMATH �****
>>>>>
>>>>> ** **
>>>>>
>>>>> *From:* belajar-excel@yahoogroups.com [mailto:
>>>>> belajar-excel@yahoogroups.com] *On Behalf Of *M.Ade Alfarid
>>>>> *Sent:* 18 Oktober 2013 10:07
>>>>> *To:* belajar-excel@yahoogroups.com
>>>>> *Subject:* Re: [belajar-excel] macro terbilang desimal dua angka****
>>>>>
>>>>> ** **
>>>>>
>>>>> Dear Mr Prazt,****
>>>>>
>>>>> ** **
>>>>>
>>>>> Pembacaan nominal koma desimal yang anda lakukan adalah salah.****
>>>>>
>>>>> Pembacaan yang benar untuk digit dibelakang koma adalah dibaca angka
>>>>> satu persatu, tidak dibaca dengan puluhan,ratusan,ribuan dst.****
>>>>>
>>>>> Contoh :****
>>>>>
>>>>> 2,10 dibaca *dua koma satu nol*. Bukan dua koma sepuluh.****
>>>>>
>>>>> 3,20 dibaca *tiga koma dua nol*.Bukan tiga koma duapuluh****
>>>>>
>>>>> 5,2456 dibaca *lima koma dua empat lima enam* bukan lima koma duaribu
>>>>> empatratus limapuluh enam****
>>>>>
>>>>> ** **
>>>>>
>>>>> Atau memang ada aturan khusus dari Mr Prazt?****
>>>>>
>>>>> ** **
>>>>>
>>>>> Salam,****
>>>>>
>>>>> Ade****
>>>>>
>>>>> ** **
>>>>>
>>>>> Fri, 18 Oct 2013 09:47:26 +0700, PRAZT <praztmath@gmail.com> wrote:
>>>>>
>>>>> >
>>>>> >
>>>>> > Dear master, semoga selalu ada pada lindungan_Nya....
>>>>> >
>>>>> > Di sini saya mau minta solusi tentang macro terbilang untuk bilangan
>>>>> > desimal
>>>>> > 2 diigit dibelakang koma. Yang saya inginkan begini;
>>>>> >
>>>>> > Misal angka 2,10 maka terbaca dua koma sepuluh
>>>>> >
>>>>> > 3,20 maka terbaca tiga koma dua puluh, ext.
>>>>> >
>>>>> > Mohon koreksiannya macro berikut karena tidak bisa jalan sesuai
>>>>> harapan
>>>>> > atau
>>>>> > mungkin ada file dari master yang bisa langsung digunakan karena saya
>>>>> > cari-cari di milisi tidak ketemu-ketemu
>>>>> >
>>>>> >
>>>>> > Private Function KeKata(Nomor)
>>>>> >
>>>>> > TrjKata = Array("", "satu", "dua", "tiga", "empat", "lima", "enam",
>>>>> > "tujuh",
>>>>> > "delapan", "sembilan";)
>>>>> >
>>>>> > KeKata = TrjKata(Nomor)
>>>>> >
>>>>> > End Function
>>>>> >
>>>>> > 'Mulai penulisan Fungsi Terbilang
>>>>> >
>>>>> > Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional
>>>>> > Satuan =
>>>>> > "")
>>>>> >
>>>>> > Angka = Fix(Abs(Nilai_Angka))
>>>>> >
>>>>> > 'Desimal dibelakang koma
>>>>> >
>>>>> > des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
>>>>> >
>>>>> > des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)
>>>>> >
>>>>> > If des2 = "" Then
>>>>> >
>>>>> > If des1 = "" Or des1 = "0" Then
>>>>> >
>>>>> > Koma = ""
>>>>> >
>>>>> > Else
>>>>> >
>>>>> > Koma = " koma " & KeKata(des1)
>>>>> >
>>>>> > End If
>>>>> >
>>>>> > ElseIf des2 = "0" Then
>>>>> >
>>>>> > If des1 = "0" Then
>>>>> >
>>>>> > Koma = ""
>>>>> >
>>>>> > ElseIf des1 = "1" Then
>>>>> >
>>>>> > Koma = " koma sepuluh"
>>>>> >
>>>>> > Else
>>>>> >
>>>>> > Koma = " koma " & KeKata(des1) & " puluh"
>>>>> >
>>>>> > End If
>>>>> >
>>>>> > Else
>>>>> >
>>>>> > If des1 = "0" Then
>>>>> >
>>>>> > Koma = " koma nol " & KeKata(des2)
>>>>> >
>>>>> > ElseIf des1 = "1" Then
>>>>> >
>>>>> > If des2 = "1" Then
>>>>> >
>>>>> > Koma = " koma sebelas"
>>>>> >
>>>>> > Else
>>>>> >
>>>>> > Koma = " koma " & KeKata(des2) & " belas"
>>>>> >
>>>>> > End If
>>>>> >
>>>>> > Else
>>>>> >
>>>>> > Koma = " koma " & KeKata(des1) & " puluh " & KeKata(des2)
>>>>> >
>>>>> > End If
>>>>> >
>>>>> > End If
>>>>> >
>>>>> > 'Misahin Angka
>>>>> >
>>>>> > No1 = Left(Right(Angka, 1), 1)
>>>>> >
>>>>> > No2 = Left(Right(Angka, 2), 1)
>>>>> >
>>>>> > No3 = Left(Right(Angka, 3), 1)
>>>>> >
>>>>> > No4 = Left(Right(Angka, 4), 1)
>>>>> >
>>>>> > No5 = Left(Right(Angka, 5), 1)
>>>>> >
>>>>> > No6 = Left(Right(Angka, 6), 1)
>>>>> >
>>>>> > No7 = Left(Right(Angka, 7), 1)
>>>>> >
>>>>> > No8 = Left(Right(Angka, 8), 1)
>>>>> >
>>>>> > No9 = Left(Right(Angka, 9), 1)
>>>>> >
>>>>> > No10 = Left(Right(Angka, 10), 1)
>>>>> >
>>>>> > No11 = Left(Right(Angka, 11), 1)
>>>>> >
>>>>> > No12 = Left(Right(Angka, 12), 1)
>>>>> >
>>>>> > No13 = Left(Right(Angka, 13), 1)
>>>>> >
>>>>> > No14 = Left(Right(Angka, 14), 1)
>>>>> >
>>>>> > No15 = Left(Right(Angka, 15), 1)
>>>>> >
>>>>> > 'Satuan
>>>>> >
>>>>> > If Len(Angka) >= 1 Then
>>>>> >
asumsinya si fungsi terbilang sudah menghasilkan seperti fungsi terbilang
lainnya
buat function baru
public function Pengen( angka as double ) as string
dim sRes as string
dim iNilai as integer
sres=terbilang( int( angka ) )
inilai=cint(
select case inilai
case <1
'do nothing
case is < 10
sres= sres & " koma nol " & terbilang ( inilai )
case is > 9
sres= sres & " koma " & terbilang( inilai )
end select
pengen=sres
end function
Kemudian, UDF Pengen digunakan dalam worksheet
Wassalam,
Kid.
2013/10/19 prazt math <praztmath@gmail.
> **
>
>
> Manjur MK obatnya...jos ganjos....makasih MK...
> Fungsi tersebut kalo disisipkan ke macro terbilang yang kemarin saya
> cancumkan kira" gmn ya mr. Kid? Hehehe
> Pada 19 Okt 2013 11:39, "Mr. Kid" <mr.nmkid@gmail.
>
> **
>>
>>
>> =terbilang( int( a1 ) ) & if( mod( a1 , 1 ) , "koma " & rept("nol ",
>> int(mod( a1,1) * 100) <10 ) & terbilang( int(mod( a1,1) * 100) ) , "" )
>>
>> gitu kali ya
>>
>>
>> 2013/10/19 prazt math <praztmath@gmail.
>>
>>> **
>>>
>>>
>>> Trimakasih MK, udah bisa jalan dengan fungsi dari mr Kid tapi masih ada
>>> kendala sewaktu saya memasukkan angka 1,01kok terbaca "satu koma satu",
>>> yang saya inginkan misal 1,01 terbaca "satu koma nol satu". Mohon
>>> pencerahan mr.Kid
>>> Pada 19 Okt 2013 06:41, "Mr. Kid" <mr.nmkid@gmail.
>>>
>>> **
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>