9 New Messages
Digest #1958
Messages
Sun Dec 9, 2012 8:50 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Controls yang di-disable tersebut untuk Excel 5 atau versi 95 dalam dialog
sheet.
Dialog sheet seperti sebuah userform yang dibentuk di dalam worksheet.
Jaman dulu userform dalam VBA belum ada. Jadi untuk tampilan cantiknya,
dibentuk dalam dialog sheet tersebut.
Cara membangun dialog sheet :
klik kanan sheet tab -> insert -> pilih Excel 5 dialog sheet -> mulai deh
isi controls yang akan dipakai
Cara menjalankan dialog sheet :
ribbon Developer -> grup Controls -> klik tombol Run Dialog
Diaktifkan dengan VBA :
dialogsheets("nama sheet dialog").show
Wassalamu'alaikum Wr. Wb.
Kid.
On Sun, Dec 9, 2012 at 9:53 PM, utthank abe <abeutthank@gmail.com > wrote:
> **
>
>
> Azw
> mau tanya penyebab text filed, combo lizt-edit, combo drop-down-edit pada
> form control (tab developer) tidak berfungzi.
> apakah ada fitur office ataukah ada yang perlu di inztal agar ketiganya
> biza di clik
> tq
> [image: Inline image 1]
>
>
>
Controls yang di-disable tersebut untuk Excel 5 atau versi 95 dalam dialog
sheet.
Dialog sheet seperti sebuah userform yang dibentuk di dalam worksheet.
Jaman dulu userform dalam VBA belum ada. Jadi untuk tampilan cantiknya,
dibentuk dalam dialog sheet tersebut.
Cara membangun dialog sheet :
klik kanan sheet tab -> insert -> pilih Excel 5 dialog sheet -> mulai deh
isi controls yang akan dipakai
Cara menjalankan dialog sheet :
ribbon Developer -> grup Controls -> klik tombol Run Dialog
Diaktifkan dengan VBA :
dialogsheets(
Wassalamu'alaikum Wr. Wb.
Kid.
On Sun, Dec 9, 2012 at 9:53 PM, utthank abe <abeutthank@gmail.
> **
>
>
> Azw
> mau tanya penyebab text filed, combo lizt-edit, combo drop-down-edit pada
> form control (tab developer) tidak berfungzi.
> apakah ada fitur office ataukah ada yang perlu di inztal agar ketiganya
> biza di clik
> tq
> [image: Inline image 1]
>
>
>
Sun Dec 9, 2012 9:16 am (PST) . Posted by:
"utthank abe" abe_utthank
azw
wahhhh pake VBA, tobat zaya pakai macro maz kid, palagi kalo nuliz zendiri
perintahnya :)
kalo nda zalah ingat di zini pernah ada member yang tanya mazalah input zel
tanpa haruz enter zudah biza di prozez hazilnya.
kebetulan tadi zaya dapat di google penggunaan tekz field. kayaknya ini
biza jadi zoluzi.
tapi zaya bingung ngambilnya di mana?
berikut zaya lampirkan filenya
ex: tekz field (warna pink) ter link zama zel A1. hazilnya langzung biza di
prozez di zel D1 tanpa haruz tindiz enter lebih dulu.
demikian maz.
tq
wahhhh pake VBA, tobat zaya pakai macro maz kid, palagi kalo nuliz zendiri
perintahnya :)
kalo nda zalah ingat di zini pernah ada member yang tanya mazalah input zel
tanpa haruz enter zudah biza di prozez hazilnya.
kebetulan tadi zaya dapat di google penggunaan tekz field. kayaknya ini
biza jadi zoluzi.
tapi zaya bingung ngambilnya di mana?
berikut zaya lampirkan filenya
ex: tekz field (warna pink) ter link zama zel A1. hazilnya langzung biza di
prozez di zel D1 tanpa haruz tindiz enter lebih dulu.
demikian maz.
tq
Sun Dec 9, 2012 9:20 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Abe,
Contoh file tersebut menggunakan controls jenis ActiveX bernama TextBox dan
control ini tidak di-disable.
Untuk Excel versi setelah Excel 5, cenderung disarankan untuk menggunakan
controls yang baru alias yang tidak di-disable.
Nah, kalau pengen pakai controls yang di-disable (seperti yang Anda
tanyakan tentang kenapa di-disable dan cara pakainya), maka harus
menggunakan dialog sheet milik Excel 5 yang di Excel baru disebut UserForm
yang ada di VBE.
Wassalam,
Kid.
2012/12/10 utthank abe <abeutthank@gmail.com >
> **
>
>
> azw
> wahhhh pake VBA, tobat zaya pakai macro maz kid, palagi kalo nuliz zendiri
> perintahnya :)
> kalo nda zalah ingat di zini pernah ada member yang tanya mazalah input
> zel tanpa haruz enter zudah biza di prozez hazilnya.
> kebetulan tadi zaya dapat di google penggunaan tekz field. kayaknya ini
> biza jadi zoluzi.
> tapi zaya bingung ngambilnya di mana?
> berikut zaya lampirkan filenya
>
> ex: tekz field (warna pink) ter link zama zel A1. hazilnya langzung biza
> di prozez di zel D1 tanpa haruz tindiz enter lebih dulu.
>
> demikian maz.
>
> tq
>
>
>
Contoh file tersebut menggunakan controls jenis ActiveX bernama TextBox dan
control ini tidak di-disable.
Untuk Excel versi setelah Excel 5, cenderung disarankan untuk menggunakan
controls yang baru alias yang tidak di-disable.
Nah, kalau pengen pakai controls yang di-disable (seperti yang Anda
tanyakan tentang kenapa di-disable dan cara pakainya), maka harus
menggunakan dialog sheet milik Excel 5 yang di Excel baru disebut UserForm
yang ada di VBE.
Wassalam,
Kid.
2012/12/10 utthank abe <abeutthank@gmail.
> **
>
>
> azw
> wahhhh pake VBA, tobat zaya pakai macro maz kid, palagi kalo nuliz zendiri
> perintahnya :)
> kalo nda zalah ingat di zini pernah ada member yang tanya mazalah input
> zel tanpa haruz enter zudah biza di prozez hazilnya.
> kebetulan tadi zaya dapat di google penggunaan tekz field. kayaknya ini
> biza jadi zoluzi.
> tapi zaya bingung ngambilnya di mana?
> berikut zaya lampirkan filenya
>
> ex: tekz field (warna pink) ter link zama zel A1. hazilnya langzung biza
> di prozez di zel D1 tanpa haruz tindiz enter lebih dulu.
>
> demikian maz.
>
> tq
>
>
>
Sun Dec 9, 2012 9:31 am (PST) . Posted by:
"utthank abe" abe_utthank
azw
owalahhh.... (ketawain diri zendiri zaya)
ternyata yang itu toh. hufff padahal udah zaya klik tadi tapi nda nyadar
kalo itulah yang di makzud.
*mau update ztatuz kegoblokan zaya nih :(.
makazih banyak maz kid.
tq
wazzalam
owalahhh.... (ketawain diri zendiri zaya)
ternyata yang itu toh. hufff padahal udah zaya klik tadi tapi nda nyadar
kalo itulah yang di makzud.
*mau update ztatuz kegoblokan zaya nih :(.
makazih banyak maz kid.
tq
wazzalam
Sun Dec 9, 2012 9:01 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
Kalau dari kalimat ini : seandainya..nomer induk acak kayaknya bisa muncul
dua kali ya
Andai datanya tidak acak, maka script berjalan baik.
Jadi, buat data agar tidak acak.
Caranya antara lain dengan melakukan sort lebih dulu.
> biasanya nanti ada yang komentar : "Data nya gak boleh di sort bro,
supaya bisa dipake lebih mudah untuk urusan lain"
>> ya wis, sing waras ngalah :
1. sebelum di proses pakai script-nya Pak Hendrik :
A -> Pada sebuah kolom tepat di kolom kosong pertama di kanan data
diisi nomor baris excel dan diberi header.
B -> lakukan sort pada tabel (termasuk kolom kosong itu) berdasar
kolom-kolom kunci yang membuat script Pak Hendrik bisa berjalan dengan baik.
2. jalankan script dari Pak Hendrik
3. setelah script dari Pak Hendrik selesai bekerja :
A -> lakukan sort Ascending berdasar kolom tambahan hasil karya nomor
1A tadi
B -> hapus (cleancontents) kolom tambahan yang sudah di sort Ascending
tersebut
> sampai sini saja, ada yang komentar : "Waaahhh... payah... gak praktis,
pakai loop aja gitu loh yang guanteng.."
>> sing waras lan sareh ngalah :
1. Coba pakai fitur pivot table sebagai tabel jembatan penyusun urutan dan
ke-unik-an yang diinginkan
2. kalau belum bisa pivot table, ya belajar lah
> terus masih ada yang komentar : "Ora mutu.."
>> sing waras lan sing wis sareh tur pengen ikhlas :
udah tau orangnya gak mutu, kok ya dibaca...
Wassalam,
Kid.
2012/12/9 sumardiana596@gmail.com <sumardiana596@gmail.com >
> **
>
>
> Padahal tak tunggu-tunggu versi penyempurnanya lho Pak....
> Daku juga Ada masalah serupa tapi selama ini belum pernah gunakan cara
> macro . Aku yakin Pak hendrik bisa...he..he..(ngarepbanget.com) . Atau
> mungkin Ada master lainnya yang mau Nggenepin....??
>
> Terima kasih
> Mardi
>
>
>
> *-------Original Message-------*
>
> *From:* hendrikkarnadi <hendrikkarnadi@yahoo.com >
> *Date:* 09/12/2012 21:21:20
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] group
>
> Memang bisanya baru sampai di situ pak
>
> Salam,
> Hendrik Karnadi
>
>
> _
>
Kalau dari kalimat ini : seandainya..
dua kali ya
Andai datanya tidak acak, maka script berjalan baik.
Jadi, buat data agar tidak acak.
Caranya antara lain dengan melakukan sort lebih dulu.
> biasanya nanti ada yang komentar : "Data nya gak boleh di sort bro,
supaya bisa dipake lebih mudah untuk urusan lain"
>> ya wis, sing waras ngalah :
1. sebelum di proses pakai script-nya Pak Hendrik :
A -> Pada sebuah kolom tepat di kolom kosong pertama di kanan data
diisi nomor baris excel dan diberi header.
B -> lakukan sort pada tabel (termasuk kolom kosong itu) berdasar
kolom-kolom kunci yang membuat script Pak Hendrik bisa berjalan dengan baik.
2. jalankan script dari Pak Hendrik
3. setelah script dari Pak Hendrik selesai bekerja :
A -> lakukan sort Ascending berdasar kolom tambahan hasil karya nomor
1A tadi
B -> hapus (cleancontents) kolom tambahan yang sudah di sort Ascending
tersebut
> sampai sini saja, ada yang komentar : "Waaahhh... payah... gak praktis,
pakai loop aja gitu loh yang guanteng.."
>> sing waras lan sareh ngalah :
1. Coba pakai fitur pivot table sebagai tabel jembatan penyusun urutan dan
ke-unik-an yang diinginkan
2. kalau belum bisa pivot table, ya belajar lah
> terus masih ada yang komentar : "Ora mutu.."
>> sing waras lan sing wis sareh tur pengen ikhlas :
udah tau orangnya gak mutu, kok ya dibaca...
Wassalam,
Kid.
2012/12/9 sumardiana596@
> **
>
>
> Padahal tak tunggu-tunggu versi penyempurnanya lho Pak....
> Daku juga Ada masalah serupa tapi selama ini belum pernah gunakan cara
> macro . Aku yakin Pak hendrik bisa...he..he.
> mungkin Ada master lainnya yang mau Nggenepin...
>
> Terima kasih
> Mardi
>
>
>
> *-------Original Message-----
>
> *From:* hendrikkarnadi <hendrikkarnadi@
> *Date:* 09/12/2012 21:21:20
> *To:* belajar-excel@
> *Subject:* Re: [belajar-excel] group
>
> Memang bisanya baru sampai di situ pak
>
> Salam,
> Hendrik Karnadi
>
>
> _
>
Sun Dec 9, 2012 9:30 am (PST) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kalau datanya memang "tidak boleh diurutkan dulu" barangkali modifikasi rekaman macro Ms. Jan bisa menjadi solusinya (file terlampir).
Supaya lebih fleksibel anda bias memilih mau dijalankan dari Sheet1 (klik tombol merah) atau Sheet2 (double click)
Selamat mencoba.
Semoga sesuai kebutuhan.
Salam,
Hendrik Karnadi
________________________________
From: "sumardiana596@gmail.com " <sumardiana596@gmail.com >
To: Belajar Excel <belajar-excel@yahoogroups.com >
Sent: Sunday, 9 December 2012, 21:33
Subject: Re: [belajar-excel] group
Padahal tak tunggu-tunggu versi penyempurnanya lho Pak....
Daku juga Ada masalah serupa tapi selama ini belum pernah gunakan cara macro . Aku yakin Pak hendrik bisa...he..he..(ngarepbanget.com) . Atau mungkin Ada master lainnya yang mau Nggenepin....??
Terima kasih
Mardi
-------Original Message-------
From: hendrikkarnadi
Date: 09/12/2012 21:21:20
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] group
Memang bisanya baru sampai di situ pak
Salam,
Hendrik Karnadi
Supaya lebih fleksibel anda bias memilih mau dijalankan dari Sheet1 (klik tombol merah) atau Sheet2 (double click)
Selamat mencoba.
Semoga sesuai kebutuhan.
Salam,
Hendrik Karnadi
____________
From: "sumardiana596@
To: Belajar Excel <belajar-excel@
Sent: Sunday, 9 December 2012, 21:33
Subject: Re: [belajar-excel] group
Padahal tak tunggu-tunggu versi penyempurnanya lho Pak....
Daku juga Ada masalah serupa tapi selama ini belum pernah gunakan cara macro . Aku yakin Pak hendrik bisa...he..he.
Terima kasih
Mardi
-------Original Message-----
From: hendrikkarnadi
Date: 09/12/2012 21:21:20
To: belajar-excel@
Subject: Re: [belajar-excel] group
Memang bisanya baru sampai di situ pak
Salam,
Hendrik Karnadi
Sun Dec 9, 2012 9:10 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Harry,
Coba manfaatkan methods OnTime milik Application.
1. buat di sebuah module, sebuah prosedur bernama TutupPaksa yang isinya :
on error resume next
unload namaobjectformyangakanditutup
err.clear
on error goto 0
2. pada event initialize si user form bernama namaobjectformyangakanditutup
tambahkan baris berikut :
application.ontime now + timevalue("00:00:02"),"TutupPaksa"
'kalau pengen 2 detik lagi mau jalankan prosedur public bernama TutupPaksa
3. coba jalankan userform bernama namaobjectformyangakanditutup
Wassalam,
Kid.
2012/12/9 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller akan situasi yang saya hadapi
> pada UserForm yang telah saya buat.
>
> Terima kasih
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Harry <hariansyahptk@yahoo.com >
> *Kepada:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Dikirim:* Sabtu, 8 Desember 2012 21:14
> *Judul:* [belajar-excel] Otomatis Close UserForm (maksimal 5 menit)
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller akan situasi yang saya hadapi
> pada UserForm yang telah saya buat.
>
> Pada UserForm tersebut, memiliki 3 pilihan penginputan yaitu: Input, Edit
> dan Hapus. Karena muara proses penginputan, pengeditan dan penghapusan
> menggunakan file database yang berbeda yang bersifat buka tutup file
> database dan digunakan oleh banyak PC yang menggunaka file database
> tersebut, maka timbul kendala yaitu ada user (PC) yang mungkin lupa atau
> kelamaan untuk menutup / meng-click tombol "SAVE" atau "CLOSE" sehingga
> mengakibatkan PC lain tidak bisa melakukan proses yang seharusnya
> dilakukan. Karena untuk dapat melakukan proses penginputan, file database
> harus dalam keadaan terbuka pada PC yang bersangkutan..
>
> Pertanyaan saya adalah; Bagaimana caranya jika salah satu PC yang sedang
> melakukan penginputan / pengeditan / penghapusan data, yang mengaktifkan
> tombol UserForm tetapi untuk finishingnya (click tombol "SAVE" atau tombol
> "CLOSE" dalam jangka waktu maksimal 5 menit, otomatis UserForm tersebut
> tertutup dengan sendirinya tanpa adanya proses pengiriman data ke file
> database.
>
> Lebih lanjut membahas mengenai kendala penginputan dengan menggunakan
> metode buka tutup file database, sebenarnya Mr. Kid telah memberikan contoh
> penginputan yang tidak perlu menggunakan metode buka tutup database
> (sebagaimana contoh terlampir - dng ConnectingString pada file (Excel)
> yang beda folder <http://mail.yahoo.com/ >). Tetapi hal tersebut sulit
> buat saya untuk melakukan pengeditan dan penghapusan karena code rumusnya
> yang saya belum mengerti (tidak tahu) apalagi pada Workbook yang sudah saya
> buat menggunakan fitur Lbl_User, DTPicker dan ComboBox dari file Master dan
> file database.
>
> Oleh sebab itu, mohon kiranya rekan-rekan BeExceller dapat memberikan
> solusi akan hal tersebut.
> Sebelum dan sesudahnya saya mengucapkan banyak terima kasih.
>
> Wassalam,
>
>
> Harry
>
>
Coba manfaatkan methods OnTime milik Application.
1. buat di sebuah module, sebuah prosedur bernama TutupPaksa yang isinya :
on error resume next
unload namaobjectformyanga
err.clear
on error goto 0
2. pada event initialize si user form bernama namaobjectformyanga
tambahkan baris berikut :
application.
'kalau pengen 2 detik lagi mau jalankan prosedur public bernama TutupPaksa
3. coba jalankan userform bernama namaobjectformyanga
Wassalam,
Kid.
2012/12/9 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller akan situasi yang saya hadapi
> pada UserForm yang telah saya buat.
>
> Terima kasih
>
> ----- Pesan yang Diteruskan -----
> *Dari:* Harry <hariansyahptk@
> *Kepada:* "belajar-excel@
> *Dikirim:* Sabtu, 8 Desember 2012 21:14
> *Judul:* [belajar-excel] Otomatis Close UserForm (maksimal 5 menit)
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller akan situasi yang saya hadapi
> pada UserForm yang telah saya buat.
>
> Pada UserForm tersebut, memiliki 3 pilihan penginputan yaitu: Input, Edit
> dan Hapus. Karena muara proses penginputan, pengeditan dan penghapusan
> menggunakan file database yang berbeda yang bersifat buka tutup file
> database dan digunakan oleh banyak PC yang menggunaka file database
> tersebut, maka timbul kendala yaitu ada user (PC) yang mungkin lupa atau
> kelamaan untuk menutup / meng-click tombol "SAVE" atau "CLOSE" sehingga
> mengakibatkan PC lain tidak bisa melakukan proses yang seharusnya
> dilakukan. Karena untuk dapat melakukan proses penginputan, file database
> harus dalam keadaan terbuka pada PC yang bersangkutan.
>
> Pertanyaan saya adalah; Bagaimana caranya jika salah satu PC yang sedang
> melakukan penginputan / pengeditan / penghapusan data, yang mengaktifkan
> tombol UserForm tetapi untuk finishingnya (click tombol "SAVE" atau tombol
> "CLOSE" dalam jangka waktu maksimal 5 menit, otomatis UserForm tersebut
> tertutup dengan sendirinya tanpa adanya proses pengiriman data ke file
> database.
>
> Lebih lanjut membahas mengenai kendala penginputan dengan menggunakan
> metode buka tutup file database, sebenarnya Mr. Kid telah memberikan contoh
> penginputan yang tidak perlu menggunakan metode buka tutup database
> (sebagaimana contoh terlampir - dng ConnectingString pada file (Excel)
> yang beda folder <http://mail.
> buat saya untuk melakukan pengeditan dan penghapusan karena code rumusnya
> yang saya belum mengerti (tidak tahu) apalagi pada Workbook yang sudah saya
> buat menggunakan fitur Lbl_User, DTPicker dan ComboBox dari file Master dan
> file database.
>
> Oleh sebab itu, mohon kiranya rekan-rekan BeExceller dapat memberikan
> solusi akan hal tersebut.
> Sebelum dan sesudahnya saya mengucapkan banyak terima kasih.
>
> Wassalam,
>
>
> Harry
>
>
Sun Dec 9, 2012 9:10 am (PST) . Posted by:
"jessicapermata@yahoo.com" jessicapermata
Untuk format cell di pivot biar tidak berubah bagaimana? Karena tiap diset setelah Resfresh akan kembali ke format cell default
misal, kolom a format accounting , kolom b format currency, apabila. Di resfresh akan kembali ke format cell yg awal
Thx
Powered by Telkomsel BlackBerry�
misal, kolom a format accounting , kolom b format currency, apabila. Di resfresh akan kembali ke format cell yg awal
Thx
Powered by Telkomsel BlackBerry�
Sun Dec 9, 2012 10:07 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Untuk ambil nilai qty : (tambahkan ke prosedur yang memicu harus terisinya
sebuah control dengan nilai qty)
dim sItem() as string,dblQty as double
sitem=split(TbPartno.text," ")
select case left$(TbPartno.text,3)
case "3N1"
dblqty=cdbl(sitem(2))
case "3N2"
dblqty=cdbl(sitem(1))
case else
dblqty=0
end select
Setelah itu, nilai dblqty bisa dipasang ke control yang Anda inginkan.
Wassalam,
Kid.
2012/12/6 ngademin Thohari <ngademinth@yahoo.co.id >
> **
>
>
> Be-exceller, mr. kid
>
> begini gambarannya, mohon maaf kalau kurang penjelasannya, berikut
> lampirannya
>
> Pertanyaan:
> 1. ada 3 data berbeda yang akan dimasukkan ke dalam data quantity
> contoh : 3N2 10000 072466493D angka 10000 akan otomatis masuk kedalam
> quantity
> saat ini hanya bisa diinput manual
> 2. contoh yang kedua: 3N1ERJ3GEY0R00V 5000 angka 5000 yang akan masuk
> kedalam quantity
> 3. contoh ke tiga : TAJA106M016RNJ tidak ada angka yang masuk kedalam
> quantity tapi diinput dengan manual
>
> Terima kasih supportnya
>
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Kamis, 6 Desember 2012 22:45
>
> *Judul:* Re: [belajar-excel] tracebility part gudang
>
>
> Pak Amin,
>
> Terus terang saya ndak mudeng quantity yang mana mau dimasukkan ke mana ?
> Inputnya nilai quantity pakai control apa ?
> Kalau dimasukkan ke listbox mau jadi item baru atau bagaimana ?
>
> Wassalam,
> Kid.
>
> On Thu, Dec 6, 2012 at 10:35 PM, ngademin Thohari <ngademinth@yahoo.co.id >wrote:
>
> **
>
>
> Be-exceller
>
> Mr. kid minta advicenya lagi, untuk quantity belum bisa masuk kedata
> remaining quantity
> Offset(0, 6) penjabarannya seperti bagaimana?
>
> terima kasih
>
> amin
>
>
> Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim rngData As Range, rng As Range
> Dim spart As String, sRackByPart As String
> Dim dblQty As Double
> Sheet3.Unprotect "Belajar-Excel"
> spart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
> spart = Left$(spart, InStr(spart & " ", " ") - 1)
> Set rngData = Sheet3.ListObjects(1).Range
> '.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
> With rngData
> '.Parent.AutoFilterMode = False
> .AutoFilter 1 ', spart
> .AutoFilter 5, spart
>
> If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then
> For Each rng In .Offset(0,
> 4).Resize(1).SpecialCells(xlCellTypeVisible)
> If LenB(rng.Value) <> 0 And rng.Row > 1 Then
> dblQty = dblQty + rng.Offset(0, 3).Value
> sRackByPart = Replace$(sRackByPart, "," & rng.Offset(0,
> 6).Value, vbNullString) & "," & rng.Offset(0, 6).Value
> End If
> Next rng
> sRackByPart = Mid$(sRackByPart, 2)
> End If
> ListBox1.Clear 'hapus isinya dulu
> If LenB(sRackByPart) <> 0 Then
> ListBox1.AddItem dblQty 'tambah item baru
> TextBox1.Text = sRackByPart
> Else
> TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
> End If
> TextBox1.Locked = True
> '.Parent.AutoFilterMode = False
> End With
> Sheet3.Protect "Belajar-Excel", userinterfaceonly:=True
> End Sub
>
>
> ------------------------------
> **
>
>
>
>
>
>
sebuah control dengan nilai qty)
dim sItem() as string,dblQty as double
sitem=split(
select case left$(TbPartno.
case "3N1"
dblqty=cdbl(
case "3N2"
dblqty=cdbl(
case else
dblqty=0
end select
Setelah itu, nilai dblqty bisa dipasang ke control yang Anda inginkan.
Wassalam,
Kid.
2012/12/6 ngademin Thohari <ngademinth@yahoo.
> **
>
>
> Be-exceller, mr. kid
>
> begini gambarannya, mohon maaf kalau kurang penjelasannya, berikut
> lampirannya
>
> Pertanyaan:
> 1. ada 3 data berbeda yang akan dimasukkan ke dalam data quantity
> contoh : 3N2 10000 072466493D angka 10000 akan otomatis masuk kedalam
> quantity
> saat ini hanya bisa diinput manual
> 2. contoh yang kedua: 3N1ERJ3GEY0R00V 5000 angka 5000 yang akan masuk
> kedalam quantity
> 3. contoh ke tiga : TAJA106M016RNJ tidak ada angka yang masuk kedalam
> quantity tapi diinput dengan manual
>
> Terima kasih supportnya
>
>
> amin
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Kamis, 6 Desember 2012 22:45
>
> *Judul:* Re: [belajar-excel] tracebility part gudang
>
>
> Pak Amin,
>
> Terus terang saya ndak mudeng quantity yang mana mau dimasukkan ke mana ?
> Inputnya nilai quantity pakai control apa ?
> Kalau dimasukkan ke listbox mau jadi item baru atau bagaimana ?
>
> Wassalam,
> Kid.
>
> On Thu, Dec 6, 2012 at 10:35 PM, ngademin Thohari <ngademinth@yahoo.
>
> **
>
>
> Be-exceller
>
> Mr. kid minta advicenya lagi, untuk quantity belum bisa masuk kedata
> remaining quantity
> Offset(0, 6) penjabarannya seperti bagaimana?
>
> terima kasih
>
> amin
>
>
> Private Sub TbPartno_Exit(
> Dim rngData As Range, rng As Range
> Dim spart As String, sRackByPart As String
> Dim dblQty As Double
> Sheet3.Unprotect "Belajar-Excel"
> spart = Trim$(Replace$
> spart = Left$(spart, InStr(spart & " ", " ") - 1)
> Set rngData = Sheet3.ListObjects(
> '.Range("c1"
> With rngData
> '.Parent.AutoFilter
> .AutoFilter 1 ', spart
> .AutoFilter 5, spart
>
> If .Resize(, 1).SpecialCells(
> For Each rng In .Offset(0,
> 4).Resize(1)
> If LenB(rng.Value) <> 0 And rng.Row > 1 Then
> dblQty = dblQty + rng.Offset(0, 3).Value
> sRackByPart = Replace$(sRackByPar
> 6).Value, vbNullString) & "," & rng.Offset(0, 6).Value
> End If
> Next rng
> sRackByPart = Mid$(sRackByPart, 2)
> End If
> ListBox1.Clear 'hapus isinya dulu
> If LenB(sRackByPart) <> 0 Then
> ListBox1.AddItem dblQty 'tambah item baru
> TextBox1.Text = sRackByPart
> Else
> TextBox1.Text = "Tidak ada rack yang dipakai part " & spart
> End If
> TextBox1.Locked = True
> '.Parent.AutoFilter
> End With
> Sheet3.Protect "Belajar-Excel"
> End Sub
>
>
> ------------
> **
>
>
>
>
>
>
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