Jumat, 02 Mei 2014

[belajar-excel] Digest Number 2901

15 Messages

Digest #2901
1a
Copy Data Ke Sheet Lain Berdasarkan Kriteria by "Andre Rahmaidy" andree_bpdsumbar
3a
Re: Kopdar 2 Yuk by hera_skeptis
5a
Bls: [belajar-excel] Kopdar 2 Yuk by "Haris Rifai" haris.rifai
7
format excel by "syaiful hanan" inaniana_04
8a
expired by "syaiful hanan" inaniana_04
8b
Re: expired [1 Attachment] by "nangAgus" nangagoez
10
Asalamualaikum by "syaiful hanan" inaniana_04
11a
12
13a
Re: memanggil vba dengan button di tab by "Mr. Kid" nmkid.family@ymail.com

Messages

Fri May 2, 2014 7:27 am (PDT) . Posted by:

"Andre Rahmaidy" andree_bpdsumbar

Dear Pak Bagus

terima kasih sebelumnya formulanya, cuma saya terkendala ketika jalankan rumusnya sesuai dengan yg pak bagus tulis kok hasilnya #N/A.. rumusan saya udah sesuai dengan yang pak bagus tulis.. bisa dijabarkan dan dijelaskan lagi ga pak bagus fungsi sumproduct dengan kasus yang saya tanyakan. terima kasih pak

wassalam
andree

Fri May 2, 2014 5:47 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Andree;

File terlampir dengan dua contoh penggunaan sumproduct dan sumifs

mungkin bisa dilampirkan contoh file yang #N/A tsb..?

Wassalam

~ Bagus ~

----- Original Message -----
From: Andre Rahmaidy
To: belajar-excel@yahoogroups.com
Sent: Friday, May 02, 2014 10:18 AM
Subject: [***SPAM*** Score/Req: 05.20/5.0] Bls: [***SPAM*** Score/Req: 05.10/5.0] [belajar-excel] Copy Data Ke Sheet Lain Berdasarkan Kriteria

Dear Pak Bagus

terima kasih sebelumnya formulanya cuma saya terkendala ketika jalankan rumusnya sesuai dengan yg pak bagus tulis kok hasilnya #N/A.. rumusan saya udah sesuai dengan yang pak bagus tulis.. bisa dijabarkan dan dijelaskan lagi ga pak bagus funsi sumproduct dengan kasus yang saya tanyakan. terima kasih pak

wassalam
andree

Pada Jumat, 2 Mei 2014 9:31, Bagus <bagus@kingjim.co.id> menulis:


Hai Andre;

Coba begini:

=SUMPRODUCT(($A2='Data Base'!$A$2:$A$13)*($C2=--'Data Base'!$D$2:$D$13)*(D$1='Data Base'!$E$2:$E$13)*('Data Base'!$C$2:$C$13))

Copas kebawah dan kekanan

Wassalam
~ Bagus ~

----- Original Message -----
From: Andre Rahmaidy
To: belajar-excel@yahoogroups.com
Sent: Tuesday, April 29, 2014 5:18 PM
Subject: [***SPAM*** Score/Req: 05.10/5.0] [belajar-excel] Copy Data Ke Sheet Lain Berdasarkan Kriteria [1 Attachment]

Dear Beexceller

saya tanya mengenai rumusan / formula excel secara otomasi angka yang ada di sheet database menyesuaikan pada sheet isi sesuai berdasarkan kriterianya masing masing-masing (file terlampir)

Fri May 2, 2014 7:29 am (PDT) . Posted by:

"Joko Suryaningrat" joko369

yang solusi dari pak Agus sebenarnya lebih mantap, tanpa cell bantu, tapi signaturenya sering kepotong, pada angka tertentu signaturenya ilang sama sekali. btw terima kasih banyak pak Agus, semuanya memberi pengetahuan baru buat saya.

On Wednesday, 30 April 2014, 19:56, Joko Suryaningrat <joko369@yahoo.com> wrote:


Naaaaaah, ini dia, ini nih yang dicari. memang seperti itu yang saya maksud bang lazuardi biru,, terima kasih banyak atas bantuannya.

