Selasa, 26 Agustus 2014

[belajar-excel] Digest Number 3052

15 Messages

Digest #3052
1
Tanya Conditional Formatting by "Emi" emilestariklcc
4a
Macro_select 1 cell dibawahnya xl down by "Liem Suliem" liemsuliem
4b
Re: Macro_select 1 cell dibawahnya xl down by "Hendrik Karnadi" hendrikkarnadi
4c
Re: Macro_select 1 cell dibawahnya xl down by "Mr. Kid" nmkid.family@ymail.com
7a
Alamat Cell by "Nang Agus"
7b
Re: Alamat Cell by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
7c
Re: Alamat Cell by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Aug 26, 2014 2:54 am (PDT) . Posted by:

"Emi" emilestariklcc

Teman
dan GuruBeExcel,
Bagaimana cara mengaturnya agar
warna dan simbol  tidak muncul sekirannya
kolom A adalah blank (tiada value)
Terima
kasih. File seperti dilampirkan.

-Emi
Lestari

Tue Aug 26, 2014 2:54 am (PDT) . Posted by:

"Emi" emilestariklcc

Terima kasih Mr Kid atas saranannya.

-Emi Lestari

On Tuesday, August 26, 2014 11:40 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


 
Asalamualaikum warahmatullah,
Mas Kid
Terima kasih penjelasannya,
akan saya coba untuk membuat solusi seperti yang mas kid sarankan.
Tentunya hanya untuk bahan saya belajar, karena belum tahu kapan selesainya.
Terimakasih

Wasalam
Nang

2014-08-23 16:12 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

> 
>Wa'alaikumussalam Wr. Wb.
>
>mas Agus,
>
>Banyak banget ya pertanyaannya...
>
>hehehe... berhubung sudah sempet lihat kasus beserta urun solusi dari mas Agus, saya coba jawab atu per atu yak...
>
>1. Apakah mungkin data seperti ini digunakan formula?
>>> sebenarnya sih mungkin, cuman bisa jadi ndak epektip ato setidaknya ndak epicien gitu.
>
>
>2. jika memungkinkan apakah perlu dummi?
>
>>> karena memungkinkan, maka bisa pakai dummi (maksudnya cell atau kolom atau baris bantu kan ya), bisa juga gak pakai alias langsungan. Tapi, ya itu tadi dah, bisa jadi ndak epektip ato epicien, apalagi kalau record datanya ada banyak.
>
>>> bisa jadi dengan tabel bantu malah akan jadi efektif dan efisien.
>
>>> setidaknya, dengan kolom bantu juga masih cukup efektif dan efisien
>
>>> dengan cell bantu, bisa jadi masih bisa dibilang efektif dan efisien
>
>>> dengan baris bantu, meski mulai kurang efisien, tapi bisa dibilang masih mending daripada ndak pakai sama sekali
>
>>> tanpa pakai bantuan, kayanya beneran ndak epektip ato setidaknya ndak epicien.
>
>
>3. Bisa gak ya... kalau pakai formula tanpa dummi?
>>> Bisa kayanya.
>
>>> mungkin fungsi-fungsi yang dipakai adalah Row, Index, Match, sedikit Small dan IF, dipoleh fungsi text dikit seperti Mid, Find, Trim, dan Len, disertai trap error seperti IsNumber atau sebangsanya, termasuk si IFError mungkin ya. Bisa jadi masih ada fungsi lain yang biasa dipakai (bertebaran dimilis) yang belum disebut yang bisa digunakan.
>
>>> silakan dicoba saja.
>
>>> usahakan, ndak pakai fungsi-fungsi volatile ya, seperti fungsi Offset, Today, Now, Indirect, Rand, RandBetween dalam jumlah yang banyak (dibanyak cell) untuk antisipasi kalau datanya ada banyak atau cell berformulanya ada banyak, sehingga Excel tidak mudah cepat terlihat lamban.
>
>>> selamat mencoba ya... itung-itung buat latihan dah... soale belum sempat nih.
>
>4. Menurut saya yang paling logis adalah menggunakan text to column kemudian baru digunakan formula.
>>> kalo menurut saya, yang paling logis adalah merembug ulang dengan pemberi data agar bersedia memberi akses koneksi database ke sumber data yang diolah menjadi text file yang ndak 'pengolah data prenly'.
>
>>> dengan akses ke database, maka berbagai output bisa dibuat dengan lebih sederhana
>
>>> kalo ndak boleh, ya minta yang bentuknya lebih 'pengolah data prenly' lah, seperti bentuk tabel saja daripada fix report demikian.
>
>>> kalo ndak bisa juga (walah hidup kok sukanya mempersulit pihak lain), buat template pengolah data agar bisa mendapatkan tabel yang baik, lalu tabel itu disimpan ke lokasi baru (copas value) hingga menjadi database yang baik.
>
>>> kalo ndak bisa bikin templatenya, ya belajar
>
>>> kalo malas belajarnya atau kurang semangat belajarnya, atau (alasan paling banyak nih) gak sempet belajarnya, ya cari anggaran yang besar untuk bayar orang membuatkannya.
>
>>> kalo ndak bisa cari anggaran, ya duduk manis saja ngerjain manual
>
>>> kalo dah bosen ngerjain manual, gimana lagi coba ?
>
>
>5. Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31
hari) dan tabelnya selalu tetap seperti contoh. maka formulanya dapat
menggunakan mid dan lookup, sedangkan rekapnya dapat menggunakan formula index match.
>
>>> ya betul.
>
>>> kenapa ndak pakai 4 kolom bantu saja ? 3 kolom bantu untuk 3 kolom tanggal, dan 1 kolom bantu berisi branch.
>
>
>
>6. Dapatkah formula ini disederhanakan?
>>> dapat disederhanakan.
>
>
>7. atau dapat dikerjakan tanpa dummi?
>>> bai piling sih dapat mas.
>
>>> percaya deh... kalo ndak bisa tanpa dummi berarti harus pakai dummi.
>
>
>
>:)
>
>
>Moga-moga ada BeExceller yang terus berusaha mencoba tanpa helper formula.
>
>Yang suka VBA kok ya belum muncul ya...
>
>
>Wassalamu'alaikum Wr. Wb.
>
>Kid.
>
>
>
>
>
>
>
>2014-08-23 12:43 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>

