Sabtu, 16 Januari 2016

[belajar-excel] Digest Number 3722

12 Messages

Digest #3722
1a
Re: Disable right click di tab sheet dan menu bar by "hendrik karnadi" hendrikkarnadi
1b
Re: Disable right click di tab sheet dan menu bar by "Mr. Kid" nmkid.family@ymail.com
1d
Re: Disable right click di tab sheet dan menu bar by "Mr. Kid" nmkid.family@ymail.com
4a
4c
Re: Filter String ke Combobox [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
5
Cetak data dengan makro by "heru mulyono"

Messages

Fri Jan 15, 2016 2:27 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Sama2....Kalo sdh buat boleh dishare disini...biar temen2 yang lain bisa ikut menikmati manfaatnya.
Salam,HK

From: "Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 17:16
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar

  Oya, saya sudah mengerti. Terima kasih sekali lagi Pak Hendrik.  
| | |
| | | |
| | | | |

    From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 5:16 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar     Seingat saya Codenya ditulis di Custom UI (hrs diinstal dulu) Coba ikuti langkah2nya....maaf saya jarang main Custom UI, jadi sementara blm bisa jawab.   Salam, HK From: "Tio Adi Bayu Adjietio.adjie@ptssb.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 16:15
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar     Dear Pak Hendrik, Adakah langkah-langkah dalam penulisan custom UI part code ? Dimana saya menulis code UI spt dibawah ini  ?   <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="tabno1" label="Tabku"> </tab> </tabs> </ribbon> </customUI>     Terima kasih jawabannya.
| | |
| | | |
| | | | |

Regards, Tio   From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:35 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Disable right click di tab sheet dan menu bar    
| Pak Hendrik, kok tidak ada lampirannya yah ? Maaf. | |
| | | |
| | | | |

    From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 2:25 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar     Hai Tio, Coba lihat file/folder terlampir, 1. Ga bisa diklik kanan dan Cut,Copy ga bisa diPaste 2. Folder Ribbon Change yang berisi link untuk membuat menu sendiri serta contoh2nya.   Ini saya dapat dari milis dan internet.   Salam, HK From: "Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 15 January 2016, 9:26
Subject: [belajar-excel] Disable right click di tab sheet dan menu bar     Salam Excel Expert, Saya mau bertanya : 1.     Bagaimana code vba untuk disable right click di tab sheet ? 2.     Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ? Saya sudah cari di google, tapi tidak berhasil-berhasil juga.   Terima kasih bantuannya. Semoga Tuhan YME membalasnya. Amiin.   Salam, Tio  
| | |
| | | |
| | | | |

        #yiv9942002698 #yiv9942002698 -- #yiv9942002698ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9942002698 #yiv9942002698ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9942002698 #yiv9942002698ygrp-mkp #yiv9942002698hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9942002698 #yiv9942002698ygrp-mkp #yiv9942002698ads {margin-bottom:10px;}#yiv9942002698 #yiv9942002698ygrp-mkp .yiv9942002698ad {padding:0 0;}#yiv9942002698 #yiv9942002698ygrp-mkp .yiv9942002698ad p {margin:0;}#yiv9942002698 #yiv9942002698ygrp-mkp .yiv9942002698ad a {color:#0000ff;text-decoration:none;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ygrp-lc {font-family:Arial;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ygrp-lc #yiv9942002698hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ygrp-lc .yiv9942002698ad {margin-bottom:10px;padding:0 0;}#yiv9942002698 #yiv9942002698actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9942002698 #yiv9942002698activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9942002698 #yiv9942002698activity span {font-weight:700;}#yiv9942002698 #yiv9942002698activity span:first-child {text-transform:uppercase;}#yiv9942002698 #yiv9942002698activity span a {color:#5085b6;text-decoration:none;}#yiv9942002698 #yiv9942002698activity span span {color:#ff7900;}#yiv9942002698 #yiv9942002698activity span .yiv9942002698underline {text-decoration:underline;}#yiv9942002698 .yiv9942002698attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9942002698 .yiv9942002698attach div a {text-decoration:none;}#yiv9942002698 .yiv9942002698attach img {border:none;padding-right:5px;}#yiv9942002698 .yiv9942002698attach label {display:block;margin-bottom:5px;}#yiv9942002698 .yiv9942002698attach label a {text-decoration:none;}#yiv9942002698 blockquote {margin:0 0 0 4px;}#yiv9942002698 .yiv9942002698bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9942002698 .yiv9942002698bold a {text-decoration:none;}#yiv9942002698 dd.yiv9942002698last p a {font-family:Verdana;font-weight:700;}#yiv9942002698 dd.yiv9942002698last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9942002698 dd.yiv9942002698last p span.yiv9942002698yshortcuts {margin-right:0;}#yiv9942002698 div.yiv9942002698attach-table div div a {text-decoration:none;}#yiv9942002698 div.yiv9942002698attach-table {width:400px;}#yiv9942002698 div.yiv9942002698file-title a, #yiv9942002698 div.yiv9942002698file-title a:active, #yiv9942002698 div.yiv9942002698file-title a:hover, #yiv9942002698 div.yiv9942002698file-title a:visited {text-decoration:none;}#yiv9942002698 div.yiv9942002698photo-title a, #yiv9942002698 div.yiv9942002698photo-title a:active, #yiv9942002698 div.yiv9942002698photo-title a:hover, #yiv9942002698 div.yiv9942002698photo-title a:visited {text-decoration:none;}#yiv9942002698 div#yiv9942002698ygrp-mlmsg #yiv9942002698ygrp-msg p a span.yiv9942002698yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9942002698 .yiv9942002698green {color:#628c2a;}#yiv9942002698 .yiv9942002698MsoNormal {margin:0 0 0 0;}#yiv9942002698 o {font-size:0;}#yiv9942002698 #yiv9942002698photos div {float:left;width:72px;}#yiv9942002698 #yiv9942002698photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9942002698 #yiv9942002698photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9942002698 #yiv9942002698reco-category {font-size:77%;}#yiv9942002698 #yiv9942002698reco-desc {font-size:77%;}#yiv9942002698 .yiv9942002698replbq {margin:4px;}#yiv9942002698 #yiv9942002698ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9942002698 #yiv9942002698ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9942002698 #yiv9942002698ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9942002698 #yiv9942002698ygrp-mlmsg select, #yiv9942002698 input, #yiv9942002698 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9942002698 #yiv9942002698ygrp-mlmsg pre, #yiv9942002698 code {font:115% monospace;}#yiv9942002698 #yiv9942002698ygrp-mlmsg * {line-height:1.22em;}#yiv9942002698 #yiv9942002698ygrp-mlmsg #yiv9942002698logo {padding-bottom:10px;}#yiv9942002698 #yiv9942002698ygrp-msg p a {font-family:Verdana;}#yiv9942002698 #yiv9942002698ygrp-msg p#yiv9942002698attach-count span {color:#1E66AE;font-weight:700;}#yiv9942002698 #yiv9942002698ygrp-reco #yiv9942002698reco-head {color:#ff7900;font-weight:700;}#yiv9942002698 #yiv9942002698ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ov li a {font-size:130%;text-decoration:none;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9942002698 #yiv9942002698ygrp-sponsor #yiv9942002698ov ul {margin:0;padding:0 0 0 8px;}#yiv9942002698 #yiv9942002698ygrp-text {font-family:Georgia;}#yiv9942002698 #yiv9942002698ygrp-text p {margin:0 0 1em 0;}#yiv9942002698 #yiv9942002698ygrp-text tt {font-size:120%;}#yiv9942002698 #yiv9942002698ygrp-vital ul li:last-child {border-right:none !important;}#yiv9942002698

Fri Jan 15, 2016 2:42 am (PST) . Posted by:

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

Hai Tio,

1. Boleh tahu kenapa kok tidak boleh klik kanan di tab Sheet ?

2. Ribbon di Excel ?
Mas Nang Agus sudah membuat coretan tentang hal ini di blog milis. Mulai
darisini
<http://b-excel.blogspot.co.id/2014/06/belajar-ribbonx-01-perkenalan.html>.
Mampir-mampirlah ke blog milis. Kan kalau ada yang ingin ditanyakan dari
coretan yang ada, bisa dilakukan di milis... jadi ndak terlalu repot karena
bisa langsung tanya ke penulisnya.

2016-01-15 9:26 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Salam Excel Expert,
>
> Saya mau bertanya :
>
> 1. Bagaimana code vba untuk disable right click di tab sheet ?
>
> 2. Adakah code vba untuk menon-aktifkan menu bar dan command bar di
> excel hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri
> ?
>
> Saya sudah cari di google, tapi tidak berhasil-berhasil juga.
>
>
>
> Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
>
> Amiin.
>
>
>
> Salam,
>
> Tio
>
>
>
>
>
>
>
>
>

Fri Jan 15, 2016 4:09 am (PST) . Posted by:

"Tio Adi Bayu Adjie"

Terima kasih Mr. Kid.

1. Klik kanan di tab sheet karena di situ ada view code, yang saya pikir sebaiknya disembunyikan supaya tidak merubah code vba nya. Itu saja khususnya.

2. Adakah code VBA untuk membuat menu sendiri dan menyembunyikan built-in menu excel ? Karena kalau install UI editor, maka kalau di pakai di computer lain, mungkin tidak bisa karena harus install dulu. Soalnya file saya ini mau di pakai oleh beberapa orang dengan computer berbeda.

Terima kasih sebelumnya.
Wassalam.
Tio

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Friday, January 15, 2016 5:42 PM
To: BeExcel
Subject: Re: [belajar-excel] Disable right click di tab sheet dan menu bar


Hai Tio,
1. Boleh tahu kenapa kok tidak boleh klik kanan di tab Sheet ?
2. Ribbon di Excel ?
Mas Nang Agus sudah membuat coretan tentang hal ini di blog milis. Mulai darisini<http://b-excel.blogspot.co.id/2014/06/belajar-ribbonx-01-perkenalan.html>.
Mampir-mampirlah ke blog milis. Kan kalau ada yang ingin ditanyakan dari coretan yang ada, bisa dilakukan di milis... jadi ndak terlalu repot karena bisa langsung tanya ke penulisnya.




2016-01-15 9:26 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:


Salam Excel Expert,

Saya mau bertanya :

1. Bagaimana code vba untuk disable right click di tab sheet ?

2. Adakah code vba untuk menon-aktifkan menu bar dan command bar di excel hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri ?

Saya sudah cari di google, tapi tidak berhasil-berhasil juga.



Terima kasih bantuannya. Semoga Tuhan YME membalasnya.

Amiin.



Salam,

Tio











Fri Jan 15, 2016 5:10 am (PST) . Posted by:

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

Hai Tio,

1. Ingin mencegah dibukanya VBEditor ? Bisa ya ? Rasanya tidak bisa tuh...
a. VBA nya di password : tapi passwordnya mudah dibingkar karena VBA
ditujukan untuk otomasi dan bukan untuk application programming.
b. tab Sheet dicegah aktifnya opsi View Code : Hal ini pastilah dilakukan
menggunakan VBA. Padahal, User tetap bebas mengatur Macro security untuk di
set agar VBA tidak bekerja. Misalnya, user mengatur security menjadi high.
Lalu user membuka file ber-VBA. Pembuat VBA di set agar menampilkan sheet
kosong kalau Macro di disable. Tapi user tetap bisa mengaktifkan View code
dari klik kanan tab sheet pada keadaan ini, karena VBA belum bekerja menon
aktifkan klik kanan di tab sheet.
c. Menon aktifkan penekanan ALT F11 : hal ini pasti dilakukan dengan VBA.
Kalau security macro di set high oleh VBA, maka user bisa membuka VBEditor
dan script VBA bisa tampak (kalau ada password di script VBA nya, maka user
bisa dengan mudah membongkarnya)
d. Mengubah ribbon agar menampilkan menu yang tidak ada penampakan
VBEditor. Seluruh shrtcut tetap bekerja. Walau ribbon save tidak
ditampikan, menekan CTRL S tetap akan memicu proses save. Kalau shortcut
CTRL S dinon aktifkan dengan VBA, maka kejadian seperti poin c atau d akan
tetap bisa dilakukan.
*** Akan jauh lebih mudah lagi kalau semua kegiatan a sampai d hanya
diberlakukan di sebuah workbook saja. Karena user bisa melakukan workbook
open dan ke VB editor dari workbook lain tersebut.

>> Sebaiknya dipikirkan ulang untuk menghabiskan tenaga mencari cara
menyembunyikan VBA atau mencegah VBA dibongkar orang lain. Hal ini berlaku
juga untuk proteksi sheet atau workbook (bukan file ya, tapi workbook).
>> Kalau ingin aman, proteksi filenya (bukan protect workbook), lalu
serahkan ke orang yang dipercaya tidak akan membingkar VBA dengan
menyertakan password pembuka filenya (password file ya, bukan password
workbook).
>> Kalau ingin lebih aman, jangan gunakan Excel. Gunakan programming
sepperti Visual Basic (bukan Visual Basic for Application alias VBA) atau
malah VB.Net, C++, dan sebagainya. Kiranya, salah pilih jika menggunakan
Excel lalu ingin rahasia dan aman seperti applikasi .exe

2. Begini :
a.Pada sebuah workbook yang tidak memiliki .xml file pendefinisi ribbon,
maka yang digunakan adalah definisi ribbon default yang disediakan Excel.
Jadi, dimanapun ada Excel 2007 ke atas, pasti ada default .xml file
pendefinisi ribbon.
b. Pada Excel 2007 ke atas, seluruh menu ditata dengan ribbon. Definisi
ribbon ada di dalam sebuah .xml file yang disimpan di dalam sebuah
workbook. Jadi, file menu dengan ekstensi .xml ini akan bersama si workbook
kemanapun workbook tersebut pergi.
c. CustomUI adalah .xml file pendefinisi ribbon yang khusus untuk workbook
tersebut. File ini diletakkan di dalam workbook (lihat poin b).
d. CustomUI dapat dibuat dengan aplikasi plain text editor apapun, seperti
notepad dan sebagainya yang dapat melakukan save as .xml
e. CustomUI perlu dimasukkan ke dalam sebuah workbook, pada suatu folder
tertentu di dalam workbook, disertai definisi relasi pada beberapa .xml
lain yang telah ada di dalam workbook.
f. Berhubung proses poin d dan e membutuhkan pengetahuan yang baik tentang
.xml file dan struktur file sebuah workbook, maka beberapa orang membuat
sebuah laat yang memudahkan semua itu. Yang paling dikenal adalah CustomUI
Editor.
g. Hasil CustomUI Editor adalah sebuah workbook yang telah berisi .xml file
pendefinisi ribbon yang telah dibuat sendiri oleh seseorang (misalnya
seperti Anda itu).
h. Dimanapun ada komputer yang telah di-Install Excel, maka workbook yang
telah diisi CustomUI (baik oleh CustomUI Editor atau dimasukkan sendiri
oleh yang bersangkutan), maka ribbon yang ditampilkan adalah mengikuti
definisi .xml file yang ada dalam workbook.
i. Beberapa item dalam ribbon yang Anda custom, bisa jadi membutuhkan
script VBA. Jadi, item ribbon seperti ini tidak akan bekerja jika security
macro di-disable oleh user.

---- Sampai sini ---
Simpulannya :
>> Anda tidak butuh CustomUI Editor untuk bisa menampikan ribbon yang
custom dimanapun komputernya, selama workbook nya sudah diisi dengan .xml
file yang berisi definisi ribbon yang custom tadi.
>> CustomUI editor hanya editor dan sebenarnya tidak dibutuhkan jika Anda
cukup pintar untuk membuatnya .xml file sendiri dan memasukkan sendiri ke
dalam sebuah workbook
------------------------

j. Pada Excel 2003 ke bawah, menu bisa disusun ulang melalui object
commandbar. Pada Excel 2007 ke atas, commandbar dibatasi pada context menu
(menu yang ditampilkan saat klik kanan).
k. VBA pengaturan commandbar di Excel 2007 ke atas sama seperti di Excel
2003 kebawah.
l. Karena pengaturan commandbar adaalh dengan VBA, maka ketika security
macro di-disable, maka pengaturan ini belum dijalankan dan sama saja dengan
tdak ada pengaturan khusus
m. di milis banyak sekali contoh penggunaan object commandbar, silakan di
search saja dengan key Commandbar

So,
Kalau sudah tahu ada jurang yang dalam dan gunung yang tinggi menjulang
yang tidak mungkin untuk dihilangkan, ditutupi, maupun dibinasakan, kenapa
tidak menjadikan area jurang dan gunung tadi sebagai tempat wisata yang
menyejukkan hati dan pikiran yang jauh dari segala prasangka buruk terhadap
sesama ?

;)

