返回列表 上一主題 發帖

[發問] VBA_如何以讀取的【單欄】各產生一個工作表？

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2016-1-15 13:54 | 顯示全部帖子
只提供測試片段，執行前，先開啟〔S_49_A交集_10_100期_ML〕檔案∼∼
　
S_49_A交集(MF)-Q_v01.rar (64.3 KB)
　
自行去套修，這樣程式湊成堆，眼睛真的吃力！！！

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2016-1-15 21:54 | 顯示全部帖子
回復 3# Airman


執行前，先開啟〔S_49_A交集_10_100期_ML〕檔案　

新資料夾.rar (92.21 KB)
　
其它註解掉的程式碼，表示未處理，太多了，無法一一去理解，
尤其測試時，一直重覆產生工作表的流程，太花時間！所以略去！
目前只能提供此段程式，請自行去套入及修改！

不太習慣將不同需求．不同流程的程式串在一起，對閱讀及測試相當困擾及費時，
一般都使用模組內，以區域分段寫，再運用call方式去串接各段（自己用的程式，寫在工作表事件區的少之又少）∼∼

視力受損至今未回復，只能勉強為之，恐無法提供全面完整的程式碼！！！

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2016-1-16 09:53 | 顯示全部帖子
回復 5# Airman


Sheets(1).Range("T7:T" & tx).Select

試試＝＞　Sheets(1).Cells(7, tz).Resize(tx - 6).Select　　


〔NOW〕〔NEW〕不是對比，很難判斷哪個為新需求？

白白花了半天時間！哈∼∼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題