sekarang tinggal saya pelajari apa maksud makro yang bang lazuardi biru tuliskan,, hehe

On Monday, 14 April 2014, 11:03, nangAgus <nangagoez@yahoo.co.id> wrote:


Sama dengan milik Pak Lazuardi Biru.
Editan macro sebelumnya. hanya tidak menggunakan kolom bantu.
password saya tulis = "rahasia"
semoga sesuai keinginan.

NangAgus

On 11/04/2014 11:20, Lazuardi Biru wrote:

 
pak joko
coba file terlmpir..
semoga sesuai.
(edit macro lampiran yang kemarin)hehe

salam
lb

 

Pada Kamis, 10 April 2014 18:07, Joko Suryaningrat <joko369@yahoo.com> menulis:

 
bukan insert baris seperti itu pak Agus, file yang dikasih om Lazuardi bener tuh, pengennya seperti itu, cara bikinnya gimana ya,? supaya baris yang gak ada datanya disembunyikan. tolong saya para master...hiks hiks

On Thursday, 10 April 2014, 8:37, Lazuardi Biru <lazuardi_biru84@yahoo.com> wrote:

pak joko

coba pelajari file
terlampir..
saya peroleh dari
internet..
jadi kalau suruh
jelaskan saya sendiri
tidak bisa hehehee.
sepertinya barisnya
gak otomatis
bertambah, hanya saya
kalau tidak ada data
barisnya di
sembunyikan. hehehe.
tapi sepertinya harus
ada patokan maksimal
angsuran

file terlampir

salam
lb

Pada Kamis, 10 April 2014 7:15, nangAgus <nangagoez@yahoo.co.id> menulis:

 
Dear Joko

Apakah yang
dimaksudkan
adalah insert
Row?
coba buka
attachment

On 08/04/2014
9:19, Joko
Suryaningrat
wrote:

 
>Assalamualaikum, selamat pagi semua, mohon bantuannya mengenai cara agar jumlah baris dapat ditentukan dengan jumlah data yang diinginkan dengan batas maksimum data tertentu. Berapapun jumlah data, dibawah baris terakhir data tersebut terdapat signature.
>
>
>Sebenarnya masalah ini sudah pernah ditanyakan pada "Row bertambah otomatis sesuai jumlah data", namun belum tuntas dan saya belum mendapat jawaban yang sesuai, maka saya buat thread baru ini.
>
>
>Mohon bantuan teman-teman semua.
>

Fri May 2, 2014 7:31 am (PDT) . Posted by:

hera_skeptis

Cepet sembuh Pak Dwint Ruswanto ^_^

Fri May 2, 2014 7:40 am (PDT) . Posted by:

"Andre Rahmaidy" andree_bpdsumbar

Dear Pak Bagus

terima kasih sebelumnya formulanya cuma saya terkendala ketika jalankan rumusnya sesuai dengan yg pak bagus tulis kok hasilnya #N/A.. rumusan saya udah sesuai dengan yang pak bagus tulis.. bisa dijabarkan dan dijelaskan lagi ga pak bagus funsi sumproduct dengan kasus yang saya tanyakan. terima kasih pak

wassalam
andree

 
Pada Jumat, 2 Mei 2014 9:31, Bagus <bagus@kingjim.co.id> menulis:

 

Hai Andre;
 
Coba begini:
 
