返回列表 上一主題 發帖

再次麻煩 Hsieh 大大

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-24 22:20 | 只看該作者

再次麻煩 Hsieh 大大

本帖最後由 gn00487767 於 2011-2-24 22:25 編輯

關於大大之前給小弟的參考資料
其中 H13 的儲存格 會隨著 編號變動自己帶出資料
小弟要把 H13 的資料 隨著你給小弟的VBA碼變動
再複製到 帶出資料 工作表的B欄 (從B2到最後)
應該怎麼修改呢

因為裡面用的
Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("表格")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '預覽
     .PrintOut '列印
    End With
Next
End With
會自動執行到最後
小弟要在自動執行裡面再多一排自動執行到最後
但要反過來變成同一個儲存格要複製到別欄到最後
變成每印一張就把裡面的H13複製 帶出資料 工作表的B欄 (從B2到最後)
小弟自行修改可是結果都不是小弟需要的
會一直重複

所以要再麻煩大大了

自動列印範例.rar (9.77 KB)

收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-2-24 23:27 | 只看該作者
Dim A As Range
With Sheets("資料表")
For Each A In .Range(.[A2], .[A2].End(xlDown))
   With Sheets("表格")
     .[E1] = A
     .[C3] = A.Offset(, 1)
     .[G3] = A.Offset(, 2)
     .[C5] = A.Offset(, 3)
     .[G5] = A.Offset(, 4)
     .[C7] = A.Offset(, 5)
     .[C9] = A.Offset(, 6)
     .PrintPreview '預覽
     .PrintOut '列印
sheets("帶出資料").[B65536].end(xlup).offset(,1)=.[H13].value
    End With
Next
End With
學海無涯_不恥下問

TOP

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
3#
發表於 2011-2-25 00:49 | 只看該作者
回復 2# Hsieh


    大大抱歉 小弟測試後 他只是在C1的地方一值顯示而已
並不會存在B2...B3...B4...一直到没資料呢
再次麻煩大大了

TOP

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
4#
發表於 2011-2-25 10:39 | 只看該作者

請問有大大可以幫忙嗎

如小弟之前發問的問題
http://forum.twbts.com/thread-2703-1-1.html

若小弟的需求無法做到的話
那可否換個方式
把帶出來的資料
再分別傳回原本資料表的最後一欄

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-2-25 10:47 | 只看該作者
回復 3# gn00487767
筆誤
sheets("帶出資料").[B65536].end(xlup).offset(1,0)=.[H13].value
學海無涯_不恥下問

TOP

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
6#
發表於 2011-2-25 11:13 | 只看該作者
回復 5# Hsieh


    感謝 Hsieh 大大
小弟測試過後 能夠正常使用 也就是小弟的需求
小弟還以為沒辦法做到這樣 讓小弟不知所措呢
再次感謝 Hsieh 大大 為小弟排除困難

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2011-2-25 11:24 | 只看該作者
回復 6# gn00487767
程式碼給你，希望你能確實瞭解程式碼意義
相信我這個筆誤，如果你有確實瞭解程式碼，要自行修改並不是問題
學海無涯_不恥下問

TOP

gn00487767

帖子
58 
主題
8 
精華
0 
積分
94 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2010-12-6 
最後登錄
2014-2-17 
8#
發表於 2011-2-25 11:59 | 只看該作者
回復 7# Hsieh


    麻煩大大了
因為您之前給小弟的筆誤的程式碼
小第有用說明找尋意思
因為小弟真的是看不懂
所以....
請大大包含囉

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題