Terima kasih Mr. Kid.Saya terlalu fokus pada stringnya bukan pada Arraynya.Tadi
stringnya kebanyakan sudah saya sunting seperti ini:Sub All_x_Tes_Kid() Dim
sh As Worksheet Dim shNames As Variant 'harus variant agar bisa menyimpan
data array For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES"
Then shNames = shNames & sh.Name & ","
End If Next shNames = Left(shNames, Len(shNames) - 1) shNames
= Split(shNames, ",") Sheets(shNames).Select 'gak pakai fungsi array lagi
karena arraynya dibentuk oleh fungsi splitEnd Sub
Sekali lagi terima kasih.
Salam,HK
From: "'Mr. Kid' [email protected] [belajar-excel]"
<[email protected]>
To: BeExcel <[email protected]>
Sent: Wednesday, 18 February 2015, 13:10
Subject: Re: [belajar-excel] Memilih sheets sekaligus kecuali sheet TES
hehehe...
bukan penulisan tipe data yang selip Pak.
Array() menghasilkan suatu daftar
dim variabel as string menghasilkan wadah sebuah nilai
variabel="""sheet1"",""sheet2"",""sheet4"",""sheet5"""
menghasilkan sebuah nilai bertipe string alias teks berbunyi
"sheet1","sheet2","sheet4","sheet5"
gini saja,
coba buat prosedur berisi code 4 baris berbunyi seperti dibawah ini dan di-run,
lalu lihat di sheets ke-1 dalam workbook tersebut
sheets(1).cells.clear
sheets(1).range("a1:d1").value=array( "sheet1" , "sheet2" , "sheet4" , "sheet5"
) 'ada 4 item dimasukkan ke fungsi array dan ditulis di 4 cells
sheets(1).range("a7:d7").value=array(
"""sheet1"",""sheet2"",""sheet4"",""sheet5""" ) 'ada 1 item dimasukkan ke
fungsi array dan ditulis di 4 cells
sheets(1).range("a:d").entirecolumn.autofit
Jadi,
baris berbunyi :
shNames = shNames & sh.Name & """"", """""
tidak akan pernah menghasilkan nilai yang sama dengan bunyi
"sheet1" , "sheet2" , "sheet4" , "sheet5"
yang dimasukkan dalam fungsi array, karena
bunyi hasil :
shNames = shNames & sh.Name & """"", """""
selalu hanya 1 bijik nilai
sedangkan bunyi :
"sheet1" , "sheet2" , "sheet4" , "sheet5"
dalam fungsi array yang lengkapnya menjadi :
array( "sheet1" , "sheet2" , "sheet4" , "sheet5" )
terdiri dari 4 nilai yang disusun sebagai sebuah daftar.
Bukankah bunyi
Sheet1
Sheet2
Sheet4
Sheet5
sebagai daftar seperti diatas akan berbeda dengan bunyi sebuah teks dalam
sebuah cell yang tulisannya begini :
"sheet1" , "sheet2" , "sheet4" , "sheet5"
Kalau memang mau menggunakan proses loop tersebut, jadinya seperti ini :
Sub All_x_Tes() Dim sh As Worksheet Dim shNames As Variant 'harus variant
agar bisa menyimpan data array
For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES" Then
If shNames = "" Then shNames = """""" shNames = shNames &
sh.Name & """"", """"" End If Next shNames = Left(shNames,
Len(shNames) - 4) shNames=split( shNames , "," )
Sheets( shNames ).Select 'gak pakai fungsi array lagi karena arraynya
dibentuk oleh fungsi split
End Sub
variabel shNames di baris berbunyi :
shNames = shNames & sh.Name & """"", """""dan
shNames = Left(shNames, Len(shNames) - 4)
bertipe string (dari tipe variant diubah menjadi string oleh VB)
kemudian variabel shNames di baris :
shNames=split( shNames , "," )
adalah berupa array alias daftar alias list yang berisi minimal 1 item dengan
tipe data setiap item dalam kasus ini adalah string
Regards,
Kid.
2015-02-18 15:47 GMT+11:00 hendrik karnadi [email protected]
[belajar-excel] <[email protected]>:
Terima kasih Mr. Kid atas penjelasannya.
Penulisan type data inilah yang kadang2 masih selip...Saya coba seperti ini
ternyata masih error,Sub All_x_Tes() Dim sh As Worksheet Dim shNames As
Variant For Each sh In ThisWorkbook.Worksheets If sh.Name <> "TES"
Then If shNames = "" Then shNames = """""" shNames =
shNames & sh.Name & """"", """"" End If Next shNames =
Left(shNames, Len(shNames) - 4) Sheets(Array(shNames)).Select 'masih
errorEnd Sub
Mohon petunjuk lebih lanjut mengenai teknis penulisannya.Terima kasih.
Salam,HK
From: "'Mr. Kid' [email protected] [belajar-excel]"
<[email protected]>
To: BeExcel <[email protected]>
Sent: Wednesday, 18 February 2015, 9:56
Subject: Re: [belajar-excel] Memilih sheets sekaligus kecuali sheet TES
hehehe... kalo ini jelas bukan quiz, soale ada keterangan resminya...
masalahnya adalah tipe data.
Pada
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")yang berupa string adalah nilai
Sheet1 kemudian nilai Sheet2 lalu nilai Sheet4 beserta nilai Sheet5 karena
semua nilai-nilai itu didefinisikan dengan diapit tanda petik.
Jadi, bunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5" (secara utuh) bukanlah
string yang bernilai "Sheet1", "Sheet2", "Sheet4", "Sheet5"
Array(shNames)dengan shNames bertipe string, jika ditulis lugas akan menjadi :
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""")
dan berbeda dengan bunyi :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")
bukan ?
bedanya :
Array("Sheet1", "Sheet2", "Sheet4", "Sheet5") membentuk array dengan 4 item
didalamnya
dan
Array("""Sheet1"", ""Sheet2"", ""Sheet4"", ""Sheet5""") membentuk array dengan
1 item didalamnya yang berbunyi "Sheet1", "Sheet2", "Sheet4", "Sheet5"hasilnya,
proses oleh methods Select menghasilkan error karena tidak ada sheet bernama
"Sheet1", "Sheet2", "Sheet4", "Sheet5" dalam workbook.
sekarang pakai bahasa programmer :
Array() adalah function yang bisa menerima parameter berupa array alias daftar
nilai sheet1 yang bertipe teks alias berbunyi lengkap "Sheet1" menjadi nilai
parameter ke-1 bagi fungsi Array
begitu pula untuk nilai sheet2, sheet4, dan sheet5.
Regards,
Kid.
2015-02-18 13:42 GMT+11:00 hendrik karnadi [email protected]
[belajar-excel] <[email protected]>:
Dear be-Exceler,
Beberapa waktu yang lalu pernah ada pertanyaan:"Bagaimana memilih beberapa
sheet sekaligus kecuali satu sheet tertentu dengan macro".Untuk contoh kasus
saya buat lima sheets dimana satu sheet tertentu tsb bernama "TES" sebagai
ganti Sheet3
Jika digunakan rekaman (macro recording) maka codenya seperti
ini:Sheets(Array("Sheet1", "Sheet2", "Sheet4", "Sheet5")).Select
Karena jumlah sheet bisa banyak maka saya buat macro seperti ini:Sub
All_x_Tes() Dim sh As Worksheet Dim shNames As Variant For Each sh In
ThisWorkbook.Worksheets If sh.Name <> "TES" Then shNames =
shNames & sh.Name & """, """ End If Next shNames = Left(shNames,
Len(shNames) - 4) Sheets(Array(shNames)).SelectEnd Sub
Ketika saya jalankan keluar message :Run-time error '9':Subscript out of range
Ketika saya debug maka code ini diberi warna
kuning:Sheets(Array(shNames)).Select
Jika disorot warna kuningnya maka akan tampakshNames = "Sheet1", "Sheet2",
"Sheet4", "Sheet5" sehingga kalau digabung menjadi:Sheets(Array("Sheet1",
"Sheet2", "Sheet4", "Sheet5")).Select
Pertanyaannya (bukan quiz):Dimana salahnya ?
Terima kasih.
Salam,HK
#yiv7095432589 #yiv7095432589 -- #yiv7095432589ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7095432589
#yiv7095432589ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7095432589
#yiv7095432589ygrp-mkp #yiv7095432589hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv7095432589 #yiv7095432589ygrp-mkp #yiv7095432589ads
{margin-bottom:10px;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad
{padding:0 0;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad p
{margin:0;}#yiv7095432589 #yiv7095432589ygrp-mkp .yiv7095432589ad a
{color:#0000ff;text-decoration:none;}#yiv7095432589 #yiv7095432589ygrp-sponsor
#yiv7095432589ygrp-lc {font-family:Arial;}#yiv7095432589
#yiv7095432589ygrp-sponsor #yiv7095432589ygrp-lc #yiv7095432589hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7095432589
#yiv7095432589ygrp-sponsor #yiv7095432589ygrp-lc .yiv7095432589ad
{margin-bottom:10px;padding:0 0;}#yiv7095432589 #yiv7095432589actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7095432589
#yiv7095432589activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7095432589
#yiv7095432589activity span {font-weight:700;}#yiv7095432589
#yiv7095432589activity span:first-child
{text-transform:uppercase;}#yiv7095432589 #yiv7095432589activity span a
{color:#5085b6;text-decoration:none;}#yiv7095432589 #yiv7095432589activity span
span {color:#ff7900;}#yiv7095432589 #yiv7095432589activity span
.yiv7095432589underline {text-decoration:underline;}#yiv7095432589
.yiv7095432589attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv7095432589 .yiv7095432589attach div a
{text-decoration:none;}#yiv7095432589 .yiv7095432589attach img
{border:none;padding-right:5px;}#yiv7095432589 .yiv7095432589attach label
{display:block;margin-bottom:5px;}#yiv7095432589 .yiv7095432589attach label a
{text-decoration:none;}#yiv7095432589 blockquote {margin:0 0 0
4px;}#yiv7095432589 .yiv7095432589bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv7095432589
.yiv7095432589bold a {text-decoration:none;}#yiv7095432589 dd.yiv7095432589last
p a {font-family:Verdana;font-weight:700;}#yiv7095432589 dd.yiv7095432589last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7095432589
dd.yiv7095432589last p span.yiv7095432589yshortcuts
{margin-right:0;}#yiv7095432589 div.yiv7095432589attach-table div div a
{text-decoration:none;}#yiv7095432589 div.yiv7095432589attach-table
{width:400px;}#yiv7095432589 div.yiv7095432589file-title a, #yiv7095432589
div.yiv7095432589file-title a:active, #yiv7095432589
div.yiv7095432589file-title a:hover, #yiv7095432589 div.yiv7095432589file-title
a:visited {text-decoration:none;}#yiv7095432589 div.yiv7095432589photo-title a,
#yiv7095432589 div.yiv7095432589photo-title a:active, #yiv7095432589
div.yiv7095432589photo-title a:hover, #yiv7095432589
div.yiv7095432589photo-title a:visited {text-decoration:none;}#yiv7095432589
div#yiv7095432589ygrp-mlmsg #yiv7095432589ygrp-msg p a
span.yiv7095432589yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7095432589
.yiv7095432589green {color:#628c2a;}#yiv7095432589 .yiv7095432589MsoNormal
{margin:0 0 0 0;}#yiv7095432589 o {font-size:0;}#yiv7095432589
#yiv7095432589photos div {float:left;width:72px;}#yiv7095432589
#yiv7095432589photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv7095432589
#yiv7095432589photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7095432589
#yiv7095432589reco-category {font-size:77%;}#yiv7095432589
#yiv7095432589reco-desc {font-size:77%;}#yiv7095432589 .yiv7095432589replbq
{margin:4px;}#yiv7095432589 #yiv7095432589ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv7095432589 #yiv7095432589ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7095432589
#yiv7095432589ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7095432589
#yiv7095432589ygrp-mlmsg select, #yiv7095432589 input, #yiv7095432589 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv7095432589
#yiv7095432589ygrp-mlmsg pre, #yiv7095432589 code {font:115%
monospace;}#yiv7095432589 #yiv7095432589ygrp-mlmsg *
{line-height:1.22em;}#yiv7095432589 #yiv7095432589ygrp-mlmsg #yiv7095432589logo
{padding-bottom:10px;}#yiv7095432589 #yiv7095432589ygrp-msg p a
{font-family:Verdana;}#yiv7095432589 #yiv7095432589ygrp-msg
p#yiv7095432589attach-count span {color:#1E66AE;font-weight:700;}#yiv7095432589
#yiv7095432589ygrp-reco #yiv7095432589reco-head
{color:#ff7900;font-weight:700;}#yiv7095432589 #yiv7095432589ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv7095432589 #yiv7095432589ygrp-sponsor
#yiv7095432589ov li a {font-size:130%;text-decoration:none;}#yiv7095432589
#yiv7095432589ygrp-sponsor #yiv7095432589ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv7095432589
#yiv7095432589ygrp-sponsor #yiv7095432589ov ul {margin:0;padding:0 0 0
8px;}#yiv7095432589 #yiv7095432589ygrp-text
{font-family:Georgia;}#yiv7095432589 #yiv7095432589ygrp-text p {margin:0 0 1em
0;}#yiv7095432589 #yiv7095432589ygrp-text tt {font-size:120%;}#yiv7095432589
#yiv7095432589ygrp-vital ul li:last-child {border-right:none
!important;}#yiv7095432589