=SUMPRODUCT(($A2='Data
Base'!$A$2:$A$13)*($C2=--'Data Base'!$D$2:$D$13)*(D$1='Data
Base'!$E$2:$E$13)*('Data Base'!$C$2:$C$13))
 
Copas kebawah dan kekanan
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Andre Rahmaidy
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, April 29, 2014 5:18 PM
>Subject: [***SPAM*** Score/Req: 05.10/5.0] [belajar-excel] Copy Data Ke Sheet Lain Berdasarkan Kriteria [1 Attachment]
>
> 
>Dear Beexceller
>
>
>saya tanya mengenai rumusan / formula excel secara otomasi angka yang ada di sheet database menyesuaikan pada sheet isi sesuai berdasarkan kriterianya masing masing-masing (file terlampir)

Fri May 2, 2014 7:41 am (PDT) . Posted by:

"Haris Rifai" haris.rifai

Dear Pak Anton.

Ok Pak Anton... ditunggu pake bangeet info acara Kopdarnya.

OOT: Semoga Pak Dwint cepet diberikan kesembuhan.

Thanks.
Haris.
Pada Jumat, 2 Mei 2014 10:20, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

 
OOT: Semoga Pak Dwint cepat sembuh....

On Friday, 2 May 2014, 10:03, "summonery@yahoo.com" <summonery@yahoo.com> wrote:

 
Dear BeExcellers,,

Sampai saat ini panitia masih dalam proses pencarian ruangan, jadi tetap pantau milis ya,,, :) 
Mohon doanya agar ruangan dapat segera didapat.

Kopdar 11 Mei nanti akan jadi kopdar yang spesial sebelum Mr Kid ke negeri seberang. Yang pengen ketemu Mr Kid tapi belum kesampaian, pada kopdar ini harus ikut :), ya kalau Mr Kid balik lagi, kalau betah di sana bagaimana coba,, hehe....

OOT: mohon doanya pula dari rekan-rekan sekalian untuk kesembuhan rekan kita, pak Dwint Ruswanto yang sudah 3 hari ini bedrest karena Typhus.

Regards,
Anton

Fri May 2, 2014 7:41 am (PDT) . Posted by:

"Marvell Christian"

Dear all,
mengapa pada saat saya menjalankan formula tersebut ada masalah ya? Tks atas bantuannya.
 
Rgds,
MCS

________________________________

Dari: Marvell Christian <marvellchristian@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 28 April 2014 7:34
Judul: Bls: [belajar-excel] Menghitung jumlah data dengan multi kriteria

 
Tks bro & mbak fitri juga...hehehehehe

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 21 April 2014 9:10
Judul: Re: [belajar-excel] Menghitung jumlah data dengan multi kriteria

 
Hai Marvel

coba formula :
=SUMPRODUCT(1/COUNTIFS($C$4:$C$7,$C$4:$C$7,$D$4:$D$7,$D$4:$D$7,$E$4:$E$7,$E$4:$E$7,$K$4:$K$7,$K$4:$K$7))

Wassalam,
Kid.

2014-04-21 7:04 GMT+07:00 Marvell Christian <marvellchristian@yahoo.com>:

 
>Dear Moderator,
>Mohon bantuan solusinya dimana saya mempunyai problem menghitung jumlah truk namun ada truk yang sama dan memiliki DO yang sama pada hari yang sama. Bagaimana formulanya untuk menghitung jumlah data dengan multi kriteria dan untuk data yang sama hanya menampilkan 1 data saja. Tks
>
>Rgds,
>MCS

Fri May 2, 2014 7:41 am (PDT) . Posted by:

"syaiful hanan" inaniana_04

Asalamualaikum, bagaimana cara membuat firmat seperti lampiran, ane udah koatak katik belum bisa muncul.
wassalam

Fri May 2, 2014 7:42 am (PDT) . Posted by:

"syaiful hanan" inaniana_04

ini file sudah ane parkatikin untuk kadaluarsa, namun ndak bisa masih saja bisa dibuka

Fri May 2, 2014 5:35 pm (PDT) . Posted by:

"nangAgus" nangagoez

Dear Syaiful

Salam sejahtera untuk kita semua

Kelihatannya anda salah pilih tipe file. Coba simpan file anda dengan
type : xlsm, atau xlsb

jangan disimpan dengan xlsx, yang tidak mengizinkan macro.
salam

NangAgus
On 02/05/2014 13:37, syaiful hanan wrote:
> ini file sudah ane parkatikin untuk kadaluarsa, namun ndak bisa masih
> saja bisa dibuka
>

Fri May 2, 2014 5:51 pm (PDT) . Posted by:

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

Variabel selain bertipe UDT (user defined type) tidak memiliki member
berupa properti. Yang memiliki properti adalah object.
Jika yang Anda maksud adalah adanya object dalam form yang menyebabkan
muncul error berbunyi seperti variabel not defined, berarti Anda salah
menulis nama objectnya. Misal nama objectnya adalah txtTanggal di UserForm,
tetapi Anda tulis di script dengan TextBox1
atau yang lebih parah lagi jika ditulis Tanggal saja, sehingga seakan-akan
tampak seperti sebuah variabel bernama Tanggal.

Nama Object dan Nama Variabel sebaiknya (sangat direkomendasikan) disertai
prefix. Hal ini akan memudahkan dalam menyusun, memeriksa beserta
memperbaiki, mempelajari beserta mengembangkan script.

Misal,
- untuk variabel bertipe string (penyimpan nilai teks) diawali dengan
prefix s atau str seperti sNama atau strAlamat dan sebagainya.
- untuk object control seperti combo box diawali cbo, textbox dengan txt
dan sebagainya, seperti cboDaftarVendor atau txtNama
- untuk object milik Excel bisa diterapkan seperti rng untuk Range dan sh
atau sht untuk Worksheet, dan wb atau wbk untuk workbook dan lainnya lagi,
seperti rngDataTransaksi, shtInput, wbkSales dan sebagainya.
- untuk object yang tidak diketahui tipenya atau class-nya, sering diawali
o atau obj

Jadi, ketika di userform ada textbox untuk input Nama Peserta dan akan
disimpan ke sebuah variabel penyimpan teks (bertipe string), akan tampak
jelas dari prefix-nya. Contoh :
'textbox inputan nama di userform diberi nama txtNama dan variabel
penyimpan nilai nama diberi nama sNama
dim sNama as string
snama=txtnama.text

bandingkan jika tidak menggunakan prefix, maka untuk nilai Nama akan
dibutuhkan sebutan yang berbeda antara control inputan dengan variabel
penyimpan nilai
Contoh : textbox inputan Alamat Peserta di userform diberi nama object
control berupa Alamat dan variabel penyimpan teks alamat peserta yang
di-input harus diberi nama variabel yang berbeda, seperti AlamatPeserta
Andaikan ada 15 object control saja, maka pembaca script (termasuk
pembuatnya) harus menghafal persis seluruh kata sebanyak 30 kata variabel
karena masing-masing object control membutuhkan 2 nama yang berbeda.

Andai dengan prefix, maka yang berbeda adalah prefix-nya, sedangkan
identifier-nya sama. Seperti txtAlamat dan sAlamat, maka pembuat script
berserta pembacanya hanya cukup menghafal 1 kata saja yaitu Alamat yang
menunjukkan (mengidentifikasikan) bahwa hal itu merujuk ke suatu nilai
berupa Alamat.

Pada kasus Anda, mestinya, jika Anda teliti lebih jauh, sepertinya akan
ditemukan : (sekedar dugaan)
1. ada penggunaan suatu kata yang mirip variabel padahal belum
dideklarasikan. Untuk hal ini, biasanya menghapus baris berbunyi Option
Explicit yang ada di baris ke-1 dari module (Bukan baris ke-1 dari prosedur)
bisa menyelesaikan masalah meski menghapus baris tersebut sangat tidak
direkomendasikan.
2. ada penulisan nama object control yang tidak persis sama

Oh iya, saat menggunakan object (object loh ya), maka biasakanlah
menggunakan properti secara eksplisit dan tidak mengandalkan default
properti milik si object. Contoh, sebuah textbox memiliki properti default
adalah properti bernama Value. Maka mengambil nilai yang disimpan oleh si
textbox harus menyertakan nama propertinya. Contoh : sebuah textbox bernama
txtAlamat dan akan disimpan ke suatu range di A1
Range("a1").value = txtAlamat.value
atau
Range("a1").value = txtAlamat.text

dan *sebaiknya* *tidak *menggunakan default properti seperti ini :
Range("a1") = txtAlamat

Wassalam,
Kid.

2014-05-02 8:41 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:

