15 New Messages
Digest #2291
Messages
Fri May 10, 2013 7:57 am (PDT) . Posted by:
"Bambang trianto wibowo" bambang_trianto2002
Dear para master.
saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
masternya aja.
berikut saya lampirkan Filenya.
Regards,
Bambang.
saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
masternya aja.
berikut saya lampirkan Filenya.
Regards,
Bambang.
Fri May 10, 2013 8:30 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir menggunakan Pivot Table Consolidation Range.
Cara membuat pivot table consolidation range bisa dilihat pada file
lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
milis) di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
Wassalam,
Kid.
2013/5/10 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
> **
>
>
> Dear para master.
>
> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
> masternya aja.
>
> berikut saya lampirkan Filenya.
>
> Regards,
> Bambang.
>
>
>
Cara membuat pivot table consolidation range bisa dilihat pada file
lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
milis) di :
http://milis-
Wassalam,
Kid.
2013/5/10 Bambang trianto wibowo <bambang.trianto2002
> **
>
>
> Dear para master.
>
> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
> masternya aja.
>
> berikut saya lampirkan Filenya.
>
> Regards,
> Bambang.
>
>
>
Fri May 10, 2013 10:16 am (PDT) . Posted by:
"Bambang trianto wibowo" bambang_trianto2002
thank's mr kid..
cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
bisa di jelakan langkahnya.. :))
Regards,
Bambang trianto
Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> File terlampir menggunakan Pivot Table Consolidation Range.
>
> Cara membuat pivot table consolidation range bisa dilihat pada file
> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
> milis) di :
>
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
>
>> **
>>
>>
>> Dear para master.
>>
>> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
>> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
>> masternya aja.
>>
>> berikut saya lampirkan Filenya.
>>
>> Regards,
>> Bambang.
>>
>>
>
>
cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
bisa di jelakan langkahnya.. :))
Regards,
Bambang trianto
Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> File terlampir menggunakan Pivot Table Consolidation Range.
>
> Cara membuat pivot table consolidation range bisa dilihat pada file
> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
> milis) di :
>
> http://milis-
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002
>
>> **
>>
>>
>> Dear para master.
>>
>> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
>> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
>> masternya aja.
>>
>> berikut saya lampirkan Filenya.
>>
>> Regards,
>> Bambang.
>>
>>
>
>
Fri May 10, 2013 10:18 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Loh... kok yang diunduh cuma file yang dilampirkan saja...
Bukankah sudah dijelaskan begini :
Cara membuat pivot table consolidation range bisa dilihat pada file
lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
milis) di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
Belum mencoba kesana dan unduh filenya ya...
Wassalam,
Kid.
2013/5/11 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
> **
>
>
> thank's mr kid..
>
> cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
>
> bisa di jelakan langkahnya.. :))
>
> Regards,
> Bambang trianto
>
>
> Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> File terlampir menggunakan Pivot Table Consolidation Range.
>>
>> Cara membuat pivot table consolidation range bisa dilihat pada file
>> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
>> milis) di :
>>
>> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
>>
>>> **
>>>
>>>
>>> Dear para master.
>>>
>>> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
>>> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
>>> masternya aja.
>>>
>>> berikut saya lampirkan Filenya.
>>>
>>> Regards,
>>> Bambang.
>>>
>>>
>>
>
>
Bukankah sudah dijelaskan begini :
Cara membuat pivot table consolidation range bisa dilihat pada file
lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
milis) di :
http://milis-
Belum mencoba kesana dan unduh filenya ya...
Wassalam,
Kid.
2013/5/11 Bambang trianto wibowo <bambang.trianto2002
> **
>
>
> thank's mr kid..
>
> cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
>
> bisa di jelakan langkahnya.. :))
>
> Regards,
> Bambang trianto
>
>
> Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> File terlampir menggunakan Pivot Table Consolidation Range.
>>
>> Cara membuat pivot table consolidation range bisa dilihat pada file
>> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
>> milis) di :
>>
>> http://milis-
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002
>>
>>> **
>>>
>>>
>>> Dear para master.
>>>
>>> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
>>> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
>>> masternya aja.
>>>
>>> berikut saya lampirkan Filenya.
>>>
>>> Regards,
>>> Bambang.
>>>
>>>
>>
>
>
Fri May 10, 2013 11:16 am (PDT) . Posted by:
"Bambang trianto wibowo" bambang_trianto2002
oce" mr. kid
udah paham..thank's ilmunya..
regards
bambang
Pada 11 Mei 2013 00.18, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Loh... kok yang diunduh cuma file yang dilampirkan saja...
>
> Bukankah sudah dijelaskan begini :
>
> Cara membuat pivot table consolidation range bisa dilihat pada file
> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
> milis) di :
>
> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
>
> Belum mencoba kesana dan unduh filenya ya...
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/11 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
>
>> **
>>
>>
>> thank's mr kid..
>>
>> cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
>>
>> bisa di jelakan langkahnya.. :))
>>
>> Regards,
>> Bambang trianto
>>
>>
>> Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.com > menulis:
>>
>> **
>>>
>>>
>>> File terlampir menggunakan Pivot Table Consolidation Range.
>>>
>>> Cara membuat pivot table consolidation range bisa dilihat pada file
>>> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
>>> milis) di :
>>>
>>> http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-split-data-td5713571.html#a5713572
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002@gmail.com >
>>>
>>>> **
>>>>
>>>>
>>>> Dear para master.
>>>>
>>>> saya kebingungan gimana cara untuk rekap dengan 4 kondisi dan secara
>>>> otomatis hasil rekap itu sudah terisi. dengan hanya mengambil data
>>>> masternya aja.
>>>>
>>>> berikut saya lampirkan Filenya.
>>>>
>>>> Regards,
>>>> Bambang.
>>>>
>>>>
>>>
>>
>
>
udah paham..thank&#
regards
bambang
Pada 11 Mei 2013 00.18, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Loh... kok yang diunduh cuma file yang dilampirkan saja...
>
> Bukankah sudah dijelaskan begini :
>
> Cara membuat pivot table consolidation range bisa dilihat pada file
> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
> milis) di :
>
> http://milis-
>
> Belum mencoba kesana dan unduh filenya ya...
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/11 Bambang trianto wibowo <bambang.trianto2002
>
>> **
>>
>>
>> thank's mr kid..
>>
>> cuma saya kurang tau gimana caranya pivot table dengan dua sheet :)
>>
>> bisa di jelakan langkahnya.. :))
>>
>> Regards,
>> Bambang trianto
>>
>>
>> Pada 10 Mei 2013 22.30, Mr. Kid <mr.nmkid@gmail.
>>
>> **
>>>
>>>
>>> File terlampir menggunakan Pivot Table Consolidation Range.
>>>
>>> Cara membuat pivot table consolidation range bisa dilihat pada file
>>> lampiran posting lawas yang dapat diunduh dari link ke nabble (backup
>>> milis) di :
>>>
>>> http://milis-
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>> 2013/5/10 Bambang trianto wibowo <bambang.trianto2002
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
Fri May 10, 2013 9:16 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear Master-master Excel,
Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
Private Sub UserForm_Initialize()
dtpJual.Value = Now
' mengenali tabel referensi
Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
tRows = Tbl.Rows.Count - 1
trows2 = Tbl2.Rows.Count - 1
' mengisi list pada KomboKategori
sUniq = "|"
sUniq2 = "ll"
For i = 1 To tRows
' mengambil UniqValues -nya, dgn cara primitif..
If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
sUniq = sUniq & Tbl(i, 2) & "|"
cmbKategoriJ.AddItem Tbl(i, 2)
End If
Next i
For ii = 1 To trows2
If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
cmbJenisMotor.AddItem Tbl2(i, 2)
End If
Next ii
txtPelanggan.SetFocus
End Sub
Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
Trimakasih sebelumnya
Wassalam,
Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
Private Sub UserForm_Initialize
dtpJual.Value = Now
' mengenali tabel referensi
Set Tbl = Sheets("
Set Tbl2 = Sheets("
tRows = Tbl.Rows.Count - 1
trows2 = Tbl2.Rows.Count - 1
' mengisi list pada KomboKategori
sUniq = "|"
sUniq2 = "ll"
For i = 1 To tRows
' mengambil UniqValues -nya, dgn cara primitif..
If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
sUniq = sUniq & Tbl(i, 2) & "|"
cmbKategoriJ.
End If
Next i
For ii = 1 To trows2
If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
cmbJenisMotor.
End If
Next ii
txtPelanggan.
End Sub
Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
Trimakasih sebelumnya
Wassalam,
Fri May 10, 2013 9:23 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka
combobox2 menampilkan item anggotanya si anu saja.
Coba file terlampir pada sheet 'daftar_item_berjenjang'
Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.AddItem Tbl2(i, 2)
> End If
> Next ii
> txtPelanggan.SetFocus
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
combobox2 menampilkan item anggotanya si anu saja.
Coba file terlampir pada sheet 'daftar_
Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
> Set Tbl2 = Sheets("
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.
> End If
> Next ii
> txtPelanggan.
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
Fri May 10, 2013 9:57 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Trimakasih mas Kid tanggapannya
Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
Mohon petunjuknya lagi
Trimakasih sebelumnya
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Friday, May 10, 2013 11:23 PM
Subject: Re: [belajar-excel] Initialize combobox ganda
Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
Coba file terlampir pada sheet 'daftar_item_berjenjang'
Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
>Dear Master-master Excel,
>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
>Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.AddItem Tbl2(i, 2)
> End If
> Next ii
> txtPelanggan.SetFocus
>End Sub
>
>
>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
>Trimakasih sebelumnya
>
>
>Wassalam,
>
Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
Mohon petunjuknya lagi
Trimakasih sebelumnya
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, May 10, 2013 11:23 PM
Subject: Re: [belajar-excel] Initialize combobox ganda
Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
Coba file terlampir pada sheet 'daftar_
Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.
>
>Dear Master-master Excel,
>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
>Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
> Set Tbl2 = Sheets("
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.
> End If
> Next ii
> txtPelanggan.
>End Sub
>
>
>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
>Trimakasih sebelumnya
>
>
>Wassalam,
>
Fri May 10, 2013 10:06 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya
harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok
kedua jenjang motor sampai selesai.
Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3
combobox di blok jenjang 2.
Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok
pengaturan jenjang.
Dalam script tetap disusun beriringan
'blok jenjang 1
'disini sampai selesai
'blok jenjang 2
'disini sampai selesai
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> Trimakasih mas Kid tanggapannya
> Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu
> combobox kategori barang
> Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si
> kategori yg terpilih
> Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat
> initialize ada 2 combobox yg akan terisi pada saat userform dibuka=
> combobox kategori barang (cmbKategoriJ) dan combobox jenis motor
> (cmbJenisMotor)
> combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
> combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor
> dst gitu mas
> Mohon petunjuknya lagi
> Trimakasih sebelumnya
> Wassalam,
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, May 10, 2013 11:23 PM
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka
> combobox2 menampilkan item anggotanya si anu saja.
>
> Coba file terlampir pada sheet 'daftar_item_berjenjang'
> Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
> **
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.AddItem Tbl2(i, 2)
> End If
> Next ii
> txtPelanggan.SetFocus
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok
kedua jenjang motor sampai selesai.
Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3
combobox di blok jenjang 2.
Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok
pengaturan jenjang.
Dalam script tetap disusun beriringan
'blok jenjang 1
'disini sampai selesai
'blok jenjang 2
'disini sampai selesai
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Trimakasih mas Kid tanggapannya
> Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu
> combobox kategori barang
> Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si
> kategori yg terpilih
> Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat
> initialize ada 2 combobox yg akan terisi pada saat userform dibuka=
> combobox kategori barang (cmbKategoriJ) dan combobox jenis motor
> (cmbJenisMotor)
> combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
> combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor
> dst gitu mas
> Mohon petunjuknya lagi
> Trimakasih sebelumnya
> Wassalam,
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Friday, May 10, 2013 11:23 PM
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka
> combobox2 menampilkan item anggotanya si anu saja.
>
> Coba file terlampir pada sheet 'daftar_
> Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
> Set Tbl2 = Sheets("
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.
> End If
> Next ii
> txtPelanggan.
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
Fri May 10, 2013 10:32 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan (menurut saya)
Tapi masih salah juga
Private Sub UserForm_Initialize()
dtpJual.Value = Now
' mengenali tabel referensi
Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
tRows = Tbl.Rows.Count - 1
'mengisi list pada KomboKategori
sUniq = "|"
For i = 1 To tRows
' mengambil UniqValues -nya, dgn cara primitif..
If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
sUniq = sUniq & Tbl(i, 2) & "|"
cmbKategoriJ.AddItem Tbl(i, 2)
End If
Next i
Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
tRows2 = Tbl2.Rows.Count - 1
sUniq2 = "||"
For ii = 1 To tRows2
If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||") = 0 Then
sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
cmbJenisMotor.AddItem Tbl2(ii, 2)
End If
Next ii
txtPelanggan.SetFocus
End Sub
Lebih jelasnya saya lampirkan filenya
Trimakasih sebelumnya
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Saturday, May 11, 2013 12:05 AM
Subject: Re: [belajar-excel] Initialize combobox ganda
Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua jenjang motor sampai selesai.
Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 combobox di blok jenjang 2.
Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok pengaturan jenjang.
Dalam script tetap disusun beriringan
'blok jenjang 1
'disini sampai selesai
'blok jenjang 2
'disini sampai selesai
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
>Trimakasih mas Kid tanggapannya
>Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
>Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
>
>Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
>
>combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
>combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
>Mohon petunjuknya lagi
>Trimakasih sebelumnya
>Wassalam,
>
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: BeExcel <belajar-excel@yahoogroups.com >
>Sent: Friday, May 10, 2013 11:23 PM
>Subject: Re: [belajar-excel] Initialize combobox ganda
>
>
>
>
>Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
>
>Coba file terlampir pada sheet 'daftar_item_berjenjang'
>Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
>
>>
>>Dear Master-master Excel,
>>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
>>Private Sub UserForm_Initialize()
>> dtpJual.Value = Now
>> ' mengenali tabel referensi
>> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
>> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
>> tRows = Tbl.Rows.Count - 1
>> trows2 = Tbl2.Rows.Count - 1
>> ' mengisi list pada KomboKategori
>> sUniq = "|"
>> sUniq2 = "ll"
>> For i = 1 To tRows
>> ' mengambil UniqValues -nya, dgn cara primitif..
>> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
>> sUniq = sUniq & Tbl(i, 2) & "|"
>> cmbKategoriJ.AddItem Tbl(i, 2)
>> End If
>> Next i
>> For ii = 1 To trows2
>> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
>> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
>> cmbJenisMotor.AddItem Tbl2(i, 2)
>> End If
>> Next ii
>> txtPelanggan.SetFocus
>>End Sub
>>
>>
>>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
>>Trimakasih sebelumnya
>>
>>
>>Wassalam,
>>
>
>
>
Tapi masih salah juga
Private Sub UserForm_Initialize
dtpJual.Value = Now
' mengenali tabel referensi
Set Tbl = Sheets("
tRows = Tbl.Rows.Count - 1
'mengisi list pada KomboKategori
sUniq = "|"
For i = 1 To tRows
' mengambil UniqValues -nya, dgn cara primitif..
If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
sUniq = sUniq & Tbl(i, 2) & "|"
cmbKategoriJ.
End If
Next i
Set Tbl2 = Sheets("
tRows2 = Tbl2.Rows.Count - 1
sUniq2 = "||"
For ii = 1 To tRows2
If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||"
sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
cmbJenisMotor.
End If
Next ii
txtPelanggan.
End Sub
Lebih jelasnya saya lampirkan filenya
Trimakasih sebelumnya
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Saturday, May 11, 2013 12:05 AM
Subject: Re: [belajar-excel] Initialize combobox ganda
Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua jenjang motor sampai selesai.
Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 combobox di blok jenjang 2.
Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok pengaturan jenjang.
Dalam script tetap disusun beriringan
'blok jenjang 1
'disini sampai selesai
'blok jenjang 2
'disini sampai selesai
Wassalam,
Kid.
2013/5/10 lapendosol opik <lapendosol@yahoo.
>
>Trimakasih mas Kid tanggapannya
>Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
>Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
>
>Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
>
>combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
>combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
>Mohon petunjuknya lagi
>Trimakasih sebelumnya
>Wassalam,
>
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Friday, May 10, 2013 11:23 PM
>Subject: Re: [belajar-excel] Initialize combobox ganda
>
>
>
>
>Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
>
>Coba file terlampir pada sheet 'daftar_
>Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/5/10 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Dear Master-master Excel,
>>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
>>Private Sub UserForm_Initialize
>> dtpJual.Value = Now
>> ' mengenali tabel referensi
>> Set Tbl = Sheets("
>> Set Tbl2 = Sheets("
>> tRows = Tbl.Rows.Count - 1
>> trows2 = Tbl2.Rows.Count - 1
>> ' mengisi list pada KomboKategori
>> sUniq = "|"
>> sUniq2 = "ll"
>> For i = 1 To tRows
>> ' mengambil UniqValues -nya, dgn cara primitif..
>> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
>> sUniq = sUniq & Tbl(i, 2) & "|"
>> cmbKategoriJ.
>> End If
>> Next i
>> For ii = 1 To trows2
>> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
>> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
>> cmbJenisMotor.
>> End If
>> Next ii
>> txtPelanggan.
>>End Sub
>>
>>
>>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
>>Trimakasih sebelumnya
>>
>>
>>Wassalam,
>>
>
>
>
Fri May 10, 2013 10:37 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba deh dilihat lagi pada file vba_contoh_combobox.xlsm
Apa beda tabel di kolom A dan kolom lainnya ?
Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique
item dari kolom pertama
Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique
record berdasar kolom pertama dan kedua
Begitu seterusnya.
Kemudian bandingkan dengan data yang telah Anda susun.
Wassalam,
Kid.
2013/5/11 lapendosol opik <lapendosol@yahoo.com >
> **
>
>
> Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan
> (menurut saya)
> Tapi masih salah juga
> Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
> tRows = Tbl.Rows.Count - 1
> 'mengisi list pada KomboKategori
> sUniq = "|"
>
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
>
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows2 = Tbl2.Rows.Count - 1
> sUniq2 = "||"
> For ii = 1 To tRows2
> If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||") = 0 Then
> sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
> cmbJenisMotor.AddItem Tbl2(ii, 2)
>
> End If
> Next ii
> txtPelanggan.SetFocus
> End Sub
>
> Lebih jelasnya saya lampirkan filenya
> Trimakasih sebelumnya
> Wassalam,
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Saturday, May 11, 2013 12:05 AM
>
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya
> harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok
> kedua jenjang motor sampai selesai.
>
> Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
> Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
> Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3
> combobox di blok jenjang 2.
> Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok
> pengaturan jenjang.
>
> Dalam script tetap disusun beriringan
>
> 'blok jenjang 1
> 'disini sampai selesai
>
> 'blok jenjang 2
> 'disini sampai selesai
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
> **
>
> Trimakasih mas Kid tanggapannya
> Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu
> combobox kategori barang
> Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si
> kategori yg terpilih
> Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat
> initialize ada 2 combobox yg akan terisi pada saat userform dibuka=
> combobox kategori barang (cmbKategoriJ) dan combobox jenis motor
> (cmbJenisMotor)
> combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
> combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor
> dst gitu mas
> Mohon petunjuknya lagi
> Trimakasih sebelumnya
> Wassalam,
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com >
> *Sent:* Friday, May 10, 2013 11:23 PM
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka
> combobox2 menampilkan item anggotanya si anu saja.
>
> Coba file terlampir pada sheet 'daftar_item_berjenjang'
> Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
> **
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.AddItem Tbl2(i, 2)
> End If
> Next ii
> txtPelanggan.SetFocus
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
>
>
>
Apa beda tabel di kolom A dan kolom lainnya ?
Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique
item dari kolom pertama
Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique
record berdasar kolom pertama dan kedua
Begitu seterusnya.
Kemudian bandingkan dengan data yang telah Anda susun.
Wassalam,
Kid.
2013/5/11 lapendosol opik <lapendosol@yahoo.
> **
>
>
> Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan
> (menurut saya)
> Tapi masih salah juga
> Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
> tRows = Tbl.Rows.Count - 1
> 'mengisi list pada KomboKategori
> sUniq = "|"
>
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
>
> Set Tbl2 = Sheets("
> tRows2 = Tbl2.Rows.Count - 1
> sUniq2 = "||"
> For ii = 1 To tRows2
> If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||"
> sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
> cmbJenisMotor.
>
> End If
> Next ii
> txtPelanggan.
> End Sub
>
> Lebih jelasnya saya lampirkan filenya
> Trimakasih sebelumnya
> Wassalam,
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Saturday, May 11, 2013 12:05 AM
>
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya
> harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok
> kedua jenjang motor sampai selesai.
>
> Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
> Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
> Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3
> combobox di blok jenjang 2.
> Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok
> pengaturan jenjang.
>
> Dalam script tetap disusun beriringan
>
> 'blok jenjang 1
> 'disini sampai selesai
>
> 'blok jenjang 2
> 'disini sampai selesai
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Trimakasih mas Kid tanggapannya
> Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu
> combobox kategori barang
> Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si
> kategori yg terpilih
> Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat
> initialize ada 2 combobox yg akan terisi pada saat userform dibuka=
> combobox kategori barang (cmbKategoriJ) dan combobox jenis motor
> (cmbJenisMotor)
> combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
> combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor
> dst gitu mas
> Mohon petunjuknya lagi
> Trimakasih sebelumnya
> Wassalam,
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Friday, May 10, 2013 11:23 PM
> *Subject:* Re: [belajar-excel] Initialize combobox ganda
>
>
> Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka
> combobox2 menampilkan item anggotanya si anu saja.
>
> Coba file terlampir pada sheet 'daftar_
> Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>
> Wassalam,
> Kid.
>
>
>
> 2013/5/10 lapendosol opik <lapendosol@yahoo.
>
> **
>
> Dear Master-master Excel,
> Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan
> masih saja salah
> Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
> Set Tbl2 = Sheets("
> tRows = Tbl.Rows.Count - 1
> trows2 = Tbl2.Rows.Count - 1
> ' mengisi list pada KomboKategori
> sUniq = "|"
> sUniq2 = "ll"
> For i = 1 To tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
> For ii = 1 To trows2
> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
> cmbJenisMotor.
> End If
> Next ii
> txtPelanggan.
> End Sub
>
> Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori
> barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi
> otomatis sesuai tabel referensinya
> Trimakasih sebelumnya
>
> Wassalam,
>
>
>
>
>
>
>
>
>
Fri May 10, 2013 10:48 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Astaghfirullah ada yg lupa Mas hehehehe, jadi malu sendiri
Ternyata saya belum pasang Dim Tbl2 As Range dan sebagainya, pantes error
Saya lihat di vba_contoh_combobox.xlsm ada Dim, saya cocokkan dengan data saya, Dimnya saya taro dipaling atas, pantes error terus
Trimakasih Mas petunjuknya
Case close
Wassalam,
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Saturday, May 11, 2013 12:37 AM
Subject: Re: [belajar-excel] Initialize combobox ganda
Coba deh dilihat lagi pada file vba_contoh_combobox.xlsm
Apa beda tabel di kolom A dan kolom lainnya ?
Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique item dari kolom pertama
Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique record berdasar kolom pertama dan kedua
Begitu seterusnya.
Kemudian bandingkan dengan data yang telah Anda susun.
Wassalam,
Kid.
2013/5/11 lapendosol opik <lapendosol@yahoo.com >
>
>Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan (menurut saya)
>Tapi masih salah juga
>Private Sub UserForm_Initialize()
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
>
> tRows = Tbl.Rows.Count - 1
> 'mengisi list pada KomboKategori
> sUniq = "|"
>
> For i = 1 To
tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.AddItem Tbl(i, 2)
> End If
> Next i
>
>
> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
> tRows2 = Tbl2.Rows.Count - 1
> sUniq2 = "||"
> For ii = 1 To tRows2
> If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||") = 0 Then
> sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
> cmbJenisMotor.AddItem Tbl2(ii, 2)
>
> End If
> Next ii
> txtPelanggan.SetFocus
>End Sub
>
>
>
>Lebih jelasnya saya lampirkan filenya
>Trimakasih sebelumnya
>Wassalam,
>
>
>
>________________________________
> From: Mr. Kid <mr.nmkid@gmail.com >
>To: BeExcel <belajar-excel@yahoogroups.com >
>Sent: Saturday, May 11, 2013 12:05 AM
>
>Subject: Re: [belajar-excel] Initialize combobox ganda
>
>
>
>
>Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua jenjang motor sampai selesai.
>
>Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
>Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
>Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 combobox di blok jenjang 2.
>Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok pengaturan jenjang.
>
>Dalam script tetap disusun beriringan
>
>'blok jenjang 1
> 'disini sampai selesai
>
>'blok jenjang 2
> 'disini sampai selesai
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>
>
>>
>>Trimakasih mas Kid tanggapannya
>>Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
>>Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
>>
>>Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
>>
>>combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
>>combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
>>Mohon petunjuknya lagi
>>Trimakasih sebelumnya
>>Wassalam,
>>
>>
>>
>>
>>________________________________
>> From: Mr. Kid <mr.nmkid@gmail.com >
>>To: BeExcel <belajar-excel@yahoogroups.com >
>>Sent: Friday, May 10, 2013 11:23 PM
>>Subject: Re: [belajar-excel] Initialize combobox ganda
>>
>>
>>
>>
>>Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
>>
>>Coba file terlampir pada sheet 'daftar_item_berjenjang'
>>Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/5/10 lapendosol opik <lapendosol@yahoo.com >
>>
>>
>>>
>>>Dear Master-master Excel,
>>>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih saja salah
>>>Private Sub UserForm_Initialize()
>>> dtpJual.Value = Now
>>> ' mengenali tabel referensi
>>> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
>>> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
>>> tRows = Tbl.Rows.Count - 1
>>> trows2 = Tbl2.Rows.Count - 1
>>> ' mengisi list pada KomboKategori
>>> sUniq = "|"
>>> sUniq2 = "ll"
>>> For i = 1 To tRows
>>> ' mengambil UniqValues -nya, dgn cara primitif..
>>> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
>>> sUniq = sUniq & Tbl(i, 2) & "|"
>>> cmbKategoriJ.AddItem Tbl(i, 2)
>>> End If
>>> Next i
>>> For ii = 1 To trows2
>>> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
>>> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
>>> cmbJenisMotor.AddItem Tbl2(i, 2)
>>> End If
>>> Next ii
>>> txtPelanggan.SetFocus
>>>End Sub
>>>
>>>
>>>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis sesuai tabel referensinya
>>>Trimakasih sebelumnya
>>>
>>>
>>>Wassalam,
>>>
>>
>>
>>
>
>
>
Ternyata saya belum pasang Dim Tbl2 As Range dan sebagainya, pantes error
Saya lihat di vba_contoh_combobox
Trimakasih Mas petunjuknya
Case close
Wassalam,
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Saturday, May 11, 2013 12:37 AM
Subject: Re: [belajar-excel] Initialize combobox ganda
Coba deh dilihat lagi pada file vba_contoh_combobox
Apa beda tabel di kolom A dan kolom lainnya ?
Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique item dari kolom pertama
Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique record berdasar kolom pertama dan kedua
Begitu seterusnya.
Kemudian bandingkan dengan data yang telah Anda susun.
Wassalam,
Kid.
2013/5/11 lapendosol opik <lapendosol@yahoo.
>
>Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan (menurut saya)
>Tapi masih salah juga
>Private Sub UserForm_Initialize
> dtpJual.Value = Now
> ' mengenali tabel referensi
> Set Tbl = Sheets("
>
> tRows = Tbl.Rows.Count - 1
> 'mengisi list pada KomboKategori
> sUniq = "|"
>
> For i = 1 To
tRows
> ' mengambil UniqValues -nya, dgn cara primitif..
> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
> sUniq = sUniq & Tbl(i, 2) & "|"
> cmbKategoriJ.
> End If
> Next i
>
>
> Set Tbl2 = Sheets("
> tRows2 = Tbl2.Rows.Count - 1
> sUniq2 = "||"
> For ii = 1 To tRows2
> If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||"
> sUniq2 = sUniq2 & Tbl2(ii, 2) & "||"
> cmbJenisMotor.
>
> End If
> Next ii
> txtPelanggan.
>End Sub
>
>
>
>Lebih jelasnya saya lampirkan filenya
>Trimakasih sebelumnya
>Wassalam,
>
>
>
>________
> From: Mr. Kid <mr.nmkid@gmail.
>To: BeExcel <belajar-excel@
>Sent: Saturday, May 11, 2013 12:05 AM
>
>Subject: Re: [belajar-excel] Initialize combobox ganda
>
>
>
>
>Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua jenjang motor sampai selesai.
>
>Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang.
>Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1
>Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 combobox di blok jenjang 2.
>Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok pengaturan jenjang.
>
>Dalam script tetap disusun beriringan
>
>'blok jenjang 1
> 'disini sampai selesai
>
>'blok jenjang 2
> 'disini sampai selesai
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>2013/5/10 lapendosol opik <lapendosol@yahoo.
>
>
>>
>>Trimakasih mas Kid tanggapannya
>>Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox kategori barang
>>Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si kategori yg terpilih
>>
>>Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor)
>>
>>combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ
>>combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst gitu mas
>>Mohon petunjuknya lagi
>>Trimakasih sebelumnya
>>Wassalam,
>>
>>
>>
>>
>>____
>> From: Mr. Kid <mr.nmkid@gmail.
>>To: BeExcel <belajar-excel@
>>Sent: Friday, May 10, 2013 11:23 PM
>>Subject: Re: [belajar-excel] Initialize combobox ganda
>>
>>
>>
>>
>>Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka combobox2 menampilkan item anggotanya si anu saja.
>>
>>Coba file terlampir pada sheet 'daftar_
>>Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/
>>
>>
>>>
>>>
>>>
>>>
>>> dtpJual.Value = Now
>>> ' mengenali tabel referensi
>>> Set Tbl = Sheets("
>>> Set Tbl2 = Sheets("
>>> tRows = Tbl.Rows.Count - 1
>>> trows2 = Tbl2.Rows.Count - 1
>>> ' mengisi list pada KomboKategori
>>> sUniq = "|"
>>> sUniq2 = "ll"
>>> For i = 1 To tRows
>>> ' mengambil UniqValues -nya, dgn cara primitif..
>>> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|"
>>> sUniq = sUniq & Tbl(i, 2) & "|"
>>> cmbKategoriJ.
>>> End If
>>> Next i
>>> For ii = 1 To trows2
>>> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll"
>>> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
>>> cmbJenisMotor.
>>> End If
>>> Next ii
>>> txtPelanggan.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Fri May 10, 2013 9:33 am (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Coba gunakan kombinasi fungsi Left, &, Right untuk mengotomatisasi no pada Sheet 2 dan 3 dengan merefer no pada Sheet1.
Salam,
HK
Sent from Samsung Mobile"Mr. Kid" <mr.nmkid@gmail.com > wrote:Sepertinya dengan melampirkan contoh data akan lebih mudah memahami bentuk nomor yang harus dibuat.
Cara menyertakan file lampiran adalah dengan mengirim email ke milis melalui akun email yang Anda daftarkan ke milis seperti Anda meng-email rekan kerja sehari-hari.
Berikut alamat email milis :
belajar-excel@yahoogroups.com
Wassalam,
Kid.
2013/5/10 Murni Always <murnialways_smile@yahoo.co.id >
Selamat Pagi Para Master..
Mohon bantuanya untuk memecahkan kasus penomoran otomatis yang sedang saya hadipi berikut:
Sheet 1 Colom A :Cus/01/IV/2013
Sheet 2 Colom A :Cus/02/IV/2013
Sheet 3 Colom A:...
dan selanjutnya..
bagaimana caranya agar saya tidak mengubah nomor satu-satu,
jadi ketika sayang mengubah disheet 1, untuk sheet selanjutnya akan berubah secara otomatis dan terurut ?
mohon bantuanya para master..
Terima kasih
Murni
Salam,
HK
Sent from Samsung Mobile"
Cara menyertakan file lampiran adalah dengan mengirim email ke milis melalui akun email yang Anda daftarkan ke milis seperti Anda meng-email rekan kerja sehari-hari.
Berikut alamat email milis :
belajar-excel@
Wassalam,
Kid.
2013/5/10 Murni Always <murnialways_
Selamat Pagi Para Master..
Mohon bantuanya untuk memecahkan kasus penomoran otomatis yang sedang saya hadipi berikut:
Sheet 1 Colom A :Cus/01/IV/2013
Sheet 2 Colom A :Cus/02/IV/2013
Sheet 3 Colom A:...
dan selanjutnya.
bagaimana caranya agar saya tidak mengubah nomor satu-satu,
jadi ketika sayang mengubah disheet 1, untuk sheet selanjutnya akan berubah secara otomatis dan terurut ?
mohon bantuanya para master..
Terima kasih
Murni
Fri May 10, 2013 9:56 am (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Jika kita belum mempunyai dasar programming maka tips Mr. Kid (belajar macro dengan cara merekam) adalah cara yang paling praktis dan cukup mudah.
Kemudian kita coba lagi berbagai alternatif dengan cara merekam tsb. Setelah kita mengerti bagaimana proses tsb direkam oleh komputer barulah kita mulai menulis program sendiri dengan menggunakan pola rekaman yang dilakukan komputer. Setelah memahami cara kerjanya kita bisa mulai menggunakan variabel.
Setidaknya itulah yang telah saya lakukan.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] belajar macro
From:"Mr. Kid" <mr.nmkid@gmail.com >
To:BeExcel <belajar-excel@yahoogroups.com >
Cc:
Wa'alaikumussalam Wr. Wb.
Cara belajar macro ya...
sepertinya bisa diawali begini :
1. Pahami dasar-dasar Excel seperti :
>> tipe data di cell Excel,
>> memahami apa itu sheet, worksheet, workbook, cell, range (sepertinya mudah ya)
>> fitur-fitur Excel dan tabiatnya (yang umum saja dulu seperi copy, paste special, goto special, sort, autofilter, delete row, clear, clear contents)
2. Mengenal Macro
>> lihat-lihat fitur Excel tentang Record Macro
>> lihat-lihat object control seperti checkbox, listbox, dsb yang bisa dipasang dalam worksheet, termasuk properti dan format control-nya
>> baca-baca tentang cara record macro, stopr recording
3. Mengenal area menulis script
>> cara ke VBE atau kembali ke worksheet
>> barang-barang dalam VBE (Project Explorer beserta isinya, window properties, lembar script, combobox untuk pilih object, combobox untuk pilih event, dsb
4. Baca-baca tentang VBA (bahasa yang digunakan dalam Macro adalah Visual Basic for Application)
misal files di folder files milis tentang VBA at glance (login YahooID -> ke website milis -> lihat folder files cari filenya disana)
termasuk link-link belajar VBA yang daftarnya ada dalam sebuah file di folder files milis.
5. berani mencoba, setidaknya, milis Belajar-Excel bisa menjadi arena curhat ketika kebingungan dalam mencobanya.
imho,
VBA jauh lebih mudah dipelajari ketimbang mempelajari karakteristik setiap fitur dan object dalam Excel, apalagi karakteristik setiap fungsi bawaan Excel. So.... berani mencoba adalah modal yang berharga dalam belajar Excel VBA.
tips.
Jika tidak tahu bagaimana cara melakukan sesuatu yang diinginkan di VBA, lakukan dulu dalam worksheet secara manual memanfaatkan segala potensi Excel tanpa VBA. Setelah itu ulangi lagi prosesnya sambil record macro. Biasanya cara ini akan membantu memahami pemanfaatan kemampuan yang dimiliki Excel melalui VBA.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/5/10 dheny <dheny_brs@yahoo.co.id >
assalamu'alaikum wr wb
saya adalah pengguna excel, tetapi saya sama sekali buta mengenai macro excel.
saya ingin belajar macro excel dari dasar termasuk bahasa yang dipergunakan dalam macro excel, bagaimana caranya..?
mohon pencerahan.
terima kasih, wassalam
Dheny
Kemudian kita coba lagi berbagai alternatif dengan cara merekam tsb. Setelah kita mengerti bagaimana proses tsb direkam oleh komputer barulah kita mulai menulis program sendiri dengan menggunakan pola rekaman yang dilakukan komputer. Setelah memahami cara kerjanya kita bisa mulai menggunakan variabel.
Setidaknya itulah yang telah saya lakukan.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] belajar macro
From:"Mr. Kid" <mr.nmkid@gmail.
To:BeExcel <belajar-excel@
Cc:
Wa'alaikumussal
Cara belajar macro ya...
sepertinya bisa diawali begini :
1. Pahami dasar-dasar Excel seperti :
>> tipe data di cell Excel,
>> memahami apa itu sheet, worksheet, workbook, cell, range (sepertinya mudah ya)
>> fitur-fitur Excel dan tabiatnya (yang umum saja dulu seperi copy, paste special, goto special, sort, autofilter, delete row, clear, clear contents)
2. Mengenal Macro
>> lihat-lihat fitur Excel tentang Record Macro
>> lihat-lihat object control seperti checkbox, listbox, dsb yang bisa dipasang dalam worksheet, termasuk properti dan format control-nya
>> baca-baca tentang cara record macro, stopr recording
3. Mengenal area menulis script
>> cara ke VBE atau kembali ke worksheet
>> barang-barang dalam VBE (Project Explorer beserta isinya, window properties, lembar script, combobox untuk pilih object, combobox untuk pilih event, dsb
4. Baca-baca tentang VBA (bahasa yang digunakan dalam Macro adalah Visual Basic for Application)
misal files di folder files milis tentang VBA at glance (login YahooID -> ke website milis -> lihat folder files cari filenya disana)
termasuk link-link belajar VBA yang daftarnya ada dalam sebuah file di folder files milis.
5. berani mencoba, setidaknya, milis Belajar-Excel bisa menjadi arena curhat ketika kebingungan dalam mencobanya.
imho,
VBA jauh lebih mudah dipelajari ketimbang mempelajari karakteristik setiap fitur dan object dalam Excel, apalagi karakteristik setiap fungsi bawaan Excel. So.... berani mencoba adalah modal yang berharga dalam belajar Excel VBA.
tips.
Jika tidak tahu bagaimana cara melakukan sesuatu yang diinginkan di VBA, lakukan dulu dalam worksheet secara manual memanfaatkan segala potensi Excel tanpa VBA. Setelah itu ulangi lagi prosesnya sambil record macro. Biasanya cara ini akan membantu memahami pemanfaatan kemampuan yang dimiliki Excel melalui VBA.
Wassalamu'
Kid.
2013/5/10 dheny <dheny_brs@yahoo.
assalamu'
saya adalah pengguna excel, tetapi saya sama sekali buta mengenai macro excel.
saya ingin belajar macro excel dari dasar termasuk bahasa yang dipergunakan dalam macro excel, bagaimana caranya..?
mohon pencerahan.
terima kasih, wassalam
Dheny
Fri May 10, 2013 3:45 pm (PDT) . Posted by:
"WIRAnata Kemala Deng" kwiranata
iseng pas kebangun sabtu pagi, nyoba solve ahhhhh..
bisa coba dilihat attachment .xlsm nya yah.
semoga membantu (seperti yang diinginkan)
untuk referensi, VBA nya bisa dilihat dan dikota-katik sesuai keperluan.
maap kalo coding nya kurang slim , maklum newbie :)
regards, wira
2013/5/10 Fuadi Arief <sifuad.xl@gmail.com >
> **
>
>
> Mohon bantuan teman2, bagaimana cara bold kata2 yang menggunakan rumus di
> dalam 1 cell? file terlampir. Thanks sebelumnya. ;)
>
>
>
bisa coba dilihat attachment .xlsm nya yah.
semoga membantu (seperti yang diinginkan)
untuk referensi, VBA nya bisa dilihat dan dikota-katik sesuai keperluan.
maap kalo coding nya kurang slim , maklum newbie :)
regards, wira
2013/5/10 Fuadi Arief <sifuad.xl@gmail.
> **
>
>
> Mohon bantuan teman2, bagaimana cara bold kata2 yang menggunakan rumus di
> dalam 1 cell? file terlampir. Thanks sebelumnya. ;)
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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