如何讓料號能夠自動判定並複製去指定的工作表

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

17^# 跳轉到 »

發表於 2019-7-26 15:00 | 只看該作者

回復 15# 准提部林

不好意思,再請教一個問題
我在測的時候,第sheet1跟sheet3都可以跑得出來
但sheet2的畫面,他只會跑一個料號,一整排的資訊會出不來
再麻煩指導一下

報表.rar (49.54 KB)

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

16^#

發表於 2019-7-26 14:26 | 只看該作者

回復 15# 准提部林
太感謝啦~~~我早上對到剛剛,對到眼睛脫窗
謝謝,沒想到是那個有問題

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

15^#

發表於 2019-7-26 14:21 | 只看該作者

回復 14# cclo0728

"品號"
"品號"

兩表a1文字有差異~~

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

14^#

發表於 2019-7-26 13:56 | 只看該作者

回復 13# 准提部林

謝謝,准提大,我等等研究
但是我剛剛遇到一個問題
我將系統的報表整頁複製到第一個工作表(ERP資料),接著我用KIM大的程式跑,就會有異常
但我不要從我的報表複製過來的話,只是用原本KIM寫的,就不會有問題
是哪裡出錯了?

測試檔是KIM那時候寫的,我有改過一些

測試.rar (21.19 KB)
報表檔是我將系統的資料貼過去的

報表.rar (25.72 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

13^#

發表於 2019-7-26 11:12 | 只看該作者

回復 12# cclo0728

兩種模式:

Xl0000400-2.rar (18.17 KB)

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

12^#

發表於 2019-7-26 08:12 | 只看該作者

回復 10# kim223824
請問我的判斷料號有辦法,寫在程式裡面嗎?
目前kim是寫在A欄位,但我想了解一下是否可以改寫在程式內
再麻煩教導一下,謝謝

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

11^#

發表於 2019-7-22 07:56 | 只看該作者

回復 10# kim223824
謝謝,我在繼續研究一下

TOP

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2023-5-2

10^#

發表於 2019-7-20 13:31 | 只看該作者

回復 9# cclo0728

   ROW1 = Cells(Rows.Count, "C").End(3).Row          '知道C欄最後一個有資料的位置
   If ROW1 > 2 Then                                                          '如果ROW1 >2 表示你的C欄有資料
      Range(Cells(1, "C"), Cells(ROW1, "E")).Clear             '將C欄~E欄都清除
   End If
   '==============================

   ROW1 = Cells(Rows.Count, "A").End(3).Row       '知道A欄最後一個有資料的位置
   arr = Range("A2:A" & ROW1)    '將A欄的資料放進arr的陣列變數裡面

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

9^#

發表於 2019-7-19 17:11 | 只看該作者

回復 4# kim223824
請問可以教我這段是
arr = Range("A2:A" & ROW1)
因我查arr,google是查出來是array陣列的意思,但這個的用法看不太懂
If ROW1 > 2 Then還有這段
再麻煩指導一下

TOP

cclo0728

中學生 Rank: 2

帖子: 53
主題: 8
精華: 0
積分: 90
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2019-4-30
最後登錄: 2023-4-25

8^#

發表於 2019-7-8 12:11 | 只看該作者

回復 4# kim223824

1. 作業方式是用 EXCEL中的 "進階篩選"，將你要的料號抬頭選出。
2. 指定料號的頁數只有固定兩頁(頁面名稱不可更改)。====>這個是我跑完報表手動增加的
3. 但是指定料號的內容可能會變 (EA ==> EZ)，所以只要在A欄 KEYIN你要的料號抬頭就可以有新的料號 ex: EZ*

謝謝KIM大,我在去了解一下,你跟另一位大大的語法

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]