Selasa, 25 Juli 2017

[belajar-excel] Digest Number 4246

12 Messages

Digest #4246
2a
Re: Menhitung interval/klasifikasi data by "Mr. Kid" nmkid.family@ymail.com
4b
Re: Menhitung interval/klasifikasi data by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Jul 25, 2017 2:44 am (PDT) . Posted by:

"Danny Prasetyo"

Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat
memudahkan saya.
Dari: belajar-excel@yahoogroups.comTerkirim: 25 Juli 2017
12.38Kepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: Bls: Bls: [belajar-excel]
Hapus baris terpilih dengan 1 kriteria menggunakan combobox
#ssc1129428020642198812 #ygrp-mkp{border: 1px solid rgb(216, 216,
216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc1129428020642198812 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc1129428020642198812 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc1129428020642198812 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc1129428020642198812 #ygrp-mkp
.ad{padding: 0 0;}#ssc1129428020642198812 #ygrp-mkp .ad p{margin:
0;}#ssc1129428020642198812 #ygrp-mkp .ad a{color: rgb(0, 0,
255);text-decoration: none;}#ssc1129428020642198812 #ygrp-sponsor
#ygrp-lc{font-family: Arial;}#ssc1129428020642198812
#ygrp-sponsor #ygrp-lc #hd{margin: 10px 0px;font-weight:
700;font-size: 78%;line-height: 122%;}#ssc1129428020642198812
#ygrp-sponsor #ygrp-lc .ad{margin-bottom: 10px;padding: 0
0;}#ssc1129428020642198812 #actions{font-family:
Verdana;font-size: 11px;padding: 10px 0;}#ssc1129428020642198812
#activity{background-color: rgb(224, 236, 238);float:
left;font-family: Verdana;font-size: 10px;padding:
10px;}#ssc1129428020642198812 #activity span{font-weight:
700;}#ssc1129428020642198812 #activity
span:first-child{text-transform:
uppercase;}#ssc1129428020642198812 #activity span a{color:
rgb(80, 133, 182);text-decoration: none;}#ssc1129428020642198812
#activity span span{color: rgb(255, 121,
0);}#ssc1129428020642198812 #activity span
.underline{text-decoration: underline;}#ssc1129428020642198812
.attach{clear: both;display: table;font-family: Arial;font-size:
12px;padding: 10px 0;width: 400px;}#ssc1129428020642198812
.attach div a{text-decoration: none;}#ssc1129428020642198812
.attach img{border: none;padding-right:
5px;}#ssc1129428020642198812 .attach label{display:
block;margin-bottom: 5px;}#ssc1129428020642198812 .attach label
a{text-decoration: none;}#ssc1129428020642198812
blockquote{margin: 0 0 0 4px;}#ssc1129428020642198812
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc1129428020642198812 .bold a{text-decoration:
none;}#ssc1129428020642198812 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc1129428020642198812 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc1129428020642198812 dd.last p
span.yshortcuts{margin-right: 0;}#ssc1129428020642198812
div.attach-table div div a{text-decoration:
none;}#ssc1129428020642198812 div.attach-table{width:
400px;}#ssc1129428020642198812 div.file-title
a,#ssc1129428020642198812 div.file-title
a:active,#ssc1129428020642198812 div.file-title
a:hover,#ssc1129428020642198812 div.file-title
a:visited{text-decoration: none;}#ssc1129428020642198812
div.photo-title a,#ssc1129428020642198812 div.photo-title
a:active,#ssc1129428020642198812 div.photo-title
a:hover,#ssc1129428020642198812 div.photo-title
a:visited{text-decoration: none;}#ssc1129428020642198812
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc1129428020642198812 .green{color: rgb(98, 140,
42);}#ssc1129428020642198812 .MsoNormal{margin: 0 0 0
0;}#ssc1129428020642198812 o{font-size:
0;}#ssc1129428020642198812 #photos div{float: left;width:
72px;}#ssc1129428020642198812 #photos div div{border: 1px solid
rgb(102, 102, 102);height: 62px;overflow: hidden;width:
62px;}#ssc1129428020642198812 #photos div label{color: rgb(102,
102, 102);font-size: 10px;overflow: hidden;text-align:
center;white-space: nowrap;width: 64px;}#ssc1129428020642198812
#reco-category{font-size: 77%;}#ssc1129428020642198812
#reco-desc{font-size: 77%;}#ssc1129428020642198812
.replbq{margin: 4px;}#ssc1129428020642198812 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc1129428020642198812 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc1129428020642198812 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc1129428020642198812 #ygrp-mlmsg
select,#ssc1129428020642198812 input,#ssc1129428020642198812
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc1129428020642198812 #ygrp-mlmsg
pre,#ssc1129428020642198812 code{font: 115%
monospace;}#ssc1129428020642198812 #ygrp-mlmsg *{line-height:
1.22em;}#ssc1129428020642198812 #ygrp-mlmsg #logo{padding-bottom:
10px;}#ssc1129428020642198812 #ygrp-msg p a{font-family:
Verdana;}#ssc1129428020642198812 #ygrp-msg p#attach-count
span{color: rgb(30, 102, 174);font-weight:
700;}#ssc1129428020642198812 #ygrp-reco #reco-head{color:
rgb(255, 121, 0);font-weight: 700;}#ssc1129428020642198812
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc1129428020642198812 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc1129428020642198812 #ygrp-sponsor
#ov li{font-size: 77%;list-style-type: square;padding: 6px
0;}#ssc1129428020642198812 #ygrp-sponsor #ov ul{margin:
0;padding: 0 0 0 8px;}#ssc1129428020642198812
#ygrp-text{font-family: Georgia;}#ssc1129428020642198812
#ygrp-text p{margin: 0 0 1em 0;}#ssc1129428020642198812
#ygrp-text tt{font-size: 120%;}#ssc1129428020642198812
#ygrp-vital ul li:last-child{border-right: none;}

Contoh 1 msgbox tok sajaTidak usah pakai if yg Anda buat

Sent from my smart enough phone
On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:



Contoh 1
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With Else
If cboDT.Value = "" Then MsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN" End If End If
End Sub


Contoh 2
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
Else
If cboDT.Value = "" Then MsgBox "Pilih
terlebih dahulu", vbInformation, "PILIHAN" End If
End If End With End IfEnd Sub

Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid

Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Blok if terluar diubah dari
blok if endif menjadi if else endif. Msgbox Anda diletakkan pada
area else.

Regards,Kid
Sent from my smart enough phone
On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:

Mr. Kid,
Saya ingin menambahkan peringatan seperti ini apabila user tidak
memilih atau pilihannya tidak sesuai dengan data
If cboDT.Value = "" ThenMsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN"End If
ke dalam kode vba di bawah ini

Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With End IfEnd Sub
Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya
kurang mengerti soalnya hehehe... Mohon pencerahannya...

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 ,
jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid






On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Terima kasih Mr. Kid atas
bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan
lagi,- pada form, saat saya ingin menghapus dengan cara
menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik
data dari list yang tertera terlebih dahulu agar dapat terhapus.-
yang saya inginkan hanya baris dalam tabel saja yang terhapus,
bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
Kode vba yang saya edit kok
malah error yaa, dan proses nya berbelit2, karna saya harus
mengkonversi value dari combobox dulu ke dalam cell, dan dari
cell dimasukkan ke dalam textbox.
Tolong dibantu yaa para master, agar tidak error dan proses nya
tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya...









Tue Jul 25, 2017 2:57 am (PDT) . Posted by:

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

hmmm...
ada apa dengan with ?

'dengan with
*with *sheets(1) 'pada sheet ke-1 dalam tab sheet
*.*range("a1").value="Kid" 'tulis teks 'Kid' pada range A1 di
sheet ke-1
*.*range("c3").value="Kid" 'tulis teks 'Kid' pada range c3 di
sheet ke-1
*.*range("b7").value="Kid" 'tulis teks 'Kid' pada range b7 di
sheet ke-1
*end with*

'tanpa with
sheets(1)*.*range("a1").value="Kid" 'tulis teks 'Kid' pada
range A1 di sheet ke-1
sheets(1)*.*range("c3").value="Kid" 'tulis teks 'Kid' pada
range c3 di sheet ke-1
sheets(1)*.*range("b7").value="Kid" 'tulis teks 'Kid' pada
range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline =
True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color =
vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
*.*Font.Bold = True
*.*Font.Underline = True
*.*Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid

2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya.
> *Dari:* belajar-excel@yahoogroups.com
> *Terkirim:* 25 Juli 2017 12.38
> *Kepada:* belajar-excel@yahoogroups.com
> *Balas ke:* belajar-excel@yahoogroups.com
> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
> kriteria menggunakan combobox
>
>
>
> Contoh 1 msgbox tok saja
> Tidak usah pakai if yg Anda buat
>
> Sent from my smart enough phone
>
> On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Contoh 1
>
> Private Sub cmdDEL_Click()
> Dim lRec As Long
> lRec = cboDT.ListIndex + 1
> If lRec > 0 Then
> With shtKid.Range("_tbldt_")
> If Len(.Cells(lRec, 1).Value) <> 0 Then
> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
> cboDT.RowSource = "_lstDT_"
> End If
> End With
> Else
>
> If cboDT.Value = "" Then
> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
> End If
> End If
>
> End Sub
>
>
>
> Contoh 2
>
> Private Sub cmdDEL_Click()
> Dim lRec As Long
> lRec = cboDT.ListIndex + 1
> If lRec > 0 Then
> With shtKid.Range("_tbldt_")
> If Len(.Cells(lRec, 1).Value) <> 0 Then
> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
> cboDT.RowSource = "_lstDT_"
> Else
>
> If cboDT.Value = "" Then
> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
> End If
> End If
>
> End With
> End If
> End Sub
>
>
> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>
>
> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Blok if terluar diubah dari blok if endif menjadi if else endif. Msgbox
> Anda diletakkan pada area else.
>
> Regards,
> Kid
> Sent from my smart enough phone
>
> On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Mr. Kid,
>
> Saya ingin menambahkan peringatan seperti ini apabila user tidak memilih
> atau pilihannya tidak sesuai dengan data
>
> If cboDT.Value = "" Then
> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
> End If
>
> ke dalam kode vba di bawah ini
>
> Private Sub cmdDEL_Click()
> Dim lRec As Long
> lRec = cboDT.ListIndex + 1
> If lRec > 0 Then
> With shtKid.Range("_tbldt_")
> If Len(.Cells(lRec, 1).Value) <> 0 Then
> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
> cboDT.RowSource = "_lstDT_"
> End If
> End With
> End If
> End Sub
>
> Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya kurang
> mengerti soalnya hehehe... Mohon pencerahannya...
>
>
> Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Danny,
>
> Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel
> ).delete xlshiftup
> jumlah_kolom_tabel diisi angka
>
> Regards,
> Kid
>
>
>
>
>
>
> On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Terima kasih Mr. Kid atas bantuannya.
>
> Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,
> - pada form, saat saya ingin menghapus dengan cara menuliskan kode, malah
> tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera
> terlebih dahulu agar dapat terhapus.
> - yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1
> baris dari ujung kiri ke ujung kanan.
>
> Bagaimana solusinya? Dan terima kasih sebelumnya.
>
> Salam,
>
> Danny Prasetyo
>
>
> Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
>
>
>
> Hai Danny,
>
> File terlampir sekadar contoh saja.
>
> Regards,
> Kid
>
>
> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
> Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2,
> karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan
> dari cell dimasukkan ke dalam textbox.
>
> Tolong dibantu yaa para master, agar tidak error dan proses nya tidak
> berbelit hehehe...
>
> Ini saya kirimkan file nya.
> Terima kasih sebelumnya...
>
>
>
>
>
>
>
>
>
>
>

Tue Jul 25, 2017 3:20 am (PDT) . Posted by:

"Danny Prasetyo"

Oh begitu toh maksud penggunaan WithBaru ngeh saya selama belajar
vba hahahaha...
Oke deh saya coba lagi, Terima kasih Mr. Kid...
Dari: belajar-excel@yahoogroups.comTerkirim: 25 Juli 2017
16.58Kepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: [belajar-excel] Hapus baris
terpilih dengan 1 kriteria menggunakan combobox
#ssc-6669618080334447323 #ygrp-mkp{border: 1px solid rgb(216,
216, 216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc-6669618080334447323 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc-6669618080334447323 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc-6669618080334447323 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc-6669618080334447323 #ygrp-mkp
.ad{padding: 0 0;}#ssc-6669618080334447323 #ygrp-mkp .ad
p{margin: 0;}#ssc-6669618080334447323 #ygrp-mkp .ad a{color:
rgb(0, 0, 255);text-decoration: none;}#ssc-6669618080334447323
#ygrp-sponsor #ygrp-lc{font-family:
Arial;}#ssc-6669618080334447323 #ygrp-sponsor #ygrp-lc
#hd{margin: 10px 0px;font-weight: 700;font-size: 78%;line-height:
122%;}#ssc-6669618080334447323 #ygrp-sponsor #ygrp-lc
.ad{margin-bottom: 10px;padding: 0 0;}#ssc-6669618080334447323
#actions{font-family: Verdana;font-size: 11px;padding: 10px
0;}#ssc-6669618080334447323 #activity{background-color: rgb(224,
236, 238);float: left;font-family: Verdana;font-size:
10px;padding: 10px;}#ssc-6669618080334447323 #activity
span{font-weight: 700;}#ssc-6669618080334447323 #activity
span:first-child{text-transform:
uppercase;}#ssc-6669618080334447323 #activity span a{color:
rgb(80, 133, 182);text-decoration: none;}#ssc-6669618080334447323
#activity span span{color: rgb(255, 121,
0);}#ssc-6669618080334447323 #activity span
.underline{text-decoration: underline;}#ssc-6669618080334447323
.attach{clear: both;display: table;font-family: Arial;font-size:
12px;padding: 10px 0;width: 400px;}#ssc-6669618080334447323
.attach div a{text-decoration: none;}#ssc-6669618080334447323
.attach img{border: none;padding-right:
5px;}#ssc-6669618080334447323 .attach label{display:
block;margin-bottom: 5px;}#ssc-6669618080334447323 .attach label
a{text-decoration: none;}#ssc-6669618080334447323
blockquote{margin: 0 0 0 4px;}#ssc-6669618080334447323
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc-6669618080334447323 .bold a{text-decoration:
none;}#ssc-6669618080334447323 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc-6669618080334447323 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc-6669618080334447323 dd.last p
span.yshortcuts{margin-right: 0;}#ssc-6669618080334447323
div.attach-table div div a{text-decoration:
none;}#ssc-6669618080334447323 div.attach-table{width:
400px;}#ssc-6669618080334447323 div.file-title
a,#ssc-6669618080334447323 div.file-title
a:active,#ssc-6669618080334447323 div.file-title
a:hover,#ssc-6669618080334447323 div.file-title
a:visited{text-decoration: none;}#ssc-6669618080334447323
div.photo-title a,#ssc-6669618080334447323 div.photo-title
a:active,#ssc-6669618080334447323 div.photo-title
a:hover,#ssc-6669618080334447323 div.photo-title
a:visited{text-decoration: none;}#ssc-6669618080334447323
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc-6669618080334447323 .green{color: rgb(98, 140,
42);}#ssc-6669618080334447323 .MsoNormal{margin: 0 0 0
0;}#ssc-6669618080334447323 o{font-size:
0;}#ssc-6669618080334447323 #photos div{float: left;width:
72px;}#ssc-6669618080334447323 #photos div div{border: 1px solid
rgb(102, 102, 102);height: 62px;overflow: hidden;width:
62px;}#ssc-6669618080334447323 #photos div label{color: rgb(102,
102, 102);font-size: 10px;overflow: hidden;text-align:
center;white-space: nowrap;width: 64px;}#ssc-6669618080334447323
#reco-category{font-size: 77%;}#ssc-6669618080334447323
#reco-desc{font-size: 77%;}#ssc-6669618080334447323
.replbq{margin: 4px;}#ssc-6669618080334447323 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc-6669618080334447323 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc-6669618080334447323 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc-6669618080334447323 #ygrp-mlmsg
select,#ssc-6669618080334447323 input,#ssc-6669618080334447323
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc-6669618080334447323 #ygrp-mlmsg
pre,#ssc-6669618080334447323 code{font: 115%
monospace;}#ssc-6669618080334447323 #ygrp-mlmsg *{line-height:
1.22em;}#ssc-6669618080334447323 #ygrp-mlmsg
#logo{padding-bottom: 10px;}#ssc-6669618080334447323 #ygrp-msg p
a{font-family: Verdana;}#ssc-6669618080334447323 #ygrp-msg
p#attach-count span{color: rgb(30, 102, 174);font-weight:
700;}#ssc-6669618080334447323 #ygrp-reco #reco-head{color:
rgb(255, 121, 0);font-weight: 700;}#ssc-6669618080334447323
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc-6669618080334447323 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc-6669618080334447323
#ygrp-sponsor #ov li{font-size: 77%;list-style-type:
square;padding: 6px 0;}#ssc-6669618080334447323 #ygrp-sponsor #ov
ul{margin: 0;padding: 0 0 0 8px;}#ssc-6669618080334447323
#ygrp-text{font-family: Georgia;}#ssc-6669618080334447323
#ygrp-text p{margin: 0 0 1em 0;}#ssc-6669618080334447323
#ygrp-text tt{font-size: 120%;}#ssc-6669618080334447323
#ygrp-vital ul li:last-child{border-right: none;}

hmmm...
ada apa dengan with ?

'dengan with
with sheets(1) 'pada sheet ke-1 dalam tab sheet
.range("a1").value="Kid" 'tulis teks 'Kid' pada
range A1 di sheet ke-1
.range("c3").value="Kid" 'tulis teks 'Kid' pada
range c3 di sheet ke-1
.range("b7").value="Kid" 'tulis teks 'Kid' pada
range b7 di sheet ke-1
end with

'tanpa with
sheets(1).range("a1").value="Kid" 'tulis teks 'Kid'
pada range A1 di sheet ke-1
sheets(1).range("c3").value="Kid" 'tulis teks 'Kid'
pada range c3 di sheet ke-1
sheets(1).range("b7").value="Kid" 'tulis teks 'Kid'
pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold
= True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Under\
line = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.C\
olor = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
.Font.Bold = True
.Font.Underline = True
.Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat
memudahkan saya.
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
12.38Kepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: Bls: Bls:
[belajar-excel] Hapus baris terpilih dengan 1 kriteria
menggunakan combobox


Contoh 1 msgbox tok sajaTidak usah pakai if yg Anda buat

Sent from my smart enough phone
On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:



Contoh 1
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With Else
If cboDT.Value = "" Then MsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN" End If End If
End Sub


Contoh 2
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
Else
If cboDT.Value = "" Then MsgBox "Pilih
terlebih dahulu", vbInformation, "PILIHAN" End If
End If End With End IfEnd Sub

Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid

Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Blok if terluar diubah dari
blok if endif menjadi if else endif. Msgbox Anda diletakkan pada
area else.

Regards,Kid
Sent from my smart enough phone
On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:

Mr. Kid,
Saya ingin menambahkan peringatan seperti ini apabila user tidak
memilih atau pilihannya tidak sesuai dengan data
If cboDT.Value = "" ThenMsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN"End If
ke dalam kode vba di bawah ini

Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With End IfEnd Sub
Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya
kurang mengerti soalnya hehehe... Mohon pencerahannya...

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 ,
jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid






On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Terima kasih Mr. Kid atas
bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan
lagi,- pada form, saat saya ingin menghapus dengan cara
menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik
data dari list yang tertera terlebih dahulu agar dapat terhapus.-
yang saya inginkan hanya baris dalam tabel saja yang terhapus,
bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
Kode vba yang saya edit kok
malah error yaa, dan proses nya berbelit2, karna saya harus
mengkonversi value dari combobox dulu ke dalam cell, dan dari
cell dimasukkan ke dalam textbox.
Tolong dibantu yaa para master, agar tidak error dan proses nya
tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya...












Tue Jul 25, 2017 3:21 am (PDT) . Posted by:

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

hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Oh begitu toh maksud penggunaan With
> Baru ngeh saya selama belajar vba hahahaha...
>
> Oke deh saya coba lagi,
> Terima kasih Mr. Kid...
> *Dari:* belajar-excel@yahoogroups.com
> *Terkirim:* 25 Juli 2017 16.58
> *Kepada:* belajar-excel@yahoogroups.com
> *Balas ke:* belajar-excel@yahoogroups.com
> *Hal:* Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
> menggunakan combobox
>
>
>
> hmmm...
> ada apa dengan with ?
>
> 'dengan with
> *with *sheets(1) 'pada sheet ke-1 dalam tab sheet
> *.*range("a1").value="Kid" 'tulis teks 'Kid' pada range A1
> di sheet ke-1
> *.*range("c3").value="Kid" 'tulis teks 'Kid' pada range c3
> di sheet ke-1
> *.*range("b7").value="Kid" 'tulis teks 'Kid' pada range b7
> di sheet ke-1
> *end with*
>
> 'tanpa with
> sheets(1)*.*range("a1").value="Kid" 'tulis teks 'Kid' pada
> range A1 di sheet ke-1
> sheets(1)*.*range("c3").value="Kid" 'tulis teks 'Kid' pada
> range c3 di sheet ke-1
> sheets(1)*.*range("b7").value="Kid" 'tulis teks 'Kid' pada
> range b7 di sheet ke-1
>
> blok With ... End With untuk memudahkan penulisan baris kode
>
> Contoh lain :
> 'tanpa with
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline =
> True
> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color =
> vbRed
>
> 'dengan with
> With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
> *.*Font.Bold = True
> *.*Font.Underline = True
> *.*Interior.Color = vbRed
> End With
>
> Gimana ?
> Tidak ada apa-apa dengan with bukan ?
>
> Regards,
> Kid
>
>
>
> 2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan saya.
>> *Dari:* belajar-excel@yahoogroups.com
>> *Terkirim:* 25 Juli 2017 12.38
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Balas ke:* belajar-excel@yahoogroups.com
>> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
>> kriteria menggunakan combobox
>>
>>
>>
>> Contoh 1 msgbox tok saja
>> Tidak usah pakai if yg Anda buat
>>
>> Sent from my smart enough phone
>>
>> On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>
>>
>> Contoh 1
>>
>> Private Sub cmdDEL_Click()
>> Dim lRec As Long
>> lRec = cboDT.ListIndex + 1
>> If lRec > 0 Then
>> With shtKid.Range("_tbldt_")
>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>> cboDT.RowSource = "_lstDT_"
>> End If
>> End With
>> Else
>>
>> If cboDT.Value = "" Then
>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>> End If
>> End If
>>
>> End Sub
>>
>>
>>
>> Contoh 2
>>
>> Private Sub cmdDEL_Click()
>> Dim lRec As Long
>> lRec = cboDT.ListIndex + 1
>> If lRec > 0 Then
>> With shtKid.Range("_tbldt_")
>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>> cboDT.RowSource = "_lstDT_"
>> Else
>>
>> If cboDT.Value = "" Then
>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>> End If
>> End If
>>
>> End With
>> End If
>> End Sub
>>
>>
>> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>>
>>
>> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Blok if terluar diubah dari blok if endif menjadi if else endif. Msgbox
>> Anda diletakkan pada area else.
>>
>> Regards,
>> Kid
>> Sent from my smart enough phone
>>
>> On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>
>> Mr. Kid,
>>
>> Saya ingin menambahkan peringatan seperti ini apabila user tidak memilih
>> atau pilihannya tidak sesuai dengan data
>>
>> If cboDT.Value = "" Then
>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>> End If
>>
>> ke dalam kode vba di bawah ini
>>
>> Private Sub cmdDEL_Click()
>> Dim lRec As Long
>> lRec = cboDT.ListIndex + 1
>> If lRec > 0 Then
>> With shtKid.Range("_tbldt_")
>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>> cboDT.RowSource = "_lstDT_"
>> End If
>> End With
>> End If
>> End Sub
>>
>> Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya kurang
>> mengerti soalnya hehehe... Mohon pencerahannya...
>>
>>
>> Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>
>>
>>
>> Hai Danny,
>>
>> Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel
>> ).delete xlshiftup
>> jumlah_kolom_tabel diisi angka
>>
>> Regards,
>> Kid
>>
>>
>>
>>
>>
>>
>> On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>
>> Terima kasih Mr. Kid atas bantuannya.
>>
>> Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,
>> - pada form, saat saya ingin menghapus dengan cara menuliskan kode, malah
>> tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera
>> terlebih dahulu agar dapat terhapus.
>> - yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1
>> baris dari ujung kiri ke ujung kanan.
>>
>> Bagaimana solusinya? Dan terima kasih sebelumnya.
>>
>> Salam,
>>
>> Danny Prasetyo
>>
>>
>> Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
>> [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
>>
>>
>>
>> Hai Danny,
>>
>> File terlampir sekadar contoh saja.
>>
>> Regards,
>> Kid
>>
>>
>> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>
>>
>> Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2,
>> karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan
>> dari cell dimasukkan ke dalam textbox.
>>
>> Tolong dibantu yaa para master, agar tidak error dan proses nya tidak
>> berbelit hehehe...
>>
>> Ini saya kirimkan file nya.
>> Terima kasih sebelumnya...
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>

Tue Jul 25, 2017 4:21 am (PDT) . Posted by:

"Danny Prasetyo"

Hahahaha tau aja nih MR. Kid
Regards,

Danny Prasetyo, S.E., M.M.
Dari: belajar-excel@yahoogroups.comTerkirim: 25 Juli 2017 5.21
PMKepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: Re: [belajar-excel] Hapus
baris terpilih dengan 1 kriteria menggunakan combobox
#ssc6583057687249653807 #ygrp-mkp{border: 1px solid rgb(216, 216,
216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc6583057687249653807 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc6583057687249653807 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc6583057687249653807 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc6583057687249653807 #ygrp-mkp
.ad{padding: 0 0;}#ssc6583057687249653807 #ygrp-mkp .ad p{margin:
0;}#ssc6583057687249653807 #ygrp-mkp .ad a{color: rgb(0, 0,
255);text-decoration: none;}#ssc6583057687249653807 #ygrp-sponsor
#ygrp-lc{font-family: Arial;}#ssc6583057687249653807
#ygrp-sponsor #ygrp-lc #hd{margin: 10px 0px;font-weight:
700;font-size: 78%;line-height: 122%;}#ssc6583057687249653807
#ygrp-sponsor #ygrp-lc .ad{margin-bottom: 10px;padding: 0
0;}#ssc6583057687249653807 #actions{font-family:
Verdana;font-size: 11px;padding: 10px 0;}#ssc6583057687249653807
#activity{background-color: rgb(224, 236, 238);float:
left;font-family: Verdana;font-size: 10px;padding:
10px;}#ssc6583057687249653807 #activity span{font-weight:
700;}#ssc6583057687249653807 #activity
span:first-child{text-transform:
uppercase;}#ssc6583057687249653807 #activity span a{color:
rgb(80, 133, 182);text-decoration: none;}#ssc6583057687249653807
#activity span span{color: rgb(255, 121,
0);}#ssc6583057687249653807 #activity span
.underline{text-decoration: underline;}#ssc6583057687249653807
.attach{clear: both;display: table;font-family: Arial;font-size:
12px;padding: 10px 0;width: 400px;}#ssc6583057687249653807
.attach div a{text-decoration: none;}#ssc6583057687249653807
.attach img{border: none;padding-right:
5px;}#ssc6583057687249653807 .attach label{display:
block;margin-bottom: 5px;}#ssc6583057687249653807 .attach label
a{text-decoration: none;}#ssc6583057687249653807
blockquote{margin: 0 0 0 4px;}#ssc6583057687249653807
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc6583057687249653807 .bold a{text-decoration:
none;}#ssc6583057687249653807 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc6583057687249653807 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc6583057687249653807 dd.last p
span.yshortcuts{margin-right: 0;}#ssc6583057687249653807
div.attach-table div div a{text-decoration:
none;}#ssc6583057687249653807 div.attach-table{width:
400px;}#ssc6583057687249653807 div.file-title
a,#ssc6583057687249653807 div.file-title
a:active,#ssc6583057687249653807 div.file-title
a:hover,#ssc6583057687249653807 div.file-title
a:visited{text-decoration: none;}#ssc6583057687249653807
div.photo-title a,#ssc6583057687249653807 div.photo-title
a:active,#ssc6583057687249653807 div.photo-title
a:hover,#ssc6583057687249653807 div.photo-title
a:visited{text-decoration: none;}#ssc6583057687249653807
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc6583057687249653807 .green{color: rgb(98, 140,
42);}#ssc6583057687249653807 .MsoNormal{margin: 0 0 0
0;}#ssc6583057687249653807 o{font-size:
0;}#ssc6583057687249653807 #photos div{float: left;width:
72px;}#ssc6583057687249653807 #photos div div{border: 1px solid
rgb(102, 102, 102);height: 62px;overflow: hidden;width:
62px;}#ssc6583057687249653807 #photos div label{color: rgb(102,
102, 102);font-size: 10px;overflow: hidden;text-align:
center;white-space: nowrap;width: 64px;}#ssc6583057687249653807
#reco-category{font-size: 77%;}#ssc6583057687249653807
#reco-desc{font-size: 77%;}#ssc6583057687249653807
.replbq{margin: 4px;}#ssc6583057687249653807 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc6583057687249653807 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc6583057687249653807 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc6583057687249653807 #ygrp-mlmsg
select,#ssc6583057687249653807 input,#ssc6583057687249653807
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc6583057687249653807 #ygrp-mlmsg
pre,#ssc6583057687249653807 code{font: 115%
monospace;}#ssc6583057687249653807 #ygrp-mlmsg *{line-height:
1.22em;}#ssc6583057687249653807 #ygrp-mlmsg #logo{padding-bottom:
10px;}#ssc6583057687249653807 #ygrp-msg p a{font-family:
Verdana;}#ssc6583057687249653807 #ygrp-msg p#attach-count
span{color: rgb(30, 102, 174);font-weight:
700;}#ssc6583057687249653807 #ygrp-reco #reco-head{color:
rgb(255, 121, 0);font-weight: 700;}#ssc6583057687249653807
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc6583057687249653807 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc6583057687249653807 #ygrp-sponsor
#ov li{font-size: 77%;list-style-type: square;padding: 6px
0;}#ssc6583057687249653807 #ygrp-sponsor #ov ul{margin:
0;padding: 0 0 0 8px;}#ssc6583057687249653807
#ygrp-text{font-family: Georgia;}#ssc6583057687249653807
#ygrp-text p{margin: 0 0 1em 0;}#ssc6583057687249653807
#ygrp-text tt{font-size: 120%;}#ssc6583057687249653807
#ygrp-vital ul li:last-child{border-right: none;}

hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Oh begitu toh maksud penggunaan WithBaru ngeh saya selama belajar
vba hahahaha...
Oke deh saya coba lagi, Terima kasih Mr. Kid...
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
16.58Kepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: [belajar-excel]
Hapus baris terpilih dengan 1 kriteria menggunakan combobox


hmmm...
ada apa dengan with ?

'dengan with
with sheets(1) 'pada sheet ke-1 dalam tab sheet
.range("a1").value="Kid" 'tulis teks 'Kid' pada
range A1 di sheet ke-1
.range("c3").value="Kid" 'tulis teks 'Kid' pada
range c3 di sheet ke-1
.range("b7").value="Kid" 'tulis teks 'Kid' pada
range b7 di sheet ke-1
end with

'tanpa with
sheets(1).range("a1").value="Kid" 'tulis teks 'Kid'
pada range A1 di sheet ke-1
sheets(1).range("c3").value="Kid" 'tulis teks 'Kid'
pada range c3 di sheet ke-1
sheets(1).range("b7").value="Kid" 'tulis teks 'Kid'
pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold
= True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Under\
line = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.C\
olor = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
.Font.Bold = True
.Font.Underline = True
.Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat
memudahkan saya.
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
12.38Kepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: Bls: Bls:
[belajar-excel] Hapus baris terpilih dengan 1 kriteria
menggunakan combobox


Contoh 1 msgbox tok sajaTidak usah pakai if yg Anda buat

Sent from my smart enough phone
On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:



Contoh 1
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With Else
If cboDT.Value = "" Then MsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN" End If End If
End Sub


Contoh 2
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
Else
If cboDT.Value = "" Then MsgBox "Pilih
terlebih dahulu", vbInformation, "PILIHAN" End If
End If End With End IfEnd Sub

Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid

Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Blok if terluar diubah dari
blok if endif menjadi if else endif. Msgbox Anda diletakkan pada
area else.

Regards,Kid
Sent from my smart enough phone
On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:

Mr. Kid,
Saya ingin menambahkan peringatan seperti ini apabila user tidak
memilih atau pilihannya tidak sesuai dengan data
If cboDT.Value = "" ThenMsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN"End If
ke dalam kode vba di bawah ini

Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With End IfEnd Sub
Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya
kurang mengerti soalnya hehehe... Mohon pencerahannya...

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 ,
jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid






On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Terima kasih Mr. Kid atas
bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan
lagi,- pada form, saat saya ingin menghapus dengan cara
menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik
data dari list yang tertera terlebih dahulu agar dapat terhapus.-
yang saya inginkan hanya baris dalam tabel saja yang terhapus,
bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
Kode vba yang saya edit kok
malah error yaa, dan proses nya berbelit2, karna saya harus
mengkonversi value dari combobox dulu ke dalam cell, dan dari
cell dimasukkan ke dalam textbox.
Tolong dibantu yaa para master, agar tidak error dan proses nya
tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya...















Tue Jul 25, 2017 4:49 am (PDT) . Posted by:

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

hehehe...

tempo hari ada contoh runtime seperti ini : (tentu masih ingat kan ya)
Private Sub cmdDEL_Click()
Dim lRec As Long
lRec = cboDT.ListIndex + 1
If lRec > 0 Then
With shtKid.Range("_tbldt_")
If Len(.Cells(lRec, 1).Value) <> 0 Then
.Cells(lRec, 1).*entirerow*.Delete
cboDT.RowSource = "_lstDT_"
End If
End With
End If
End Sub

lalu, pinginnya hanya baris di kolom tabel data yang terbuang (ter .delete)
maka jadi begini :
(*latar kuning di bold*, dipilih jumlah kolomnya dengan resize,
lalu delete area kecil range tersebut akan membuat range di baris-baris
berikutnya terangkat ke atas [shiftup])
Private Sub cmdDEL_Click()
Dim lRec As Long
lRec = cboDT.ListIndex + 1
If lRec > 0 Then
With shtKid.Range("_tbldt_")
If Len(.Cells(lRec, 1).Value) <> 0 Then
.Cells(lRec, 1).*Resize(1, 4)*.Delete *xlShiftUp*
cboDT.RowSource = "_lstDT_"
End If
End With
End If
End Sub

lalu pingin lagi untuk tampilkan pesan, ketika user belum memilih salah
satu baris yang akan dibuang.
> kata kuncinya adalah :
Blok if terluar diubah dari blok if endif menjadi if else endif.
Msgbox Anda diletakkan pada area else.

Maka jadinya secara bertahap begini :
1. Blok if terluar diubah dari blok if endif menjadi if else endif.
Private Sub cmdDEL_Click()
Dim lRec As Long
lRec = cboDT.ListIndex + 1
If lRec > 0 Then
With shtKid.Range("_tbldt_")
If Len(.Cells(lRec, 1).Value) <> 0 Then
.Cells(lRec, 1).*Resize(1, 4)*.Delete *xlShiftUp*
cboDT.RowSource = "_lstDT_"
End If
End With
* else *'jadilah blok if terluar menjadi IF ELSE ENDIF

End If
End Sub

2. Msgbox Anda diletakkan pada area else.
Private Sub cmdDEL_Click()
Dim lRec As Long
lRec = cboDT.ListIndex + 1
If lRec > 0 Then
With shtKid.Range("_tbldt_")
If Len(.Cells(lRec, 1).Value) <> 0 Then
.Cells(lRec, 1).*Resize(1, 4)*.Delete *xlShiftUp*
cboDT.RowSource = "_lstDT_"
End If
End With
* else *'jadilah blok if terluar menjadi IF ELSE ENDIF
msgbox "mbok yao pilih dulu record yang akan dibuang to
ya...",vbinformation,"ini bunyi pesennya"
End If
End Sub

Jadi deh....

**** Kok bisa ? ****
1. properti bernama ListIndex
Nilainya akan -1 jika belum ada yang terpilih
Nilainya akan BUKAN -1 (lebih dari -1 [ > -1 ] ) jika ada item yang
terpilih
Catatan : item ke-1 dalam daftar memiliki ListIndex bernilai 0
(disebut base 0)

2. Jadi, bunyi baris IF :
lRec = cboDT.ListIndex + 1 'listindex disimpan ke variabel
lrec dan diubah menjadi base 1 (karena akan dipakai untuk merujuk range
yang base 1)
If lRec > 0 Then
memiliki bahasa manusia :
"tulung simpenin listindex yang sudah ditambah 1 (supaya jadi
base 1) ke variabel lRec, trus,
kalau user memilih salah satu item dari daftar ( lRec > 0 )
maka lakukan sesuatu sesuai perintah saya yang berikutnya dalam area ini ya"

3. Berarti, kalau si baris IF (nomor 2) itu tidak terpenuhi, maka akan
masuk ke area lawannya, yaitu area ELSE yang dapat diartikan sebagai :
lRec<=0 atau user belum memilih item apapun dari dalam daftar

*** simpelnya ***
ListIndex bisa digunakan untuk memeriksa 'Apakah user sudah memilih salah
satu item atau belum'
ListIndex = -1 (base 0) berarti *belum *ada item dalam daftar yang dipilih
ListIndex > -1 (base 0) berarti *sudah *ada item dalam daftar yang dipilih
ListIndex = 0 (base 0) berarti user sudah memilih item ke-1 yang memiliki
nilai index item adalah 0 (base 0)
ListIndex = 5 (base 0) berarti user sudah memilih item ke-6 yang memiliki
nilai index item adalah 5 (base 0)

*** memanfaatkan listindex untuk merujuk ke suatu baris range tertentu ***
Misal header di A5, maka record ke-1 di A6, listindex = 0 (base 0)
sheets("nama sheet").range("a5").offset( 1 + cbo.ListIndex
).value="Kid" 'nulis ke record ke-1 bunyi teks 'Kid' ketika listindex=0
(base 0)

nah...
selebihnya dicoba sendiri ya...

Regards,
Kid

2017-07-25 17:43 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Hahahaha tau aja nih MR. Kid
>
> Regards,
>
> Danny Prasetyo, S.E., M.M.
> *Dari:* belajar-excel@yahoogroups.com
> *Terkirim:* 25 Juli 2017 5.21 PM
> *Kepada:* belajar-excel@yahoogroups.com
> *Balas ke:* belajar-excel@yahoogroups.com
> *Hal:* Re: Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
> menggunakan combobox
>
>
>
> hmmm...
> saya juga baru ngeh kalo situ menduganya si with bikin ulah
>
> 2017-07-25 17:11 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Oh begitu toh maksud penggunaan With
>> Baru ngeh saya selama belajar vba hahahaha...
>>
>> Oke deh saya coba lagi,
>> Terima kasih Mr. Kid...
>> *Dari:* belajar-excel@yahoogroups.com
>> *Terkirim:* 25 Juli 2017 16.58
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Balas ke:* belajar-excel@yahoogroups.com
>> *Hal:* Re: [belajar-excel] Hapus baris terpilih dengan 1 kriteria
>> menggunakan combobox
>>
>>
>>
>> hmmm...
>> ada apa dengan with ?
>>
>> 'dengan with
>> *with *sheets(1) 'pada sheet ke-1 dalam tab sheet
>> *.*range("a1").value="Kid" 'tulis teks 'Kid' pada range A1
>> di sheet ke-1
>> *.*range("c3").value="Kid" 'tulis teks 'Kid' pada range c3
>> di sheet ke-1
>> *.*range("b7").value="Kid" 'tulis teks 'Kid' pada range b7
>> di sheet ke-1
>> *end with*
>>
>> 'tanpa with
>> sheets(1)*.*range("a1").value="Kid" 'tulis teks 'Kid' pada
>> range A1 di sheet ke-1
>> sheets(1)*.*range("c3").value="Kid" 'tulis teks 'Kid' pada
>> range c3 di sheet ke-1
>> sheets(1)*.*range("b7").value="Kid" 'tulis teks 'Kid' pada
>> range b7 di sheet ke-1
>>
>> blok With ... End With untuk memudahkan penulisan baris kode
>>
>> Contoh lain :
>> 'tanpa with
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Bold = True
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Font.Underline
>> = True
>> Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)*.*Interior.Color
>> = vbRed
>>
>> 'dengan with
>> With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
>> *.*Font.Bold = True
>> *.*Font.Underline = True
>> *.*Interior.Color = vbRed
>> End With
>>
>> Gimana ?
>> Tidak ada apa-apa dengan with bukan ?
>>
>> Regards,
>> Kid
>>
>>
>>
>> 2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat memudahkan
>>> saya.
>>> *Dari:* belajar-excel@yahoogroups.com
>>> *Terkirim:* 25 Juli 2017 12.38
>>> *Kepada:* belajar-excel@yahoogroups.com
>>> *Balas ke:* belajar-excel@yahoogroups.com
>>> *Hal:* Re: Bls: Bls: [belajar-excel] Hapus baris terpilih dengan 1
>>> kriteria menggunakan combobox
>>>
>>>
>>>
>>> Contoh 1 msgbox tok saja
>>> Tidak usah pakai if yg Anda buat
>>>
>>> Sent from my smart enough phone
>>>
>>> On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>
>>>
>>> Contoh 1
>>>
>>> Private Sub cmdDEL_Click()
>>> Dim lRec As Long
>>> lRec = cboDT.ListIndex + 1
>>> If lRec > 0 Then
>>> With shtKid.Range("_tbldt_")
>>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>>> cboDT.RowSource = "_lstDT_"
>>> End If
>>> End With
>>> Else
>>>
>>> If cboDT.Value = "" Then
>>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>> End If
>>> End If
>>>
>>> End Sub
>>>
>>>
>>>
>>> Contoh 2
>>>
>>> Private Sub cmdDEL_Click()
>>> Dim lRec As Long
>>> lRec = cboDT.ListIndex + 1
>>> If lRec > 0 Then
>>> With shtKid.Range("_tbldt_")
>>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>>> cboDT.RowSource = "_lstDT_"
>>> Else
>>>
>>> If cboDT.Value = "" Then
>>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>> End If
>>> End If
>>>
>>> End With
>>> End If
>>> End Sub
>>>
>>>
>>> Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid
>>>
>>>
>>> Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>
>>>
>>> Blok if terluar diubah dari blok if endif menjadi if else endif. Msgbox
>>> Anda diletakkan pada area else.
>>>
>>> Regards,
>>> Kid
>>> Sent from my smart enough phone
>>>
>>> On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>
>>> Mr. Kid,
>>>
>>> Saya ingin menambahkan peringatan seperti ini apabila user tidak memilih
>>> atau pilihannya tidak sesuai dengan data
>>>
>>> If cboDT.Value = "" Then
>>> MsgBox "Pilih terlebih dahulu", vbInformation, "PILIHAN"
>>> End If
>>>
>>> ke dalam kode vba di bawah ini
>>>
>>> Private Sub cmdDEL_Click()
>>> Dim lRec As Long
>>> lRec = cboDT.ListIndex + 1
>>> If lRec > 0 Then
>>> With shtKid.Range("_tbldt_")
>>> If Len(.Cells(lRec, 1).Value) <> 0 Then
>>> .Cells(lRec, 1).Resize(1, 4).Delete xlShiftUp
>>> cboDT.RowSource = "_lstDT_"
>>> End If
>>> End With
>>> End If
>>> End Sub
>>>
>>> Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya kurang
>>> mengerti soalnya hehehe... Mohon pencerahannya...
>>>
>>>
>>> Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>>>
>>>
>>>
>>> Hai Danny,
>>>
>>> Bunyi .entirerow.delete diubah menjadi .resize( 1 , jumlah_kolom_tabel
>>> ).delete xlshiftup
>>> jumlah_kolom_tabel diisi angka
>>>
>>> Regards,
>>> Kid
>>>
>>>
>>>
>>>
>>>
>>>
>>> On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo aydprasetyo@yahoo.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>>
>>>
>>> Terima kasih Mr. Kid atas bantuannya.
>>>
>>> Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan lagi,
>>> - pada form, saat saya ingin menghapus dengan cara menuliskan kode,
>>> malah tidak terjadi apa2. Saya harus meng-klik data dari list yang tertera
>>> terlebih dahulu agar dapat terhapus.
>>> - yang saya inginkan hanya baris dalam tabel saja yang terhapus, bukan 1
>>> baris dari ujung kiri ke ujung kanan.
>>>
>>> Bagaimana solusinya? Dan terima kasih sebelumnya.
>>>
>>> Salam,
>>>
>>> Danny Prasetyo
>>>
>>>
>>> Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
>>> [belajar-excel]" <belajar-excel@yahoogroups.com > menulis:
>>>
>>>
>>>
>>> Hai Danny,
>>>
>>> File terlampir sekadar contoh saja.
>>>
>>> Regards,
>>> Kid
>>>
>>>
>>> 2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com >:
>>>
>>>
>>> Kode vba yang saya edit kok malah error yaa, dan proses nya berbelit2,
>>> karna saya harus mengkonversi value dari combobox dulu ke dalam cell, dan
>>> dari cell dimasukkan ke dalam textbox.
>>>
>>> Tolong dibantu yaa para master, agar tidak error dan proses nya tidak
>>> berbelit hehehe...
>>>
>>> Ini saya kirimkan file nya.
>>> Terima kasih sebelumnya...
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>

Tue Jul 25, 2017 6:57 am (PDT) . Posted by:

"Danny Prasetyo"

Wah terima kasih banyak Mr. Kid sudah mau membantu. Saya coba
besok deh, mood nya lagi hilang nih hahha.
Sekali lagi terima kasih Mr. Kid, sudah mau memberikan penjelasan
detail dan membantu.
Makasih juga buat mas TobyKenzo...
Regards,

Danny Prasetyo
Dari: belajar-excel@yahoogroups.comTerkirim: 25 Juli 2017 6.49
PMKepada: belajar-excel@yahoogroups.comBalas ke:
belajar-excel@yahoogroups.comHal: Re: [belajar-excel] Hapus baris
terpilih dengan 1 kriteria menggunakan combobox
#ssc3032352596187965869 #ygrp-mkp{border: 1px solid rgb(216, 216,
216);font-family: Arial;margin: 10px 0;padding: 0
10px;}#ssc3032352596187965869 #ygrp-mkp hr{border: 1px solid
rgb(216, 216, 216);}#ssc3032352596187965869 #ygrp-mkp #hd{color:
rgb(98, 140, 42);font-size: 85%;font-weight: 700;line-height:
122%;margin: 10px 0;}#ssc3032352596187965869 #ygrp-mkp
#ads{margin-bottom: 10px;}#ssc3032352596187965869 #ygrp-mkp
.ad{padding: 0 0;}#ssc3032352596187965869 #ygrp-mkp .ad p{margin:
0;}#ssc3032352596187965869 #ygrp-mkp .ad a{color: rgb(0, 0,
255);text-decoration: none;}#ssc3032352596187965869 #ygrp-sponsor
#ygrp-lc{font-family: Arial;}#ssc3032352596187965869
#ygrp-sponsor #ygrp-lc #hd{margin: 10px 0px;font-weight:
700;font-size: 78%;line-height: 122%;}#ssc3032352596187965869
#ygrp-sponsor #ygrp-lc .ad{margin-bottom: 10px;padding: 0
0;}#ssc3032352596187965869 #actions{font-family:
Verdana;font-size: 11px;padding: 10px 0;}#ssc3032352596187965869
#activity{background-color: rgb(224, 236, 238);float:
left;font-family: Verdana;font-size: 10px;padding:
10px;}#ssc3032352596187965869 #activity span{font-weight:
700;}#ssc3032352596187965869 #activity
span:first-child{text-transform:
uppercase;}#ssc3032352596187965869 #activity span a{color:
rgb(80, 133, 182);text-decoration: none;}#ssc3032352596187965869
#activity span span{color: rgb(255, 121,
0);}#ssc3032352596187965869 #activity span
.underline{text-decoration: underline;}#ssc3032352596187965869
.attach{clear: both;display: table;font-family: Arial;font-size:
12px;padding: 10px 0;width: 400px;}#ssc3032352596187965869
.attach div a{text-decoration: none;}#ssc3032352596187965869
.attach img{border: none;padding-right:
5px;}#ssc3032352596187965869 .attach label{display:
block;margin-bottom: 5px;}#ssc3032352596187965869 .attach label
a{text-decoration: none;}#ssc3032352596187965869
blockquote{margin: 0 0 0 4px;}#ssc3032352596187965869
.bold{font-family: Arial;font-size: 13px;font-weight:
700;}#ssc3032352596187965869 .bold a{text-decoration:
none;}#ssc3032352596187965869 dd.last p a{font-family:
Verdana;font-weight: 700;}#ssc3032352596187965869 dd.last p
span{margin-right: 10px;font-family: Verdana;font-weight:
700;}#ssc3032352596187965869 dd.last p
span.yshortcuts{margin-right: 0;}#ssc3032352596187965869
div.attach-table div div a{text-decoration:
none;}#ssc3032352596187965869 div.attach-table{width:
400px;}#ssc3032352596187965869 div.file-title
a,#ssc3032352596187965869 div.file-title
a:active,#ssc3032352596187965869 div.file-title
a:hover,#ssc3032352596187965869 div.file-title
a:visited{text-decoration: none;}#ssc3032352596187965869
div.photo-title a,#ssc3032352596187965869 div.photo-title
a:active,#ssc3032352596187965869 div.photo-title
a:hover,#ssc3032352596187965869 div.photo-title
a:visited{text-decoration: none;}#ssc3032352596187965869
div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts{font-family:
Verdana;font-size: 10px;font-weight:
normal;}#ssc3032352596187965869 .green{color: rgb(98, 140,
42);}#ssc3032352596187965869 .MsoNormal{margin: 0 0 0
0;}#ssc3032352596187965869 o{font-size:
0;}#ssc3032352596187965869 #photos div{float: left;width:
72px;}#ssc3032352596187965869 #photos div div{border: 1px solid
rgb(102, 102, 102);height: 62px;overflow: hidden;width:
62px;}#ssc3032352596187965869 #photos div label{color: rgb(102,
102, 102);font-size: 10px;overflow: hidden;text-align:
center;white-space: nowrap;width: 64px;}#ssc3032352596187965869
#reco-category{font-size: 77%;}#ssc3032352596187965869
#reco-desc{font-size: 77%;}#ssc3032352596187965869
.replbq{margin: 4px;}#ssc3032352596187965869 #ygrp-actbar div
a:first-child{margin-right: 2px;padding-right:
5px;}#ssc3032352596187965869 #ygrp-mlmsg{font-size:
13px;font-family: Arial, helvetica, clean,
sans-serif;}#ssc3032352596187965869 #ygrp-mlmsg table{font-size:
inherit;font: 100%;}#ssc3032352596187965869 #ygrp-mlmsg
select,#ssc3032352596187965869 input,#ssc3032352596187965869
textarea{font: 99% Arial, Helvetica, clean,
sans-serif;}#ssc3032352596187965869 #ygrp-mlmsg
pre,#ssc3032352596187965869 code{font: 115%
monospace;}#ssc3032352596187965869 #ygrp-mlmsg *{line-height:
1.22em;}#ssc3032352596187965869 #ygrp-mlmsg #logo{padding-bottom:
10px;}#ssc3032352596187965869 #ygrp-msg p a{font-family:
Verdana;}#ssc3032352596187965869 #ygrp-msg p#attach-count
span{color: rgb(30, 102, 174);font-weight:
700;}#ssc3032352596187965869 #ygrp-reco #reco-head{color:
rgb(255, 121, 0);font-weight: 700;}#ssc3032352596187965869
#ygrp-reco{margin-bottom: 20px;padding:
0px;}#ssc3032352596187965869 #ygrp-sponsor #ov li a{font-size:
130%;text-decoration: none;}#ssc3032352596187965869 #ygrp-sponsor
#ov li{font-size: 77%;list-style-type: square;padding: 6px
0;}#ssc3032352596187965869 #ygrp-sponsor #ov ul{margin:
0;padding: 0 0 0 8px;}#ssc3032352596187965869
#ygrp-text{font-family: Georgia;}#ssc3032352596187965869
#ygrp-text p{margin: 0 0 1em 0;}#ssc3032352596187965869
#ygrp-text tt{font-size: 120%;}#ssc3032352596187965869
#ygrp-vital ul li:last-child{border-right: none;}

hehehe...

tempo hari ada contoh runtime seperti ini : (tentu masih ingat
kan ya)
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).entirerow.Delete
cboDT.RowSource = "_lstDT_" End If
End With End IfEnd Sub
lalu, pinginnya hanya baris di kolom tabel data yang terbuang
(ter .delete)
maka jadi begini :
(latar kuning di bold, dipilih jumlah kolomnya dengan resize,
lalu delete area kecil range tersebut akan membuat range di
baris-baris berikutnya terangkat ke atas [shiftup])
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With End IfEnd Sub
lalu pingin lagi untuk tampilkan pesan, ketika user belum memilih
salah satu baris yang akan dibuang.
> kata kuncinya adalah :
Blok if terluar diubah dari blok if endif menjadi if else
endif. Msgbox Anda diletakkan pada area else.

Maka jadinya secara bertahap begini :
1. Blok if terluar diubah dari blok if endif menjadi if else
endif.
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With
else 'jadilah blok if terluar menjadi IF ELSE ENDIF

End IfEnd Sub
2. Msgbox Anda diletakkan pada area else.
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With
else 'jadilah blok if terluar menjadi IF ELSE ENDIF
msgbox "mbok yao pilih dulu record yang akan dibuang to
ya...",vbinformation,"ini bunyi pesennya"
End IfEnd Sub
Jadi deh....

*** Kok bisa ? ***
1. properti bernama ListIndex
Nilainya akan -1 jika belum ada yang terpilih
Nilainya akan BUKAN -1 (lebih dari -1 [ > -1 ] ) jika ada
item yang terpilih
Catatan : item ke-1 dalam daftar memiliki ListIndex bernilai
0 (disebut base 0)

2. Jadi, bunyi baris IF :
lRec = cboDT.ListIndex + 1 'listindex disimpan ke
variabel lrec dan diubah menjadi base 1 (karena akan dipakai
untuk merujuk range yang base 1)
If lRec > 0 Then memiliki bahasa manusia :
"tulung simpenin listindex yang sudah ditambah 1
(supaya jadi base 1) ke variabel lRec, trus,
kalau user memilih salah satu item dari daftar (
lRec > 0 ) maka lakukan sesuatu sesuai perintah saya yang
berikutnya dalam area ini ya"

3. Berarti, kalau si baris IF (nomor 2) itu tidak terpenuhi, maka
akan masuk ke area lawannya, yaitu area ELSE yang dapat diartikan
sebagai :
lRec<=0 atau user belum memilih item apapun dari dalam
daftar


*** simpelnya ***
ListIndex bisa digunakan untuk memeriksa 'Apakah user sudah
memilih salah satu item atau belum'
ListIndex = -1 (base 0) berarti belum ada item dalam daftar yang
dipilih
ListIndex > -1 (base 0) berarti sudah ada item dalam daftar yang
dipilih
ListIndex = 0 (base 0) berarti user sudah memilih item ke-1 yang
memiliki nilai index item adalah 0 (base 0)
ListIndex = 5 (base 0) berarti user sudah memilih item ke-6 yang
memiliki nilai index item adalah 5 (base 0)

*** memanfaatkan listindex untuk merujuk ke suatu baris range
tertentu ***
Misal header di A5, maka record ke-1 di A6, listindex = 0 (base
0)
sheets("nama sheet").range("a5").offset( 1 + cbo.ListIndex
).value="Kid" 'nulis ke record ke-1 bunyi teks 'Kid' ketika
listindex=0 (base 0)

nah...
selebihnya dicoba sendiri ya...

Regards,
Kid







2017-07-25 17:43 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Hahahaha tau aja nih MR. Kid
Regards,

Danny Prasetyo, S.E., M.M.
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
5.21 PMKepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: Re:
[belajar-excel] Hapus baris terpilih dengan 1 kriteria
menggunakan combobox


hmmm...
saya juga baru ngeh kalo situ menduganya si with bikin ulah

2017-07-25 17:11 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Oh begitu toh maksud penggunaan WithBaru ngeh saya selama belajar
vba hahahaha...
Oke deh saya coba lagi, Terima kasih Mr. Kid...
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
16.58Kepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: [belajar-excel]
Hapus baris terpilih dengan 1 kriteria menggunakan combobox


hmmm...
ada apa dengan with ?

'dengan with
with sheets(1) 'pada sheet ke-1 dalam tab sheet
.range("a1").value="Kid" 'tulis teks 'Kid' pada
range A1 di sheet ke-1
.range("c3").value="Kid" 'tulis teks 'Kid' pada
range c3 di sheet ke-1
.range("b7").value="Kid" 'tulis teks 'Kid' pada
range b7 di sheet ke-1
end with

'tanpa with
sheets(1).range("a1").value="Kid" 'tulis teks 'Kid'
pada range A1 di sheet ke-1
sheets(1).range("c3").value="Kid" 'tulis teks 'Kid'
pada range c3 di sheet ke-1
sheets(1).range("b7").value="Kid" 'tulis teks 'Kid'
pada range b7 di sheet ke-1

blok With ... End With untuk memudahkan penulisan baris kode

Contoh lain :
'tanpa with
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Bold
= True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Font.Under\
line = True
Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible).Interior.C\
olor = vbRed

'dengan with
With Sheet1.Range("a2:a17").SpecialCells(xlCellTypeVisible)
.Font.Bold = True
.Font.Underline = True
.Interior.Color = vbRed
End With

Gimana ?
Tidak ada apa-apa dengan with bukan ?

Regards,
Kid



2017-07-25 16:40 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:


Kalo rumus nya selain With bagaimana Mr. Kid? Agar dapat
memudahkan saya.
Dari: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Terkirim: 25 Juli 2017
12.38Kepada: belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Balas ke:
belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> Hal: Re: Bls: Bls:
[belajar-excel] Hapus baris terpilih dengan 1 kriteria
menggunakan combobox


Contoh 1 msgbox tok sajaTidak usah pakai if yg Anda buat

Sent from my smart enough phone
On Jul 25, 2017, at 11:40, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:



Contoh 1
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With Else
If cboDT.Value = "" Then MsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN" End If End If
End Sub


Contoh 2
Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
Else
If cboDT.Value = "" Then MsgBox "Pilih
terlebih dahulu", vbInformation, "PILIHAN" End If
End If End With End IfEnd Sub

Sudah saya coba seperti contoh di atas tetap tidak bisa Mr. Kid

Pada Selasa, 25 Juli 2017 8:53, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Blok if terluar diubah dari
blok if endif menjadi if else endif. Msgbox Anda diletakkan pada
area else.

Regards,Kid
Sent from my smart enough phone
On Jul 25, 2017, at 01:53, Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:

Mr. Kid,
Saya ingin menambahkan peringatan seperti ini apabila user tidak
memilih atau pilihannya tidak sesuai dengan data
If cboDT.Value = "" ThenMsgBox "Pilih terlebih dahulu",
vbInformation, "PILIHAN"End If
ke dalam kode vba di bawah ini

Private Sub cmdDEL_Click() Dim lRec As Long lRec =
cboDT.ListIndex + 1 If lRec > 0 Then With
shtKid.Range("_tbldt_") If Len(.Cells(lRec, 1).Value)
<> 0 Then .Cells(lRec, 1).Resize(1, 4).Delete
xlShiftUp cboDT.RowSource = "_lstDT_"
End If End With End IfEnd Sub
Bagaimana yaa caranya? 2 jam saya otak atik gak bisa bisa. Saya
kurang mengerti soalnya hehehe... Mohon pencerahannya...

Pada Minggu, 23 Juli 2017 4:57, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

Bunyi .entirerow.delete diubah menjadi .resize( 1 ,
jumlah_kolom_tabel ).delete xlshiftup
jumlah_kolom_tabel diisi angka

Regards,
Kid






On Sat, Jul 22, 2017 at 1:58 PM, Danny Prasetyo
aydprasetyo@yahoo.com <mailto:aydprasetyo@yahoo.com>
[belajar-excel] <belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > wrote:
Terima kasih Mr. Kid atas
bantuannya.
Tapi setelah saya coba, ada beberapa hal ingin saya tanyakan
lagi,- pada form, saat saya ingin menghapus dengan cara
menuliskan kode, malah tidak terjadi apa2. Saya harus meng-klik
data dari list yang tertera terlebih dahulu agar dapat terhapus.-
yang saya inginkan hanya baris dalam tabel saja yang terhapus,
bukan 1 baris dari ujung kiri ke ujung kanan.
Bagaimana solusinya? Dan terima kasih sebelumnya.
Salam,
Danny Prasetyo

Pada Sabtu, 22 Juli 2017 11:21, "'Mr. Kid' mr.nmkid@gmail.com
<mailto:mr.nmkid@gmail.com> [belajar-excel]"
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> > menulis:


Hai Danny,

File terlampir sekadar contoh saja.

Regards,
Kid


2017-07-21 20:20 GMT+07:00 Danny Prasetyo aydprasetyo@yahoo.com
<mailto:aydprasetyo@yahoo.com> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
Kode vba yang saya edit kok
malah error yaa, dan proses nya berbelit2, karna saya harus
mengkonversi value dari combobox dulu ke dalam cell, dan dari
cell dimasukkan ke dalam textbox.
Tolong dibantu yaa para master, agar tidak error dan proses nya
tidak berbelit hehehe...
Ini saya kirimkan file nya.Terima kasih sebelumnya...


















Tue Jul 25, 2017 5:44 am (PDT) . Posted by:

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

Hai Amsar,

File terlampir sekadar contoh.
Dengan susunan tabel referensi yang baik, maka 1 (satu) formula sederhana
bisa untuk banyak kondisi.

Regards,
Kid

2017-07-25 12:42 GMT+07:00 amsar sar moch_amsar@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> salam kenal semua,
> saya mau bertanya bagaimana membuat nilai-nilai pada setiap titik pada
> fuzzy (mambership fuzzy) . ada ngak metode atau rumusnya, jika rentang
> nilai pada sumbu x adalah 0 - 100.
>
> misalnya beberapa variabel berikut ini beserta intervalnya (maksudnya
> nilai intervalnya tidak dibuat sembaranganu, interval dibawah ini saya
> asumsikan saja) :
> 1. variabel A
> rendah : 0 - 50
> sedang: 20 - 80
> tinggi : 50 - 100
>
> 2. variabel B
> rendah : 0 - 40
> cukup : 20 - 60
> sedang: 40 - 80
> tinggi : 60 - 100
>
> jadi, agar nilai kategori rendah, cukup, sedang, dan tinggi kita perolah
> apa rumus dan ketentuan yang dapat kita lakukan?
>
>
>

Tue Jul 25, 2017 9:05 am (PDT) . Posted by:

"amsar sar" moch_amsar

terimakasih banyak, tapi masing-masing tabel belum bisa saya pahami. bisa kirim penjelasannya ditabel file diatas?


Pada Selasa, 25 Juli 2017 19:44, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Amsar,

File terlampir sekadar contoh.
Dengan susunan tabel referensi yang baik, maka 1 (satu) formula sederhana bisa untuk banyak kondisi.

Regards,
Kid

2017-07-25 12:42 GMT+07:00 amsar sar moch_amsar@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

  salam kenal semua,saya mau bertanya bagaimana membuat nilai-nilai pada setiap titik pada fuzzy (mambership fuzzy) . ada ngak metode atau rumusnya, jika rentang nilai pada sumbu x adalah 0 - 100.

misalnya beberapa variabel berikut ini beserta intervalnya (maksudnya nilai intervalnya tidak dibuat sembaranganu, interval dibawah ini saya asumsikan saja) :
1. variabel A
rendah : 0 - 50
sedang: 20 - 80
tinggi  : 50 - 100

2. variabel B
rendah : 0 - 40
cukup  : 20 - 60
sedang: 40 - 80
tinggi  : 60 - 100
jadi, agar nilai kategori rendah, cukup, sedang, dan tinggi kita perolah apa rumus dan ketentuan yang dapat kita lakukan?


#yiv7161718144 #yiv7161718144 -- #yiv7161718144ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7161718144 #yiv7161718144ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7161718144 #yiv7161718144ygrp-mkp #yiv7161718144hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7161718144 #yiv7161718144ygrp-mkp #yiv7161718144ads {margin-bottom:10px;}#yiv7161718144 #yiv7161718144ygrp-mkp .yiv7161718144ad {padding:0 0;}#yiv7161718144 #yiv7161718144ygrp-mkp .yiv7161718144ad p {margin:0;}#yiv7161718144 #yiv7161718144ygrp-mkp .yiv7161718144ad a {color:#0000ff;text-decoration:none;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ygrp-lc {font-family:Arial;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ygrp-lc #yiv7161718144hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ygrp-lc .yiv7161718144ad {margin-bottom:10px;padding:0 0;}#yiv7161718144 #yiv7161718144actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7161718144 #yiv7161718144activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7161718144 #yiv7161718144activity span {font-weight:700;}#yiv7161718144 #yiv7161718144activity span:first-child {text-transform:uppercase;}#yiv7161718144 #yiv7161718144activity span a {color:#5085b6;text-decoration:none;}#yiv7161718144 #yiv7161718144activity span span {color:#ff7900;}#yiv7161718144 #yiv7161718144activity span .yiv7161718144underline {text-decoration:underline;}#yiv7161718144 .yiv7161718144attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7161718144 .yiv7161718144attach div a {text-decoration:none;}#yiv7161718144 .yiv7161718144attach img {border:none;padding-right:5px;}#yiv7161718144 .yiv7161718144attach label {display:block;margin-bottom:5px;}#yiv7161718144 .yiv7161718144attach label a {text-decoration:none;}#yiv7161718144 blockquote {margin:0 0 0 4px;}#yiv7161718144 .yiv7161718144bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7161718144 .yiv7161718144bold a {text-decoration:none;}#yiv7161718144 dd.yiv7161718144last p a {font-family:Verdana;font-weight:700;}#yiv7161718144 dd.yiv7161718144last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7161718144 dd.yiv7161718144last p span.yiv7161718144yshortcuts {margin-right:0;}#yiv7161718144 div.yiv7161718144attach-table div div a {text-decoration:none;}#yiv7161718144 div.yiv7161718144attach-table {width:400px;}#yiv7161718144 div.yiv7161718144file-title a, #yiv7161718144 div.yiv7161718144file-title a:active, #yiv7161718144 div.yiv7161718144file-title a:hover, #yiv7161718144 div.yiv7161718144file-title a:visited {text-decoration:none;}#yiv7161718144 div.yiv7161718144photo-title a, #yiv7161718144 div.yiv7161718144photo-title a:active, #yiv7161718144 div.yiv7161718144photo-title a:hover, #yiv7161718144 div.yiv7161718144photo-title a:visited {text-decoration:none;}#yiv7161718144 div#yiv7161718144ygrp-mlmsg #yiv7161718144ygrp-msg p a span.yiv7161718144yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7161718144 .yiv7161718144green {color:#628c2a;}#yiv7161718144 .yiv7161718144MsoNormal {margin:0 0 0 0;}#yiv7161718144 o {font-size:0;}#yiv7161718144 #yiv7161718144photos div {float:left;width:72px;}#yiv7161718144 #yiv7161718144photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv7161718144 #yiv7161718144photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7161718144 #yiv7161718144reco-category {font-size:77%;}#yiv7161718144 #yiv7161718144reco-desc {font-size:77%;}#yiv7161718144 .yiv7161718144replbq {margin:4px;}#yiv7161718144 #yiv7161718144ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7161718144 #yiv7161718144ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7161718144 #yiv7161718144ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7161718144 #yiv7161718144ygrp-mlmsg select, #yiv7161718144 input, #yiv7161718144 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7161718144 #yiv7161718144ygrp-mlmsg pre, #yiv7161718144 code {font:115% monospace;}#yiv7161718144 #yiv7161718144ygrp-mlmsg * {line-height:1.22em;}#yiv7161718144 #yiv7161718144ygrp-mlmsg #yiv7161718144logo {padding-bottom:10px;}#yiv7161718144 #yiv7161718144ygrp-msg p a {font-family:Verdana;}#yiv7161718144 #yiv7161718144ygrp-msg p#yiv7161718144attach-count span {color:#1E66AE;font-weight:700;}#yiv7161718144 #yiv7161718144ygrp-reco #yiv7161718144reco-head {color:#ff7900;font-weight:700;}#yiv7161718144 #yiv7161718144ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ov li a {font-size:130%;text-decoration:none;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7161718144 #yiv7161718144ygrp-sponsor #yiv7161718144ov ul {margin:0;padding:0 0 0 8px;}#yiv7161718144 #yiv7161718144ygrp-text {font-family:Georgia;}#yiv7161718144 #yiv7161718144ygrp-text p {margin:0 0 1em 0;}#yiv7161718144 #yiv7161718144ygrp-text tt {font-size:120%;}#yiv7161718144 #yiv7161718144ygrp-vital ul li:last-child {border-right:none !important;}#yiv7161718144

Tue Jul 25, 2017 6:27 am (PDT) . Posted by:

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

Hai Tian,

Untuk cara definisi demikian, maka maksimalnya cuma 10 kolom (bawaan
oroknya dah begitu).

*Kasus dasar :*
Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah record
5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
1. memanfaatkan rowsource (bound to range)
with lstKid
.columncount=26 'A s.d. Z ada 26 kolom
.columnheads=true
.rowsource=sheets("Kid").range("A2:Z6").address
end with

2. memanfaatkan properti List (unbound), item pertama adalah header :
with lstKid
.columncount=26
.columnheads=false
.list=sheets("Kid").range("A1:Z6").value
end with

atau kalau pakai array
dim vDaftar as variant
vDaftar=sheets("Kid").range("A1:Z6").value
with lstKid
.columncount=26
.columnheads=false
.list=vDaftar
end with

*Kasus kolom yang terpilih saja :*
Andai ada tabel di sheet 'Kid' dengan header di A1:Z1, dengan jumlah record
5 biji (di A2:Z6) dan nama listbox nya adalah lstKid
Pengennya, listbox hanya berisi data A2:Z6 beserta header hanya kolom
C,K,L,M,N,T,Y (7 kolom saja)
1. memanfaatkan rowsource (bound to range)
> harus menyediakan area range lain sebagai tabel kecil untuk daftar,
misal di BA1:BZ6
sheets("Kid").range("A:Z").entirecolumn.hidden=true 'hide
seluruh sumber data dulu
sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
'tampilkan kolom yang diinginkan
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
sheets("Kid").range("A:Z").entirecolumn.hidden=false
with lstKid
.columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
.columnheads=true
.rowsource=sheets("Kid").range("BA2:BA6").resize(,*7*).address
end with

Untuk pakai properti List juga demikian.

*Kasus baris yang terpilih saja (misal hasil autofilter) :*
1. memanfaatkan rowsource (bound to range)
> harus menyediakan area range lain sebagai tabel kecil untuk daftar,
misal di BA1:BZ6
dim lLastRow as long
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
with lstKid
.columncount=26
.columnheads=true
.rowsource=sheets("Kid").range("BA2:BZ2").resize(llastrow-1).address
'-1 karena header di baris ke-1
end with

*Kasus baris yang terpilih (misal hasil autofilter) dan kolom juga yang
terpilih : *[ C,K,L,M,N,T,Y (7 kolom saja) ]
dim lLastRow as long
sheets("Kid").range("A:Z").entirecolumn.hidden=true 'hide
seluruh sumber data dulu
sheets("Kid").range("C:C,K:N,T:T,Y:Y").entirecolumn.hidden=false
'tampilkan kolom yang diinginkan
sheets("Kid").range("A1:Z6").specialcells(xlcelltypevisible).copy
sheets("Kid").range("BA1").pastespecial xlpastevalues
sheets("Kid").range("A:Z").entirecolumn.hidden=false
llastrow=sheets("Kid").cells(rows.count,"BA").end(xlup).row
with lstKid
.columncount=*7* 'C,K,L,M,N,T,Y (*7* kolom saja)
.columnheads=true
.rowsource=sheets("Kid").range("BA2").resize(llastrow,*7*).address
end with

Kira-kira demikian.

Regards,
Kid

2017-07-23 5:09 GMT+07:00 'Christian. SimanjuntakTMJOAN'
christian.simanjuntak7777@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> DH,
>
> Semangat Pagi
>
> Para master mohon dibantu, saya punya masalah dengan kode ini :
>
> Sub table()
> Set datacoba = Sheets("arus kas")
> ListBox1.RowSource = ""
> With ListBox1
> .AddItem
> .List(.ListCount - 1, 0) = "NO REKENING"
> .List(.ListCount - 1, 1) = "NAMA BANK"
> .List(.ListCount - 1, 2) = "TANGGAL"
> .List(.ListCount - 1, 3) = "BUKTI TRANS"
> .List(.ListCount - 1, 4) = "SETORAN"
> .List(.ListCount - 1, 5) = "BUNGA"
> .List(.ListCount - 1, 6) = "PENARIKAN&quot;
> .List(.ListCount - 1, 7) = "PAJAK"
> .List(.ListCount - 1, 8) = "BIAYA ADM"
> .List(.ListCount - 1, 9) = "SALDO"
> .ColumnWidths = 90 ";" 70 ";" 70 ";" 90 ";" 70 ";" 70 ";" 70 ";" 70 ";" 70
> ";" 70 ";" 70 ";" 90
> End With
> With datacoba
> Set rgBase = datacoba.Range("A2:A500").SpecialCells(xlCellTypeVisible)
> For Each sbase In rgBase
> With ListBox1
> .AddItem sbase.Value
> .List(.ListCount - 1, 0) = sbase.Value
> .List(.ListCount - 1, 1) = sbase.Offset(0, 1).Value
> .List(.ListCount - 1, 2) = sbase.Offset(0, 3).Value
> .List(.ListCount - 1, 3) = sbase.Offset(0, 5).Value
> .List(.ListCount - 1, 4) = sbase.Offset(0, 6).Value
> .List(.ListCount - 1, 5) = sbase.Offset(0, 7).Value
> .List(.ListCount - 1, 6) = sbase.Offset(0, 8).Value
> .List(.ListCount - 1, 7) = sbase.Offset(0, 9).Value
> .List(.ListCount - 1, 8) = sbase.Offset(0, 10).Value
> .List(.ListCount - 1, 9) = sbase.Offset(0, 11).Value
> End With
> Next sbase
> End With
> End Sub
>
> jika mau tampilkan kolom ke 10 dengan tambahan kode :
>
> .List(.ListCount - 1, 9) = "penerimaan&quot; pasti terjadi error
>
> Terlampir screen shot erro nya
>
> pertanyaan :apakah untuk rumus diatas menampilkan data sheet update ke
> listbox hanya bisa sampai 10 kolom setelah itu error? , tolong dibantu para
> master
>
> terimakasih
>
>
>
>

Tue Jul 25, 2017 9:13 am (PDT) . Posted by:

"amsar sar" moch_amsar

ya, memang dalam fuzzy intervalnya overlap.
jka berkenan bisa ngak diskusi dengan whatshapp?
mohon bantuannya ya pak HK

Pada Selasa, 25 Juli 2017 12:50, "hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Hai Amsar,Intervalnya bisa overlap ?
Salam,HK
On Tuesday, July 25, 2017, 12:42:47 PM GMT+7, amsar sar moch_amsar@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  salam kenal semua,saya mau bertanya bagaimana membuat nilai-nilai pada setiap titik pada fuzzy (mambership fuzzy) . ada ngak metode atau rumusnya, jika rentang nilai pada sumbu x adalah 0 - 100.

misalnya beberapa variabel berikut ini beserta intervalnya (maksudnya nilai intervalnya tidak dibuat sembaranganu, interval dibawah ini saya asumsikan saja) :
1. variabel A
rendah : 0 - 50
sedang: 20 - 80
tinggi  : 50 - 100

2. variabel B
rendah : 0 - 40
cukup  : 20 - 60
sedang: 40 - 80
tinggi  : 60 - 100
jadi, agar nilai kategori rendah, cukup, sedang, dan tinggi kita perolah apa rumus dan ketentuan yang dapat kita lakukan?
#yiv6938050998 #yiv6938050998 -- #yiv6938050998ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6938050998 #yiv6938050998ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6938050998 #yiv6938050998ygrp-mkp #yiv6938050998hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6938050998 #yiv6938050998ygrp-mkp #yiv6938050998ads {margin-bottom:10px;}#yiv6938050998 #yiv6938050998ygrp-mkp .yiv6938050998ad {padding:0 0;}#yiv6938050998 #yiv6938050998ygrp-mkp .yiv6938050998ad p {margin:0;}#yiv6938050998 #yiv6938050998ygrp-mkp .yiv6938050998ad a {color:#0000ff;text-decoration:none;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ygrp-lc {font-family:Arial;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ygrp-lc #yiv6938050998hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ygrp-lc .yiv6938050998ad {margin-bottom:10px;padding:0 0;}#yiv6938050998 #yiv6938050998actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6938050998 #yiv6938050998activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6938050998 #yiv6938050998activity span {font-weight:700;}#yiv6938050998 #yiv6938050998activity span:first-child {text-transform:uppercase;}#yiv6938050998 #yiv6938050998activity span a {color:#5085b6;text-decoration:none;}#yiv6938050998 #yiv6938050998activity span span {color:#ff7900;}#yiv6938050998 #yiv6938050998activity span .yiv6938050998underline {text-decoration:underline;}#yiv6938050998 .yiv6938050998attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6938050998 .yiv6938050998attach div a {text-decoration:none;}#yiv6938050998 .yiv6938050998attach img {border:none;padding-right:5px;}#yiv6938050998 .yiv6938050998attach label {display:block;margin-bottom:5px;}#yiv6938050998 .yiv6938050998attach label a {text-decoration:none;}#yiv6938050998 blockquote {margin:0 0 0 4px;}#yiv6938050998 .yiv6938050998bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6938050998 .yiv6938050998bold a {text-decoration:none;}#yiv6938050998 dd.yiv6938050998last p a {font-family:Verdana;font-weight:700;}#yiv6938050998 dd.yiv6938050998last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6938050998 dd.yiv6938050998last p span.yiv6938050998yshortcuts {margin-right:0;}#yiv6938050998 div.yiv6938050998attach-table div div a {text-decoration:none;}#yiv6938050998 div.yiv6938050998attach-table {width:400px;}#yiv6938050998 div.yiv6938050998file-title a, #yiv6938050998 div.yiv6938050998file-title a:active, #yiv6938050998 div.yiv6938050998file-title a:hover, #yiv6938050998 div.yiv6938050998file-title a:visited {text-decoration:none;}#yiv6938050998 div.yiv6938050998photo-title a, #yiv6938050998 div.yiv6938050998photo-title a:active, #yiv6938050998 div.yiv6938050998photo-title a:hover, #yiv6938050998 div.yiv6938050998photo-title a:visited {text-decoration:none;}#yiv6938050998 div#yiv6938050998ygrp-mlmsg #yiv6938050998ygrp-msg p a span.yiv6938050998yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6938050998 .yiv6938050998green {color:#628c2a;}#yiv6938050998 .yiv6938050998MsoNormal {margin:0 0 0 0;}#yiv6938050998 o {font-size:0;}#yiv6938050998 #yiv6938050998photos div {float:left;width:72px;}#yiv6938050998 #yiv6938050998photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6938050998 #yiv6938050998photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6938050998 #yiv6938050998reco-category {font-size:77%;}#yiv6938050998 #yiv6938050998reco-desc {font-size:77%;}#yiv6938050998 .yiv6938050998replbq {margin:4px;}#yiv6938050998 #yiv6938050998ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6938050998 #yiv6938050998ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6938050998 #yiv6938050998ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6938050998 #yiv6938050998ygrp-mlmsg select, #yiv6938050998 input, #yiv6938050998 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6938050998 #yiv6938050998ygrp-mlmsg pre, #yiv6938050998 code {font:115% monospace;}#yiv6938050998 #yiv6938050998ygrp-mlmsg * {line-height:1.22em;}#yiv6938050998 #yiv6938050998ygrp-mlmsg #yiv6938050998logo {padding-bottom:10px;}#yiv6938050998 #yiv6938050998ygrp-msg p a {font-family:Verdana;}#yiv6938050998 #yiv6938050998ygrp-msg p#yiv6938050998attach-count span {color:#1E66AE;font-weight:700;}#yiv6938050998 #yiv6938050998ygrp-reco #yiv6938050998reco-head {color:#ff7900;font-weight:700;}#yiv6938050998 #yiv6938050998ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ov li a {font-size:130%;text-decoration:none;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6938050998 #yiv6938050998ygrp-sponsor #yiv6938050998ov ul {margin:0;padding:0 0 0 8px;}#yiv6938050998 #yiv6938050998ygrp-text {font-family:Georgia;}#yiv6938050998 #yiv6938050998ygrp-text p {margin:0 0 1em 0;}#yiv6938050998 #yiv6938050998ygrp-text tt {font-size:120%;}#yiv6938050998 #yiv6938050998ygrp-vital ul li:last-child {border-right:none !important;}#yiv6938050998

Tue Jul 25, 2017 7:04 pm (PDT) . Posted by:

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

Terlampir.

On Tue, Jul 25, 2017 at 11:03 PM, amsar sar moch_amsar@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> ya, memang dalam fuzzy intervalnya overlap.
> jka berkenan bisa ngak diskusi dengan whatshapp?
> mohon bantuannya ya pak HK
>
>
> Pada Selasa, 25 Juli 2017 12:50, "hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Amsar,
> Intervalnya bisa overlap ?
>
> Salam,
> HK
>
> ------------------------------
> On Tuesday, July 25, 2017, 12:42:47 PM GMT+7, amsar sar
> moch_amsar@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
>
> salam kenal semua,
> saya mau bertanya bagaimana membuat nilai-nilai pada setiap titik pada
> fuzzy (mambership fuzzy) . ada ngak metode atau rumusnya, jika rentang
> nilai pada sumbu x adalah 0 - 100.
>
> misalnya beberapa variabel berikut ini beserta intervalnya (maksudnya
> nilai intervalnya tidak dibuat sembaranganu, interval dibawah ini saya
> asumsikan saja) :
> 1. variabel A
> rendah : 0 - 50
> sedang: 20 - 80
> tinggi : 50 - 100
>
> 2. variabel B
> rendah : 0 - 40
> cukup : 20 - 60
> sedang: 40 - 80
> tinggi : 60 - 100
>
> jadi, agar nilai kategori rendah, cukup, sedang, dan tinggi kita perolah
> apa rumus dan ketentuan yang dapat kita lakukan?
>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 19.07

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)