#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#
--------------------------------------------
On Sat, 10/6/17, Zainul Ulum zainul_u...@yahoo.com [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
Subject: [belajar-excel] Delete Hidden Names dengan VBA [1 Attachment]
To: belajar-excel@yahoogroups.com
Date: Saturday, 10 June, 2017, 6:10 AM
Maaf ada revisi sedikit
'====================================
Sub DeleteNames()
Dim n As Name, ex As Variant, x As Variant,i as integer
ex = Array("tbl", "print")
For Each n In ActiveWorkbook.Names
i=0'edited
For Each x In ex
i=i+InStr(1, x, n.Name)'edited
If i = 0 Then'edited
On Error Resume Next
n.Delete
If Err.Number Then err.clear 'edited
Exit For
End If
Next
Next n
End Sub
'===================================
Be-Excelers,
File excel terlampir, terdiri dari dari 4 (empat) named
range berupa object tabel jika dilihat melalui [Name
Manager]. Tetapi jika saya jalankan vba code berikut:
'==============
Sub ShowAllNames()
Dim n
For Each n In ActiveWorkbook.Names
n.Visible = True
Next
End Sub
'===========
maka akan ditampilkan named range yang tersembunyi.
Saya bermaksud untuk menghilangkan / men-delete names ini
karena jika masih ada names tersebut akan menimbulkan
masalah saat copy sheet. Biasanya saat copy sheet akan
muncul pesan :
The Name ‘_’ Already Exist……
Sebelumnya saya delete secara manual names yang tidak
diperlukan melalui [Name Manager].
Supaya proses delete dan pemiihan bisa dilakukan dengan vba,
saya telah menulis code berikut:
'===================================
Sub DeleteNames()
Dim n As Name, ex As Variant, x As Variant
ex = Array("tbl",
"print","znl")'name yang tidak
dihapus
For Each n In ActiveWorkbook.Names
For Each x In ex
If InStr(1, x, n.Name) = 0 Then
n.Delete
Exit For
End If
Next
Next n
End Sub
'===================================
Mohon petunjuknya mengapa procedure DeleteNames tersebut
tidak bisa dijalankan?
Karena tidak tahu penyebab erronya, sementara saya
modifikasi macro tersebut menjadi:
'====================================
Sub DeleteNames()
Dim n As Name, ex As Variant, x As Variant
ex = Array("tbl", "print")
For Each n In ActiveWorkbook.Names
For Each x In ex
If InStr(1, x, n.Name) = 0 Then
On Error Resume Next
n.Delete
If Err.Number Then Resume Next
Exit For
End If
Next
Next n
End Sub
'===================================
Apakah memang solusinya seperti itu? atau ada cara lain
selain menggunakan trapping error "On Resume
Next"?
Terimakasih,
-zainul
dari Blang Nisam, Aceh Timur.
#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#
#yiv3163626853 #yiv3163626853 --
#yiv3163626853ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv3163626853 #yiv3163626853ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv3163626853 #yiv3163626853ygrp-mkp #yiv3163626853hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv3163626853 #yiv3163626853ygrp-mkp #yiv3163626853ads {
margin-bottom:10px;}
#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad {
padding:0 0;}
#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad p {
margin:0;}
#yiv3163626853 #yiv3163626853ygrp-mkp .yiv3163626853ad a {
color:#0000ff;text-decoration:none;}
#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc {
font-family:Arial;}
#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc #yiv3163626853hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv3163626853 #yiv3163626853ygrp-sponsor
#yiv3163626853ygrp-lc .yiv3163626853ad {
margin-bottom:10px;padding:0 0;}
#yiv3163626853 #yiv3163626853actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv3163626853 #yiv3163626853activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv3163626853 #yiv3163626853activity span {
font-weight:700;}
#yiv3163626853 #yiv3163626853activity span:first-child {
text-transform:uppercase;}
#yiv3163626853 #yiv3163626853activity span a {
color:#5085b6;text-decoration:none;}
#yiv3163626853 #yiv3163626853activity span span {
color:#ff7900;}
#yiv3163626853 #yiv3163626853activity span
.yiv3163626853underline {
text-decoration:underline;}
#yiv3163626853 .yiv3163626853attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv3163626853 .yiv3163626853attach div a {
text-decoration:none;}
#yiv3163626853 .yiv3163626853attach img {
border:none;padding-right:5px;}
#yiv3163626853 .yiv3163626853attach label {
display:block;margin-bottom:5px;}
#yiv3163626853 .yiv3163626853attach label a {
text-decoration:none;}
#yiv3163626853 blockquote {
margin:0 0 0 4px;}
#yiv3163626853 .yiv3163626853bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv3163626853 .yiv3163626853bold a {
text-decoration:none;}
#yiv3163626853 dd.yiv3163626853last p a {
font-family:Verdana;font-weight:700;}
#yiv3163626853 dd.yiv3163626853last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv3163626853 dd.yiv3163626853last p
span.yiv3163626853yshortcuts {
margin-right:0;}
#yiv3163626853 div.yiv3163626853attach-table div div a {
text-decoration:none;}
#yiv3163626853 div.yiv3163626853attach-table {
width:400px;}
#yiv3163626853 div.yiv3163626853file-title a, #yiv3163626853
div.yiv3163626853file-title a:active, #yiv3163626853
div.yiv3163626853file-title a:hover, #yiv3163626853
div.yiv3163626853file-title a:visited {
text-decoration:none;}
#yiv3163626853 div.yiv3163626853photo-title a,
#yiv3163626853 div.yiv3163626853photo-title a:active,
#yiv3163626853 div.yiv3163626853photo-title a:hover,
#yiv3163626853 div.yiv3163626853photo-title a:visited {
text-decoration:none;}
#yiv3163626853 div#yiv3163626853ygrp-mlmsg
#yiv3163626853ygrp-msg p a span.yiv3163626853yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv3163626853 .yiv3163626853green {
color:#628c2a;}
#yiv3163626853 .yiv3163626853MsoNormal {
margin:0 0 0 0;}
#yiv3163626853 o {
font-size:0;}
#yiv3163626853 #yiv3163626853photos div {
float:left;width:72px;}
#yiv3163626853 #yiv3163626853photos div div {
border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}
#yiv3163626853 #yiv3163626853photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv3163626853 #yiv3163626853reco-category {
font-size:77%;}
#yiv3163626853 #yiv3163626853reco-desc {
font-size:77%;}
#yiv3163626853 .yiv3163626853replbq {
margin:4px;}
#yiv3163626853 #yiv3163626853ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg select,
#yiv3163626853 input, #yiv3163626853 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg pre, #yiv3163626853
code {
font:115% monospace;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg * {
line-height:1.22em;}
#yiv3163626853 #yiv3163626853ygrp-mlmsg #yiv3163626853logo {
padding-bottom:10px;}
#yiv3163626853 #yiv3163626853ygrp-msg p a {
font-family:Verdana;}
#yiv3163626853 #yiv3163626853ygrp-msg
p#yiv3163626853attach-count span {
color:#1E66AE;font-weight:700;}
#yiv3163626853 #yiv3163626853ygrp-reco
#yiv3163626853reco-head {
color:#ff7900;font-weight:700;}
#yiv3163626853 #yiv3163626853ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
li a {
font-size:130%;text-decoration:none;}
#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv3163626853 #yiv3163626853ygrp-sponsor #yiv3163626853ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv3163626853 #yiv3163626853ygrp-text {
font-family:Georgia;}
#yiv3163626853 #yiv3163626853ygrp-text p {
margin:0 0 1em 0;}
#yiv3163626853 #yiv3163626853ygrp-text tt {
font-size:120%;}
#yiv3163626853 #yiv3163626853ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv3163626853
