Selasa, 10 Oktober 2017

[belajar-excel] Digest Number 4320

4 Messages

Digest #4320
1a
fungsi Vlookup dalam VBA by "Pak Cik Lukman"
1b
Re: fungsi Vlookup dalam VBA by "Mr. Kid" nmkid.family@ymail.com
2a
Format excel by "Sukarlan Ramadana"
2b
Re: Format excel by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Oct 10, 2017 2:57 am (PDT) . Posted by:

"Pak Cik Lukman"

Selamat sore Om2.. Master excel

Mohon informasi dan koreksi, saya coba menggunakan coding dari file2 yg
pernah dibuat rekan2 di gruoup ini untuk fungsi Vlookup dalam VBA,
namun ketika saya menggunakan huruf (string) pada lookup-valuenya... fungsi
tsb tidak berjalan (tidak terbaca dng hasil #NAME?)

saya msh newbie, dan masih banyak belajar tentang VBA

------------------
Dim Data As Range, Rng As Range

Set Data = Range("C5", Range("C5").End(xlDown))

For Each Rng In Data
Rng.Offset(, 2) = Evaluate("vlookup(" & Rng & ",HargaBOK,2,0)")

------------------
saya sdh mengganti As Range menjadi As Variant dan As String... dan masih
salah.
Apakah yg saya hrs perbaiki dari statement diatas, terima kasih

@pakciklukman

Tue Oct 10, 2017 2:34 pm (PDT) . Posted by:

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

Hai Lukman,

Ada baiknya mempelajari ulang cara memasang formula secara manual (bukan
dengan VBA) di dalam cells pada banyak cells sekaligus. Kalau sudah lancar,
barulah di-record macro.

Dari kode vba :
------------------
Dim Data As Range, Rng As Range

Set Data = Range("C5", Range("C5").End(xlDown))

For Each Rng In Data
Rng.Offset(, 2) = Evaluate("vlookup(" & Rng & ",HargaBOK,2,0)")

------------------

> Bunyi formula vlookup kalau diketik manual di dalam range E5 berbunyi :
=vLookUp( C5 , HargaBOK , 2 , 0 )

> Tujuan baris kode di atas adalah mendapatkan hasil formula vlookup
tersebut (bukan memasang formula).

> Cara 1 :
- pasang formula di seluruh baris yang butuh formula (asumsi : excel
calculation option adalah automatic)
- copy paste values di range yang diberi formula

with sheets("nama sheetnya").range( "c5" , sheets("nama
sheetnya").range("c5").end(xldown) )*.offset( 0 , 2 )*
application.calculation=xlcalculationautomatic
.formula="=vLookUp( C5 , HargaBOK , 2 , 0 )"
.value=.value
end with

> Cara 2 :
- memanfaatkan worksheetfunction untuk mendapatkan hasil komputasi
formula
- hasil worksheetfunction ditulis langsung ke area cells hasil

with sheets("nama sheetnya").range( "c5" , sheets("nama
sheetnya").range("c5").end(xldown) )
*.offset( 0 , 2 )*.value= application.worksheetfunction.vlookup(
.resize(0,1) , range("hargabok") , 2 , 0 )
end with

> Cara 3 :
- loop setiap baris dan tulis hasil evaluate formula pada cells hasil

dim rng as range
for each rng in sheets("nama sheetnya").range( "c5" , sheets("nama
sheetnya").range("c5").end(xldown) )
with rng
*.offset( 0 , 2 )*.value=*evaluate(* "vlookup(" &
rng.address & ",hargabok,2,0)" *)*
end with
next rng

Regards,
Kid

2017-10-10 15:54 GMT+07:00 Pak Cik Lukman pakciklukman@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Selamat sore Om2.. Master excel
>
> Mohon informasi dan koreksi, saya coba menggunakan coding dari file2 yg
> pernah dibuat rekan2 di gruoup ini untuk fungsi Vlookup dalam VBA,
> namun ketika saya menggunakan huruf (string) pada lookup-valuenya...
> fungsi tsb tidak berjalan (tidak terbaca dng hasil #NAME?)
>
> saya msh newbie, dan masih banyak belajar tentang VBA
>
> ------------------
> Dim Data As Range, Rng As Range
>
> Set Data = Range("C5", Range("C5").End(xlDown))
>
> For Each Rng In Data
> Rng.Offset(, 2) = Evaluate("vlookup(" & Rng & ",HargaBOK,2,0)")
>
> ------------------
> saya sdh mengganti As Range menjadi As Variant dan As String... dan masih
> salah.
> Apakah yg saya hrs perbaiki dari statement diatas, terima kasih
>
> @pakciklukman
>
>
>
>

Tue Oct 10, 2017 5:44 pm (PDT) . Posted by:

"Sukarlan Ramadana"

Dengan hormat,

Format excel sudah diperbaiki (mengganti garis, bolt huruf dll), disave,
keluar, kemudian dibuka kembali koq kembali ke format semula. Bagaimana
mengatasinya ?

Trim's

Karlan

Tue Oct 10, 2017 6:51 pm (PDT) . Posted by:

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

Hai Sukarlan,

Informasinya masih kurang jelas.
Andai yang diubah adalah area dalam pivot table atau excel table, terutama
hasil koneksi data fitur Get External Data, atau di area range yang diset
dengan styles tertentu, maka yang diubah adalah styles yang digunakan.
Kemudian save as .xlsx .xlsm, atau .xlsb

Regards,
Kid

2017-10-11 7:43 GMT+07:00 Sukarlan Ramadana sukarlanr@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dengan hormat,
>
> Format excel sudah diperbaiki (mengganti garis, bolt huruf dll), disave,
> keluar, kemudian dibuka kembali koq kembali ke format semula. Bagaimana
> mengatasinya ?
>
> Trim's
>
> Karlan
>
>
>
============================================================
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 18.57

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)