[發問] 分割資料成為新增工作表

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-1 10:50 | 顯示全部帖子

[發問] 分割資料成為新增工作表

各位先進您好
請問如何依照工作表內之特定儲存格資料，
分割資料成為新增工作表並置於原工作表之後，
更改新增工作表名稱為儲存格資料，同活頁簿內，如附件說明。
祝大家新年快樂，心想事成，宏兔大展。

B2.rar (4.35 KB)

樓主熱帖

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

2^#

發表於 2011-2-1 14:11 | 顯示全部帖子

感謝 Hsieh 版主
執行ok
工作表排列可以如下方式：
WW, Mon, Tue, ......., Sun
目前排列 Sun, Sat, ........, WW

謝謝

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

3^#

發表於 2011-2-1 15:32 | 顯示全部帖子

Hsieh 版主
排列ok
但有另一問題，其他工作表都刪除了（除了WW及新增Mon, Tue,...）
同一檔案中含有其他的工作表
" If sht.Name <> .Name Then sht.Delete "
謝謝您

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

4^#

發表於 2011-2-1 17:27 | 顯示全部帖子

Dear Hsieh

vba程式執行ok

非常感謝您

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

5^#

發表於 2011-2-1 22:50 | 顯示全部帖子

回復 6# Hsieh

版主您好
如增加清單資料表
由Mon~Sun工作表中，依照O欄資料，設定第一個字為E,M,R,T,U,S等，列出所需欄位資料。
如附件所示，謝謝

B2-1.rar (14.83 KB)

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

6^#

發表於 2011-2-7 17:47 | 顯示全部帖子

回復 6# Hsieh

Hsieh 版主
於分割後之工作表（Mon.........Sun)，依據[M5]之項目排序（由小至大，沒有標題列）
增加之程式碼如下：
With Sheets.Add(after:=Sheets(Sheets.Count))
............
.[A6].Resize(j, 15).Sort Key1:=.[M5], Header:=xlNo
ActiveWindow.Zoom = p
End With

但[M5]欄位之資料都是被格式化成文字的數字，
在排序選項中〞將任何看似數字的項目視為數字來排列〞此選項可以完成。
請教要如何修改程式碼。

非常感謝

100 字節以內
不支持自定義 Discuz! 代碼

帖子: 182
主題: 34
精華: 0
積分: 316
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-5-2
最後登錄: 2023-6-24

7^#

發表於 2011-2-7 19:02 | 顯示全部帖子

回復 11# Hsieh

非常感謝指導
修訂如下：
.[A6].Resize(j, 15).Sort Key1:=.[M5], Order1:=xlAscending, Header:=xlNo, MatchCase:=False, DataOption1:=xlSortTextAsNumbers

100 字節以內
不支持自定義 Discuz! 代碼