>
>
>> 
>>Asalamualaikum Mr. Kid
>>
>>Apakah mungkin data seperti ini digunakan formula?
>>jika memungkinkan apakah perlu dummi?
>>
Bisa gak ya... kalau pakai formula tanpa dummi?
>>Menurut saya yang paling logis adalah menggunakan text to column kemudian baru digunakan formula.
>>
>>Kalau menggunakan dummi 31 kolom (dengan asumsi 1 bulan terdapat 31 hari) dan tabelnya selalu tetap seperti contoh. maka formulanya dapat menggunakan mid dan lookup, sedangkan rekapnya dapat menggunakan formula index match.
>>Dapatkah formula ini disederhanakan?
>>atau dapat dikerjakan tanpa dummi?
>>
>>Terima kasih
>>Wasalamualaikum Warahmatullah
>>
>>Nang Agus
>>
>>
>>
>>
>>
>>

>>2014-08-23 7:24 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>>> 
>>>Hai Emi,
>>>
>>>Berhubung sudah berhari-hari ndak ada yang nyenggol, coba posting ulang dari hasil berikut :
>>>1. lakukan Text To Columns -> fixed -> tentukan batas-batas di kolom tanggal, status yang gak memotong nilai branch,dsb
>>>2. dikolom baru hasil nomor 2 (misal kolom terkiri hasil insert kolom) diisi dengan formula untuk menulis nilai branch setiap blok data (jadi setiap baris setelah baris branch : akan memiliki kolom Branch yang ada isinya).
>>>
>>>Setelah itu, baru coba posting hasil text to columns tersebut.
>>>
>>>Daripada hasil output yang tersusun ke kanan, coba minta yang tersusun ke bawah saja. Hasil yang tersusun ke bawah akan memudahkan penyusunan output berbagai bentuk (termasuk output kekanan yang sedang Anda minta dan tidak ditanggapi itu).
>>>
>>>Proses text to columns bisa di-record macro (anda coba sendiri ya) dan bisa juga disusun dengan formula (sampai sekarang, ndak ada BeExceller yang tertarik melakukannya).
>>>
>>>
>>>;)
>>>
>>>met moncoba
>>>
>>>cemunguuud...
>>>
>>>
>>>Wassalam,
>>>
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>2014-08-20 14:45 GMT+10:00 Emi emilestariklcc@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>
>>>> 
>>>>
>>>>
>>>>Gurudan teman BeExcel,
>>>>Saya
ada raw data seperti di kolum A.
>>>>Hasil
yang saya harapkan adalah sebuah table yang menunjukkan status  secara lebih  jelas di  setiap kolom tanggal.
>>>>Sekiaranya
status "P" output nya adalah "/"
>>>>jika  blank (tidak ditulis apa apa) outputnya
"0", jika H atau X tetap sama.
>>>>Terima
kasih
>>>>-Emi
Lestari
>>>>
>>>>
>>>
>>
>

Tue Aug 26, 2014 3:18 am (PDT) . Posted by:

"Bagus" bagus4bls

Hai Emi;

Sila lihat file terlampir

Wassalam

~ Bagus ~

----- Original Message -----
From: Emi emilestariklcc@yahoo.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Tuesday, August 26, 2014 4:26 PM
Subject: [belajar-excel] Tanya Conditional Formatting [1 Attachment]

Teman dan Guru BeExcel,
Bagaimana cara mengaturnya agar warna dan simbol tidak muncul sekirannya kolom A adalah blank (tiada value)
Terima kasih. File seperti dilampirkan.

-Emi Lestari

Tue Aug 26, 2014 3:19 pm (PDT) . Posted by:

"Liem Suliem" liemsuliem

dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1 cel dibawahnya setelah dilakukan xldown
misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya ingin cell terplih adalah 1 cell dibawahnya yaitu F11
mohon arahan skripnya seperti apa..

Sub Macro4()
    Range("F3").Select
    Range(Selection, Selection.End(xlDown)).Select
End Sub

salam

liem

Tue Aug 26, 2014 4:14 pm (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Coba...
Selection.Offset (1).Resize(1, columns.count)

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: "Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> </div><div>Date:26/08/2014 16:58 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: [belajar-excel] Macro_select 1 cell dibawahnya xl down </div><div>
</div>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1 cel dibawahnya setelah dilakukan xldown
misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya ingin cell terplih adalah 1 cell dibawahnya yaitu F11
mohon arahan skripnya seperti apa..

Sub Macro4()
Range("F3").Select
Range(Selection, Selection.End(xlDown)).Select
End Sub

salam

liem

Tue Aug 26, 2014 4:39 pm (PDT) . Posted by:

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

Hai Liem,

Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif di
F11 (1 cell dibawah cell terakhir data kontinyu)
Range("f3").end(xldown).offset(1).activate
*** ganti activate dengan copy (jika ingin copy cell), pastespecial
xlpastevalues (jika ingin paste special values), dsb

Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari sini
<http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-01-berdasar-alamat.html>
.

Wassalam,
Kid.

2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
> yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1
> cel dibawahnya setelah dilakukan xldown
> misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
> mohon arahan skripnya seperti apa..
>
> Sub Macro4()
> Range("F3").Select
> Range(Selection, Selection.End(xlDown)).Select
> End Sub
>
> salam
>
> liem
>
>
>

Tue Aug 26, 2014 7:00 pm (PDT) . Posted by:

"Liem Suliem" liemsuliem

pak hk dan mr.kid

Sub Macro4()
   Range("f3").End(xlDown).Offset(1).Select
  Selection.PasteSpecial Paste:=xlPasteValues
End Sub

memilih  cell akir +1 setelah data sudah bisa, akan tetapi ketika mau menambahkan sekrip paste spesial masih debug.
(karena keterbatasan pengetahuan saya)

jadi ceritanya begini saya punya 2 worbook  A dan B lha isi workbook A itu datanya  per tanggal
misal A1 berisi 28 agt 2014                     B2:K10 berisi data
        A12 berisi 29 agt 2014                    B14:K30 berisi data

nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan ke workbook B dengan bantuan si makro tersebut.
begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara manual lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada. (kedua workbook dalam keadaan terbuka)

(maksudnya biar workbook B bisa berkaidah data yang baik)

salam
liem

Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


 
Hai Liem,

Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif di F11 (1 cell dibawah cell terakhir data kontinyu)
Range("f3").end(xldown).offset(1).activate
*** ganti activate dengan copy (jika ingin copy cell), pastespecial xlpastevalues (jika ingin paste special values), dsb

Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari sini.

Wassalam,
Kid.

2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:

> 
>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1 cel dibawahnya setelah dilakukan xldown
>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>mohon arahan skripnya seperti apa..

>
>
>
>Sub Macro4()
>    Range("F3").Select
>    Range(Selection, Selection.End(xlDown)).Select
>End Sub
>
>
>salam
>

>
>liem
>

Tue Aug 26, 2014 7:34 pm (PDT) . Posted by:

"Nang Agus"

Dear Pak Liem,

Cekrip yang dibuat sudah betul pak, tapi si Excel bingung, disuruh
mem-Paste special dengan masakan yang paling enak, tetapi bahan yang
untuk masak belum ada. belikan dulu dong pak!
Tambahkan cekrip Kopi di atasnya baru si excel bis kerja.

Saya pernah dipesen sama Mr. Kid, sebaiknya cekrip tersebut disingkat menjadi:
Range("F3").End(xlDown).Offset(1).PasteSpecial Paste:=xlPasteValues

Salam
NangAgus

On 8/27/14, Liem Suliem liemsuliem@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> pak hk dan mr.kid
>
>
> Sub Macro4()
> Range("f3").End(xlDown).Offset(1).Select
> Selection.PasteSpecial Paste:=xlPasteValues
> End Sub
>
>
> memilih cell akir +1 setelah data sudah bisa, akan tetapi ketika mau
> menambahkan sekrip paste spesial masih debug.
> (karena keterbatasan pengetahuan saya)
>
>
> jadi ceritanya begini saya punya 2 worbook A dan B lha isi workbook A itu
> datanya per tanggal
> misal A1 berisi 28 agt 2014 B2:K10 berisi data
> A12 berisi 29 agt 2014 B14:K30 berisi data
>
>
> nah maksud saya ingin copi data B2:B10 secara manual dan saya pastekan ke
> workbook B dengan bantuan si makro tersebut.
> begitu juga seterusnya saya ingin lagi mengulang kopi B14:B30 secara manual
> lalu saya pastekan lagi di workbok B dibawahnya data yang sudah ada. (kedua
> workbook dalam keadaan terbuka)
>
>
> (maksudnya biar workbook B bisa berkaidah data yang baik)
>
>
>
>
> salam
> liem
>
>
>
>
>
>
>
>
>
>
> Pada Rabu, 27 Agustus 2014 6:39, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
> Hai Liem,
>
>
> Misal F3 adalah range awal. Data kontinyu sampai F10. Ingin cell aktif di
> F11 (1 cell dibawah cell terakhir data kontinyu)
> Range("f3").end(xldown).offset(1).activate
> *** ganti activate dengan copy (jika ingin copy cell), pastespecial
> xlpastevalues (jika ingin paste special values), dsb
>
>
> Bagaimana kalau coba jalan-jalan lihat-lihat tentang range mulai dari sini.
>
>
>
>
>
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 2014-08-26 19:58 GMT+10:00 Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
>>
>>dh dear master saya coba rekam makro dengan bunyi seperti dibawah..
>>yang ingisaya tanyakan bagaimana bunyi sekrip untuk memilih atau select 1
>> cel dibawahnya setelah dilakukan xldown
>>misal saya lakukan xldown F3:F10 tapi setelah saya lakukan xldown saya
>> ingin cell terplih adalah 1 cell dibawahnya yaitu F11
>>mohon arahan skripnya seperti apa..
>
>>
>>
>>
>>Sub Macro4()
>> Range("F3").Select
>> Range(Selection, Selection.End(xlDown)).Select
>>End Sub
>>
>>
>>salam
>>
>
>>
>>liem
>>
>
>
>

Tue Aug 26, 2014 3:20 pm (PDT) . Posted by:

agunk_full

Pak Dody, , , Seperti ini kah yg dimaksud, Semoga Sesuai Harapan. . .











Thanks,B'Regards
-Agunk-


Tue Aug 26, 2014 6:48 pm (PDT) . Posted by:

"Dody Irawan"

Sip, mantab mas Agung,

Mas saya bener-bener pemula, bisa minta tolong kasih penjelasan per baris
dari rumus nya mas, biar saya bisa pelajari.

Sama minta tolong 1 lagi mas, kalau saya ingin menambah sheet, tetapi
setelah tombol tambah sheet di tekan, sheet aktif tetap pada sheet form,
tidak pindah ke sheet yang baru di buat bagaimana ya...?

saya sudah buat, tapi setelah di tekan pindah ke sheet yang baru. (file
terlampir)

Mohon bantuannya lagi mas, terimakasih banyak, semoga ilmunya senantiasa
bermanfaat untuk kebaikan...

wassalam.
Dody

Pada 26 Agustus 2014 21.00, agungdotcom13@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Pak Dody, , ,
> Seperti ini kah yg dimaksud, Semoga Sesuai Harapan. . .
>
>
>
>
>
> Thanks,B'Regards
> -Agunk-
>
>
>

Tue Aug 26, 2014 7:20 pm (PDT) . Posted by:

"Nang Agus"

Tambahkan cekrip:

Sheets("form").Activate
di baris paling bawah

On 8/27/14, Dody Irawan dodyirawan84@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
> Sip, mantab mas Agung,
>
>
> Mas saya bener-bener pemula, bisa minta tolong kasih penjelasan per baris
> dari rumus nya mas, biar saya bisa pelajari.
>
>
> Sama minta tolong 1 lagi mas, kalau saya ingin menambah sheet, tetapi
> setelah tombol tambah sheet di tekan, sheet aktif tetap pada sheet form,
> tidak pindah ke sheet yang baru di buat bagaimana ya...?
>
>
> saya sudah buat, tapi setelah di tekan pindah ke sheet yang baru. (file
> terlampir)
>
>
> Mohon bantuannya lagi mas, terimakasih banyak, semoga ilmunya senantiasa
> bermanfaat untuk kebaikan...
>
>
>
>
>
>
> wassalam.
> Dody
>
>
>
>
>
>
>
>
> Pada 26 Agustus 2014 21.00, agungdotcom13@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>
>>
>>
>> Pak Dody, , ,
>> Seperti ini kah yg dimaksud, Semoga Sesuai Harapan. . .
>>
>>
>>
>>
>>
>> Thanks,B'Regards
>> -Agunk-
>>
>>
>>
>

Tue Aug 26, 2014 4:32 pm (PDT) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Maaf..seharusnya
Selection.Offset (Selection.Rows.Count).Resize (1, Selection.Columns.Count)

Salam,
HK

Sent from Samsung Mobile

<div>-------- Original message --------</div><div>From: Hendrik Karnadi <hendrikkarnadi@yahoo.com> </div><div>Date:27/08/2014 06:14 (GMT+07:00) </div><div>To: belajar-excel@yahoogroups.com </div><div>Subject: Re: [belajar-excel] Macro_select 1 cell dibawahnya xl down </div><div>
</div>Coba...
Selection.Offset (1).Resize(1, columns.count)

Salam,
HK

Sent from Samsung Mobile

Tue Aug 26, 2014 7:10 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum warahmatullah;

Saya mau mencari alamat cell (Range) dengan vba, saya terbiasa
menggunakan alamat range menggunakan syntax : Range("A1"),
karena cekrip yang mau dibuat perintahnya membaca Range("A1") sampai
Range("AZ1") berturut-turut satu persatu. (bukan A1:AZ1). Hal ini akan
mudah jika digunakan Loop, namun saya kesulitan mengubah kolom
berdasarkan huruf.
Saya cari di http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-01-berdasar-alamat.html
tidak ada, dapatkah ditambah?

Bagaimanakah caranya menulis cekrip, mencari alamat Cell dengan menggunakan RC1?
Tolong diubah cekrip saya di bawah ini.

For itung = 1 to 100
Range("A1").Value = isine (itung) 'sudah saya coba dengan
Cell(1,itung) tidak bisa
Next itung

Terima kasih
Wasalamualaikum

NangAgus

Tue Aug 26, 2014 7:44 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Wa'alaikum Salam Wr. Wb.
mencoba menjawab, semoga sesuai dengan harapan.

dim rgData as Range
set rgData=Range("A1:AZ1")

'jika ingin mencari data dikolom 50
itung=rgData(1,50).value

'sebaliknya jika ingin mengisi di kolom 50
rgData(1,50).value=itung

maaf jika kurang pas...

Wassalam,
-zainul

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Wednesday, August 27, 2014 9:11 AM
To: BExcel
Subject: [belajar-excel] Alamat Cell

Asalamualaikum warahmatullah;

Saya mau mencari alamat cell (Range) dengan vba, saya terbiasa
menggunakan alamat range menggunakan syntax : Range("A1"),
karena cekrip yang mau dibuat perintahnya membaca Range("A1") sampai
Range("AZ1") berturut-turut satu persatu. (bukan A1:AZ1). Hal ini akan
mudah jika digunakan Loop, namun saya kesulitan mengubah kolom
berdasarkan huruf.
Saya cari di http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-01-berdasar-alamat.html
tidak ada, dapatkah ditambah?

Bagaimanakah caranya menulis cekrip, mencari alamat Cell dengan menggunakan RC1?
Tolong diubah cekrip saya di bawah ini.

For itung = 1 to 100
Range("A1").Value = isine (itung) 'sudah saya coba dengan
Cell(1,itung) tidak bisa
Next itung

Terima kasih
Wasalamualaikum

NangAgus

Tue Aug 26, 2014 7:48 pm (PDT) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

mas Agus,

Permasalahannya adalah mendapatkan si range yang sesuai kriteria pencarian
kah ?

Misal :
Di A1 sampai AZ1 ingin dicari sebuah range tertentu, maka perlu loop dari
A1 sampai AZ1. Lalu cek apakah setiap range dari A1 sampai AZ1 sesuai
kriteria. Kalau sesuai, maka bisa menghentikan loop atau yang sesuai tadi
disimpan dulu (karena bisa jadi yang sesuai ada lebih dari 1 dan ingin
diambil semuanya).

Cara loop dari A1 sampai AZ1, bisa :
dim rngCari
for each rngCari in range("a1:az1")
debug.print rngcari.value
next rngcari

atau
dim lCol as long
for lCol = 1 to 25
debug.print cells(1,lcol).value
next lcol

Kasus lainnya :
Kalau akan loop sebanyak 100 kolom dimulai dari range G7
dim lCol as long
for lcol=1 to 100
debug.print range("g7").cells( 1 , lcol ).value
next lcol

Kalau akan loop sebanyak 100 kolom dan 37 baris dimulai dari H5
dim lCol as long, lRow as long
for lcol=1 to 100
for lrow=1 to 37
debug.print range("h5").cells( lrow , lcol ).value
next lrow
next lcol

Semua yang ada di kasus lainnya di atas, sebenarnya melakukan loop dari
area range yang sudah jelas alamat rangenya.
'dari range G7 sebanyak 100 kolom dan 1 baris
dim rngCari as range
for each rngcari in range("g7").resize(1,100)
debug.print rngcari.value
next rngcari
'untuk kasus 100 kolom dan 37 baris dimulai dari H5 dicoba sendiri

Untuk penggunaan *cells*, ada di link
http://b-excel.blogspot.com.au/2013/07/belajarvba-006-object-dalam-excel.html
bagian *Range*
Untuk loop (For Next ataupun For Each) mulai dari
http://b-excel.blogspot.com.au/2013/08/belajarvba-010-perulangan-1-for-next.html
Untuk merujuk range yang lebih dinamis, mulai dari
http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-03.html dan
pilih yang relatif sesuai untuk digunakan bersama bunyi script lain.

Wassalamu'alaikum Wr. Wb.
Kid.

2014-08-27 12:10 GMT+10:00 Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Asalamualaikum warahmatullah;
>
> Saya mau mencari alamat cell (Range) dengan vba, saya terbiasa
> menggunakan alamat range menggunakan syntax : Range("A1"),
> karena cekrip yang mau dibuat perintahnya membaca Range("A1") sampai
> Range("AZ1") berturut-turut satu persatu. (bukan A1:AZ1). Hal ini akan
> mudah jika digunakan Loop, namun saya kesulitan mengubah kolom
> berdasarkan huruf.
> Saya cari di
> http://b-excel.blogspot.com.au/2013/09/belajarvba-011-range-01-berdasar-alamat.html
> tidak ada, dapatkah ditambah?
>
> Bagaimanakah caranya menulis cekrip, mencari alamat Cell dengan
> menggunakan RC1?
> Tolong diubah cekrip saya di bawah ini.
>
> For itung = 1 to 100
> Range("A1").Value = isine (itung) 'sudah saya coba dengan
> Cell(1,itung) tidak bisa
> Next itung
>
> Terima kasih
> Wasalamualaikum
>
> NangAgus
>
>
=====================================================================
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.48

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)