15 Messages
Digest #2757
Messages
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Galuh,
Kalau mau pakai UDF, bisa diunduh disini pada sheet SubsMidChar
<https://app.box.com/s/ye3zwrar9z660qbbbx01>
yang bunyi function dalam sebuah general module VBA-nya berbunyi :
[letakkan dalam sebuah general module di VBE]
're-write VB : 201305
Public Function SubsMidChar(sTeks As String, Optional sChar As String =
"*") As String
Dim vKata As Variant, sHasil As String
For Each vKata In Split(sTeks, " ")
If Len(vKata) > 2 Then
sHasil = sHasil & Left(vKata, 1) & String(Len(vKata) - 2,
sChar) & Right(vKata, 1) & " "
Else
sHasil = sHasil & vKata & " "
End If
Next vKata
SubsMidChar = Trim(sHasil)
End Function
Cara pakai dalam worksheet :
=SubsMidChar( teks , [karakter_pengganti] )
Contoh untuk data di A1 berbunyi : 'Contoh dari ku'
Bunyi Formula Hasilnya
=SubsMidChar( A1 ) C****h d**i ku
=SubsMidChar( A1 , "#" ) C####h d##i ku
=SubsMidChar( A1 , "@?$" ) C@@@@h d@@i ku
Wassalam,
Kid.
2014-07-23 13:15 GMT+10:00 Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]
<XL-mania@yahoogroups.com>:
>
>
> Dear All Excelers,
>
> Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace
> atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak
> sama jumlah characternya
>
> Cth:
> Budi Indah Lalu = B**i I***h L**u
> Windarini Suratmi = W*******i S*****i
> Mejikuhibiniu = M***********u
> Bantex Bagus Putih = B****x B***s P***h
>
> Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya
> diucapkan terima kasih
>
> Regards,
> Galuh
>
>
>
Kalau mau pakai UDF, bisa diunduh disini pada sheet SubsMidChar
<https://app.box.com/s/ye3zwrar9z660qbbbx01>
yang bunyi function dalam sebuah general module VBA-nya berbunyi :
[letakkan dalam sebuah general module di VBE]
're-write VB : 201305
Public Function SubsMidChar(sTeks As String, Optional sChar As String =
"*") As String
Dim vKata As Variant, sHasil As String
For Each vKata In Split(sTeks, " ")
If Len(vKata) > 2 Then
sHasil = sHasil & Left(vKata, 1) & String(Len(vKata) - 2,
sChar) & Right(vKata, 1) & " "
Else
sHasil = sHasil & vKata & " "
End If
Next vKata
SubsMidChar = Trim(sHasil)
End Function
Cara pakai dalam worksheet :
=SubsMidChar( teks , [karakter_pengganti] )
Contoh untuk data di A1 berbunyi : 'Contoh dari ku'
Bunyi Formula Hasilnya
=SubsMidChar( A1 ) C****h d**i ku
=SubsMidChar( A1 , "#" ) C####h d##i ku
=SubsMidChar( A1 , "@?$" ) C@@@@h d@@i ku
Wassalam,
Kid.
2014-07-23 13:15 GMT+10:00 Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]
<XL-mania@yahoogroups.com>:
>
>
> Dear All Excelers,
>
> Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace
> atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak
> sama jumlah characternya
>
> Cth:
> Budi Indah Lalu = B**i I***h L**u
> Windarini Suratmi = W*******i S*****i
> Mejikuhibiniu = M***********
> Bantex Bagus Putih = B****x B***s P***h
>
> Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya
> diucapkan terima kasih
>
> Regards,
> Galuh
>
>
>
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"HERIS PAMUNTJAR" heris2001
Selamat Idul Fitri ...
coba ini Galuh ( lihat file )
On Tuesday, July 29, 2014 10:37 PM, "Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]" <XL-mania@yahoogroups.com> wrote:
Dear All Excelers,
Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak sama jumlah characternya
Cth:
Budi Indah Lalu = B**i I***h L**u
Windarini Suratmi = W*******i S*****i
Mejikuhibiniu = M***********u
Bantex Bagus Putih = B****x B***s P***h
Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya diucapkan terima kasih
Regards,
Galuh
coba ini Galuh ( lihat file )
On Tuesday, July 29, 2014 10:37 PM, "Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]" <XL-mania@yahoogroups.com> wrote:
Dear All Excelers,
Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak sama jumlah characternya
Cth:
Budi Indah Lalu = B**i I***h L**u
Windarini Suratmi = W*******i S*****i
Mejikuhibiniu = M***********
Bantex Bagus Putih = B****x B***s P***h
Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya diucapkan terima kasih
Regards,
Galuh
Wed Aug 13, 2014 9:45 am (PDT) . Posted by:
"Bagus" bagus4bls
Pak galuh;
Pakai kolom bantu boleh ya..
Sila lihat file terlampir, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]
To: XL-mania@yahoogroups.com
Sent: Wednesday, July 23, 2014 10:15 AM
Subject: ]] XL-mania [[ Mengganti Character dgn Syarat di Cells [1 Attachment]
Dear All Excelers,
Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak sama jumlah characternya
Cth:
Budi Indah Lalu = B**i I***h L**u
Windarini Suratmi = W*******i S*****i
Mejikuhibiniu = M***********u
Bantex Bagus Putih = B****x B***s P***h
Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya diucapkan terima kasih
Regards,
Galuh
Pakai kolom bantu boleh ya..
Sila lihat file terlampir, semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Galuh Sukmana galuh.sukmana@gmail.com [XL-mania]
To: XL-mania@yahoogroups.com
Sent: Wednesday, July 23, 2014 10:15 AM
Subject: ]] XL-mania [[ Mengganti Character dgn Syarat di Cells [1 Attachment]
Dear All Excelers,
Saya ingin mengganti beberapa char dicell bersyarat menggunakan replace atau substitute, tetapi saya kesulitan membuatnya karena masing2 cell tidak sama jumlah characternya
Cth:
Budi Indah Lalu = B**i I***h L**u
Windarini Suratmi = W*******i S*****i
Mejikuhibiniu = M***********
Bantex Bagus Putih = B****x B***s P***h
Mohon bantuannya utk bisa memberikan pencerahannya. Atas bantuannya diucapkan terima kasih
Regards,
Galuh
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"Jaka Purnama" jack_lightmoon
Dear Pak
Pakai Fungsi COUNTIF
Masukan formula berikut ke cell O5 :
=COUNTIF(C3:C26,"stanby")
Regards,
Jaka Purnama
2014-07-29 16:02 GMT+07:00 arimike@ymail.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya
> lampirkan.
>
>
>
>
Pakai Fungsi COUNTIF
Masukan formula berikut ke cell O5 :
=COUNTIF(C3:C26,"stanby")
Regards,
Jaka Purnama
2014-07-29 16:02 GMT+07:00 arimike@ymail.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya
> lampirkan.
>
>
>
>
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Arimike,
untuk Used :
=COUNT($C$3:$C$26)
untuk Standby :
=COUNTIF($C$3:$C$26,O$4)
untuk Loss :
copy formula untuk standby ke cell hasil untuk loss
Wassalam,
Kid.
2014-07-29 19:02 GMT+10:00 arimike@ymail.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya
> lampirkan.
>
>
>
>
untuk Used :
=COUNT($C$3:$C$26)
untuk Standby :
=COUNTIF($C$3:$C$26,O$4)
untuk Loss :
copy formula untuk standby ke cell hasil untuk loss
Wassalam,
Kid.
2014-07-29 19:02 GMT+10:00 arimike@ymail.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya
> lampirkan.
>
>
>
>
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"David, Yasman (ECM - RIAU)"
Rekan Arimike,
Semoga ini bisa menjawab :
=COUNTIF($C$3:$C$26,O$4)
Regards
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:02 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung used dan stanby serta loss [1 Attachment]
Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya lampirkan.
*** WORLEYPARSONS GROUP NOTICE *** "This email is confidential. If you are not the intended recipient, you must not disclose or use the information contained in it. If you have received this email in error, please notify us immediately by return email and delete the email and any attachments. Any personal views or opinions expressed by the writer may not necessarily reflect the views or opinions of any company in the WorleyParsons Group of Companies."
Semoga ini bisa menjawab :
=COUNTIF($C$3:$C$26,O$4)
Regards
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:02 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung used dan stanby serta loss [1 Attachment]
Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya lampirkan.
*** WORLEYPARSONS GROUP NOTICE *** "This email is confidential. If you are not the intended recipient, you must not disclose or use the information contained in it. If you have received this email in error, please notify us immediately by return email and delete the email and any attachments. Any personal views or opinions expressed by the writer may not necessarily reflect the views or opinions of any company in the WorleyParsons Group of Companies."
Wed Aug 13, 2014 9:47 am (PDT) . Posted by:
"Bagus" bagus4bls
Hai Arimike;
Sila lihat file terlampir, semoga sesuai harapan.
Wassalam
~ Bagus ~
----- Original Message -----
From: arimike@ymail.com [XL-mania]
To: XL-mania@yahoogroups.com
Sent: Tuesday, July 29, 2014 4:02 PM
Subject: ]] XL-mania [[ menghitung used dan stanby serta loss [1 Attachment]
Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya lampirkan.
Sila lihat file terlampir, semoga sesuai harapan.
Wassalam
~ Bagus ~
----- Original Message -----
From: arimike@ymail.com [XL-mania]
To: XL-mania@yahoogroups.com
Sent: Tuesday, July 29, 2014 4:02 PM
Subject: ]] XL-mania [[ menghitung used dan stanby serta loss [1 Attachment]
Rekan2 yang baik dan super sekali mohon bantuannya untuk problem yang saya lampirkan.
Wed Aug 13, 2014 9:44 am (PDT) . Posted by:
"Adi Idrus"
Dear Ari Mike,
Lihat formulanya pada lampiran ya
Salam
Adi IDrus
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:42 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung banyak stanby,used,loss [1 Attachment]
mohon bantuan untuk formula pada lampiran
Lihat formulanya pada lampiran ya
Salam
Adi IDrus
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:42 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung banyak stanby,used,
mohon bantuan untuk formula pada lampiran
Wed Aug 13, 2014 9:45 am (PDT) . Posted by:
"SpvDisp-WDC, ID3P-Linfox"
Ari Mike <arimike@ymail.com<mailto:arimike@ymail.com>>
Semoga membantu…
Regard's
Bambangh
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:42 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung banyak stanby,used,loss [1 Attachment]
mohon bantuan untuk formula pada lampiran
Semoga membantu…
Regard's
Bambangh
From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com]
Sent: Tuesday, July 29, 2014 4:42 PM
To: XL-mania@yahoogroups.com
Subject: ]] XL-mania [[ menghitung banyak stanby,used,
mohon bantuan untuk formula pada lampiran
Wed Aug 13, 2014 9:46 am (PDT) . Posted by:
"andre sidharta" aizu7
2014-07-29 16:42 GMT+07:00 Ari Mike arimike@ymail.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> mohon bantuan untuk formula pada lampiran
>
>
>
XL-mania@yahoogroups.com>:
>
>
> mohon bantuan untuk formula pada lampiran
>
>
>
Wed Aug 13, 2014 9:45 am (PDT) . Posted by:
"Alexander" eden_musik
Dear All,
mohon bantuan untuk rumusan rekapan absensi seperti di sheet hasil dari
sheet sebelumnya.
file terlampir.
trims
Rgds,
Alexanderz
mohon bantuan untuk rumusan rekapan absensi seperti di sheet hasil dari
sheet sebelumnya.
file terlampir.
trims
Rgds,
Alexanderz
Wed Aug 13, 2014 9:47 am (PDT) . Posted by:
"Heru Monas" sinau_22
Semoga file ini membantu
Salam kenal , saya heru, freelance VBA macro
Jika abang perlu bantuan untuk membuat macro VBA agar pekerjaan lebih mudah , abang bisa hub saya
fee saya 20 rb saja perprosedur
tau jika abang ingin di buatkan aplikasi penjualan pulsa versi excel, saya bersedia bantu
hub whatsap saya : 08563756878
Salam Hormat
File terlampir
Salam kenal , saya heru, freelance VBA macro
Jika abang perlu bantuan untuk membuat macro VBA agar pekerjaan lebih mudah , abang bisa hub saya
fee saya 20 rb saja perprosedur
tau jika abang ingin di buatkan aplikasi penjualan pulsa versi excel, saya bersedia bantu
hub whatsap saya : 08563756878
Salam Hormat
File terlampir
Wed Aug 13, 2014 9:47 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai YB,
Misal data di A1:A6
array formula dalam sebuah cell berbunyi :
=max( abs( a1:a6 ) )
Jika di-VBA-ken
Sheets("nama sheet penulisan hasil").range("alamat cell hasil").value =
Evaluate("max( abs( a1:a6 ) )")
Bagian yang di-biru bisa didinamiskan sendiri kan ya
Wassalam,
Kid.
2014-07-16 15:35 GMT+10:00 baptista_yr@yahoo.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Dear all excel masters,
> Selamat siang semua. Saya mau menanyakan bagaimana penulisan di dalam
> macro vba yang penulisan di excelnya adalah sbb:
> =ABS(J61)&" m "&IF(J61<0,"Up","Down")&" ,"&ABS(K61)&" m
> "&IF(K61<0,"Left","Right")
> Jadi intinya saya mau mencari nilai maximum dari sederetan nilai yang
> diabsolutkan. Dalam deretan nilai yang mau dicari nilai maksimumnya,
> terdapat angka yang bernilai minus. Sebagai contoh bila ada deret angka
> {0,200,-50,123,346,-546}, makan nilai maksimum yang dicari adalah 546.
> Terima kasih sebelumnya untuk bantuan dan informasinya dari para masters
> sekalian.
>
> Cheers,
> YB
>
>
>
>
Misal data di A1:A6
array formula dalam sebuah cell berbunyi :
=max( abs( a1:a6 ) )
Jika di-VBA-ken
Sheets("nama sheet penulisan hasil").range("alamat cell hasil").value =
Evaluate("max( abs( a1:a6 ) )")
Bagian yang di-biru bisa didinamiskan sendiri kan ya
Wassalam,
Kid.
2014-07-16 15:35 GMT+10:00 baptista_yr@yahoo.com [XL-mania] <
XL-mania@yahoogroups.com>:
>
>
> Dear all excel masters,
> Selamat siang semua. Saya mau menanyakan bagaimana penulisan di dalam
> macro vba yang penulisan di excelnya adalah sbb:
> =ABS(J61)&" m "&IF(J61<
> "&IF(K61<
> Jadi intinya saya mau mencari nilai maximum dari sederetan nilai yang
> diabsolutkan. Dalam deretan nilai yang mau dicari nilai maksimumnya,
> terdapat angka yang bernilai minus. Sebagai contoh bila ada deret angka
> {0,200,-50,123,
> Terima kasih sebelumnya untuk bantuan dan informasinya dari para masters
> sekalian.
>
> Cheers,
> YB
>
>
>
>
Wed Aug 13, 2014 9:47 am (PDT) . Posted by:
"Edi Djunaedi"
Dear Pakar Excel
Bagaimana caranya menghilangkan karakter (termasuk spasi) dari data awal
yang saya miliki.
Saya memiliki data yang sangat banyak dengan pola penulisan : 2 karakter
awal spasi penjelasan dari 2 karakter awal tadi.
Contoh :
HC Hair Care Product à menjadi Hair Care Product
MV Multivitamin à menjadi Multivitamin
Mohon dibantu formula sederhana untuk menghilangkan 3 karakter di awal cell
tersebut (2 karakter dan 1 spasi).
Atas bantuannya saya ucapkan terima kasih.
Regards
Edi Djunaidi
Image removed by sender.
Bagaimana caranya menghilangkan karakter (termasuk spasi) dari data awal
yang saya miliki.
Saya memiliki data yang sangat banyak dengan pola penulisan : 2 karakter
awal spasi penjelasan dari 2 karakter awal tadi.
Contoh :
HC Hair Care Product à menjadi Hair Care Product
MV Multivitamin à menjadi Multivitamin
Mohon dibantu formula sederhana untuk menghilangkan 3 karakter di awal cell
tersebut (2 karakter dan 1 spasi).
Atas bantuannya saya ucapkan terima kasih.
Regards
Edi Djunaidi
Image removed by sender.
Wed Aug 13, 2014 9:47 am (PDT) . Posted by:
"Heru Monas" sinau_22
revisi... maaf salah memahami
Pada , Heru Monas <sinau_22@yahoo.co.id> menulis:
salam
Pada Selasa, 29 Juli 2014 23:38, "Ari Mike arimike@ymail.com [XL-mania]" <XL-mania@yahoogroups.com> menulis:
mohon bantuan untuk formula pada lampiran
Pada , Heru Monas <sinau_22@yahoo.co.id> menulis:
salam
Pada Selasa, 29 Juli 2014 23:38, "Ari Mike arimike@ymail.com [XL-mania]" <XL-mania@yahoogroups.com> menulis:
mohon bantuan untuk formula pada lampiran
:: XL-mania ::::::::::::::::::::
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
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.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
Momods sekarang jualan tas di www.flirtypoodle.com ha ha ha....
:: ------------- ::::::::::::::::::::
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.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
Tidak ada komentar:
Posting Komentar