Wassalam,
Kid

2016-01-15 19:04 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Terima kasih Mr. Kid.
>
> 1. Klik kanan di tab sheet karena di situ ada view code, yang saya
> pikir sebaiknya disembunyikan supaya tidak merubah code vba nya. Itu saja
> khususnya.
>
> 2. Adakah code VBA untuk membuat menu sendiri dan menyembunyikan
> built-in menu excel ? Karena kalau install UI editor, maka kalau di pakai
> di computer lain, mungkin tidak bisa karena harus install dulu. Soalnya
> file saya ini mau di pakai oleh beberapa orang dengan computer berbeda.
>
>
>
> Terima kasih sebelumnya.
>
> Wassalam.
>
> Tio
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, January 15, 2016 5:42 PM
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Disable right click di tab sheet dan menu
> bar
>
>
>
>
>
> Hai Tio,
>
> 1. Boleh tahu kenapa kok tidak boleh klik kanan di tab Sheet ?
>
> 2. Ribbon di Excel ?
>
> Mas Nang Agus sudah membuat coretan tentang hal ini di blog milis. Mulai
> darisini
> <http://b-excel.blogspot.co.id/2014/06/belajar-ribbonx-01-perkenalan.html>
> .
>
> Mampir-mampirlah ke blog milis. Kan kalau ada yang ingin ditanyakan dari
> coretan yang ada, bisa dilakukan di milis... jadi ndak terlalu repot karena
> bisa langsung tanya ke penulisnya.
>
>
>
>
>
>
>
>
>
> 2016-01-15 9:26 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Salam Excel Expert,
>
> Saya mau bertanya :
>
> 1. Bagaimana code vba untuk disable right click di tab sheet ?
>
> 2. Adakah code vba untuk menon-aktifkan menu bar dan command bar di
> excel hanya di 1 workbook yang dituju ? dan memunculkan dengan menu sendiri
> ?
>
> Saya sudah cari di google, tapi tidak berhasil-berhasil juga.
>
>
>
> Terima kasih bantuannya. Semoga Tuhan YME membalasnya.
>
> Amiin.
>
>
>
> Salam,
>
> Tio
>
>
>
>
>
>
>
>
>
>
>

Fri Jan 15, 2016 2:44 am (PST) . Posted by:

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

Hai Haris,

Data yang disusun vertikal seperti yang dimaksud diemail sebelumnya, akan
memudahkan proses pengolahan data.
Bisa ndak kalo Anda membuatkan tabel vertikal tersebut, kemudian di-share
dimilis. Biasanya, kalo sudah lebih mudah, akan ada banyak member yang bisa
membantu. Kalau kasusnya masih sulit, ya wajar saja kalo ndak semua member
ndak bisa membantu.

;)

2016-01-15 14:18 GMT+07:00 'Haris Kartiwan' hkartiwan@arahrestu.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Mr Kid,
>
>
>
> tidak ada yg vertical, Mr Kid.
>
> Memang file ini lah yg kita gunakan.
>
>
>
> Selanjutnya para staff minta laporan absensi, jadinya kita buat seperti di
> sheet A (nama staff), nanti selanjutnya akan kita email sheet tsb ke staff
> masing2x.
>
>
>
> Saya sudah coba2x untuk buat formulanya di sheet "A" tapi hasilnya tdk
> sesuai.
>
>
>
> Mohon Bantuannya Mr Kid.
>
>
>
> Apakah ada ide/bentuk lain (vertical) untuk sheet Tabel?, yg nantinya akan
> mempermudah pembuatan sheet "staff".
>
> Dan jika ada, bisa kami pertimbangkan dan cocok, akan kita pakai.
>
>
>
> Terima Kasih
>
> Haris Kartiwan
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Friday, January 15, 2016 9:34 AM
> *To:* BeExcel
> *Subject:* Re: FW: [belajar-excel] Menghitung OT dan Late Absensi
> perminggu
>
>
>
>
>
> Hai Haris,
>
> Tabel sumber datanya ada yang tersusun vertikal tidak ya ?
>
> Jadi, tabelnya hanya ada 1 dengan header :
>
> Nama, Tanggal, In, Out, Roster, Noted, Late, Over Work, Early
>
> Kalau ada, boleh dikirim ke milis kan ya...
>
> Regards,
>
> Kid
>
>
>
>
>
>
> 2016-01-13 14:46 GMT+07:00 'Haris Kartiwan' hkartiwan@arahrestu.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear BeExceller,
>
>
>
> Saya mencoba menggunakan rumus à
> =SUMIFS(Tabel!B10:FB10;Tabel!B7:FB7;"Late";Tabel!B6:FE6;"<=04/01/2016")
> di Cell B7 Sheet AB. Tapi hasilnya #Value!
>
>
>
> Kira2x ada yg kurang di formula itu ngak yeahh, atau para teman2x exceller
> ada ide lain?
>
>
>
> Terima Kasih
>
> Haris
>
>
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 11 Januari 2016 18:52
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Menghitung OT dan Late Absensi perminggu [1
> Attachment]
>
>
>
>
>
> Dear Para Master Excel
>
> Saya mempunyai file Absensi dalam 1 Bulan (file Terlampir), dan telah
> berjalan dengan baik.
>
>
>
> Sekarang ada pemintaan dari staff, laporan absensi mingguan, output nya
> seperti di sheet AB.
>
> Minggu I 0:00 di dapat dari sheet *table* dr tanggal 1 – 2 januari
>
> Minggu II 0:33 di dapat dari sheet *table* dr tanggal 4 – 9 januari
>
> Dst..
>
>
>
> Mohon bantuannya para teman..
>
> Sebelumnya Terima Kasih
>
>
>
> Salam
>
> Haris
>
>
>
>
> ------------------------------
>
> <https://www.avast.com/antivirus>
>
> This email is free from viruses and malware because avast! Antivirus
> <https://www.avast.com/antivirus> protection is active.
>
>
>
>
> ------------------------------
>
> <https://www.avast.com/antivirus>
>
> This email is free from viruses and malware because avast! Antivirus
> <https://www.avast.com/antivirus> protection is active.
>
>
>
>
>
>
>
> ------------------------------
> <https://www.avast.com/antivirus>
>
> This email is free from viruses and malware because avast! Antivirus
> <https://www.avast.com/antivirus> protection is active.
>
>
>

