Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
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_...@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 > > > >
Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
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,
Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls
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_...@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, > > >
[belajar-excel] VBA Conditional Formatting Warna Gradasi
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
Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi
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_tomm...@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
Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi
Terima kasih atas bantuannya. Untuk kasus saya ini bukan numerik isinya tetapi text. Pada intinya yg saya inginkan memberikan warna pada Kriteria berdasarkan nilai min dan max yg sudah ditentukan. Kalau misalnya di copy paste formattingnya saja apa bisa ? Terima kasih On Tuesday, December 12, 2017, 8:05:34 AM GMT+7, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote: 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_tomm...@yahoo.com [belajar-excel] : 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 #yiv2877490518 #yiv2877490518 -- #yiv2877490518ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2877490518 #yiv2877490518ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2877490518 #yiv2877490518ygrp-mkp #yiv2877490518hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2877490518 #yiv2877490518ygrp-mkp #yiv2877490518ads {margin-bottom:10px;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad {padding:0 0;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad p {margin:0;}#yiv2877490518 #yiv2877490518ygrp-mkp .yiv2877490518ad a {color:#ff;text-decoration:none;}#yiv2877490518 #yiv2877490518ygrp-sponsor #yiv2877490518ygrp-lc {font-family:Arial;}#yiv2877490518 #yiv2877490518ygrp-sponsor #yiv2877490518ygrp-lc #yiv2877490518hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2877490518 #yiv2877490518ygrp-sponsor #yiv2877490518ygrp-lc .yiv2877490518ad {margin-bottom:10px;padding:0 0;}#yiv2877490518 #yiv2877490518actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2877490518 #yiv2877490518activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2877490518 #yiv2877490518activity span {font-weight:700;}#yiv2877490518 #yiv2877490518activity span:first-child {text-transform:uppercase;}#yiv2877490518 #yiv2877490518activity span a {color:#5085b6;text-decoration:none;}#yiv2877490518 #yiv2877490518activity span span {color:#ff7900;}#yiv2877490518 #yiv2877490518activity span .yiv2877490518underline {text-decoration:underline;}#yiv2877490518 .yiv2877490518attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2877490518 .yiv2877490518attach div a {text-decoration:none;}#yiv2877490518 .yiv2877490518attach img {border:none;padding-right:5px;}#yiv2877490518 .yiv2877490518attach label {display:block;margin-bottom:5px;}#yiv2877490518 .yiv2877490518attach label a {text-decoration:none;}#yiv2877490518 blockquote {margin:0 0 0 4px;}#yiv2877490518 .yiv2877490518bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2877490518 .yiv2877490518bold a {text-decoration:none;}#yiv2877490518 dd.yiv2877490518last p a {font-family:Verdana;font-weight:700;}#yiv2877490518 dd.yiv2877490518last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2877490518 dd.yiv2877490518last p span.yiv2877490518yshortcuts {margin-right:0;}#yiv2877490518 div.yiv2877490518attach-table div div a {text-decoration:none;}#yiv2877490518 div.yiv2877490518attach-table {width:400px;}#yiv2877490518 div.yiv2877490518file-title a, #yiv2877490518 div.yiv2877490518file-title a:active, #yiv2877490518 div.yiv2877490518file-title a:hover, #yiv2877490518 div.yiv2877490518file-title a:visited {text-decoration:none;}#yiv2877490518 div.yiv2877490518photo-title a, #yiv2877490518 div.yiv2877490518photo-title a:active, #yiv2877490518 div.yiv2877490518photo-title a:hover, #yiv2877490518 div.yiv2877490518photo-title a:visited {text-decoration:none;}#yiv2877490518 div#yiv2877490518ygrp-mlmsg #yiv2877490518ygrp-msg p a span.yiv2877490518yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2877490518 .yiv2877490518green {color:#628c2a;}#yiv2877490518 .yiv2877490518MsoNormal {margin:0 0 0 0;}#yiv2877490518 o {font-size:0;}#yiv2877490518 #yiv2877490518photos div {float:left;width:72px;}#yiv2877490518 #yiv2877490518photos div div {border:1px solid #66;min-height:62px;overflow:hidden;width:62px;}#yiv2877490518 #yiv2877490518photos div label {color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2877490518 #yiv2877490518reco-category {font-size:77%;}#yiv2877490518 #yiv2877490518reco-desc {font-size:77%;}#yiv2877490518 .yiv2877490518replbq {margin:4px;}#yiv2877490518 #yiv2877490518ygr