返回列表 上一主題 發帖

[發問] 如何用VBA 把SUBOROUTINE寫入特定WORKSHEET？

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2015-10-12 09:53 | 顯示全部帖子
因為該工作表早已寫入一些subroutine，但刪除工作表時卻同時把工作表下的subroutine刪掉，請問有沒有方法加回那些subroutine?

這問題怪怪的，subroutine會寫在工作表下通常表示只有該工作表會用到，自然刪掉也無所謂；
如果是要給所有工作表都能用的sub，寫在一般模組就好了。

題外話：我發覺EXCEL在重複使用「With QueryTables.Add」多次(約100次以上)後，每次匯入的時間都會減慢

用QueryTables會建立連線，如果只是用來取得資料，不需要保持連線，取完後就馬上刪除連線吧
你可以檢查 資料>連線 裡是不是很多不必要的連線。

*usedrange 抓不到要的範圍，附檔會比較容易找問題；不然就依資料情況看能否採用currentRegion 或其他定位的方法
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2015-10-12 14:23 | 顯示全部帖子
回復 9# 小俠客
1. 附檔手動刪除攔 T:ND 重跑，UsedRange.Address 就會顯示 $A$1:$S$31
    或是 MsgBox Out.UsedRange.Address 也可以改為
    With Out
        MsgBox .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, .Cells(1, Columns.Count).End(xlToLeft).Column)).Address
    End With

2. 先手動刪除那些不用的連線
    在你用 QueryTable 的程式碼(附件沒有我找不到) , refresh 後面加一行 delete
    With ActiveSheet.QueryTables.Add(XXX)
        ..........
        .Refresh BackgroundQuery:=False
        .Delete
    End With

3. selection change 是工作表事件，那些 code 也能移植到 ThisWorkbook 的 Workbook_SheetSelectionChange，只要你多判斷是否是你要觸發的工作表。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2015-10-13 13:49 | 顯示全部帖子
本帖最後由 stillfish00 於 2015-10-13 13:51 編輯

回復 15# 小俠客
看來是excel的問題，我把手動重現問題步驟描述如下
我也是excel2010，其他版本可試試:
1. 開新工作表
2. 選 B:D 欄，更改欄寬
3. 選 B:D 欄，群組
4. 點選群組左邊的1(第一層)
5. 點選群組左邊的2
6. 取消群組
7. 刪除 B:D 欄
8. VBA 執行 MsgBox ActiveSheet.UsedRange.Address

好像只要有動過群組的欄寬， 又去摺疊群組，之後就清不乾淨了(刪除也無效)
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2015-10-13 16:38 | 顯示全部帖子
回復 22# lpk187
重點不是這個吧 ...
現在是在說明明沒資料沒格式的儲存格，usedrange 在某些情況會誤判為有使用。
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題