Fri Jan 15, 2016 2:55 am (PST) . Posted by:

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

loh... ini kasus yang jaman dulu itu ya... yang si tukul sama baim yang
masih laki-laki atau pria itu...

Begini...
Yang ebih mendasar dari sekedar bisa VBA atau menyusun otomasi dengan VBA
adalah memahami penyusunan data yang baik.

Contoh di kasus ini...
1. Ingin memberi informasi bahwa pilihan user adalah benar atau salah.
2. Benar atau salah sesuatu pastilah ada acuannya. Kalau begini maka benar,
kalau begitu maka salah.
3. Semakin banyak acuan yang dibutuhkan maka perlu penyusunan data berupa
tabel acuan. Ini yang belum (bukannya ndak pernah) terpikirkan.
4. Seluruh inputan user akan diperiksa ke tabel acuan yang ada.

Jadi, coba sekarang Anda buat tabel acuan tersebut dan kirim ke milis.
Tabel acuannya berisi 2 kolom, Nama dan Statusnya.
Misal,
Nama Status
Tukul Laki-laki
Tukul Pria
Agung Wanita
Agung Perempuan
Agung Pria
Agung Laki-laki
dst

Anda akan punya 1juta nama juga akan lebih mudah kalau ada acuan seperti
itu. Seluruh proses perbandingan (isiannya benar atau tidak itu namanya
membandingkan inputan dengan data yang menjadi acuan benar atau tidaknya)
selalu membutuhkan tabel acuan.

