請教版主及各位大大們,如何使用autofilter 連同照片也copy至目的地
- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
請教版主及各位大大們,如何使用autofilter 連同照片也copy至目的地
Dear 各位版主及大大們您好 :
小弟有一問題,如何使用autofilter or advancedfilter 在於特定條件篩選後作複制的動作,連同欄位大小及儲存格內之照片
已設定圖片屬性為大小位置隨儲存格改變,也有使用pastesAll,也均不得其解,再麻煩各位可以解決小弟的疑惑,感恩!
- Sub test()
- Dim mytbl As Range
- [a1].CurrentRegion.ClearContents
- Set mytbl = [a1].End(xlToRight).CurrentRegion
- Set myQry = [a1]
- mytbl.Columns(4).AdvancedFilter xlFilterCopy, copytorange:=myQry, unique:=True
- Set myQry = myQry.CurrentRegion
- For i = 2 To myQry.Rows.Count
- x = [aa2].End(xlToLeft).Column + 1
- With mytbl
- .AutoFilter 4, myQry.Rows(i)
- .Copy
- Cells(1, x).PasteSpecial xlPasteColumnWidths
- Cells(1, x).PasteSpecial xlPasteAll
- mytbl.AutoFilter
- End With
- Next
- End Sub
|
-
-
question.zip
(484.97 KB)
|
|
|
|
|
|
|
- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
回復 2# Hsieh
Dear 版主您早 :
有一小問題,不知這巨集是哪裡出錯,再麻煩您解決小弟的疑惑,感恩!
|
|
|
|
|
|
|
|
- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
回復 2# Hsieh
不好意思,小弟沒有解釋的很清楚,小弟用I欄位作為篩選條件,先篩選出不重複之no.值於A欄位,再將A欄位依序當Criteria,再篩選將相同之no.連同圖片,一起複製相鄰之空白欄位
再麻煩版主解決小弟的疑惑,謝謝您!
|
|
|
|
|
|
|
|
- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
回復 3# cmo140497
歹勢,找到問題了,A欄位,版主以為CRITERIA是原有的,小弟加了進去,另外Pictures,小弟改成ActiveSheet.Pictures(pic.Name)
,就可以了,不好意思,感謝版主的指導 |
|
|
|
|
|
|
|
- 帖子
- 95
- 主題
- 29
- 精華
- 0
- 積分
- 150
- 點名
- 0
- 作業系統
- windows2003
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Kaoshiung
- 註冊時間
- 2010-11-5
- 最後登錄
- 2018-2-8
|
回復 6# GBKEE
感謝版主的指導,小弟又學了新的方法,感恩! |
|
|
|
|
|
|
|
發表於 2013-5-3 18:02
| 
