hu0318s

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-11-26 23:34 | 顯示全部帖子

可以請教當欄位不是固定在一個位置我要如何copy到第2活頁

我們家的資料常常會不是固定欄位,我有用if 去抓它的位子,但無法回傳位子訊息給我,所以要請教大大们,我可以用何方式抓取我要的欄位在copy到另一個活頁簿

test1.JPG (195.48 KB)

test2.JPG (120.22 KB)

Book1.rar (13.17 KB)

樓主熱帖

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

2^#

發表於 2013-11-27 00:24 | 顯示全部帖子

謝謝大大我還是新手所以我把我想的打給你看看
Dim A As Range = 設定 a 為所有儲存格
With Sheet1    =陳述 sheet1 所有訊息
Set A = .Cells.Find("工令", lookat:=xlWhole) = 陣列a = .儲存格中該物件代表所找到的第一個包含所尋找資訊的儲存格(等於"工令", 發現要找的資料=要批配到資料)
If Not A Is Nothing Then A.CurrentRegion.Copy Sheet2.[A1]  = 如果 not找不到則a就不執行否則 a 就是到位置執行ctrl+a copy到第2活頁簿
End With  =結束陳述
不知我的了解是否有誤

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

3^#

發表於 2013-11-27 22:40 | 顯示全部帖子

報歉剛下班,謝謝大大的教導,我可以在請教一下,如果我只要工令跟品名貼到sheet2 ,我剛剛有試過
With Sheet1
Set A = .Cells.Find("工令", lookat:=xlWhole)
If Not A Is Nothing Then A.End(xlDown).Copy Sheet2.[A1]
Set A = .Cells.Find("品名", lookat:=xlWhole)
If Not A Is Nothing Then A.End(xlDown).Copy Sheet2.[b1]
End With
End Sub
為何無法copy "工令"下面,跟"品名"全部, 它只copy 最近一格有訊息的資料貼到sheet2 ,報歉又麻煩大大们

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

4^#

發表於 2013-11-28 08:38 | 顯示全部帖子

回復 6# ML089

大大報歉,我剛剛試過但它只會copy另件料號,我有試過改 t .Offset(0, 0).Resize(t.Rows.Count, 1).Copy Sheet3.[A1] ,它只會copy"工令", 但如果要copy"品名"就無法照我要的copy到sheet3.[b2] ,請問我還要修改那邊才會讓電腦帶出我指定欄位,感謝大大们的幫忙

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

5^#

發表於 2013-11-28 10:21 | 顯示全部帖子

回復 8# GBKEE

情況如果是這樣

12233.JPG (193.65 KB)

122.JPG (178.38 KB)

Book1.rar (21.77 KB)

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

6^#

發表於 2013-11-28 18:49 | 顯示全部帖子

回復 10# GBKEE

謝謝大大,解開我的疑慮,感謝大大的幫忙

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

7^#

發表於 2013-12-1 00:55 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-12-1 16:16 編輯

Book1.rar (21.77 KB)

Book2.rar (7.86 KB) 回復 13# GBKEE

謝謝大大的教導,但我假設我的檔案book1,xls 在c:\ 我一樣要copy"工令" "品名" "MRP料齊日" 到桌面上的BOOK2.XLS ,但我修改過粉多方式還會出現下面的問題,報歉我又要麻煩大大们

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

8^#

發表於 2013-12-1 19:07 | 顯示全部帖子

回復 16# GBKEE

謝謝大大的幫忙,原來我一直想說用activesworkbook方式,去取的我要的訊息,謝謝大大的教導讓我學習更多新vba 寫法謝謝你

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

9^#

發表於 2013-12-3 00:30 | 顯示全部帖子

本帖最後由 hu0318s 於 2013-12-3 00:32 編輯

回復 16# GBKEE

抱歉我在練習時發現我用大大交的程式練習,發現我用worksheets("a線生產排程")，a的變數會抓不到,但我練習用worksheets.add worksheets("sheet1"),a的變數可以帶入,我有點搞不清楚是我原本檔案有人家設定住,還是因我"a線生產排程"他不是真的sheet1 ,抱歉又麻煩大大們

[attachimg]16936[/attachim

g]

自動排程表-TEST.rar (624.65 KB)

Book2.rar (15.8 KB)

TOP

hu0318s

中學生 Rank: 2

帖子: 29
主題: 5
精華: 0
積分: 82
點名: 0
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
註冊時間: 2012-6-14
最後登錄: 2020-9-14

10^#

發表於 2013-12-4 20:44 | 顯示全部帖子

回復 19# GBKEE

謝謝大大的指導,我在去看一下書如何處理保護的情況,謝謝大大的幫忙

TOP