Wassalam,
Kid

2016-01-15 10:45 GMT+07:00 Danny Prasetyo danny_06791@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat pagi.
> Jujur, saya tidak mengerti kode VBA Excel. Saya hanya belajar dari contoh
> yang sudah jadi, lalu saya terapkan dalam Excel yang saya ingin buat. Dan
> sekarang saya kesulitan untuk menyelesaikan kasus ini.
> Tolong bantuannya para master...
> ‎Terima kasih jika bersedia membantu...
>
> Regards,
>
> Danny Prasetyo
>
>
>

Fri Jan 15, 2016 7:53 pm (PST) . Posted by:

"Sony Ario"

Dear Be Excel,

Saya lagi coba untuk bantu teman. Saya rasa beliau ada di forum ini juga :)

Kasus nya seperti ini :

Apabila di masukan sebuah string di Textbox, macro akan looping di setiap
cell yang sesuai dengan string tersebut dan memasukan nya ke dalam sebuah
Combobox di Useform. Saya coba untuk looping tanpa syarat sudah berhasil.
Code nya seperti ini :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

For I = 2 To 259
Range("C" & I).Select

Me.ComboBox1.AddItem Range("C" & I).Value

Next I
End Sub

Tapi apa apabila saya masukan syarat nya dengan menggunakan wildcard kenapa
nggak bisa ya ? alias combobox nya kosong Script nya seperi ini :

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim Str As String