>
>
> Dear Mr. Kid.
>
> Maaf attachment-nya tertinggal.
> Saya sudah coba deklarasikan variable tersebut tapi tetep muncul variable
> not defined. Mungkin property dari variable tersebut yang salah atau
> mungkin ada yang lain yang belum lengkap. Tapi kalo saya tampilkan dulu
> dalam sebuah textbox lalu dari textbox tersebut saya copy ke worksheet
> excel itu berhasil.
> Itu tidak saya lakukan karena jumlahnya banyak dan tidak muat kalo saya
> masukkan dalam form.
>
> Mohon pencerahannya dari Mr. Kid atau para master yang lain.
> Berikut lampiran yang saya maksud.
>
>
> Terimakasih.
> Haris
>
> Pada Rabu, 30 April 2014 21:59, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
> eh... gak ada file lampirannya...
>
> "Kesulitan saya adalah ketika data baru tersebut ingin saya copy ke
> worsheets, saat proses saya jalankan selalu data tidak dikenali alias not
> variable kalo ga salah istilahnya."
>
> Jika memang karena error karena variabel belum dideklarasi, maka
> deklarasikan dulu variabel yang akan dipakai. Yang tidak direkomendasikan
> tetapi mungkin bisa, hapus baris Option Explicit yang ada di baris pertama
> module tersebut.
>
> Wassalam,
> Kid.
>
>
>
> 2014-04-29 11:00 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Dear master Excel.
>
> Saya memanggil data dari database melalui sebuah form, namun tidak semua
> saya tampilkan dalam form tersebut. Di dalam userform data saya
> formulasikan kembali sehingga terbentuk sebuah nilai/data baru.
>
> Kesulitan saya adalah ketika data baru tersebut ingin saya copy ke
> worsheets, saat proses saya jalankan selalu data tidak dikenali alias not
> variable kalo ga salah istilahnya.
>
> Mohon arahan para master sekalian.
> Untuk memperjelas yang saya maksud saya lampirkan contoh file-nya.
>
> Terimaksih.
> Haris.
>
>
>
>
>
>

Fri May 2, 2014 5:53 pm (PDT) . Posted by:

"syaiful hanan" inaniana_04

mohon kirinya bimbingan suhu, saya mencoba format, supaya klik langsung muncul data, tapi belum berhasil juga....

Fri May 2, 2014 6:03 pm (PDT) . Posted by:

"nangAgus" nangagoez

Asalamualaikum warahmatullah.

Mr. Kid
Terima kasih atas penjelasannya,
saya sangat tidak mengerti tentang VBA,
Hanya belajar record macro dan copy script yang ada di milis...
Terima kasih atas penjelasannya

Wasalamualaikum warahmatullah.

On 30/04/2014 22:23, Mr. Kid wrote:
> Wa'alaikumussalam Wr. Wb.
>
> Hai mas Agus,
>
> Masih suka dengan link antar workbook berupa formula ya... bagaimana
> kalau mencoba fitur get external data ?
>
> btw,
> untuk unhide sheet di file lain : misal workbook A1 di drive D folder
> FA dan workbook K1 di drive D folder FK dan bekerja di workbook A1
> untuk umhide sheet bernama 'Sembunyi' di workbook K1 (object sheetnya
> misal bernama shtApaAja di VBE). Mau copy cell M1:X17 yang ada di
> sheet Sembunyi dalam file K1 ke workbook A1 ke sheet bernama Tujuan di
> cell GJ17
>
> dim wbkA as workbook, wbkK as workbook
>
> set wbkA=thisworkbook
> set wbkK=workbooks.open("D:\FK\K1.xlsx")
> 'kalau pengen buat visible doang
> wbkK.sheets("sembunyi").visible=xlsheetvisible
>
> 'tapi kalau mau copy doang, ndak usah di-visible juga bisa
> wbkK.sheets("sembunyi").range("m1:x17").copy
> wbkA.sheets("tujuan").range("gj17") 'kalau copy paste
> 'atau kalau mau copy paste special values
> wbkK.sheets("sembunyi").range("m1:x17").copy
> wbkA.sheets("tujuan").range("gj17").pastespecial xlpastevalues
>
> 'mau tutup workbook K1 tanpa save
> wbkk.close false
>
> ;)
>
> Jadi, ketika bermain object, ndak perlu segala sesuatu harus di-select
> baru di pakai...
> Coba bayangkan kejadian ini, enak mana, kejadian 1 atau 2
> *kejadian 1 :*
> 'Cel... angkat saya yang berbobot 50KG ini ke sheet 'tempat data' di
> kamar (range) bernomor GJ17
> 'dan letakkan saya disana
> ' >> si Excel bisa bersungut-sungut sambil ngegerundel... /cape de...
> angakat gajah itu berat kelleeezzz... (sambil tepok jidatnya windows)/
> sheets("tempat data").range("gj17").select
>
> 'Cel... salin itu semua hal, dari nilai, format, dan sebagainya yang
> ada di kamar ini
> selection.copy
>
> 'Cel... sekarang bawa saya ke sheet ruangan atasan di kamar (range) AY3
> sheets("ruangan atasan").range("ay3").select
>
> 'Cel... kamu kudu nyalin nilainya doang yang kamu bawa dari kamar GJ
> dulu itu ke ruangan ini (kamarnya atasan)
> selection.pastespecial xlpastevalues
>
> *kejadian 2 :*
> 'Cel... kamu ke sheet tempat data, masuk ke kamar GJ17 dan salin semua
> hal yang ada disana
> sheets("tempat data").range("gj17").copy
>
> 'Cel... kamu kerjanya bagus... sekarang kamu ke ruangan atasan masuk
> kamar AY3 dan salin nilainya saja ya... cemungud Cel
> sheets("ruangan atasan").range("ay3").pastespecial xlpastevalues
>
> ;)
> karena saya tergolong pemalas, maka saya lebih suka kejadian 2.
> karena saya kuatir jatuh dan keseleo apalagi berpotensi geger otak,
> maka saya ndak suka digotong sama si Excel yang ceking kemana-mana...
>
> so...
> object oriented lah yang pemrograman lebih terasa manusiawi dan
> mesiniawi ketika kita bersedia belajar... dan katanya, ilmu itu akan
> lebih membuat dan cenderung kuat membuat inang si ilmu menjadi lebih
> bijak... katanya loh ya... saya cuman ikut ngatain aza...
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
> 2014-04-30 7:42 GMT+07:00 nangAgus <nangagoez@yahoo.co.id
> <mailto:nangagoez@yahoo.co.id>>:
>
> Kepada member B-Excel
>
> Asalamualaikumwarahmatullah.
>
> Salam sejahtera untuk kita semua,
> Saya mencoba membuat formula yang referensinya kepada sheet
> tersembunyi
> di file lain, (formulanya hanya = A1). ternyata tidak bisa karena
> sheetnya tersembunyi. Kemudian saya berpikir jika sheetnya tidak
> tersembunyi pasti bisa dibuat.
> Permasalahannya saya tidak dapat membuat sheet tersebut terlihat dari
> file lain.
>
> Saya buat macro di file 2 sebagai berikut:
> Windows(File1).Activate
> Sheet1.Visible = xlSheetVisible
>
> Sheets("Data").Select
> Range("G6:G8").Select
> Selection.Copy
>
> Script tersebut tidak bisa jalan karena sheet1 (Data) tidak bisa
> nampak.
> Apakah memang tidak bisa, menampakkan sheet dari file lain?
> Terima kasih
>
> Salam
>
> NangAgus.
>
>
>

Fri May 2, 2014 6:11 pm (PDT) . Posted by:

"Bagus" bagus4bls

Hai Hanan;

Untuk memudahkan pengolahan data menjadi output yg kita inginkan, hal yang penting adalah data source harus memenuhi kaidah database yang baik.. sudah sering disinggung / dibahas pada milis tercinta ini..

Sila lihat File terlampir

Wassalam

~ Bagus ~

----- Original Message -----
From: syaiful hanan
To: belajar-excel@yahoogroups.com
Sent: Saturday, May 03, 2014 7:45 AM
Subject: [belajar-excel] Asalamualaikum [1 Attachment]

