昱得資訊工作室
麻辣學園
 歡迎光臨, 訪客. 請先 登入 或 註冊一個帳號.
您忘了 啟用您的帳號嗎?
2008-08-28, 10:16:12
首頁 說明 登入 註冊 贊助論壇 想當作者?
新聞: Wink有贊助本論壇經營的會員,請務必來信通知小誌,這樣才能為您更新會員群組喔!!


+  麻辣家族討論區
|-+  MS Office 系列
| |-+  EXCEL
| | |-+  Excel程式區 (版主: hsieh)
| | | |-+  自動加 sheet		 0 會員 以及 1 訪客 正在閱讀本篇主題. « 上一篇主題 下一篇主題 »
頁: [1] 向下 列印
作者 主題: 自動加 sheet  (閱讀 538 次)
i8d8d
中學生
*
離線 離線

文章: 15
自動加 sheet
« 於: 2008-05-09, 00:01:56 »
請問如何 set 當每次開 excel file 時, 自動加一個 sheet
(例如 file 本身已有名稱 ...sheet 1, sheet 2, sheet 3....) 當打開這個 excel file 時,
會自己加一個 sheet 及加入名稱 sheet 4.
及在 sheet 1, sheet 2, sheet 3本身同樣位置打入一個編號...
例如 sheet 1 在 C8 位已經打入 456, sheet 2 在其 C8 位已經打入 457,
sheet 3 在 C8 位置已經有打入 458.
當自動加入 sheet 4 時 可 copy sheet 3 全個 worksheet 及在 C8位置自動加入 459.

謝謝!
已記錄
oobird
凸槌的木工
論壇維護群
*
離線 離線

文章: 4312
Re: 自動加 sheet
« 回覆文章 #1 於: 2008-05-09, 12:13:23 »
sheet 1
你的SHEETS.NAME中間有空格隔開嗎？
已記錄
結廬待慧君;為使大家少猜題，請在附件中詳細說明 要求 和 效果，解決問題效率高。
閔
討論群板主
*
離線 離線

會員性別: 男
文章: 730


隱藏人物
Re: 自動加 sheet
« 回覆文章 #2 於: 2008-05-09, 13:17:35 »
SUB AUTO_OPEN()
如果SUN NAME是用AUTO_OPEN那開啟EXCEL就會自動執行該SUB

Sheets.Count '取得目前SHEET數量

接下來請大大自己串串看吧^^
已記錄

　
　　思考一下喔! 其實沒有那麼難啦~
　　　過程中的學習，才是自己的財寶!
　
HUNGCHILIN
尊貴會員
*
離線 離線

會員性別: 男
文章: 34


不恥下問,不斷學習,才有進步空間


個人網站
Re: 自動加 sheet
« 回覆文章 #3 於: 2008-05-10, 10:51:01 »
這個五六年前好像寫過
放在這寫得不是很好
不過總是有可以參考
http://www.excelhelp.net/cgi-bin/forum/topic.cgi?forum=5&topic=72&show=50
已記錄
****************Hung-Chi Lin****************
微軟 Office專家認證 MOS MI 講師/監評委員
微軟官方網站 MicrosoftTechnet Office版_版主
OFFICE精英俱樂部 VBA交流版/財會版_版主
ExcelHelp Forum Excel討論區_�
HUNGCHILIN
尊貴會員
*
離線 離線

會員性別: 男
文章: 34


不恥下問,不斷學習,才有進步空間


個人網站
Re: 自動加 sheet
« 回覆文章 #4 於: 2008-05-10, 10:52:20 »
上面的式自動命名的
這是自動加SHEET的
http://www.excelhelp.net/cgi-bin/forum/topic.cgi?forum=5&topic=90&show=50
已記錄
****************Hung-Chi Lin****************
微軟 Office專家認證 MOS MI 講師/監評委員
微軟官方網站 MicrosoftTechnet Office版_版主
OFFICE精英俱樂部 VBA交流版/財會版_版主
ExcelHelp Forum Excel討論區_�
Raikkonen
中學生
*
離線 離線

文章: 42
Re: 自動加 sheet
« 回覆文章 #5 於: 2008-05-10, 14:46:10 »
Private Sub Workbook_Open()
Sheets.Add after:=Sheets.Count
End Sub

我想問為什麼這個程式不能成功地執行..?　 Smiley
已記錄
hsieh
版主
*
離線 離線

會員性別: 男
文章: 3870
Re: 自動加 sheet
« 回覆文章 #6 於: 2008-05-10, 15:06:51 »
程式碼:
Private Sub Workbook_Open()
Dim k%
k = Sheets.Count
If k = 256 Then Exit Sub
Worksheets(k).Copy after:=Sheets(k)
With ActiveSheet
.Name = "Sheet" & k + 1
.[C8] = .[C8] + 1
End With
End Sub
依樓主的敘述不是這樣嗎?
引用自: Raikkonen 於 2008-05-10, 14:46:10
Private Sub Workbook_Open()
Sheets.Add after:=Sheets.Count
End Sub

我想問為什麼這個程式不能成功地執行..?　 Smiley
Sheets.Add after:=Sheets(Sheets.Count)
已記錄
回答滿意嗎?
　　記得告訴我哦!!
頁: [1] 向上 列印 
« 上一篇主題 下一篇主題 »
跳到:  


本頁花了 4.429 秒, 以及 20 次的資料庫查詢.