Senin, 11 Desember 2017

[belajar-excel] Digest Number 4374

7 Messages

Digest #4374

Messages

Sun Dec 10, 2017 8:55 pm (PST) . Posted by:

"R T Gultom" ro_tag

Dear All,
Mohon bantuannya buat merubah  loop vba xls dari kalum daulu baru kemudian ke baris.
Ini salah contoh yang saya buat

Sub Forecast()Dim rng1, rng2 As RangeDim rw, clm, no1, no2, no3, no4, no5 As Integer
no3 = 30Set rng1 = Application.SelectionSet rng2 = Cells(11, no3)
no4 = rng1.Column
For Each dt In rng1If dt >= 1 ThenRange(Cells(no3, 12), Cells(no3 + dt.Value, 12)).Value = dt.Offset(0, -3 - dt.Column + no4).Valueno3 = no3 + dt.ValueEnd IfNext
End Sub
Kalau ini dijalankan, maka akan diurutkan dari baris kemudian ke kolumn.
yang diinginkan adalah sebaluknya dari kelumn dulu baru baris.
Terima kasih,

Gultom

Mon Dec 11, 2017 1:04 am (PST) . Posted by:

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

Hai Gultom,

Jujur saja, saya kurang paham dengan kasus ini. Moga-moga ada BeExceller
yang lebih paham ya...
Yang jelas, penggunaan properti Cells menggunakan syntax :
Cells( nomor_cells )
atau
Cells( nomor_baris , nomor_kolom )

Anda bisa mengatur nomor_cells, nomor_baris, dan nomor_kolom untuk berubah
nilainya dalam loop, sehingga arah loop bisa sesuai kebutuhan.
Jadi, perhatikan ulang saja baris-baris kode yang Anda miliki, bagian mana
yang diubah oleh baris kode Anda, nomor_cells kah, nomor_baris kah, atau
nomor_kolom
Lalu, ubah baris kode agar arah loop sesuai kebutuhan Anda.

btw,
*1. Secara default, loop pada sekumpulan range menggunakan for each akan
bergerak ke kanan (pindah kolom) lebih dulu.*
Kalau kolom di baris itu sudah habis, baru ke baris berikutnya kolom
pertama.
dim rng as range, lNilai as long
lnilai=0
for each rng in range("a1:F5")
lnilai=lnilai+10
rng.value=lnilai
next rng

*2. Kalau pakai cells*
'lcellsnumber dan lNilai bertipe LONG
dim lCellsNumber as long, lNilai as long 'kalau deklarasi dengan
bunyi dim lCellsNumber, lNilai as long -> lcellsnumber bertipe variant,
lNilai bertipe long
lnilai=0
for lcellsnumber=1 to range("a11:F15").count
lnilai=lnilai+1000
range("a11:F15").cells( lcellsnumber ).value = lnilai 'kalau baris
ini tidak pakai range("a11:F15") akan seperti apa jadinya ya ?
next lcellsnumber

*3. Pakai nested loop*
dim lCol as long, lRow as long, lNilai as long
lnilai=0
for lRow=21 to 25
for lCol=1 to 6
lnilai=lnilai+10
cells( lrow , lcol ).value = lnilai
next lcol
next lrow

*4. For each dengan range bisa sangat luwes, contoh :*
dim rng as range, lNilai as long
lnilai=0
for each rng in range("h6:m6,i3:i7,k5:L11,j9:n10,n3:k3,h11:h9")
lnilai=lnilai+10
rng.value= rng.text & " [" & lnilai & "]"
next rng

Regards,
Kid

2017-12-11 11:51 GMT+07:00 R T Gultom ro_tag@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear All,
>
> Mohon bantuannya buat merubah loop vba xls dari kalum daulu baru kemudian
> ke baris.
>
> Ini salah contoh yang saya buat
>
>
> Sub Forecast()
> Dim rng1, rng2 As Range
> Dim rw, clm, no1, no2, no3, no4, no5 As Integer
>
> no3 = 30
> Set rng1 = Application.Selection
> Set rng2 = Cells(11, no3)
>
> no4 = rng1.Column
>
> For Each dt In rng1
> If dt >= 1 Then
> Range(Cells(no3, 12), Cells(no3 + dt.Value, 12)).Value = dt.Offset(0, -3 -
> dt.Column + no4).Value
> no3 = no3 + dt.Value
> End If
> Next
>
> End Sub
>
> Kalau ini dijalankan, maka akan diurutkan dari baris kemudian ke kolumn.
>
> yang diinginkan adalah sebaluknya dari kelumn dulu baru baris.
>
> Terima kasih,
>
>
> Gultom
>
>
>
>

Mon Dec 11, 2017 1:28 am (PST) . Posted by:

"R T Gultom" ro_tag

Dear Mr, Kids,
Terima kasih ats sharenya.Yang saya maksud adalah kebalikan dari 1. Secara default, loop pada sekumpulan range menggunakan for each akan bergerak ke kanan (pindah kolom) lebih dulu. 

dimana agar bergerak ke bawah dulu baru kekanan.
Terima kasih,

Mon Dec 11, 2017 1:40 am (PST) . Posted by:

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

Hai Gultom,

Ya tidak pakai For Each to ya...
Kan sudah ada contoh cara lain yang tidak pakai for each.
Bukankah tinggal disesuaikan saja baris kodenya supaya arah loop sesuai
kebutuhan ?

Regards,
Kid

2017-12-11 16:24 GMT+07:00 R T Gultom ro_tag@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Mr, Kids,
>
> Terima kasih ats sharenya.
> Yang saya maksud adalah kebalikan dari
> *1. Secara default, loop pada sekumpulan range menggunakan for each akan
> bergerak ke kanan (pindah kolom) lebih dulu.*
>
> dimana agar bergerak ke bawah dulu baru kekanan.
>
> Terima kasih,
>
>
>

Mon Dec 11, 2017 2:55 am (PST) . Posted by:

"Tommy Kurniawan" master_tommy25

Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria S3 dan N ingin saya ganti menjadi warna gradasi. 
Terima kasih 

Mon Dec 11, 2017 4:07 pm (PST) . Posted by:

"nangagus"

Dear tommy,

dicoba dahulu di cell A1:
pilih: Conditional formating, New Rule, use a formula to determine wich
cells to format,
Lengkapi seperti contoh dibawah:

ulangi sampai semua kriteria.

On 11/12/2017 17:46, Tommy Kurniawan master_tommy25@yahoo.com
[belajar-excel] wrote:
> Mohon bantuannya milis excel, saya ingin membuat warna gradasi
> berdasarkan kriteria tertentu. Misal dalam contoh gambar ada kriteria
> S2, itu saya ingin jadikan warna gradasi dari kuning cerah ke kuning
> agak gelap. Saya sudah punya panduannya nilai min dan max dari RGB
> nya. Begitu pula kriteria S3 dan N ingin saya ganti menjadi warna
> gradasi.
> Terima kasih
>

Mon Dec 11, 2017 5:05 pm (PST) . Posted by:

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

Hai Tommy,

Conditional Formatting (CF) memiliki batasan.
CF 2 color scale untuk berdasar nilai numerik di cells yang diberi CF
CF Use Formula bisa lebih luwes, tetapi akan cukup banyak CF yang perlu
dibuat untuk pembuatan gradasi warna.

Regards,
Kid

2017-12-11 17:46 GMT+07:00 Tommy Kurniawan master_tommy25@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mohon bantuannya milis excel, saya ingin membuat warna gradasi berdasarkan
> kriteria tertentu. Misal dalam contoh gambar ada kriteria S2, itu saya
> ingin jadikan warna gradasi dari kuning cerah ke kuning agak gelap. Saya
> sudah punya panduannya nilai min dan max dari RGB nya. Begitu pula kriteria
> S3 dan N ingin saya ganti menjadi warna gradasi.
> Terima kasih
>
>
>
============================================================
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.02

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)