Str = "Cash"

For I = 2 To 259
Range("C" & I).Select
If Range("c" & I).Value = "*" & Str & "*" Then
Me.ComboBox1.AddItem Range("C" & I).Value
End If
Next I
End Sub

File contoh terlampir.

Terima kasih sebelumnya.
Sony

Fri Jan 15, 2016 11:16 pm (PST) . Posted by:

"Toby kenzo" tobykenzo

Dear Sony,

Bisa gunakan merhod autofilter dulu baru di tampilkan pada combobox.
Coba file ini,mungkin bisa di modif sesuai keinginan..

TerimaKasih.

Sent from Yahoo Mail on Android

Sat Jan 16, 2016 12:50 am (PST) . Posted by:

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

Hai Sony,

1. Jika ingin membandingkan teks dengan wildcard character, coba manfaatkan
klausa Like.
If lcase(Range("c" & I).Value) LIKE lcase("*" & Str & "*") Then

Penggunaan lcase adalah untuk mengubah menjadi huruf kecil, sehingga
seluruh karakter bisa dibandingkan secara binary.
Jika ingin case sensitive, hilangkan seluruh klausa lcase

2. Jika wildcard character sekedar dimaksudkan sebagai contain alias ada
bunyi potongan teks tertentu didalam suatu teks data, maka fungsi InStr
bisa dimanfaatkan.
If InStr( lcase(Range("c" & I).Value) , lcase(Str) ) <> 0 Then
Fungsi InStr bekerja seperti fungsi builtin Excel bernama Find (case
sensitive) dan akan seperti fungsi builtin Excel Search tanpa wildcard
character jika opsi perbandingannya menggunakan compare text.

