VBA 複製data問題(跨Sheet) - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 複製data問題(跨Sheet)

1 234 下一頁

返回列表下一主題上一主題發帖

[發問] VBA 複製data問題(跨Sheet)

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

21^# 跳轉到 »

發表於 2018-4-19 16:59 | 只看該作者

回復 18# 准提部林

版主你好,
測試後, 可以跳過指定欄位, FQC M 欄位跑到後面了, 附上圖片與程式碼

Sample.zip (52.8 KB)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

22^#

發表於 2018-4-19 17:24 | 只看該作者

回復 21# dea172

不是欄位都是固定的???
實在沒時間再去修改程式,
等其他版主來幫忙吧!

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

23^#

發表於 2018-4-19 20:42 | 只看該作者

最後一個版本，以Ｋ欄去控制取５格或２格或排除不取：

IPQC-FQC-3.rar (238.5 KB)

超級版主 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兔年全勤獎章

24^#

發表於 2018-4-20 13:49 | 只看該作者

回復 15# dea172

1.沒有重複批號確認,
2.每傳一次資料, 使用者還需要開啟IPQC 檔案, 是否有更方便方式, 謝謝!
註: IPQC & FQC 檔案都是放同一資料夾下

1.不是每個 IPQC 對應一個 FQC 何來重複批號?當然也不會有資料累加的問題
2.我14#程式是比對兩個相同前綴檔名的IPQC & FQC
若是你已經開啟其中某一檔案才做比對，那就請清楚敘述你的作業流程
才知道要如何去簡化

學海無涯_不恥下問

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

25^#

發表於 2018-4-26 13:05 | 只看該作者

回復 23# 准提部林

版主你好,
再次請問一個問題, 若想將IPQC & FQC 資料放置不同路徑下, 是否可實現此功能? 謝謝

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

26^#

發表於 2018-4-26 13:18 | 只看該作者

回復 25# dea172

If xB Is Nothing Then Set xB = Workbooks.Open("自行輸入路徑" & "\" & xN)

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

27^#

發表於 2018-4-26 13:27 | 只看該作者

回復 26# 准提部林

版主你好,
謝謝版主, 測試可以, 原來這麼簡單.

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

28^#

發表於 2018-9-11 13:40 | 只看該作者

回復 dea172

For i = 0 To UBound(Arr) - 1
If Arr(i + 1, 1) = "" Then
'這裡空白即可 ...
准提部林發表於 2018-4-19 16:37

版主你好,
若我想刪除A6欄位(A4), A7~A17 全部往上一格, 想了好久, 但始終無法修改好程式碼, 是否可以幫忙修改, 謝謝!

Test.zip (65.64 KB)

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

29^#

發表於 2018-9-11 14:45 | 只看該作者

回復 28# dea172

刪掉A4, 轉存檔資料的欄位順序就對不上了,
不懂~~

中學生 Rank: 2

帖子: 32
主題: 7
精華: 0
積分: 89
點名: 0
作業系統: windows
軟體版本: 7.0
閱讀權限: 20
註冊時間: 2016-10-20
最後登錄: 2020-11-25

30^#

發表於 2018-9-11 14:59 | 只看該作者

回復 29# 准提部林

版主你好,
就是我想將A4欄位整個資料刪除, 後面欄位往上移動一格(如下圖)
轉存檔資料的欄位順序就對不上了, 是沒錯, 所以要修改code, 只是不知道如何修改code

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。

1 234 下一頁

返回列表下一主題上一主題