可以請問Hsieh大大嗎

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

3^#

發表於 2010-12-17 07:37 | 只看該作者

本帖最後由 gn00487767 於 2010-12-17 07:56 編輯

回復 2# Hsieh

謝謝大大的回覆

但是進階篩選我無法在另一個工作表顯示
我有看到您回覆別人的問題
如下
這裡

因為小弟還無法下載
leiru大大的資料做參考
我有照你的方法試
結果excel顯示
只能在作用工作表上複製篩選範圍
是我的方法錯誤嗎
還是我只能在該工作表篩選後再把資料複製到另一個工作表呢

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

4^#

發表於 2010-12-17 11:44 | 只看該作者

本帖最後由 gn00487767 於 2010-12-17 11:52 編輯

回復 2# Hsieh

感謝Hsieh 大大不厭其煩的為我解答
小弟董了

另外可否再請教一個問題
出處
我的問題跟yang3814大大的問題大同小異
我的問題是要印表格我只能夠做到只要在表格內輸入編號其餘資料會自己跑到表格內
我也一樣要做一個按鈕就可以把所有有編號的資料通通印出來
該如何設一按鈕就可以執行的程式碼
我的附件

補充一點我的資料是陸續增加所以要列印的東西也一樣

煩請 Hsieh 大大幫幫小弟

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-12-17 11:56 | 只看該作者

回復 4# gn00487767

Sub Ex()
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)
.PrintOut '列印
End With
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

6^#

發表於 2010-12-18 07:35 | 只看該作者

回復 5# Hsieh

再次感謝Hsieh大大小弟再自行研究研究有問題再跟您討教

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

7^#

發表於 2010-12-20 10:03 | 只看該作者

本帖最後由 gn00487767 於 2010-12-20 10:27 編輯

回復 5# Hsieh

Hsieh大大抱歉
小弟直接複製代碼
製作出來的按鍵可是執行下去都沒動作呢
可以幫小弟查詢看看嗎
或是可以請您做一個可以使用的EXCEL檔案讓我做參考
小弟的信箱
[email protected]
麻煩您了

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

8^#

發表於 2010-12-20 20:59 | 只看該作者

回復 5# Hsieh

感謝Hsieh大大
您寄給我的範例我收到了
測試過可以正常使用了
原來是我直接複製代碼後直接貼上
跟您寄給我的範例裡
第一行代碼不一樣的問題
所以無法正常使用

帖子: 58
主題: 8
精華: 0
積分: 94
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-12-6
最後登錄: 2014-2-17

9^#

發表於 2010-12-26 01:23 | 只看該作者

本帖最後由 gn00487767 於 2010-12-26 06:06 編輯

回復 2# Hsieh

Hsieh大大抱歉
小弟又要麻煩您了
我的問題有2個
第一個問題在附件裡
我的附件
第二個問題就是您之前回覆我的列印表格的問題
01.Sub Ex()
02.Dim A As Range
03.With Sheets("資料表")
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
05. With Sheets("表格")
06.    .[E1] = A
07.    .[C3] = A.Offset(, 1)
08.    .[G3] = A.Offset(, 2)
09.    .[C5] = A.Offset(, 3)
10.    .[G5] = A.Offset(, 4)
11.    .[C7] = A.Offset(, 5)
12.    .[C9] = A.Offset(, 6)
13.    .PrintOut '列印
14. End With
15.Next
16.End With
17.End Sub

其中
04.For Each A In .Range(.[A2], .[A2].End(xlDown))
紅色的A 是什麼意思或是怎麼來的呀
因為我直接用你給我附件測試可以直接列印
但是我自己做一個新的工作表複製您的程式碼但是不能用呢
其他的我都弄清楚代表什麼意思或是該怎麼使用(修改)
就只有其中的A我無法理解
我也從您給我的附件中把A作修改還是可以使用
就我自己做出來的工作表中的A無法辨別
還是說我做的是因為我把您的資料中[A2] 到[A2] 的儲存格參照放在C欄位的儲存格並且還有合併儲存格的關西呢

對了他傳給我錯誤訊息忘了是450還是405
可以幫幫小弟嗎

再次麻煩大大了

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-12-26 09:35 | 只看該作者

回復 3# gn00487767
"但是進階篩選我無法在另一個工作表顯示"   可以使用 vba
參照你在 http://forum.twbts.com/viewthread.php?tid=2190&extra= 的附檔
Sheets("資料表").Range("A1").CurrentRegion  資料庫->獨自一個工作表
Sheets("表格").[K1:L2]                                  篩選準則 ->獨自一個工作表
Sheets("Sheet3").[A1]                                  複製列的目標範圍 ->獨自一個工作表

Sub Ex()
Sheets("Sheet3").[A1].CurrentRegion = ""
Sheets("資料表").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("表格").[K1:L2], CopyToRange:=Sheets("Sheet3").[A1]
End Sub

複製代碼

篩選準則 (CriteriaRange) Sheets("表格").[K1:L2] 如圖

For Each A In .Range(.[A2], .[A2].End(xlDown)) ( 物件的集合 )
A 為物件的集合的元素
在此為依序 [A2] ->[A3]->[A4]....