Fungsi InStr pada dasarnya bekerja lebih cepat dibanding klausa LIKE. Tapi
pada data yang sedikit di kasus Anda, perbedaan kecepatannya tidak akan
terasa.

Pada kasus Anda, lebih baik variabel Str sudah dikenai fungsi lcase,
sehingga tidak perlu lagi penggunaan lcase pada str di bagian IF.
Contoh :
str=lcase("Cash")
maka baris IF bisa :
If lcase(Range("c" & I).Value) LIKE "*" & Str & "*" Then
atau
If InStr( lcase(Range("c" & I).Value) , Str ) <> 0 Then

atau
str=lcase("*" & "Cash" & "*" )
maka baris IF bisa :
If lcase(Range("c" & I).Value) LIKE Str Then

3. Sebenarnya, memanfaatkan formula Excel juga bisa menyelesaikan kasus
ini. Bisa jadi malah cukup menarik dibanding menggunakan loop dan klausa
LIKE. Contohnya terlampir. Meskipun cara ini 5 kali lebih lambat dibanding
menggunakan LIKE, tetapi hitungan masih dibawah 1/10 detik cukuplah cepat.
Selain itu, penggunaan wildcard character bisa lebih bervariasi, seperti b*
berarti diawali dengan b atau b??n* diawali b yang huruf keempatnya n, dan
sebagainya.

;)

Semoga file terlampir bisa dinikmati...

Wassalam,
Kid

2016-01-16 10:53 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Be Excel,
>
> Saya lagi coba untuk bantu teman. Saya rasa beliau ada di forum ini juga :)
>
> Kasus nya seperti ini :
>
> Apabila di masukan sebuah string di Textbox, macro akan looping di setiap
> cell yang sesuai dengan string tersebut dan memasukan nya ke dalam sebuah
> Combobox di Useform. Saya coba untuk looping tanpa syarat sudah berhasil.
> Code nya seperti ini :
>
> Private Sub CommandButton1_Click()
> Application.ScreenUpdating = False
>
>
> For I = 2 To 259
> Range("C" & I).Select
>
> Me.ComboBox1.AddItem Range("C" & I).Value
>
> Next I
> End Sub
>
> Tapi apa apabila saya masukan syarat nya dengan menggunakan wildcard
> kenapa nggak bisa ya ? alias combobox nya kosong Script nya seperi ini :
>
> Private Sub CommandButton1_Click()
> Application.ScreenUpdating = False
> Dim Str As String
>
> Str = "Cash"
>
> For I = 2 To 259
> Range("C" & I).Select
> If Range("c" & I).Value = "*" & Str & "*" Then
> Me.ComboBox1.AddItem Range("C" & I).Value
> End If
> Next I
> End Sub
>
> File contoh terlampir.
>
> Terima kasih sebelumnya.
> Sony
>
>
>

Sat Jan 16, 2016 1:46 am (PST) . Posted by:

"Sony Ario"

Assalamualaikum Mr. Kid,

Terima kasih respond nya. Saya coba pelajari dulu. Sebetulnya yang ingin
saya tanyakan, kenapa code saya nggak bisa meng update combo box nya.
Apakah ada hubungan nya dengan fungsi String yang Mr Kid jelaskan ?

Hai Tobby,

Thanks yah.. saya sudah cek. Tapi kalau saya coba masukan kata "bca" tidak
semua keluar ?

Anyway, saya coba dengan menggunakan Autofilter Juga. Hanya saya pake cara
hanya cell yang visible saja.
Masih error... Error message nya : Run-time error 70 : permission denied.

Aneh nya, Data terfilter.

Itu dulu dari saya, file dari saya terlampir.
Mungkin ada pendapat / solusi lain.

Wassalam
Sony

