返回列表 上一主題 發帖

資料依條件 分SHEET

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
558 
主題
58 
精華
0 
積分
625 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-3-22 12:41 | 顯示全部帖子

資料依條件 分SHEET

Dear 大大們~
        附件是幫學弟妹完成的檔案
     可以達到需求 但有一個缺點就是若再按一次"匯出"的按鈕~ 會有[標籤名稱]一樣~ 產生錯誤
     整個撰寫上也不是很好~
        其條件很簡單,主要是
      by Item_ID 為分頁條件
         另外兩個
         by Point_OFFSET
         by Data_Date
         在同一天中,將Point_OFFSET (共三站)的資料直列放在一起

        想請個位大大~ 是否有更好的寫法~ 供小弟參考學習
       Data_VBA完成版.rar (81.29 KB)
收藏 分享
學習才能提升自己

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
558 
主題
58 
精華
0 
積分
625 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-24 
2#
發表於 2011-3-22 18:45 | 顯示全部帖子
本帖最後由 hugh0620 於 2011-3-22 18:53 編輯

感謝大大GBKEE 的回復唷~ 加上一個刪除鈕~ 可以結省掉刪除sheet的動作~
    複製的部份~ 也簡化~ 也能夠理解~
    使整個更完整操作上更簡化也簡便許多~

    但是大大~ 除錯的部份~ 有測試過~ 但產生錯誤唷~
    造成Data匯整的sheet 資料被覆蓋
學習才能提升自己

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
558 
主題
58 
精華
0 
積分
625 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-5-24 
3#
發表於 2011-3-23 09:07 | 顯示全部帖子
回復 4# GBKEE


    大大~ 執行的結果會卡在產生第21 Sheet 時~ 會有錯誤
   錯誤產生時~ 值行到第26行指令
   26.    .Name = Sheet2.Cells(2 + N, 1)    '標籤名稱
   如附件
    Data_VBA完成版_2.rar (102.04 KB)
學習才能提升自己

TOP

        靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。
返回列表 上一主題