mohon kirinya bimbingan suhu, saya mencoba format, supaya klik langsung muncul data, tapi belum berhasil juga....

Fri May 2, 2014 6:40 pm (PDT) . Posted by:

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

Hai Prazt,

Sepertinya di email tempo hari sudah ada cara agar tombol dalam ribbon
mengerjakan suatu prosedur tertentu. :(

Begini bunyinya :
2. boleh copy tapi paste-nya hanya paste special values
>> cara 1 : via ribbonx
> di ribbonx customui diberi tag :
<command idmso="Paste" onaction="HanyaPasteSpecial"/>
> buka workbook dan buat sebuah module untuk membuat prosedur callback
dari si ribbon
public sub HanyaPasteSpecial(control as iribboncontrol) 'kadang
kala butuh parameter cancelDefault
selection.pastespecial xlpastevalues
end sub

Pada contoh itu, di ribbon sudah ada sebuah tombol bernama Paste (ganti
saja dengan tombol yang dibutuhkan) dan kalau di klik (OnAction) akan
menjalankan prosedur bernama HanyaPasteSpecial

Karena si tombol akan menjalankan sebuah prosedur bernama HanyaPasteSpecial,
maka perlu dibuat prosedur bernama HanyaPasteSpecial. Khusus untuk prosedur
yang dipanggil melalui tombol-tombol dalam ribbon ini, termasuk dalam jenis
callback procedure.

Maka dibuatlah di workbook tersebut pada sebuah general module, sebuah
prosedur bernama HanyaPasteSpecial yang berbunyi :
public sub HanyaPasteSpecial(control as iribboncontrol) 'kadang
kala butuh parameter cancelDefault
selection.pastespecial xlpastevalues
end sub

Isi proses dalam prosedur itu dan nama prosedurnya bisa disesuaikan dengan
kebutuhan.

Khusus untuk membuka sebuah web tertentu, selain dengan windows api yang
relatif kurang familiar buat kebanyakan pengguna Excel, bisa juga dengan
kemampuan bawaan Excel. Methods nya bernama FollowHyperlink milik object
workbook. Web akan dibuka dengan default browser yang di-set pada komputer
tersebut.

Bunyinya seperti ini :
thisworkbook.followhyperlink "alamat webnya disini"
contoh :
thisworkbook.followhyperlink "http://b-excel.blogspot.com"

dan tampaknya jauh lebih simpel kan ya...

Wassalam,
Kid.

2014-05-02 9:52 GMT+07:00 prazt <praztmath@gmail.com>:

>
>
> Dear para suhu, sebelumnya saya ucapkan selamat memperingati HADRIKNAS
> selanjutnya disini saya sampaikan masalah semoga ada yang bisa mebantu,
> misal di sebuah file excel dengan nama "asek-asek" pada ribbon tab saya
> kasih tab baru dengan nama Tab1>group1>button1, nah yang saya inginkan jika
> button1 tersbut saya klik maka akan keluar jendela browser dengan alamat
> http://b-excel.blogspot.com
> kira-kira seperti apa scriptnya untuk si button1 tersebut jika saya punya
> script vba macro sbb?
> Option Explicit
> Private pWebAddress As String
> Public Declare Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA" (ByVal hwnd As Long, _
> ByVal lpOperation As String, ByVal lpFile As String, _
> ByVal lpParameters As String, ByVal lpDirectory As String, _
> ByVal nShowCmd As Long) As Long
>
> Public Sub NewShell(cmdLine As String, lngWindowHndl As Long)
> ShellExecute lngWindowHndl, "open", cmdLine, "", "", 1
> End Sub
>
> Public Sub WebPage()
> pWebAddress = "http://b-excel.blogspot.com"
> Call NewShell(pWebAddress, 3)
> End Sub
>
> saya udah coba pakai Ribbon designer tapi tidak jadi.
>
>
> ------------------------------
> <http://www.avast.com/>
>
> Email ini bebas virus dan malware karena avast! Antivirus<http://www.avast.com/>proteksi aktif.
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

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

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

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

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

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 18.40

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)