2016-01-16 15:49 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Hai Sony,
>
> 1. Jika ingin membandingkan teks dengan wildcard character, coba
> manfaatkan klausa Like.
> If lcase(Range("c" & I).Value) LIKE lcase("*" & Str & "*") Then
>
> Penggunaan lcase adalah untuk mengubah menjadi huruf kecil, sehingga
> seluruh karakter bisa dibandingkan secara binary.
> Jika ingin case sensitive, hilangkan seluruh klausa lcase
>
> 2. Jika wildcard character sekedar dimaksudkan sebagai contain alias ada
> bunyi potongan teks tertentu didalam suatu teks data, maka fungsi InStr
> bisa dimanfaatkan.
> If InStr( lcase(Range("c" & I).Value) , lcase(Str) ) <> 0 Then
> Fungsi InStr bekerja seperti fungsi builtin Excel bernama Find (case
> sensitive) dan akan seperti fungsi builtin Excel Search tanpa wildcard
> character jika opsi perbandingannya menggunakan compare text.
>
> Fungsi InStr pada dasarnya bekerja lebih cepat dibanding klausa LIKE. Tapi
> pada data yang sedikit di kasus Anda, perbedaan kecepatannya tidak akan
> terasa.
>
> Pada kasus Anda, lebih baik variabel Str sudah dikenai fungsi lcase,
> sehingga tidak perlu lagi penggunaan lcase pada str di bagian IF.
> Contoh :
> str=lcase("Cash")
> maka baris IF bisa :
> If lcase(Range("c" & I).Value) LIKE "*" & Str & "*" Then
> atau
> If InStr( lcase(Range("c" & I).Value) , Str ) <> 0 Then
>
> atau
> str=lcase("*" & "Cash" & "*" )
> maka baris IF bisa :
> If lcase(Range("c" & I).Value) LIKE Str Then
>
> 3. Sebenarnya, memanfaatkan formula Excel juga bisa menyelesaikan kasus
> ini. Bisa jadi malah cukup menarik dibanding menggunakan loop dan klausa
> LIKE. Contohnya terlampir. Meskipun cara ini 5 kali lebih lambat dibanding
> menggunakan LIKE, tetapi hitungan masih dibawah 1/10 detik cukuplah cepat.
> Selain itu, penggunaan wildcard character bisa lebih bervariasi, seperti
> b* berarti diawali dengan b atau b??n* diawali b yang huruf keempatnya n,
> dan sebagainya.
>
> ;)
>
> Semoga file terlampir bisa dinikmati...
>
> Wassalam,
> Kid
>
>
>
>
> 2016-01-16 10:53 GMT+07:00 Sony Ario sony.ario1@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear Be Excel,
>>
>> Saya lagi coba untuk bantu teman. Saya rasa beliau ada di forum ini juga
>> :)
>>
>> Kasus nya seperti ini :
>>
>> Apabila di masukan sebuah string di Textbox, macro akan looping di setiap
>> cell yang sesuai dengan string tersebut dan memasukan nya ke dalam sebuah
>> Combobox di Useform. Saya coba untuk looping tanpa syarat sudah berhasil.
>> Code nya seperti ini :
>>
>> Private Sub CommandButton1_Click()
>> Application.ScreenUpdating = False
>>
>>
>> For I = 2 To 259
>> Range("C" & I).Select
>>
>> Me.ComboBox1.AddItem Range("C" & I).Value
>>
>> Next I
>> End Sub
>>
>> Tapi apa apabila saya masukan syarat nya dengan menggunakan wildcard
>> kenapa nggak bisa ya ? alias combobox nya kosong Script nya seperi ini :
>>
>> Private Sub CommandButton1_Click()
>> Application.ScreenUpdating = False
>> Dim Str As String
>>
>> Str = "Cash"
>>
>> For I = 2 To 259
>> Range("C" & I).Select
>> If Range("c" & I).Value = "*" & Str & "*" Then
>> Me.ComboBox1.AddItem Range("C" & I).Value
>> End If
>> Next I
>> End Sub
>>
>> File contoh terlampir.
>>
>> Terima kasih sebelumnya.
>> Sony
>>
>>
>
>

Sat Jan 16, 2016 2:16 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Dear Sony,

Wildcard yg di gunakan adalah di depan kata, artinya kalimat yg dihasilkakan sesuai dgn kata didepannya,misal kita tulis "bca",maka hasil yg di dapat adalah kata2 yg depannya ada kata "bca" akan terfilter.
Jika kita tambahkan di dpan lg wildcard"*" pada formula autofilter menjadi:
sheet7.range("A1").Autofilter fieild:=3 , Criteria1:="*" & a & "*"
maka hasilnya adalah semua kalimat yg mengandung "nilai a" akan keluar semua.

Sebenarnya jika sudah berhasil dgn wildcard autofilter,kita bisa tampilkan dgn menggunakan "List View",karna pada List View data yg di tampilkan adalah data visible aja.

Setahu saya combobox akan kosong jika data terfilter pada cell ada yg ter hide.

Semoga bisa membantu.

TerimaKasih.

Sent from Yahoo Mail on Android

Fri Jan 15, 2016 9:12 pm (PST) . Posted by:

"heru mulyono"

Yth, Master Excel

Mohon bantuannnya.
File permasalahan ada dilampiran

terimakasih
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar