[發問] (已解決)工作表名稱的方式

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兔年全勤獎章

11^#

發表於 2011-3-22 20:55 | 只看該作者

回復 10# diabo
sheets.add.name="0322資料" 真的可以, 你給我上了一課謝謝你.
vba 的語法說明
建立新工作表、圖表或巨集工作表。該工作表將成為使用中工作表。
expression.Add(Before, After, Count, Type)
expression    必選。該運算或會傳回上述其中一個物件。
Before    選擇性的 Variant。在新工作表被新增之前指定工作表的物件。
After    選擇性的 Variant。在新工作表被新增之後指定工作表的物件。
Count    選擇性的 Variant。要新增的工作表數目。預設值為一。
Type    選擇性的 Variant。指定工作表類型。可為下列 XlSheetType 常數之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。如果您根據現存的範本插入工作表，請指定路徑給該範本。預設值為 xlWorksheet。

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

10^#

發表於 2011-3-22 20:44 | 只看該作者

sheets.add.name="0322資料"

這程式碼是最短的「新增工作表並命名」，唯須先檢查「0322資料」工作表是否存在

語法有無錯誤，我不知道，但一直以來都這樣用...

diabo

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

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

9^#

發表於 2011-3-22 20:23 | 只看該作者

回復 8# 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兔年全勤獎章

8^#

發表於 2011-3-22 20:01 | 只看該作者

回復 7# freeffly
sheets.add.name="0322資料" 語法錯誤
用 WITH  是便於處裡  WITH 物件的屬性, 方法.
Sub Ex()
With Sheets.Add
      .Name = "0322資料"
      .Range("A1:C1") = Array(1, 2, 3)
      .Range("A1:C1").Select
   End With
End Sub
同上
Sub Ex()
Sheets.Add
ActiveSheet.Name = "0322資料"
ActiveSheet.Range("A1:C1") = Array(1, 2, 3)
ActiveSheet.Range("A1:C1").Select
End Sub

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

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

7^#

發表於 2011-3-22 19:49 | 只看該作者

回復 6# GBKEE

我的意思是對該新增的工作表作業
大大的意思是要將作業的程式碼弄到with裡面嗎

字典兩各字還真難理解

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-3-22 19:41 | 只看該作者

回復 5# freeffly
Sheet1.Name = Format(Date, "mmdd")&"資料" 是指定工作表名稱
要新增工作表如下

Sub Ex()
With Sheets.Add '新增工作表
.Name = Format(Date, "mmdd") & "資料"
End With
End Sub

複製代碼

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

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

5^#

發表於 2011-3-22 18:45 | 只看該作者

回復 2# GBKEE

還有一個問題
一般我如果增加以支的工作表名稱
如下面
sheets.add.name="0322資料"
就可以直接選取
sheets("0322資料")
那下面這各方式要怎麼選取?

Sheet1.Name = Format(Date, "mmdd")&"資料"
用這種方是新增工作表不只一個
請問有什麼方式嗎

字典兩各字還真難理解

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

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

4^#

發表於 2011-3-22 17:35 | 只看該作者

回復 2# GBKEE

試出來了
謝謝喔

字典兩各字還真難理解