Jumat, 28 Desember 2012

[belajar-excel] Digest Number 1992

Milis Belajar Microsoft Excel

14 New Messages

Digest #1992
1a
Re: Nilai Achievement by "Bagus" bagus4bls
1b
Re: Nilai Achievement by "aji mumpung"
4a
Re: HT List by "Mr. Kid" nmkid.family@ymail.com
5a
6a
ComboBox harus di isi lengkap by "Harry" hariansyahptk
6b
Re: ComboBox harus di isi lengkap by "Slamet" slametharto
7a
Re: Format Currency by "Slamet" slametharto
8
9
Format Number by "Harry" hariansyahptk

Messages

Thu Dec 27, 2012 9:40 pm (PST) . Posted by:

"Bagus" bagus4bls

Dear Pak Tono;

Rumus pak tono sudah benar, cuma kurang argumen jika J = FALSE

Rumus pak Tono pada K8 adalah:
=IF(J8>1,0.5%*E8)

Coba tambahkan 0 jika bernilai FALSE, menjadi:
=IF(J8>1,0.5%*E8,0)

Bagus

----- Original Message -----
From: Tony Bexcel
To: belajar-excel@yahoogroups.com
Sent: Thursday, December 27, 2012 6:32 PM
Subject: [belajar-excel] Nilai Achievement

Dear Pakar Yang Budiman,

Mohon dengan sangat bantuan pencerahan pada kasus file yang saya Lampirkan,dimana saya ingin memberikan bonus 0.5%.
Untuk jelasnya saya lampirkan data pendukung nya ya temans...

Salam,
Tono

Thu Dec 27, 2012 10:24 pm (PST) . Posted by:

"aji mumpung"

ikutan biar rame hehehe :D

perbedaan hasil antara formula pak Tono dengan formula Miss Jan bisa
dilihat pada baris 57, 63, dan 66.
Kenapa bisa beda?

Formula pak Tono akan menghitung 0,5% jika nilai di kolom K>1, berarti
pencapaian 100% terjadi minimal pada 2 periode akan dihitung, walaupun
nilai di kolom F kurang dari 100%

Formula Miss Jan akan menghitung 0,5% jika nilai di kolom F >=100% dan
pencapaian 100% minimal terjadi pada 2 periode, jika hanya 1 periode maka
tidak dihitung.

Yang benar yang mana itu tergantung syarat dan kondisi yang telah
ditentukan, karena tidak mungkin keduanya benar maka salah satu pasti salah
atau keduanya pasti salah.

perhatikan juga formula di kolom G, H, dan I seharusnya menggunakan
operator >= sehingga jika pencapaian pas 100% juga akan ikut dihitung.

Wassalam,

-Aji Mumpung-
*miss jan, bagi alamat FB-nya dong hehehe :D*

Pada 28 Desember 2012 11:03, Bagus <bagus@kingjim.co.id> menulis:

> **
>
>
> **
> Dear Pak Tono;
>
> Rumus pak tono sudah benar, cuma kurang argumen jika J = FALSE
>
> Rumus pak Tono pada K8 adalah:
> =IF(J8>1,0.5%*E8)
>
> Coba tambahkan 0 jika bernilai FALSE, menjadi:
> =IF(J8>1,0.5%*E8,0)
>
>
> Bagus
>
>
> ----- Original Message -----
> *From:* Tony Bexcel <tonybexcel@yahoo.co.id>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, December 27, 2012 6:32 PM
> *Subject:* [belajar-excel] Nilai Achievement
>
>
>
> Dear Pakar Yang Budiman,
>
> Mohon dengan sangat bantuan pencerahan pada kasus file yang saya
> Lampirkan,dimana saya ingin memberikan bonus 0.5%.
> Untuk jelasnya saya lampirkan data pendukung nya ya temans...
>
> Salam,
> Tono
>
>
>

Thu Dec 27, 2012 10:40 pm (PST) . Posted by:

"Adi" abduh_suryadi

Terima kash atas sarnnya pak, saya sudah coba, tpi blm saya diterapkan.

--- In belajar-excel@yahoogroups.com, slametharto@... wrote:
>
> وَعَلَيÙ'كُمÙ' السÙ`َلاَمُ
وَرَحÙ'مَةُ اللهِ
وَبَرَكَاته
> Coba gunakan script berikut:
> sub import()
> Dim sData, Char, txt as string
> Dim r,c,I as Long
> Dim Irng as range
>
> Dim sData as String
> Open "D:\jwb.txt" For Input As #1
> r = 0: c = 0: txt =""
> Set Irng = Cells(5, 2)
> Do While Not EOF(1)
> Line Input #1, sData
> For i = 1 To Len(sData) + 1
> Char = Mid(sData, i, 1)
> If char = "," or char = ";" or I > Len(sData) Then
> Irng.offset(r,c) = txt
> c = c + 1
> Else
> If char <> chr(34) Then txt = txt & Mid(sData, i, 1)
> End If
> Next i
> c = 0: r = r + 1
> AcctiveCell.Offset(1, 0).Select
> Loop
> Close #1
> End Sub
>
> Wassalam
> Powered by Telkomsel BlackBerry®
>
> -----Original Message-----
> From: "Adi" abduhsuryadi@...
> Sender: belajar-excel@yahoogroups.com
> Date: Thu, 27 Dec 2012 09:34:48
> To: belajar-excel@yahoogroups.com
> Reply-To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Kenapa Koma di Text File dianggap sebagai
baris baru oleh vba?
>
> Assalamu'alaikum Wr. Wb.
>
> Saya mempunyai data di text file (jwb.txt) seperti ini:
> A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
>
> Dim sData as String
> Open "D:\jwb.txt" For Input As #1
> Cells(5, 2).Select
> Do While Not EOF(1)
> Input #1, sData
> ActiveCell.Value = sData
> ActiveCell.Offset(1, 0).Select
> Loop
> Close #1
>
> Pertanyaan:
> 1. Kenapa tanda koma (,) dianggap sebagai new line?
> 2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana
tanda titik koma (;) menjadi pemisahnya? (5 kolom)
>
> Terima kasih, mohon maaf kalau ada yang salah.
> Wassalamu'alaikum Wr. Wb.
>

Thu Dec 27, 2012 10:41 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sebaiknya disertakan file txt-nya. Potong data agar berisi data contoh saja
beberapa puluh baris.

Wassalam,
Kid.

2012/12/27 Adi <abduhsuryadi@gmail.com>

> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> Saya mempunyai data di text file (jwb.txt) seperti ini:
> A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
>
> Dim sData as String
> Open "D:\jwb.txt" For Input As #1
> Cells(5, 2).Select
> Do While Not EOF(1)
> Input #1, sData
> ActiveCell.Value = sData
> ActiveCell.Offset(1, 0).Select
> Loop
> Close #1
>
> Pertanyaan:
> 1. Kenapa tanda koma (,) dianggap sebagai new line?
> 2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana
> tanda titik koma (;) menjadi pemisahnya? (5 kolom)
>
> Terima kasih, mohon maaf kalau ada yang salah.
> Wassalamu'alaikum Wr. Wb.
>
>
>

Thu Dec 27, 2012 10:56 pm (PST) . Posted by:

"Adi" abduh_suryadi

Ternyata masalahnya sudah ketemu Mr. solusinya yaitu menaruh kata Line sebelum input.
terima kasih semua atas perhatiannya.
wassalamu'alaikum Wr. Wb.

--- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
>
> Sebaiknya disertakan file txt-nya. Potong data agar berisi data contoh saja
> beberapa puluh baris.
>
> Wassalam,
> Kid.
>
> 2012/12/27 Adi <abduhsuryadi@...>
>
> > **
> >
> >
> > Assalamu'alaikum Wr. Wb.
> >
> > Saya mempunyai data di text file (jwb.txt) seperti ini:
> > A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
> >
> > Dim sData as String
> > Open "D:\jwb.txt" For Input As #1
> > Cells(5, 2).Select
> > Do While Not EOF(1)
> > Input #1, sData
> > ActiveCell.Value = sData
> > ActiveCell.Offset(1, 0).Select
> > Loop
> > Close #1
> >
> > Pertanyaan:
> > 1. Kenapa tanda koma (,) dianggap sebagai new line?
> > 2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana
> > tanda titik koma (;) menjadi pemisahnya? (5 kolom)
> >
> > Terima kasih, mohon maaf kalau ada yang salah.
> > Wassalamu'alaikum Wr. Wb.
> >
> >
> >
>

Thu Dec 27, 2012 10:42 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba sertakan file txt-nya yang berisi beberapa puluh contoh data.

Wassalam,
Kid.

2012/12/28 Adi <abduhsuryadi@gmail.com>

> **
>
>
> Terima kasih banyak atas petunjuknya Mr. kalau boleh saya bertanya lagi,
> kenapa koma dianggap sebagai baris baru? saya mempunya data di text file
> seperti di bawah ini (contoh):
>
> A007,Abdurrahman,Laki;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
>
> akan berada di record/row baru yang lain di excel. bagaimana cara
> menanganinya?
> terima kasih Mr.
>
> Wassalam....
>
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@...> wrote:
> >
> > Coba ganti baris :
> > For iCol = 1 To 5
> > menjadi :
> > For iCol = 1 To ubound(T)+1
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/12/27 Adi <abduhsuryadi@...>
> >
> > > **
>
> > >
> > >
> > > trmkash Miss..
> > > saya coba kode yg terakhir dan ada error: "subscript out of range".
> kira2
> > > kenapa ya?
> > > wassalam...
> > >
> > >
> > > --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@>
> > > wrote:
> > > >
> > > > ups.. salah xixixix :D
> > > > yang tadi untuk space delimiter, coba ubah script menjadi seperti
> ini:
> > > >
> > > > Dim sData As String
> > > > Dim T As Variant
> > > > Dim iRow As Long, iCol As Integer
> > > >
> > > > Open "D:\jwb.txt" For Input As #1
> > > > iRow = 5
> > > > Input #1, sData
> > > > Do While Not EOF(1)
> > > > T = Split(sData, vbTab)
> > > > For iCol = 1 To 5
> > > > Cells(iRow, iCol + 1) = T(iCol - 1)
> > > > Next iCol
> > > > iRow = iRow + 1
> > > > Input #1, sData
> > > > Loop
> > > > Close #1
> > > >
> > > > Wassalamu'alaikum wr. wb.,
> > > >
> > > > -Ms. Jan Raisin-
> > > >
> > > > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@> menulis:
>
> > >
> > > >
> > > > > Wa'alaikumsalam wr. wb.,
> > > > >
> > > > > Sambil menunggu saran dari yang lain, coba tambahkan script
> berikut ini
> > > > > setelah close #1
> > > > > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > > > > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> > > > >
> > > > > Wassalamu'alaikum wr. wb.,
> > > > >
> > > > > -Ms. Jan Raisin-
> > > > >
> > > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@> menulis:
>
> > > > >
> > > > > **
> > >
> > > > >>
> > > > >>
> > > > >> Assalamu'alaikum Wr. Wb.
> > > > >>
> > > > >> Saya mempunyai data di jwb.txt
> > > > >> isinya kira-kira:
> > > > >>
> > > > >> A002 Adi 10-A Biologi DACDEDAEDA
> > > > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > > > >>
> > > > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > > > >>
> > > > >> Dim sData as String
> > > > >>
> > > > >> Open "D:\jwb.txt" For Input As #1
> > > > >> Cells(5, 2).Select
> > > > >> Do While Not EOF(1)
> > > > >> Input #1, sData
> > > > >> ActiveCell.Value = sData
> > > > >> ActiveCell.Offset(1, 0).Select
> > > > >> Loop
> > > > >> Close #1
> > > > >>
> > > > >> Hasil yang didapatkan semua berada di satu kolom.
> > > > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> > > file
> > > > >> tersebut berada dalam kolom tersendiri?
> > > > >> Terima kasih, wassalam...
> > > > >>
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>

Thu Dec 27, 2012 10:50 pm (PST) . Posted by:

"Adi" abduh_suryadi

Terima kasih teman2 atas perhatiannya. saya sudah menemukan jawabannya. ternyata cuma menambah kata "Line" sebelum input.
thanks. Wassalamu'alakum Wr. Wb.

--- In belajar-excel@yahoogroups.com, "Adi" <abduhsuryadi@...> wrote:
>
> Terima kasih banyak atas petunjuknya Mr. kalau boleh saya bertanya lagi, kenapa koma dianggap sebagai baris baru? saya mempunya data di text file seperti di bawah ini (contoh):
>
> A007,Abdurrahman,Laki;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
>
> akan berada di record/row baru yang lain di excel. bagaimana cara menanganinya?
> terima kasih Mr.
>
> Wassalam....
> --- In belajar-excel@yahoogroups.com, "Mr. Kid" <mr.nmkid@> wrote:
> >
> > Coba ganti baris :
> > For iCol = 1 To 5
> > menjadi :
> > For iCol = 1 To ubound(T)+1
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/12/27 Adi <abduhsuryadi@>
> >
> > > **
> > >
> > >
> > > trmkash Miss..
> > > saya coba kode yg terakhir dan ada error: "subscript out of range". kira2
> > > kenapa ya?
> > > wassalam...
> > >
> > >
> > > --- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@>
> > > wrote:
> > > >
> > > > ups.. salah xixixix :D
> > > > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini:
> > > >
> > > > Dim sData As String
> > > > Dim T As Variant
> > > > Dim iRow As Long, iCol As Integer
> > > >
> > > > Open "D:\jwb.txt" For Input As #1
> > > > iRow = 5
> > > > Input #1, sData
> > > > Do While Not EOF(1)
> > > > T = Split(sData, vbTab)
> > > > For iCol = 1 To 5
> > > > Cells(iRow, iCol + 1) = T(iCol - 1)
> > > > Next iCol
> > > > iRow = iRow + 1
> > > > Input #1, sData
> > > > Loop
> > > > Close #1
> > > >
> > > > Wassalamu'alaikum wr. wb.,
> > > >
> > > > -Ms. Jan Raisin-
> > > >
> > > > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@> menulis:
> > >
> > > >
> > > > > Wa'alaikumsalam wr. wb.,
> > > > >
> > > > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > > > setelah close #1
> > > > > Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
> > > > > Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
> > > > >
> > > > > Wassalamu'alaikum wr. wb.,
> > > > >
> > > > > -Ms. Jan Raisin-
> > > > >
> > > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@> menulis:
> > > > >
> > > > > **
> > >
> > > > >>
> > > > >>
> > > > >> Assalamu'alaikum Wr. Wb.
> > > > >>
> > > > >> Saya mempunyai data di jwb.txt
> > > > >> isinya kira-kira:
> > > > >>
> > > > >> A002 Adi 10-A Biologi DACDEDAEDA
> > > > >> A004 Ahmad 10-B Fisika ADCDEEAACA
> > > > >>
> > > > >> kode saya untuk membaca file tersebut ke excel seperti ini:
> > > > >>
> > > > >> Dim sData as String
> > > > >>
> > > > >> Open "D:\jwb.txt" For Input As #1
> > > > >> Cells(5, 2).Select
> > > > >> Do While Not EOF(1)
> > > > >> Input #1, sData
> > > > >> ActiveCell.Value = sData
> > > > >> ActiveCell.Offset(1, 0).Select
> > > > >> Loop
> > > > >> Close #1
> > > > >>
> > > > >> Hasil yang didapatkan semua berada di satu kolom.
> > > > >> Bagaimana cara agar setiap data yang dipisah dengan tab dalam text
> > > file
> > > > >> tersebut berada dalam kolom tersendiri?
> > > > >> Terima kasih, wassalam...
> > > > >>
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>

Thu Dec 27, 2012 11:13 pm (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sepertinya harus disusun tabel top 20 nya dulu.

Wassalam,
Kid.

2012/12/27 Abang Jakarta <abang_jakarta17@yahoo.com>

> **
>
>
> Terimakasih pak Jan Raisin,
>
> Mr. Kid bisa bantu untuk grafiknya ga?
>
>
> --- On *Wed, 12/26/12, Jan Raisin <miss.jan.raisin@gmail.com>* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com>
> Subject: Re: [belajar-excel] HT List
> To: belajar-excel@yahoogroups.com
> Date: Wednesday, December 26, 2012, 6:30 PM
>
>
>
>
> Dear pak Arkan,
>
> formula di C4
> =SUMPRODUCT(1*('CALL IN HT'!$A$6:$A$148=SUMMARY!$B4)*('CALL IN
> HT'!$B$6:$B$148>(--SUBSTITUTE(LEFT(SUMMARY!C$3;5);".";":")))*('CALL IN
> HT'!$B$6:$B$148<=(--SUBSTITUTE(RIGHT(SUMMARY!C$3;5);".";":"))))
> copy ke kanan & ke bawah
>
> formula di G4
> =SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL
> OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!G$3;5);".";":")))*('CALL
> OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!G$3;5);".";":"))*('CALL
> OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233<>"Not Connected")))
> copy ke kanan & ke bawah
>
> formula di K4
> =SUMPRODUCT(1*('CALL OUT'!$A$7:$A$233=SUMMARY!$B4)*('CALL
> OUT'!$B$7:$B$233>(--SUBSTITUTE(LEFT(SUMMARY!K$3;5);".";":")))*('CALL
> OUT'!$B$7:$B$233<=(SUBSTITUTE(RIGHT(SUMMARY!K$3;5);".";":"))*('CALL
> OUT'!$D$7:$D$233<>"")*('CALL OUT'!$D$7:$D$233="Not Connected")))
> copy ke kanan & ke bawah
>
> maaf untuk grafiknya mungkin ada BeExceller lain yang bersedia membantu
> (Jan jarang menggunakan chart (grafik), jadi belum ahli untuk masalah ini.
>
> Formula di atas dapat berjalan di semua versi Excel, jika regional setting
> di komputer Anda adalah English maka ganti setiap titik koma menjadi koma. Semoga
> ada BeExceller yang bersedia ,membantu membuatkan formula yang lebih
> singkat.
>
> Berhubung sample dibuat menggunakan Excel 2003 maka ukuran file menjadi
> 421KB di atas limit yang telah ditentukan oleh millis, untuk itu silakan
> diunduh melalui link berikut ini:
> https://www.box.com/s/alegt5grxtgdlgeibd0g
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> Pada 26 Desember 2012 15:46, Abang Jakarta <abang_jakarta17@yahoo.com<http://mc/compose?to=abang_jakarta17@yahoo.com>
> > menulis:
>
> **
>
>
> Dear Bp. Raisin dan Master Excel,
>
> Apakah data dan penjelasan di file yang sekarang bisa membantu?
>
> Terimakasih
> Arkan
>
> --- On *Tue, 12/25/12, Jan Raisin <miss.jan.raisin@gmail.com<http://mc/compose?to=miss.jan.raisin@gmail.com>
> >* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@gmail.com<http://mc/compose?to=miss.jan.raisin@gmail.com>
> >
> Subject: Re: [belajar-excel] HT List
> To: belajar-excel@yahoogroups.com<http://mc/compose?to=belajar-excel@yahoogroups.com>
> Date: Tuesday, December 25, 2012, 7:47 PM
>
>
>
>
> Dear pak Arkan,
>
> mungkin jika disertakan sampel datanya maka akan ada BeExceller yang
> bersedia berbagi solusi dengan anda. karena file yang dilampirkan hanya
> berisi template laporan tanpa data sama sekali.
>
> Best Regard,
>
> -Ms, Jan Raisin-
>
> Pada 24 Desember 2012 16:05, Abang Jakarta <abang_jakarta17@yahoo.com<http://mc/compose?to=abang_jakarta17@yahoo.com>
> > menulis:
>
> **
>
>
> Master XL,
>
> Minta tolong bantuannya, saya memiliki data HT dan setiap saat operator HT
> akan melakukan panggilan keluar dan menerima panggilan masuk. Adappun data
> yang ingin saya sajikan adalah :
> 1. Summary HT per 3 jam , tabel seperti di sheet "SUMMARY"
> 2. Tampilan grafik untuk 20 list HT yang terbanyak melakukan panggilan
> Call in dan Call out
> 3. Tampilan grafik untuk 20 list HT yang paling sedikit melakukan
> panggilan Call in dan Call Out
> 4. pada sheet Call in dan Call out, kolom Time hanya bisa di isi kalau HT
> ID sudah di isi, kolom Guard in Charge bisa di isi kalau kolom Time sudah
> di isi, Kolom Remarks bisa di isi kalau kolom Guard in charge sudah di isi
> 3. Non aktif fungsi copy paste" klik Kanan atau ctrl c dan ctrl v "
>
> Terimakasih
> arkan
>
>
>
>
>

Fri Dec 28, 2012 12:00 am (PST) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,
Ibu. Jan Raisin

Terima kasih atas informasinya.
It's work.

regards,

Harry

________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 28 Desember 2012 10:17
Judul: Re: [belajar-excel] Format Currency


 
Pak Harry,

coba manfaatkan event change pada text box

Private Sub TextBox1_Change()
    TextBox1.Value = Format(TextBox1.Value, "#,###")
End Sub

Best Regard,

-Ms. Jan Raisin-

Pada 27 Desember 2012 19:21, Harry <hariansyahptk@yahoo.com> menulis:


>Dear BeExceller,
>
>
>Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi UserForm yang formatnya Currency.
>Pada UserForm yang saya buat selama ini hanya berformat Text misalnya 15000. Yang saya inginkan otomatis berformat 15,000.-
>
>
>Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
>
>Terima kasih & Wassalam,
>
>
>
>
>Harry

Fri Dec 28, 2012 12:07 am (PST) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian ComboBox dengan format isian lengkap baru kolom dibawahnya bisa muncul. Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya tidak muncul.

Rumus yang saya gunakan selama ini adalah sbb:

Private Sub UserForm_Initialize()
   Dim I As Long, TbHeigh As Long, TbWidth
   Application.EnableEvents = False
   With Cbonama
      .ColumnCount = 2
      .BoundColumn = 1
      For I = 1 To TbHeigh
         .AddItem
         .List(I - 1, 0) = MemMaster(I, 2)
      Next I
   End With
   Application.EnableEvents = True
End Sub

Private Sub Cbonama_Change()
   Dim r As Integer
   If Cbonama.ListIndex > -1 Then
      r = Cbonama.ListIndex + 1
      If r > 0 Then
         txtalamat.Value = MemMaster(r, 2)
         txtkota.Value = MemMaster(r, 3)
      End If
   End If
End Sub

Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H" pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya otomatis muncul isian "ALAMAT" & "KOTA".

Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis. "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.

Mohon bantuan rekan-rekan BeExceller akan hal tersebut.

Terima kasih & Wassalam,

Harry

Fri Dec 28, 2012 6:51 am (PST) . Posted by:

"Slamet" slametharto

Dear Pak Harry

Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan
contoh tersebut be-exceller lain bisa membantu menjawab dgn melihat
struktur datanya.

Wassalam

On 12/28/2012 3:01 PM, Harry wrote:
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya
> pengisian ComboBox dengan format isian lengkap baru kolom di bawahnya
> bisa muncul. Dan ika isian ComboBoxnya tidak lengkap atau salah, maka
> kolom dibawahnya tidak muncul.
>
> Rumus yang saya gunakan selama ini adalah sbb:
>
> Private Sub UserForm_Initialize()
> Dim I As Long, TbHeigh As Long, TbWidth
> Application.EnableEvents = False
> With Cbonama
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.EnableEvents = True
> End Sub
>
> Private Sub Cbonama_Change()
> Dim r As Integer
> If Cbonama.ListIndex > -1 Then
> r = Cbonama.ListIndex + 1
> If r > 0 Then
> txtalamat.Value = MemMaster(r, 2)
> txtkota.Value = MemMaster(r, 3)
> End If
> End If
> End Sub
>
>
> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di
> bawahnya otomatis muncul isian "ALAMAT" & "KOTA".
>
> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika
> isian ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>

Fri Dec 28, 2012 6:52 am (PST) . Posted by:

"Slamet" slametharto

Pak Harry

coba dengan
TextBox1.Value = Format(TextBox1.Value, 0)

Wassalam

On 12/27/2012 7:21 PM, Harry wrote:
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi
> UserForm yang formatnya Currency.
> Pada UserForm yang saya buat selama ini hanya berformat Text misalnya
> 15000. Yang saya inginkan otomatis berformat 15,000.-
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>

Fri Dec 28, 2012 8:32 am (PST) . Posted by:

"Flow Nanank" flow.nanank

Dear BeExceller,,

Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
kode produk terdiri dari 2 huruf dan angka 4 angka,,

file terlampir...

Thank'z

Fri Dec 28, 2012 9:27 am (PST) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Mohon informasi dari rekan-rekan BeExceller bagaimana caranya mengisi UserForm yang formatnya number.
Pada UserForm yang saya buat selama ini, jika saya input 0101, maka yang tersimpan di database adalah 101. yang saya inginkan data yang tersimpan adalah 0101.

Mohon bantuan rekan-rekan BeExceller akan hal tersebut.

Terima kasih & Wassalam,

Harry
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar