Minggu, 28 Oktober 2012

[belajar-excel] Digest Number 1872

6 New Messages

Digest #1872
1a
Re: Macro untuk Memilih checkboxes (object) by "Mr. Kid" nmkid.family@ymail.com
2b
Re: ganti part dan membandingkan beberapa data by "Mr. Kid" nmkid.family@ymail.com
2d
Re: ganti part dan membandingkan beberapa data by "Mr. Kid" nmkid.family@ymail.com

Messages

Sun Oct 28, 2012 6:16 am (PDT) . Posted by:

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

Ops lupa,
Prosedur TurnOn bla juga sebaiknya disesuaikan offset topleftcell nya si
shape agar bisa lebih pas yang di turn on.
Assign macro si tumbul ke prosedur turn on tersebut (prosedur dalam object
class ber scope private, jadi harus ada nama si object class didepan nama
prosedurnya).

Wassalam,
Kid.

2012/10/28 Mr. Kid <mr.nmkid@gmail.com>

> Oh gitu...
> Kalau gitu, hapus saja event selection change-nya.
> Coba langkah berikut :
> 1. buat module baru di VBE
> 2. copas prosedur berikut :
> Public Sub HapusShape()
> Dim shp As Shape, rngArea As Range
> Set rngArea = Intersect(Selection, ActiveSheet.Range("a2:f8"))
> If Not rngArea Is Nothing Then
> For Each shp In ActiveSheet.Shapes
> If Not Intersect(rngArea, shp.TopLeftCell.Offset(1)) Is
> Nothing Then
> shp.Delete
> End If
> Next shp
> End If
> End Sub
>
> 3. buat tombol di worksheet (diluar a2:f8), klik kanan assign macro ke
> prosedur HapusShape
> 4. coba blok range dan tekan tombol
>
> Oh iya, atur offset dari topleftcell dari shape dengan memperhatikan range
> sudut kiri atas shape, agar bisa mencapai area a2:f8
>
> Wassalam,
> Kid.
>
>
> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>
>> **
>>
>>
>> Thanks untuk tanggapannya Mr, Kid, mungkin pertanyaan saya kurang jelas,
>>
>> *Saya ingin menggunakan macro untuk menghapus object (checkbox) dengan
>> cara men-select cell-nya* (bukan object-nya), ini dikarenakan object
>> checkbox ini cukup banyak di sheet dan jika memilih objectnya (dengan
>> menekan ctrl, harus satu persatu), contoh makro untuk turn on check box itu
>> hanya dengan memilih cell secara acak (yang ada object checkbox-nya) lalu
>> menekan tombol macro maka cell terpilih (yang ada object checkbox akan
>> tercentang)
>>
>> Wassalam
>> imar
>>
>>
>>
>> 2012/10/28 Mr. Kid <mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> Coba pakai event selection change milik si worksheet.
>>> Prosedurnya begini :
>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>> With Target
>>> If .Count = 1 Then
>>> If .Column < 7 Then
>>> If .Row > 1 Then
>>> If .Row < 9 Then
>>> With .Offset(0, -((.Column - 1) Mod 2))
>>> .Value = CBool(Not .Value)
>>> End With
>>> End If
>>> End If
>>> End If
>>> End If
>>> End With
>>> End Sub
>>>
>>> Batasan :
>>> - hanya bekerja kalau mengubah cell aktif (klik cell lain supaya si cell
>>> lain jadi aktif)
>>>
>>> Jika ingin cell yang sudah aktif agar bisa berubah kalau di-klik lagi,
>>> mungkin pakai event double click ya. Tapi mending klik si shape saja
>>> deh.
>>>
>>> Hati-hati kalau pakai event change milik si worksheet. Karena shape yang
>>> di-click akan menjalankan event change milik si worksheet akibat properti
>>> linkedcells yang ada isinya merujuk ke cell tertentu.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>>>
>>>> Be-Exceler,
>>>>
>>>>
>>>>
>>>> Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan
>>>> cara men-select (me-range) A2:A5 atau A2:B5
>>>> saya ada contoh untuk meng-aktif-kan checkbox dengan men-select
>>>> cell-nya, bagaimana me-modifikasi yang terpilih object checkbox-nya?
>>>>
>>>> Wassalam
>>>> imar
>>>>
>>>>
>>>
>>
>>
>
>

Sun Oct 28, 2012 6:18 am (PDT) . Posted by:

"Imar Andre" baz.giglo

Maknyos Mr. Kid,

Thank solusinya, benar ini yang saya maksud

Wassalam
imar

2012/10/28 Mr. Kid <mr.nmkid@gmail.com>

> **
>
>
> Oh gitu...
> Kalau gitu, hapus saja event selection change-nya.
> Coba langkah berikut :
> 1. buat module baru di VBE
> 2. copas prosedur berikut :
> Public Sub HapusShape()
> Dim shp As Shape, rngArea As Range
> Set rngArea = Intersect(Selection, ActiveSheet.Range("a2:f8"))
> If Not rngArea Is Nothing Then
> For Each shp In ActiveSheet.Shapes
> If Not Intersect(rngArea, shp.TopLeftCell.Offset(1)) Is
> Nothing Then
> shp.Delete
> End If
> Next shp
> End If
> End Sub
>
> 3. buat tombol di worksheet (diluar a2:f8), klik kanan assign macro ke
> prosedur HapusShape
> 4. coba blok range dan tekan tombol
>
> Oh iya, atur offset dari topleftcell dari shape dengan memperhatikan range
> sudut kiri atas shape, agar bisa mencapai area a2:f8
>
> Wassalam,
> Kid.
>
>
> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>
>> **
>>
>>
>> Thanks untuk tanggapannya Mr, Kid, mungkin pertanyaan saya kurang jelas,
>>
>> *Saya ingin menggunakan macro untuk menghapus object (checkbox) dengan
>> cara men-select cell-nya* (bukan object-nya), ini dikarenakan object
>> checkbox ini cukup banyak di sheet dan jika memilih objectnya (dengan
>> menekan ctrl, harus satu persatu), contoh makro untuk turn on check box itu
>> hanya dengan memilih cell secara acak (yang ada object checkbox-nya) lalu
>> menekan tombol macro maka cell terpilih (yang ada object checkbox akan
>> tercentang)
>>
>> Wassalam
>> imar
>>
>>
>>
>> 2012/10/28 Mr. Kid <mr.nmkid@gmail.com>
>>
>> **
>>>
>>>
>>> Coba pakai event selection change milik si worksheet.
>>> Prosedurnya begini :
>>> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>>> With Target
>>> If .Count = 1 Then
>>> If .Column < 7 Then
>>> If .Row > 1 Then
>>> If .Row < 9 Then
>>> With .Offset(0, -((.Column - 1) Mod 2))
>>> .Value = CBool(Not .Value)
>>> End With
>>> End If
>>> End If
>>> End If
>>> End If
>>> End With
>>> End Sub
>>>
>>> Batasan :
>>> - hanya bekerja kalau mengubah cell aktif (klik cell lain supaya si cell
>>> lain jadi aktif)
>>>
>>> Jika ingin cell yang sudah aktif agar bisa berubah kalau di-klik lagi,
>>> mungkin pakai event double click ya. Tapi mending klik si shape saja
>>> deh.
>>>
>>> Hati-hati kalau pakai event change milik si worksheet. Karena shape yang
>>> di-click akan menjalankan event change milik si worksheet akibat properti
>>> linkedcells yang ada isinya merujuk ke cell tertentu.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>> 2012/10/28 Imar Andre <imar.ap@gmail.com>
>>>
>>>> Be-Exceler,
>>>>
>>>>
>>>>
>>>> Saya ingin menghapus hanya checkbox di cell A2,A3,A4 & A5 saja dengan
>>>> cara men-select (me-range) A2:A5 atau A2:B5
>>>> saya ada contoh untuk meng-aktif-kan checkbox dengan men-select
>>>> cell-nya, bagaimana me-modifikasi yang terpilih object checkbox-nya?
>>>>
>>>> Wassalam
>>>> imar
>>>>
>>>>
>>>
>>
>
>

Sun Oct 28, 2012 6:42 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

mr. kid
maapin kalau ada penjelasan, karena masih bingung dengan cara menjelaskannya, mungkinkah dibawah ini terwakili

1. Kolom C-D-E adalah diinput dengan scanner, jadi seperti input manual dan data dikolom C tidak berurutan.
2. kolom C di CHANGE COMPONENT adalah pembanding dari sheet FL43EHC dimana di sheet tersebut pembandingnya adalah Kolom part no. - part no.2 sampai part-no.4 dan menghasilkan result di kolom K
3. data ini tidak terurut jadi kadang berpindah2,

berikut lampiran originalnya

terima kasih

amin

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 28 Oktober 2012 19:10
Judul: Re: [belajar-excel] ganti part dan membandingkan beberapa data


 
Coba di baris 3 :
=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C3," ",REPT(" ",99)),(ROW($1:$9)-1)*99+1,99)*1),LOOKUP(9^9,MID(SUBSTITUTE(D3," ",REPT(" ",99)),(ROW($1:$9)-1)*99+1,99)*1)),0)

mbok yao kriterianya ditulis yang jelas dan detil. Kolom C itu isinya memiliki struktur apa saja dengan urutan tetap atau tidak, kenapa kadang gak ada nilai kadang ada nilai. Yang D juga dijelaskan demikian. Kemudian syaratnya, kalau yang C begini begitu, maka ambil yang D yangbegono begoto..

Kalau ndak penjelasan yang detil cuma main tebak-tebakan kaya gini, ketemu baris lain yang beda dikit saja, formulanya bisa harus ganti lagi.Kalau formulanya ganti-ganti terus, kapan belajar logika sampai terbentuknya si formula ?

Wassalam,
Kid.

2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>


>be-exceller
>
>
>sekali lagi minta supportnya dari master master sekalian
>
>
>1.saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom dengan
data di sheet change component di kolom part no
>2. pada baris ke 4 di kolom part
no. angka 3000 biar bisa ke kolom qty, tapi tidak semua data sama seperti di
baris ke 4
>
>
>berikut contoh datanya
>
>
>Terima kasih
>
>
>amin

Sun Oct 28, 2012 6:51 am (PDT) . Posted by:

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

cius... ?

bagaimana kalau disertakan hasil kerja manual pengambilan nilai setiap
baris dari data yang ada. Misal diletakkan di kolom kosong yang terpisah
dengan tabel (seperti dikolom Z atau X gitu).

Wassalam,
Kid.

2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> mr. kid
> maapin kalau ada penjelasan, karena masih bingung dengan cara
> menjelaskannya, mungkinkah dibawah ini terwakili
>
> 1. Kolom C-D-E adalah diinput dengan scanner, jadi seperti input manual
> dan data dikolom C tidak berurutan.
> 2. kolom C di CHANGE COMPONENT adalah pembanding dari sheet FL43EHC dimana
> di sheet tersebut pembandingnya adalah Kolom part no. - part no.2 sampai
> part-no.4 dan menghasilkan result di kolom K
> 3. data ini tidak terurut jadi kadang berpindah2,
>
> berikut lampiran originalnya
>
> terima kasih
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 28 Oktober 2012 19:10
> *Judul:* Re: [belajar-excel] ganti part dan membandingkan beberapa data
>
>
> Coba di baris 3 :
> =IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C3," ",REPT("
> ",99)),(ROW($1:$9)-1)*99+1,99)*1),LOOKUP(9^9,MID(SUBSTITUTE(D3," ",REPT("
> ",99)),(ROW($1:$9)-1)*99+1,99)*1)),0)
>
> mbok yao kriterianya ditulis yang jelas dan detil. Kolom C itu isinya
> memiliki struktur apa saja dengan urutan tetap atau tidak, kenapa kadang
> gak ada nilai kadang ada nilai. Yang D juga dijelaskan demikian. Kemudian syaratnya,
> kalau yang C begini begitu, maka ambil yang D yang begono begoto..
>
> Kalau ndak penjelasan yang detil cuma main tebak-tebakan kaya gini, ketemu
> baris lain yang beda dikit saja, formulanya bisa harus ganti lagi. Kalau
> formulanya ganti-ganti terus, kapan belajar logika sampai terbentuknya si
> formula ?
>
> Wassalam,
> Kid.
>
> 2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> be-exceller
>
> sekali lagi minta supportnya dari master master sekalian
>
> 1. saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom
> dengan data di sheet change component di kolom part no
> 2. pada baris ke 4 di kolom part no. angka 3000 biar bisa ke kolom qty,
> tapi tidak semua data sama seperti di baris ke 4
>
> berikut contoh datanya
>
> Terima kasih
>
> amin
>
>
>
>
>
>

Sun Oct 28, 2012 7:29 am (PDT) . Posted by:

"ngademin Thohari" ngademinth

mr. kid

minta advicenya, apakah seperti terlampir penjelasannya

terima kasih

amin

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 28 Oktober 2012 20:51
Judul: Re: [belajar-excel] ganti part dan membandingkan beberapa data


 
cius... ?

bagaimana kalau disertakan hasil kerja manual pengambilan nilai setiap baris dari data yang ada. Misal diletakkan di kolom kosong yang terpisah dengan tabel (seperti dikolom Z atau X gitu).

Wassalam,
Kid.

2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>


>mr. kid
>maapin kalau ada penjelasan, karena masih bingung dengan cara menjelaskannya, mungkinkah dibawah ini terwakili
>
>
>1. Kolom C-D-E adalah diinput dengan scanner, jadi seperti input manual dan data dikolom C tidak berurutan.
>2. kolom C di CHANGE COMPONENT adalah pembanding dari sheet FL43EHC dimana di sheet tersebut pembandingnya adalah Kolom part no. - part no.2 sampai part-no.4 dan menghasilkan result di kolom K
>3. data ini tidak terurut jadi kadang berpindah2,
>
>
>berikut lampiran originalnya
>
>
>terima kasih
>
>
>amin
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Minggu, 28 Oktober 2012 19:10
>Judul: Re: [belajar-excel] ganti part dan membandingkan beberapa data
>
>
>

>Coba di baris 3 :
>=IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C3," ",REPT(" ",99)),(ROW($1:$9)-1)*99+1,99)*1),LOOKUP(9^9,MID(SUBSTITUTE(D3," ",REPT(" ",99)),(ROW($1:$9)-1)*99+1,99)*1)),0)
>
>mbok yao kriterianya ditulis yang jelas dan detil. Kolom C itu isinya memiliki struktur apa saja dengan urutan tetap atau tidak, kenapa kadang gak ada nilai kadang ada nilai. Yang D juga dijelaskan demikian. Kemudian syaratnya, kalau yang C begini begitu, maka ambil yang D yangbegono begoto..
>
>Kalau ndak penjelasan yang detil cuma main tebak-tebakan kaya gini, ketemu baris lain yang beda dikit saja, formulanya bisa harus ganti lagi.Kalau formulanya ganti-ganti terus, kapan belajar logika sampai terbentuknya si formula ?
>
>Wassalam,
>Kid.
>
>
>2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>
>
>
>> 
>>be-exceller
>>
>>
>>sekali lagi minta supportnya dari master master sekalian
>>
>>
>>1.saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom dengan
data di sheet change component di kolom part no
>>2. pada baris ke 4 di kolom part
no. angka 3000 biar bisa ke kolom qty, tapi tidak semua data sama seperti di
baris ke 4
>>
>>
>>berikut contoh datanya
>>
>>
>>Terima kasih
>>
>>
>>amin
>
>
>

