Re: [belajar-excel] Delete Hidden Names dengan VBA

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Delete Hidden Names dengan VBA

Milis Belajar Excel mailing list


#dikirim_pakai_mail.yahoo.com_tanpa_pulsa#

--------------------------------------------
On Sat, 10/6/17, Zainul Ulum [hidden email] [belajar-excel] <[hidden email]> wrote:

 Subject: [belajar-excel] Delete Hidden Names dengan VBA [1 Attachment]
 To: [hidden email]
 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