Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi

[Tommy Kurniawan master_tomm...@yahoo.com [belajar-excel]]

 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 

Re: [belajar-excel] VBA Conditional Formatting Warna Gradasi

[nangagus nanga...@gmail.com [belajar-excel]]

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

[belajar-excel] VBA Conditional Formatting Warna Gradasi

[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 

Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

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,
>
> 
>

Re: [belajar-excel] loop dari kolum baru kemudian baris di vba xls

[R T Gultom ro_...@yahoo.com [belajar-excel]]

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

['Mr. Kid' mr.nm...@gmail.com [belajar-excel]]

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
>
>
> 
>