[發問] (已解決)刪除工作表裡面所有的定義名稱

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

12^#

發表於 2013-6-6 11:48 | 只看該作者

回復 11# voyageellen

因為你設定的定義名稱不是專屬於sheet3的
你再隨便去設各定義名稱如下面然後在名稱前面加上工作表名稱再去試你的代碼看看變化

要刪定義名稱!A

字典兩各字還真難理解

voyageellen

中學生 Rank: 2

帖子: 8
主題: 3
精華: 0
積分: 53
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 女
註冊時間: 2013-4-1
最後登錄: 2022-4-7

11^#

發表於 2013-6-5 23:36 | 只看該作者

請問我只想刪除特定工作表的定義名稱時(如附檔)
照上述說明編寫的程式碼卻沒有反應(將Sheet1改為Sheet3)
應該要如何修改呢?

刪除Sheet3的名稱定義.rar (6 KB)

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

10^#

發表於 2011-4-29 18:07 | 只看該作者

回復 8# chin15

我主要是要刪除某些工作表的定義名稱
可能是第4各工作表以後的
   因為前面幾各工作表的名稱還要保留
   各位都提供了我學習的地方
   謝謝喔

字典兩各字還真難理解

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2011-4-29 16:49 | 只看該作者

回復 8# chin15
這就要請教樓主的需求是什麼

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

8^#

發表於 2011-4-28 20:25 | 只看該作者

在每個工作表上循環，刪除每個表的定義名稱
跟一次刪除活頁簿內已定義的名稱
差別在哪裡？

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-4-28 17:43 | 只看該作者

回復 6# GBKEE

感謝大大幫忙簡化
我以為指定工作表要讓他顯示才能作業
沒想到還可以這樣做

字典兩各字還真難理解

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-4-28 16:16 | 只看該作者

回復 5# freeffly
簡化一下

Sub 刪除名稱()
For I = 4 To Sheets.Count
For Each c In Sheets(I).Names
c.Delete
Next
Next
End Sub

複製代碼

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-4-28 08:30 | 只看該作者

回復 4# GBKEE

  大大果然眼尖我也有發現所以我改成我要的方式
  我的方法如下

Sub 刪除名稱()
For i = 4 To Sheets.Count
Sheets(i).Visible = True
Sheets(i).Select
For Each c In ActiveSheet.Names
   c.Delete
Next
Sheets(i).Visible = False
Next
End Sub

字典兩各字還真難理解