Dear Mr.Kid,
Mantap sekali pencerahan dari Mr.Kid ini.Saya berharap bisa semahir Mr. Kid.
Regards
Edo


    On Friday, April 14, 2017 6:38 PM, "'Mr. Kid' [email protected] 
[belajar-excel]" <[email protected]> wrote:



     hmmm...


Mungkin sedang liburan...


Misal : Proses mengolah nilai x dari 1 sampai 10.
Prosesnya menggunakan loop for next misalnya, maka akan berbentuk seperti ini :


dim x as long
for x=1 to 10
     'disini proses yang dilakukan pada setiap nilai x, yang jelas, x akan 
dimulai dari 1, lalu ke-2, dst sampai ke-10
next x


Kasus prosesnya :
1. Hanya ingin memproses x dari 5 sampai 10 saja
Cara 1 : loop langsung mulai dari 5
     dim x as long
     for x=5 to 10
            'proses mengolah x diletakkan disini
     next x


Cara 2 : loop tetap mulai dari 1 sampai 10 karena rentang ini tetap
    dim x as long
    for x=1 to 10
          if x>=5 then    'kalau x lebih dari atau sama dengan 5 maka
                  'proses mengolah x bernilai 5,6,7,8,9,10 bergantian
          endif
    next x
*** Tidak perlu pakai else, karena memang prosesnya hanya akan mengolah yang 5 
sampai 10


2. Hanya ingin memproses x dari 1 sampai 4 saja
Cara 1 : seperti cara 1 di atas, tapi pakai for x=1 to 4
Cara 2 : seperti cara 2 di atas, tapi if-nya berbunyi if x<=4 then
*** Tidak perlu pakai else, karena memang prosesnya hanya akan mengolah yang 1 
sampai 4


3. Memproses 1 sampai 4 dengan proses 'a' dan untuk 5 sampai 10 dengan proses 
'b'
Yang ini pakai cara 2 :
   dim x as long, y as long
   for x=1 to 10
         if x>=5 then   'jika x sebesar 5 atau lebih
            'proses 'b' diletakkan disini, misalnya proses membuat nilai y 
menjadi sebesar nilai x
             y=x
         else      'selainnya, yaitu jika x kurang dari 5 (bahasa lainnya, jika 
x mulai dari 1 sampai 4 pada proses loop itu)
             'proses 'a' diletakkan disini, misalnya proses membuat nilai y 
menjadi bernilai pasti 5
             y=5
         endif
   next x


4. Memproses 1 sampai 3 dengan proses 'c', 4 sampai 8 dengan proses 'd', nilai 
9 dan 10 diproses 'e'
   dim x as long, y as long
   for x=1 to 10           if x>=9 then
               'proses 'e'
           elseif x>=4 then
               'proses 'd'
           else
              'proses 'c'
           endif
   next x


Bagaimana kalau proses 'e' adalah diprosedur bernama ProsesBernamaE, dan proses 
'd' di prosedur bernama ProsesBernamaD, dan proses 'c' adalah membuat y pasti 
bernilai 0 ?
   dim x as long, y as long
   for x=1 to 10           if x>=9 then
               'proses 'e', yaitu panggil prosedur bernama ProsesBernamaE.
               'Kalau sudah selesai menjalankan proses 'e', maka proses kembali 
lagi ke sini dan siap ke x selanjutnya
               ProsesBernamaE           elseif x>=4 then
               'proses 'd', yaitu panggil prosedur bernama ProsesBernamaD
               'Kalau sudah selesai menjalankan proses 'd', maka proses kembali 
lagi ke sini dan siap ke x selanjutnya
               ProsesBernamaD           else
              'proses 'c', membuat y bernilai 0, dan setelah itu, siap ke x 
selanjutnya
              y=0
           endif
   next x


Dengan begitu, proses bisa bercabang kemana-mana bukan ?
Cara di atas, yaitu meletakkan proses yang panjang disuatu prosedur terpisah, 
lebih dianjurkan dibanding menulis proses panjang itu di dalam blok IF atau 
meletakkannya dibagian lain dalam prosedur yang sama dengan memanfaatkan GoSub 
return atau memanfaatkan Goto.




Yang perlu diingat, blok IF itu syntaxnya :
*** yang merah dan diapit [ dan ] bersifat optional alias jika dibutuhkan, ***
*** yang biru adalah required ***
*** yang latar kuning [ ... ] adalah bentuk elseif untuk kondisi3, 4, dst 
sampai n-1 yang juga bersifat optional (karena diapit [ dan ]) ***
IF kondisi1 then
       'proses kondisi1

[elseif kondisi2 then
       'proses kondisi2
]
[.
.
.]
[elseif kondisiN then
        'proses kondisiN
]
[else
        'proses selain kondisi yang ada
]
End IF




Regards,
Kid








2017-04-13 14:19 GMT+07:00 Mr. Kid <[email protected]>:


Hai Heru,


Bisa lebih diperjelas ?
Dari x=1 sampai 10 itu, pengennya di x=1 proses apa, x=2 proses apa dst gitu..










2017-04-13 8:18 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi. co.id 
[belajar-excel] <[email protected] >:


     Yth.B-Exceller, Bagaimanakahcaranya melewati/melanjutkan loop jika 
melewati kondisi tertentu ?Misal: For x=1 to 10   If x<5 then Harus melewati 
Next   <----- Bagaimanabiar bisa melewati “Next”   Else     NILAI = x    End 
IfNext Mohonbimbingannya Terimakasih HeruSafrudin






  #yiv3907903857 #yiv3907903857 -- #yiv3907903857ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3907903857 
#yiv3907903857ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3907903857 
#yiv3907903857ygrp-mkp #yiv3907903857hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv3907903857 #yiv3907903857ygrp-mkp #yiv3907903857ads 
{margin-bottom:10px;}#yiv3907903857 #yiv3907903857ygrp-mkp .yiv3907903857ad 
{padding:0 0;}#yiv3907903857 #yiv3907903857ygrp-mkp .yiv3907903857ad p 
{margin:0;}#yiv3907903857 #yiv3907903857ygrp-mkp .yiv3907903857ad a 
{color:#0000ff;text-decoration:none;}#yiv3907903857 #yiv3907903857ygrp-sponsor 
#yiv3907903857ygrp-lc {font-family:Arial;}#yiv3907903857 
#yiv3907903857ygrp-sponsor #yiv3907903857ygrp-lc #yiv3907903857hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3907903857 
#yiv3907903857ygrp-sponsor #yiv3907903857ygrp-lc .yiv3907903857ad 
{margin-bottom:10px;padding:0 0;}#yiv3907903857 #yiv3907903857actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3907903857 
#yiv3907903857activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3907903857
 #yiv3907903857activity span {font-weight:700;}#yiv3907903857 
#yiv3907903857activity span:first-child 
{text-transform:uppercase;}#yiv3907903857 #yiv3907903857activity span a 
{color:#5085b6;text-decoration:none;}#yiv3907903857 #yiv3907903857activity span 
span {color:#ff7900;}#yiv3907903857 #yiv3907903857activity span 
.yiv3907903857underline {text-decoration:underline;}#yiv3907903857 
.yiv3907903857attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv3907903857 .yiv3907903857attach div a 
{text-decoration:none;}#yiv3907903857 .yiv3907903857attach img 
{border:none;padding-right:5px;}#yiv3907903857 .yiv3907903857attach label 
{display:block;margin-bottom:5px;}#yiv3907903857 .yiv3907903857attach label a 
{text-decoration:none;}#yiv3907903857 blockquote {margin:0 0 0 
4px;}#yiv3907903857 .yiv3907903857bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3907903857 
.yiv3907903857bold a {text-decoration:none;}#yiv3907903857 dd.yiv3907903857last 
p a {font-family:Verdana;font-weight:700;}#yiv3907903857 dd.yiv3907903857last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3907903857 
dd.yiv3907903857last p span.yiv3907903857yshortcuts 
{margin-right:0;}#yiv3907903857 div.yiv3907903857attach-table div div a 
{text-decoration:none;}#yiv3907903857 div.yiv3907903857attach-table 
{width:400px;}#yiv3907903857 div.yiv3907903857file-title a, #yiv3907903857 
div.yiv3907903857file-title a:active, #yiv3907903857 
div.yiv3907903857file-title a:hover, #yiv3907903857 div.yiv3907903857file-title 
a:visited {text-decoration:none;}#yiv3907903857 div.yiv3907903857photo-title a, 
#yiv3907903857 div.yiv3907903857photo-title a:active, #yiv3907903857 
div.yiv3907903857photo-title a:hover, #yiv3907903857 
div.yiv3907903857photo-title a:visited {text-decoration:none;}#yiv3907903857 
div#yiv3907903857ygrp-mlmsg #yiv3907903857ygrp-msg p a 
span.yiv3907903857yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3907903857 
.yiv3907903857green {color:#628c2a;}#yiv3907903857 .yiv3907903857MsoNormal 
{margin:0 0 0 0;}#yiv3907903857 o {font-size:0;}#yiv3907903857 
#yiv3907903857photos div {float:left;width:72px;}#yiv3907903857 
#yiv3907903857photos div div {border:1px solid 
#666666;height:62px;overflow:hidden;width:62px;}#yiv3907903857 
#yiv3907903857photos div label 
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3907903857
 #yiv3907903857reco-category {font-size:77%;}#yiv3907903857 
#yiv3907903857reco-desc {font-size:77%;}#yiv3907903857 .yiv3907903857replbq 
{margin:4px;}#yiv3907903857 #yiv3907903857ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv3907903857 #yiv3907903857ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3907903857 
#yiv3907903857ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3907903857 
#yiv3907903857ygrp-mlmsg select, #yiv3907903857 input, #yiv3907903857 textarea 
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv3907903857 
#yiv3907903857ygrp-mlmsg pre, #yiv3907903857 code {font:115% 
monospace;}#yiv3907903857 #yiv3907903857ygrp-mlmsg * 
{line-height:1.22em;}#yiv3907903857 #yiv3907903857ygrp-mlmsg #yiv3907903857logo 
{padding-bottom:10px;}#yiv3907903857 #yiv3907903857ygrp-msg p a 
{font-family:Verdana;}#yiv3907903857 #yiv3907903857ygrp-msg 
p#yiv3907903857attach-count span {color:#1E66AE;font-weight:700;}#yiv3907903857 
#yiv3907903857ygrp-reco #yiv3907903857reco-head 
{color:#ff7900;font-weight:700;}#yiv3907903857 #yiv3907903857ygrp-reco 
{margin-bottom:20px;padding:0px;}#yiv3907903857 #yiv3907903857ygrp-sponsor 
#yiv3907903857ov li a {font-size:130%;text-decoration:none;}#yiv3907903857 
#yiv3907903857ygrp-sponsor #yiv3907903857ov li 
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv3907903857 
#yiv3907903857ygrp-sponsor #yiv3907903857ov ul {margin:0;padding:0 0 0 
8px;}#yiv3907903857 #yiv3907903857ygrp-text 
{font-family:Georgia;}#yiv3907903857 #yiv3907903857ygrp-text p {margin:0 0 1em 
0;}#yiv3907903857 #yiv3907903857ygrp-text tt {font-size:120%;}#yiv3907903857 
#yiv3907903857ygrp-vital ul li:last-child {border-right:none 
!important;}#yiv3907903857


   

Kirim email ke