15 New Messages
Digest #2149
1b
Re: Bls: [belajar-excel] Mohon bimbingan mengganti Form lama dengan by "Mr. Kid" nmkid.family@ymail.com
Messages
Mon Mar 11, 2013 7:12 pm (PDT) . Posted by:
"ronzt" opreck74
Mohon bimbingannya untuk kasus yang baru yaa teman teman, barakaAllah Fikum
--
View this message in context: http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mohon-bimbingan-mengganti-Form-lama-dengan-Form-baru-sesuai-kebutuhan-yang-berkembang-tp5716190p5716278.html
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
--
View this message in context: http://milis-
Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
Mon Mar 11, 2013 10:39 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Coba file terlampir.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/11 ronzt <ronzt@garasibandung.com >
> **
>
>
> Assalamualaikum, mohon bimbingan lagi yaa
> Apabila kasus input spt :
>
> 081223410336.s10=5
> 081312319575.s5=50,s10=40,s20=5
> 082116958925.s100=3
> 081214651671.s10=30,s20=5,s100=3
> 082121167776.s5=20,s10=10,s20=5
> 081214390548.s20=30,s50=2,s100=1
> 081323965719.s5=25,s10=22,s20=2
> 082126291219.s25=20,s50=20
> 082130538153.s50=30,s100=15
>
> Jazakumullah ... terimakasih atas bimbingannya
>
> --
> View this message in context:
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Mohon-bimbingan-mengganti-Form-lama-dengan-Form-baru-sesuai-kebutuhan-yang-berkembang-tp5716190p5716262.html
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Coba file terlampir.
Wassalamu'
Kid.
2013/3/11 ronzt <ronzt@garasibandung
> **
>
>
> Assalamualaikum, mohon bimbingan lagi yaa
> Apabila kasus input spt :
>
> 081223410336.
> 081312319575.
> 082116958925.
> 081214651671.
> 082121167776.
> 081214390548.
> 081323965719.
> 082126291219.
> 082130538153.
>
> Jazakumullah ... terimakasih atas bimbingannya
>
> --
> View this message in context:
> http://milis-
>
> Sent from the Milis Belajar Excel mailing list archive at Nabble.com.
>
>
>
Mon Mar 11, 2013 7:12 pm (PDT) . Posted by:
"r|o|n|z|t|"
Assalamualaikum, semoga Allah selalu melimpahkan Ridhonya dan memudahkan
yang sulit
Pada Posting sebelumnya, Alhamdulillah Mas Agung sdh memberikan saya wawasan
yang sangat bermanfaat
Namun kasus terjadi apabila Data Input Text to kolom dipisahkan dari (,)
koma menjadi (titik) dan apabila Data Input tidak berurut seperti contoh
kasus Data Input sbb :
081223410336.s5=20,s10=5
081312319575.s5=50,s10=40,s20=5
082116958925.s10=30,s100=3
081214651671.s2=20,s50=30
082121167776.s10=20,s25=20,s25=5
081214390548.s20=30,s25=2,s100=1
081323965719.s10=25,s20=22,s100=2
082126291219.s5=20,s10=20
082130538153.s5=30,s10=30,s20=15
082126291219.s10=20,s20=20
082121509424.s5=5,s10=10
082130538153.s5=30,s20=30,s100=15
Terimakasih atas semua bimbingan dan arahan yang bermanfaat, semoga amal
ibadah selalu mengalir..Amiin
yang sulit
Pada Posting sebelumnya, Alhamdulillah Mas Agung sdh memberikan saya wawasan
yang sangat bermanfaat
Namun kasus terjadi apabila Data Input Text to kolom dipisahkan dari (,)
koma menjadi (titik) dan apabila Data Input tidak berurut seperti contoh
kasus Data Input sbb :
081223410336.
081312319575.
082116958925.
081214651671.
082121167776.
081214390548.
081323965719.
082126291219.
082130538153.
082126291219.
082121509424.
082130538153.
Terimakasih atas semua bimbingan dan arahan yang bermanfaat, semoga amal
ibadah selalu mengalir..Amiin
Mon Mar 11, 2013 10:42 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
silakan ke message :
http://tech.groups.yahoo.com/group/belajar-excel/message/23352
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/12 r|o|n|z|t| <ronny@simpatindo.com >
> **
>
>
> Assalamualaikum, semoga Allah selalu melimpahkan Ridhonya dan memudahkan
> yang sulit****
>
> ** **
>
> Pada Posting sebelumnya, Alhamdulillah Mas Agung sdh memberikan saya
> wawasan yang sangat bermanfaat****
>
> Namun kasus terjadi apabila Data Input Text to kolom dipisahkan dari (,)
> koma menjadi (titik) dan apabila Data Input tidak berurut seperti contoh
> kasus Data Input sbb :****
>
> 081223410336.s5=20,s10=5****
>
> 081312319575.s5=50,s10=40,s20=5****
>
> 082116958925.s10=30,s100=3****
>
> 081214651671.s2=20,s50=30****
>
> 082121167776.s10=20,s25=20,s25=5****
>
> 081214390548.s20=30,s25=2,s100=1****
>
> 081323965719.s10=25,s20=22,s100=2****
>
> 082126291219.s5=20,s10=20****
>
> 082130538153.s5=30,s10=30,s20=15****
>
> 082126291219.s10=20,s20=20****
>
> 082121509424.s5=5,s10=10****
>
> 082130538153.s5=30,s20=30,s100=15****
>
> ****
>
> Terimakasih atas semua bimbingan dan arahan yang bermanfaat, semoga amal
> ibadah selalu mengalir….Amiin****
>
>
>
silakan ke message :
http://tech.
Wassalamu'
Kid.
2013/3/12 r|o|n|z|t| <ronny@simpatindo.
> **
>
>
> Assalamualaikum, semoga Allah selalu melimpahkan Ridhonya dan memudahkan
> yang sulit****
>
> ** **
>
> Pada Posting sebelumnya, Alhamdulillah Mas Agung sdh memberikan saya
> wawasan yang sangat bermanfaat**
>
> Namun kasus terjadi apabila Data Input Text to kolom dipisahkan dari (,)
> koma menjadi (titik) dan apabila Data Input tidak berurut seperti contoh
> kasus Data Input sbb :****
>
> 081223410336.
>
> 081312319575.
>
> 082116958925.
>
> 081214651671.
>
> 082121167776.
>
> 081214390548.
>
> 081323965719.
>
> 082126291219.
>
> 082130538153.
>
> 082126291219.
>
> 082121509424.
>
> 082130538153.
>
> ****
>
> Terimakasih atas semua bimbingan dan arahan yang bermanfaat, semoga amal
> ibadah selalu mengalir….Amiin*
>
>
>
Mon Mar 11, 2013 7:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
1. SimpanPersediaan
- pada cell A6 diberi formula : (SUDAH)
=IFERROR(MATCH(B6,Databs!A:A,0),COUNTA(Databs!A:A))
- ke VBE (ALT F11) (SUDAH)
- menu Insert -> Module -> copas prosedur berikut : (SUDAH)
public sub SimpanPersediaan()
dim lRow as long
lrow=sheets("Data Pesan-Kirim").range("a6").value
sheets("Databs").cells( lrow , 1 ).value = sheets("Data
Pesan-Kirim").range("b6").value
sheets("Databs").cells( lrow , 2 ).value = sheets("Data
Pesan-Kirim").range("c6").value
end sub
- ke worksheet (ALT F11) (SUDAH)
- klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
SimpanPersediaan -> OK *(BELUM)
* - save as workbook dengan cara : (SUDAH)
> tekan ALT F A
> lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> beri nama file -> tekan tombol Save
*** Assign Macro juga untuk tombol Pengiriman ke prosedur SimpanPengiriman,
supaya tombol mengerjakan prosedur SimpanPengiriman kalau di klik ***
2. Pada tabel PERSEDIAAN DIKIRIM langsung disertakan pada proses penulisan
persediaan ke databs melalui tombol simpan yang sudah di assign macro untuk
menjalankan prosedur SimpanPersediaan. *Syaratnya*, penambahan baris
perintah untuk tulis ke bagian persediaan dikirim dalam prosedur
simpanpersediaan.
>> Coba langkah berikut : *(BELUM)*
- ke VBE (ALT F11)
- double click module yang di-insert pada proses A tadi
- cari prosedur SimpanPersediaan dan gerakkan cursor sampai ke baris
berbunyi End Sub kemudian ENTER sampai ada lebih dari 2 baris kosong
- pada baris kosong yang ada di atas End Sub, copas script berikut
with sheets("Data Pesan-Kirim")
.range("b8").offset( .range("b8").currentregion.rows.count
).value = .range("b6").value
.range("b8").offset(
.range("b8").currentregion.rows.count ,1 ).value = .range("c6").value
end with
- kembali ke worksheet (ALT F11)
- simpan workbook
3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
*
(Belum ada konfirmasi telah dicoba untuk dilakukan beserta hasil uji coba
hal dibawah ini)*
>> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal dibuatnya
file atau setelah memasang calendar control ?
>> jika setelah memasang calendar control, coba hapus dulu userform yang
berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
saya).
----------------------------------------------------------
Wassalamu'alaikum Wr. Wb.
Kid.
2013/3/10 syam ero <syamero@gmail.com >
> **
>
>
> Yth. Mr. Kid
>
> Assalamu'alaikum Wr. Wb.
>
> Mr Kid, mohon maaf atas kurangnya pemahaman saya dalam memahami
>
> lampiran copas yang sudah Mr sampaikan dan hasilnya bahwa :
>
> 1. Jika Button SIMPAN pada tabel PESANPERSEDIAAN & tabel PENGIRIMAN
>
> setelah dicopy paste kedalam modules, dan suda disave, saya klik simpan
>
> munculah pesan diatas ini.
>
> 2. Pada tabel PERSEDIAAN DIKIRIM formulanya bagaimanakah master?
>
> 3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
> menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
>
> agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
> Data terlampir.
>
> Demikian terimaksih sebelumnya atas pencerahaanya.
>
> Wassalam,
>
> Syam
>
> Pada 9 Maret 2013 15.21, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > **
>
> >
> >
> > Wa'alaikumussalam Wr. Wb.
> >
> > 1. Jika tabel PESAN PERSEDIAAN sudah siisi datanya agar buton SIMPAN tsb
> bisa
> > masuk ke sheet Databs.
> > >> Kok belum dicoba langkah yang sudah dijlentrehken di-email lalu. Kalau
> > sudah dicoba dan ada errornya, kirim hasil coba tersebut ke milis.
> >
> > - pada cell A6 diberi formula :
> > =IFERROR(MATCH(B6,Databs!A:A,0),COUNTA(Databs!A:A))
> >
> >
> > - ke VBE (ALT F11)
> > - menu Insert -> Module -> copas prosedur berikut :
> > public sub SimpanPersediaan()
> > dim lRow as long
> > lrow=sheets("Data Pesan-Kirim").range("a6").value
> > sheets("Databs").cells( lrow , 1 ).value = sheets("Data
> > Pesan-Kirim").range("b6").value
> > sheets("Databs").cells( lrow , 2 ).value = sheets("Data
> > Pesan-Kirim").range("c6").value
> > end sub
> >
> > - ke worksheet (ALT F11)
> > - klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
> > SimpanPersediaan -> OK
> > - save as workbook dengan cara :
> > > tekan ALT F A
> > > lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> > > beri nama file -> tekan tombol Save
> > 2 dan 3 ***
> > >> sama seperti nomor 1, coba dulu aja ya.
> >
> >
> > 4. Disetiap saya membuka file Excel sering muncul gambar,mohon solusinya
> > agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu
> > lama
> > >> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal
> > dibuatnya file atau setelah memasang calendar control ?
> > >> jika setelah memasang calendar control, coba hapus dulu userform yang
> > berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
> > coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
> > saya).
> >
> >
> > Wassalamu'alaikum Wr. Wb.
> > Kid.
> >
>
>
>
1. SimpanPersediaan
- pada cell A6 diberi formula : (SUDAH)
=IFERROR(MATCH(
- ke VBE (ALT F11) (SUDAH)
- menu Insert -> Module -> copas prosedur berikut : (SUDAH)
public sub SimpanPersediaan(
dim lRow as long
lrow=sheets(
sheets("
Pesan-Kirim"
sheets("
Pesan-Kirim"
end sub
- ke worksheet (ALT F11) (SUDAH)
- klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
SimpanPersediaan -> OK *(BELUM)
* - save as workbook dengan cara : (SUDAH)
> tekan ALT F A
> lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> beri nama file -> tekan tombol Save
*** Assign Macro juga untuk tombol Pengiriman ke prosedur SimpanPengiriman,
supaya tombol mengerjakan prosedur SimpanPengiriman kalau di klik ***
2. Pada tabel PERSEDIAAN DIKIRIM langsung disertakan pada proses penulisan
persediaan ke databs melalui tombol simpan yang sudah di assign macro untuk
menjalankan prosedur SimpanPersediaan. *Syaratnya*, penambahan baris
perintah untuk tulis ke bagian persediaan dikirim dalam prosedur
simpanpersediaan.
>> Coba langkah berikut : *(BELUM)*
- ke VBE (ALT F11)
- double click module yang di-insert pada proses A tadi
- cari prosedur SimpanPersediaan dan gerakkan cursor sampai ke baris
berbunyi End Sub kemudian ENTER sampai ada lebih dari 2 baris kosong
- pada baris kosong yang ada di atas End Sub, copas script berikut
with sheets("
.range("
).value = .range("
.range("
.range("
end with
- kembali ke worksheet (ALT F11)
- simpan workbook
3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
*
(Belum ada konfirmasi telah dicoba untuk dilakukan beserta hasil uji coba
hal dibawah ini)*
>> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal dibuatnya
file atau setelah memasang calendar control ?
>> jika setelah memasang calendar control, coba hapus dulu userform yang
berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
saya).
------------
Wassalamu'
Kid.
2013/3/10 syam ero <syamero@gmail.
> **
>
>
> Yth. Mr. Kid
>
> Assalamu'
>
> Mr Kid, mohon maaf atas kurangnya pemahaman saya dalam memahami
>
> lampiran copas yang sudah Mr sampaikan dan hasilnya bahwa :
>
> 1. Jika Button SIMPAN pada tabel PESANPERSEDIAAN & tabel PENGIRIMAN
>
> setelah dicopy paste kedalam modules, dan suda disave, saya klik simpan
>
> munculah pesan diatas ini.
>
> 2. Pada tabel PERSEDIAAN DIKIRIM formulanya bagaimanakah master?
>
> 3. Munculnya gambar, pada saat saya membuka file lain dan didalamnya
> menggunakan macro juga sehingga persyaratan RECOVERY ,nah mohon solusinya
>
> agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu lama.
> Data terlampir.
>
> Demikian terimaksih sebelumnya atas pencerahaanya.
>
> Wassalam,
>
> Syam
>
> Pada 9 Maret 2013 15.21, Mr. Kid <mr.nmkid@gmail.
>
> > **
>
> >
> >
> > Wa'alaikumussal
> >
> > 1. Jika tabel PESAN PERSEDIAAN sudah siisi datanya agar buton SIMPAN tsb
> bisa
> > masuk ke sheet Databs.
> > >> Kok belum dicoba langkah yang sudah dijlentrehken di-email lalu. Kalau
> > sudah dicoba dan ada errornya, kirim hasil coba tersebut ke milis.
> >
> > - pada cell A6 diberi formula :
> > =IFERROR(MATCH(
> >
> >
> > - ke VBE (ALT F11)
> > - menu Insert -> Module -> copas prosedur berikut :
> > public sub SimpanPersediaan(
> > dim lRow as long
> > lrow=sheets(
> > sheets("
> > Pesan-Kirim"
> > sheets("
> > Pesan-Kirim"
> > end sub
> >
> > - ke worksheet (ALT F11)
> > - klik kanan tombol Simpan milik Pesan -> Assign Macro -> pilih
> > SimpanPersediaan -> OK
> > - save as workbook dengan cara :
> > > tekan ALT F A
> > > lihat opsi Save as type -> pilih .xlsm atau .xlsb atau .xls
> > > beri nama file -> tekan tombol Save
> > 2 dan 3 ***
> > >> sama seperti nomor 1, coba dulu aja ya.
> >
> >
> > 4. Disetiap saya membuka file Excel sering muncul gambar,mohon solusinya
> > agar tidak muncul karena data yang diolah bisa tertunda bahkan nuggu
> > lama
> > >> Coba diingat-ingat, hal seperti ini munculnya sudah sejak awal
> > dibuatnya file atau setelah memasang calendar control ?
> > >> jika setelah memasang calendar control, coba hapus dulu userform yang
> > berisi calendar control tersebut. Save workbook dan tutup Excel, kemudian
> > coba buka lagi. (file tersebut baik-baik saja ketika dibuka dikomputer
> > saya).
> >
> >
> > Wassalamu'
> > Kid.
> >
>
>
>
Mon Mar 11, 2013 7:37 pm (PDT) . Posted by:
kyla_delv
Dear pak heri,
Terima kasih atas bantuannya, tetapi saya ada sedikit kendala pak, jika menggunakan dummy A maka tanggal tdk bisa dijadikan parameter, karena jika dummy A saya pakai terus, pembatasan pada tanggalnya dimana ya pak, bisa tolong dijelaskan?
Salam
Rey
Powered by Telkomsel BlackBerry®
Terima kasih atas bantuannya, tetapi saya ada sedikit kendala pak, jika menggunakan dummy A maka tanggal tdk bisa dijadikan parameter, karena jika dummy A saya pakai terus, pembatasan pada tanggalnya dimana ya pak, bisa tolong dijelaskan?
Salam
Rey
Powered by Telkomsel BlackBerry®
Mon Mar 11, 2013 8:27 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin seperti file terlampir.
Beberapa dummy cell berisi data bertipe datetime.
Wassalam,
Kid.
2013/3/11 <kyla_delv@yahoo.com >
> **
>
>
> Dear all
> Sebelumnya maaf jika subject dengan case beda, saya memiliki table input
> dan saya ingin mengambil data dr table input tsb berdasarkan tanggalnya
> saja, sekiranya rekan2 ada yang bisa membantu, case terlampir
> Terima kasih
> Salam
> Rey
> Powered by Telkomsel BlackBerry®
>
>
Beberapa dummy cell berisi data bertipe datetime.
Wassalam,
Kid.
2013/3/11 <kyla_delv@yahoo.
> **
>
>
> Dear all
> Sebelumnya maaf jika subject dengan case beda, saya memiliki table input
> dan saya ingin mengambil data dr table input tsb berdasarkan tanggalnya
> saja, sekiranya rekan2 ada yang bisa membantu, case terlampir
> Terima kasih
> Salam
> Rey
> Powered by Telkomsel BlackBerry®
>
>
Mon Mar 11, 2013 8:40 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir menggunakan fungsi vLookUp dan SumIF.
LookUp terhadap referensi yang berupa data interval (dari x1 sampai x2)
membutuhkan kolom bantu berisi nilai batas bawah interval (x1) yang terurut
menaik (ascending).
Wassalam,
Kid.
2013/3/8 depi Hariyanto <depi.hari_yanto@yahoo.co.id >
> **
>
>
> kepada para master excel,
>
> mohon bantuan formula perhitungan penilaian karyawan seperti data
> terlampir.
>
> atas bantuannya saya ucapkan terima kasih
>
> salam
> dep_har
>
>
>
LookUp terhadap referensi yang berupa data interval (dari x1 sampai x2)
membutuhkan kolom bantu berisi nilai batas bawah interval (x1) yang terurut
menaik (ascending).
Wassalam,
Kid.
2013/3/8 depi Hariyanto <depi.hari_yanto@
> **
>
>
> kepada para master excel,
>
> mohon bantuan formula perhitungan penilaian karyawan seperti data
> terlampir.
>
> atas bantuannya saya ucapkan terima kasih
>
> salam
> dep_har
>
>
>
Mon Mar 11, 2013 9:16 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba script untuk event change textbox berikut : (asumsi : nama textbox
adalah textbox1)
Dim sRibu As String, sDec As String
Dim sTeks As String, vItem As Variant
'simpan pemisah ribuan dan tanda desimal
sRibu = Mid$(Format$(1000, "#,###"), 2, 1)
sDec = Mid$(Format$(3 / 2, "0.0"), 2, 1)
'hapus semua tanda desimal dan ribuan
'agar menjadi bilangan bulat tak beraturan
sTeks = Replace$(Replace$(textbox1.Text, sRibu, vbNullString), sDec,
vbNullString)
'ubah angka-angka menjadi
'bilangan yang punya 1 angka dibelakang desimal
vItem = CDec("0" & sTeks) / 10
'format bilangan dengan 1 angka desimal
'agar menampilkan pemisah ribuan dan tanda desimal
textbox1.Text = Format$(vItem, "#,##0.0")
Script diatas untuk 1 angka dibelakang koma (lihat yang dilatar kuning).
Tambahkan karakter 0 agar bisa jumlah digit dibelakang koma sesuai
kebutuhan.
Misal, 10 menjadi 100 dan .0 menjadi .00 gar menjadi 2 digit dibelakang
koma.
Wassalam,
Kid.
2013/3/11 Eko NS <ekonurs@gmail.com >
> **
>
>
> para mastah, ane ada kesulitan ketika menulis perintah agar ketika input
> data kedalam format tertentu (see attach)
> ane sudah menggunakan
>
> Private Sub textbox1_Change()
> textbox1.Value = Format(textbox1.Value, "##,##.00")
> End Sub
>
> tp hasilnya ketika input data hanya "x,xx"
> misal hendak input 12.000,75, dengan perintah tsb ketika diketik langsung
> munculnya 1,00 dan tidak bisa lebih dari 2 digit di depan koma (misal 12,00)
>
> thanks atas bantuannya.
>
>
>
>
adalah textbox1)
Dim sRibu As String, sDec As String
Dim sTeks As String, vItem As Variant
'simpan pemisah ribuan dan tanda desimal
sRibu = Mid$(Format$
sDec = Mid$(Format$
'hapus semua tanda desimal dan ribuan
'agar menjadi bilangan bulat tak beraturan
sTeks = Replace$(Replace$
vbNullString)
'ubah angka-angka menjadi
'bilangan yang punya 1 angka dibelakang desimal
vItem = CDec("0" & sTeks) / 10
'format bilangan dengan 1 angka desimal
'agar menampilkan pemisah ribuan dan tanda desimal
textbox1.Text = Format$(vItem, "#,##0.
Script diatas untuk 1 angka dibelakang koma (lihat yang dilatar kuning).
Tambahkan karakter 0 agar bisa jumlah digit dibelakang koma sesuai
kebutuhan.
Misal, 10 menjadi 100 dan .0 menjadi .00 gar menjadi 2 digit dibelakang
koma.
Wassalam,
Kid.
2013/3/11 Eko NS <ekonurs@gmail.
> **
>
>
> para mastah, ane ada kesulitan ketika menulis perintah agar ketika input
> data kedalam format tertentu (see attach)
> ane sudah menggunakan
>
> Private Sub textbox1_Change(
> textbox1.Value = Format(textbox1.
> End Sub
>
> tp hasilnya ketika input data hanya "x,xx"
> misal hendak input 12.000,75, dengan perintah tsb ketika diketik langsung
> munculnya 1,00 dan tidak bisa lebih dari 2 digit di depan koma (misal 12,00)
>
> thanks atas bantuannya.
>
>
>
>
Mon Mar 11, 2013 9:23 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Coba copynya pakai copy paste biasa (jangan dengan cara mendrag)
Salam,
HK
________________________________
From: belajar excell <belajar.excell@yahoo.com >
To: "belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com >
Sent: Monday, 11 March 2013, 18:16
Subject: [belajar-excel] Sumifs Lagi
Â
Dear para pakar excel, mohon maaf sebelumnya karena saya ingin menanyakan mengenai sumifs lagi, tapi kli ini dengan format yang berbeda, masalahnya adalah untuk tablenya saya menggunakan fungsi format as table dengan tujuan adalah supaya bisa dinamis. Tapi setelah rumus tersebut di copy ke row selanjutnya, maka kolom2 yang ada dalam table tersebut ikut bergeser juga seiring berpindahnya row.
Â
Mohon bantuannya ya teman2, bgaimana solusinya agar kolomnya tidak berpindah2...
Â
Â
RS
Salam,
HK
____________
From: belajar excell <belajar.excell@
To: "belajar-excel@
Sent: Monday, 11 March 2013, 18:16
Subject: [belajar-excel] Sumifs Lagi
Â
Dear para pakar excel, mohon maaf sebelumnya karena saya ingin menanyakan mengenai sumifs lagi, tapi kli ini dengan format yang berbeda, masalahnya adalah untuk tablenya saya menggunakan fungsi format as table dengan tujuan adalah supaya bisa dinamis. Tapi setelah rumus tersebut di copy ke row selanjutnya, maka kolom2 yang ada dalam table tersebut ikut bergeser juga seiring berpindahnya row.
Â
Mohon bantuannya ya teman2, bgaimana solusinya agar kolomnya tidak berpindah2..
Â
Â
RS
Tue Mar 12, 2013 12:11 am (PDT) . Posted by:
"fuadi" see_fu
> Hai Mr. Kid
> Trima Kasih telah membantu. ;)
> Saya sudah melihat contoh yang Mr. Kid ksh
> Tapi saya msh bingung dengan penggunaan fungsi LEN di kolom "kode rekening"
> Ketika saya ubah data yang ada pada kolom "kode rekening" di sheet "data", tidak terjadi perubahan apa2 di kolom "kode rekening" di sheet "laporan"
> yang berubah hanya pada kolom nilai.
> Yang saya inginkan data di kolom "kode rekening" di sheet "laporan" ikut berubah.
> mohon bantuannya lagi :)
--- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
>
> Hai Arief,
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
> 2013/3/10 Fuadi Arief <sifuad.xl@...>
>
> > **
> >
> >
> > Mohon bantuan para master excel :)
> >
> > adakah formula untuk membuat data dari sheet 1 ke sheet lainnya tercopy
> > otomatis? dengan mengabaikan baris yang kosong di antara baris data yang
> > ada pada 1 column. Untuk lebih jelasnya saya lampirkan contoh filenya.
> >
> >
>
> Trima Kasih telah membantu. ;)
> Saya sudah melihat contoh yang Mr. Kid ksh
> Tapi saya msh bingung dengan penggunaan fungsi LEN di kolom "kode rekening"
> Ketika saya ubah data yang ada pada kolom "kode rekening" di sheet "data"
> yang berubah hanya pada kolom nilai.
> Yang saya inginkan data di kolom "kode rekening" di sheet "laporan" ikut berubah.
> mohon bantuannya lagi :)
--- In belajar-excel@
>
> Hai Arief,
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
> 2013/3/10 Fuadi Arief <sifuad.xl@
>
> > **
> >
> >
> > Mohon bantuan para master excel :)
> >
> > adakah formula untuk membuat data dari sheet 1 ke sheet lainnya tercopy
> > otomatis? dengan mengabaikan baris yang kosong di antara baris data yang
> > ada pada 1 column. Untuk lebih jelasnya saya lampirkan contoh filenya.
> >
> >
>
Tue Mar 12, 2013 12:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Arief,
Jika kode rekening di sheet data diubah, maka nilai di sheet Data akan
ditembahkan ke kode rekening yang ada.
Coba pada sheet data pada kode rekening 1.20.1.20.13.91.01. di-copy ke
data rekening di sheet data pada range J10
Setelah itu, lihat hasil di sheet laporan.
Kode rekening pada sheet laporan diambil langsung dari tabel referensi
rekening di sheet DB.
hehehe... salah ya... ya maaf deh kalo gitu...
btw, logika dasarnya, jika akan menampilkan data seluruh rekening, pastilah
rekening di sheet DB itulah yang benar dan seluruh rekening di sheet data
harus memilih salah satu dari rekening di sheet DB tersebut. Itu sebabnya
data di sheet DB disebut data referensi.
Kalau ingin menampilkan data hanya pada rekening yang dipakai saja di sheet
data, coba file terlampir. Setiap selesai mengubah data di sheet Data,
lakukan refresh data dengan cara : ribbon Data -> Refresh All
Wassalam,
Kid.
2013/3/12 fuadi <sifuad.xl@gmail.com >
> **
>
>
> > Hai Mr. Kid
> > Trima Kasih telah membantu. ;)
> > Saya sudah melihat contoh yang Mr. Kid ksh
> > Tapi saya msh bingung dengan penggunaan fungsi LEN di kolom "kode
> rekening"
> > Ketika saya ubah data yang ada pada kolom "kode rekening" di sheet
> "data", tidak terjadi perubahan apa2 di kolom "kode rekening" di sheet
> "laporan"
> > yang berubah hanya pada kolom nilai.
> > Yang saya inginkan data di kolom "kode rekening" di sheet "laporan" ikut
> berubah.
> > mohon bantuannya lagi :)
>
>
> --- In belajar-excel@yahoogroups.com , "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Hai Arief,
> >
> > Coba file terlampir.
> >
> > Wassalam,
> > Kid.
> >
> > 2013/3/10 Fuadi Arief <sifuad.xl@...>
> >
> > > **
>
> > >
> > >
> > > Mohon bantuan para master excel :)
> > >
> > > adakah formula untuk membuat data dari sheet 1 ke sheet lainnya tercopy
> > > otomatis? dengan mengabaikan baris yang kosong di antara baris data
> yang
> > > ada pada 1 column. Untuk lebih jelasnya saya lampirkan contoh filenya.
> > >
> > >
> >
>
>
>
Jika kode rekening di sheet data diubah, maka nilai di sheet Data akan
ditembahkan ke kode rekening yang ada.
Coba pada sheet data pada kode rekening 1.20.1.20.13.
data rekening di sheet data pada range J10
Setelah itu, lihat hasil di sheet laporan.
Kode rekening pada sheet laporan diambil langsung dari tabel referensi
rekening di sheet DB.
hehehe... salah ya... ya maaf deh kalo gitu...
btw, logika dasarnya, jika akan menampilkan data seluruh rekening, pastilah
rekening di sheet DB itulah yang benar dan seluruh rekening di sheet data
harus memilih salah satu dari rekening di sheet DB tersebut. Itu sebabnya
data di sheet DB disebut data referensi.
Kalau ingin menampilkan data hanya pada rekening yang dipakai saja di sheet
data, coba file terlampir. Setiap selesai mengubah data di sheet Data,
lakukan refresh data dengan cara : ribbon Data -> Refresh All
Wassalam,
Kid.
2013/3/12 fuadi <sifuad.xl@gmail.
> **
>
>
> > Hai Mr. Kid
> > Trima Kasih telah membantu. ;)
> > Saya sudah melihat contoh yang Mr. Kid ksh
> > Tapi saya msh bingung dengan penggunaan fungsi LEN di kolom "kode
> rekening"
> > Ketika saya ubah data yang ada pada kolom "kode rekening" di sheet
> "data"
> "laporan"
> > yang berubah hanya pada kolom nilai.
> > Yang saya inginkan data di kolom "kode rekening" di sheet "laporan" ikut
> berubah.
> > mohon bantuannya lagi :)
>
>
> --- In belajar-excel@
> >
> > Hai Arief,
> >
> > Coba file terlampir.
> >
> > Wassalam,
> > Kid.
> >
> > 2013/3/10 Fuadi Arief <sifuad.xl@
> >
> > > **
>
> > >
> > >
> > > Mohon bantuan para master excel :)
> > >
> > > adakah formula untuk membuat data dari sheet 1 ke sheet lainnya tercopy
> > > otomatis? dengan mengabaikan baris yang kosong di antara baris data
> yang
> > > ada pada 1 column. Untuk lebih jelasnya saya lampirkan contoh filenya.
> > >
> > >
> >
>
>
>
Tue Mar 12, 2013 12:39 am (PDT) . Posted by:
"Frendy R" frendy07
Mohon Bantuannya para master excel, :)
saya ingin menanyakan rumus yang bisa dipakai untuk menghitung kode yang sama tapi dinilai sebagai nilai 1, jadi duplikat kode tersebut tidak dihitung.
saya juga telah melampirkan file contohnya,
atas bantuannya, saya sampaikan sangat banyak - banyak terima kasih. :D
Tue Mar 12, 2013 1:52 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Menghitung cacah item unique biasanya dengan :
=SumProduct( 1 / CountIF( range_data , range_data ) )
Selain itu, pivot table bisa menjadi tabel bantu untuk hal yang sama ketika
jumlah record datanya ada banyak dan kemungkinan jumlah unique itemnya juga
banyak.
Wassalam,
Kid.
2013/3/12 Frendy R <frendy07@yahoo.com >
> **
>
>
>
> Mohon Bantuannya para master excel, :)
>
> saya ingin menanyakan rumus yang bisa dipakai untuk menghitung kode yang
> sama tapi dinilai sebagai nilai 1, jadi duplikat kode tersebut tidak
> dihitung.
>
> saya juga telah melampirkan file contohnya,
>
> atas bantuannya, saya sampaikan sangat banyak - banyak terima kasih. :D
>
>
>
=SumProduct( 1 / CountIF( range_data , range_data ) )
Selain itu, pivot table bisa menjadi tabel bantu untuk hal yang sama ketika
jumlah record datanya ada banyak dan kemungkinan jumlah unique itemnya juga
banyak.
Wassalam,
Kid.
2013/3/12 Frendy R <frendy07@yahoo.
> **
>
>
>
> Mohon Bantuannya para master excel, :)
>
> saya ingin menanyakan rumus yang bisa dipakai untuk menghitung kode yang
> sama tapi dinilai sebagai nilai 1, jadi duplikat kode tersebut tidak
> dihitung.
>
> saya juga telah melampirkan file contohnya,
>
> atas bantuannya, saya sampaikan sangat banyak - banyak terima kasih. :D
>
>
>
Tue Mar 12, 2013 3:33 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagaimana jika di-entry langsung pada tabel data seperti file terlampir.
File terlampir tidak menggunakan VBA.
Jika input akan dilakukan pada sebuah sheet input dan transfer data akan
dilakukan dengan VBA, maka atur data validation dalam area input seperti
contoh terlampir.
Wassalam,
Kid.
2013/3/11 Kind man <ferdinan36@gmail.com >
> **
>
>
> Selamat malam para master Excel,
> Saya lagi di tugasi mengecek SPPD, supaya tidak terjadi tumpang tindih
> petugas yg sama di tanggal yg seharusnya tidak boleh
> ini merupakan kerja yg cukup puyeng jika dilakukan manual dimana sy
> dikasih limit besok , mohon bantuannya master
> sebelum dan sesudahnya sy sangat berterima kasih
>
> regards
>
> Ferdinan
>
>
File terlampir tidak menggunakan VBA.
Jika input akan dilakukan pada sebuah sheet input dan transfer data akan
dilakukan dengan VBA, maka atur data validation dalam area input seperti
contoh terlampir.
Wassalam,
Kid.
2013/3/11 Kind man <ferdinan36@gmail.
> **
>
>
> Selamat malam para master Excel,
> Saya lagi di tugasi mengecek SPPD, supaya tidak terjadi tumpang tindih
> petugas yg sama di tanggal yg seharusnya tidak boleh
> ini merupakan kerja yg cukup puyeng jika dilakukan manual dimana sy
> dikasih limit besok , mohon bantuannya master
> sebelum dan sesudahnya sy sangat berterima kasih
>
> regards
>
> Ferdinan
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar