14 New Messages
Digest #1992
2b
Re: Kenapa Koma di Text File dianggap sebagai baris baru oleh vba? by "Mr. Kid" nmkid.family@ymail.com
3a
Re: Masukkan data dari Text File ke Excel (Setiap tab ke setiap kolo by "Mr. Kid" nmkid.family@ymail.com
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
Rumus pak tono sudah benar, cuma kurang argumen jika J = FALSE
Rumus pak Tono pada K8 adalah:
=IF(J8>1,0.5%
Coba tambahkan 0 jika bernilai FALSE, menjadi:
=IF(J8>1,0.5%
Bagus
----- Original Message -----
From: Tony Bexcel
To: belajar-excel@
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
>
>
>
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.
> **
>
>
> **
> 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%
>
> Coba tambahkan 0 jika bernilai FALSE, menjadi:
> =IF(J8>1,0.5%
>
>
> Bagus
>
>
> ----- Original Message -----
> *From:* Tony Bexcel <tonybexcel@yahoo.
> *To:* belajar-excel@
> *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.
>
--- In belajar-excel@
>
> وَعَلَيÙ'ÙƒÙÙ…Ù' السÙ`َلاَمÙ
وَرَØÙ'مَة٠اللهÙ
وَبَرَكَاته
> 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(
> 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.
> Loop
> Close #1
> End Sub
>
> Wassalam
> Powered by Telkomsel BlackBerry®
>
> -----Original Message-----
> From: "Adi" abduhsuryadi@
> Sender: belajar-excel@
> Date: Thu, 27 Dec 2012 09:34:48
> To: belajar-excel@
> Reply-To: belajar-excel@
> 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,
>
> 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(
> 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.
>
>
>
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,
>
> 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(
> 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.
> >
> >
> >
>
terima kasih semua atas perhatiannya.
wassalamu'alaikum Wr. Wb.
--- In belajar-excel@
>
> 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,
> >
> > 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(
> > 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...
> > > > >>
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
>
>
Wassalam,
Kid.
2012/12/28 Adi <abduhsuryadi@
> **
>
>
> 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,
>
> akan berada di record/row baru yang lain di excel. bagaimana cara
> menanganinya?
> terima kasih Mr.
>
> Wassalam....
>
> --- In belajar-excel@
> >
> > 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@
> > > 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@
>
> > >
> > > >
> > > > > Wa'alaikumsalam wr. wb.,
> > > > >
> > > > > Sambil menunggu saran dari yang lain, coba tambahkan script
> berikut ini
> > > > > setelah close #1
> > > > > Range(Cells(
> > > > > Cells(5,2), xlDelimited, xlTextQualifierDoub
> > > > >
> > > > > Wassalamu'alaikum wr. wb.,
> > > > >
> > > > > -Ms. Jan Raisin-
> > > > >
> > > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@
>
> > > > >
> > > > > **
> > >
> > > > >>
> > > > >>
> > > > >> 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(
> > > > >> 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...
> > > > >>
> > > > >>
> > > > >>
> > > > >
> > > > >
> > > >
> > >
> > >
> > >
> >
>
thanks. Wassalamu'alakum Wr. Wb.
--- In belajar-excel@
>
> 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,
>
> akan berada di record/row baru yang lain di excel. bagaimana cara menanganinya?
> terima kasih Mr.
>
> Wassalam....
> --- In belajar-excel@
> >
> > 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@
> > > 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@
> > >
> > > >
> > > > > Wa'alaikumsalam wr. wb.,
> > > > >
> > > > > Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
> > > > > setelah close #1
> > > > > Range(Cells(
> > > > > Cells(5,2), xlDelimited, xlTextQualifierDoub
> > > > >
> > > > > Wassalamu'alaikum wr. wb.,
> > > > >
> > > > > -Ms. Jan Raisin-
> > > > >
> > > > > Pada 26 Desember 2012 17:57, Adi <abduhsuryadi@
> > > > >
> > > > > **
> > >
> > > > >>
> > > > >>
> > > > >> 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(
> > > > >> 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
>
>
>
>
>
Wassalam,
Kid.
2012/12/27 Abang Jakarta <abang_jakarta17@
> **
>
>
> Terimakasih pak Jan Raisin,
>
> Mr. Kid bisa bantu untuk grafiknya ga?
>
>
> --- On *Wed, 12/26/12, Jan Raisin <miss.jan.raisin@
>
>
> From: Jan Raisin <miss.jan.raisin@
> Subject: Re: [belajar-excel] HT List
> To: belajar-excel@
> Date: Wednesday, December 26, 2012, 6:30 PM
>
>
>
>
> Dear pak Arkan,
>
> formula di C4
> =SUMPRODUCT(
> HT'!$B$6:$B$
> HT'!$B$6:$B$
> copy ke kanan & ke bawah
>
> formula di G4
> =SUMPRODUCT(
> OUT'!$B$7:$B$
> OUT'!$B$7:$B$
> OUT'!$D$7:$D$
> copy ke kanan & ke bawah
>
> formula di K4
> =SUMPRODUCT(
> OUT'!$B$7:$B$
> OUT'!$B$7:$B$
> OUT'!$D$7:$D$
> 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.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> Pada 26 Desember 2012 15:46, Abang Jakarta <abang_jakarta17@
> > 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@
> >* wrote:
>
>
> From: Jan Raisin <miss.jan.raisin@
> >
> Subject: Re: [belajar-excel] HT List
> To: belajar-excel@
> 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@
> > 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
Ibu. Jan Raisin
Terima kasih atas informasinya.
It's work.
regards,
Harry
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
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.
End Sub
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 19:21, Harry <hariansyahptk@
>
>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
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.
With Cbonama
.ColumnCount = 2
.BoundColumn = 1
For I = 1 To TbHeigh
.AddItem
.List(I - 1, 0) = MemMaster(I, 2)
Next I
End With
Application.
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
>
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.
> With Cbonama
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.
> 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
>
coba dengan
TextBox1.Value = Format(TextBox1.
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
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
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
---------------------------------------------------------------------
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