Sun Oct 28, 2012 7:33 am (PDT) . Posted by:

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

Kalau gitu, saya pakai yang file terlampir saja, yang tampaknya lebih jelas.
Formula QTY yang diganti.

Wassalam,
Kid.

2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>

> **
>
>
> mr. kid
>
> minta advicenya, apakah seperti terlampir penjelasannya
>
> terima kasih
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 28 Oktober 2012 20:51
>
> *Judul:* Re: [belajar-excel] ganti part dan membandingkan beberapa data
>
>
> cius... ?
>
> bagaimana kalau disertakan hasil kerja manual pengambilan nilai setiap
> baris dari data yang ada. Misal diletakkan di kolom kosong yang terpisah
> dengan tabel (seperti dikolom Z atau X gitu).
>
> Wassalam,
> Kid.
>
> 2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> mr. kid
> maapin kalau ada penjelasan, karena masih bingung dengan cara
> menjelaskannya, mungkinkah dibawah ini terwakili
>
> 1. Kolom C-D-E adalah diinput dengan scanner, jadi seperti input manual
> dan data dikolom C tidak berurutan.
> 2. kolom C di CHANGE COMPONENT adalah pembanding dari sheet FL43EHC dimana
> di sheet tersebut pembandingnya adalah Kolom part no. - part no.2 sampai
> part-no.4 dan menghasilkan result di kolom K
> 3. data ini tidak terurut jadi kadang berpindah2,
>
> berikut lampiran originalnya
>
> terima kasih
>
> amin
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 28 Oktober 2012 19:10
> *Judul:* Re: [belajar-excel] ganti part dan membandingkan beberapa data
>
>
> Coba di baris 3 :
> =IFERROR(IFERROR(LOOKUP(9^9,MID(SUBSTITUTE(C3," ",REPT("
> ",99)),(ROW($1:$9)-1)*99+1,99)*1),LOOKUP(9^9,MID(SUBSTITUTE(D3," ",REPT("
> ",99)),(ROW($1:$9)-1)*99+1,99)*1)),0)
>
> mbok yao kriterianya ditulis yang jelas dan detil. Kolom C itu isinya
> memiliki struktur apa saja dengan urutan tetap atau tidak, kenapa kadang
> gak ada nilai kadang ada nilai. Yang D juga dijelaskan demikian. Kemudian syaratnya,
> kalau yang C begini begitu, maka ambil yang D yang begono begoto..
>
> Kalau ndak penjelasan yang detil cuma main tebak-tebakan kaya gini, ketemu
> baris lain yang beda dikit saja, formulanya bisa harus ganti lagi. Kalau
> formulanya ganti-ganti terus, kapan belajar logika sampai terbentuknya si
> formula ?
>
> Wassalam,
> Kid.
>
> 2012/10/28 ngademin Thohari <ngademinth@yahoo.co.id>
>
> **
>
> be-exceller
>
> sekali lagi minta supportnya dari master master sekalian
>
> 1. saya mau membandingkan di sheet FL43EHC dengan adanya 4 data di kolom
> dengan data di sheet change component di kolom part no
> 2. pada baris ke 4 di kolom part no. angka 3000 biar bisa ke kolom qty,
> tapi tidak semua data sama seperti di baris ke 4
>
> berikut contoh datanya
>
> Terima kasih
>
> amin
>
>
>
>
>
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar