[發問] 遞減複製標題

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

13^#

發表於 2021-7-14 08:58 | 只看該作者

回復 12# samwang
謝謝您的耐心說明和指導。
我再想想看
感恩喔

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

12^#

發表於 2021-7-14 08:04 | 只看該作者

回復 11# ziv976688

Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4", "準2進3")).Select
這段語法正確嗎? --> 正確

為什麼包括"準1進2"也會將Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy 到.Range("AL2").Resize(1, mthcount - StrRng + 1)? --> 不可能因為上面那段而影響"準1準2"，一定是其它的地方導致

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

11^#

發表於 2021-7-13 21:38 | 只看該作者

本帖最後由 ziv976688 於 2021-7-13 21:50 編輯

回復 10# samwang
沒有關係!謝謝您的回覆。
可否請教~
Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4", "準2進3")).Select
這段語法正確嗎?
為什麼包括"準1進2"也會將Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy 到.Range("AL2").Resize(1, mthcount - StrRng + 1)?
是不是受到列88 "For I = 1 To 7" 的影響?
謝謝您!

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

10^#

發表於 2021-7-13 21:20 | 只看該作者

回復 7# ziv976688

不好意思，看你的那程式碼太複雜，不知如何修改，看其他的大大有無好的解法，謝謝

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

9^#

發表於 2021-7-13 19:55 | 只看該作者

本帖最後由 ziv976688 於 2021-7-13 20:02 編輯

回復 8# singo1232001
我知道，二個壓縮檔也都下載了，所以說晚上要研究和學習貴語法。
再次謝謝您!感恩:D
PS : 對VBA我還很"菜"，必須花時間消化~請見諒!謝謝您!

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2021-7-13 19:47 | 只看該作者

本帖最後由 singo1232001 於 2021-7-13 19:55 編輯

回復 6# ziv976688

#4 第一篇的兩個檔案只會放在與主檔相同資料夾同一層
#5 第二篇的兩個檔案才會新創資料夾放到下一層資料夾
總共為4個版本創檔xlsx與xls vs 創或不創資料夾

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

7^#

發表於 2021-7-13 19:38 | 只看該作者

回復 2# samwang
不好意思，能否再請您修正陣列的程式碼？謝謝您！

程式碼列115~列124
'       Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4", "準2進3")).Select
'       Sheets("DATA").Range("A" & StrRng - 1, "I" & mthcount - 1).Copy .Range("AL2").Resize(1, mthcount - StrRng + 1)
'       Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5", "準3進4")).Select
'       Sheets("DATA").Range("A" & StrRng - 2, "I" & mthcount - 2).Copy .Range("AU2").Resize(1, mthcount - StrRng + 1)
'       Sheets(Array("準7進8", "準6進7", "準5進6", "準4進5")).Select
'       Sheets("DATA").Range("A" & StrRng - 3, "I" & mthcount - 3).Copy .Range("BD2").Resize(1, mthcount - StrRng + 1)
'       Sheets(Array("準7進8", "準6進7", "準5進6")).Select
'       Sheets("DATA").Range("A" & StrRng - 4, "I" & mthcount - 4).Copy .Range("BM2").Resize(1, mthcount - StrRng + 1)
'       Sheets(Array("準7進8", "準6進7")).Select
'       Sheets("DATA").Range("A" & StrRng - 5, "I" & mthcount - 5).Copy .Range("BV2").Resize(1, mthcount - StrRng + 1)
以上的程式碼還是會將全部的資料內容列出
請問：正確的程式碼應如何編寫？
謝謝您！

2021-0713 - 複製指定資料內容.rar (61.24 KB)

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2021-7-13 19:16 | 只看該作者

本帖最後由 ziv976688 於 2021-7-13 19:22 編輯

回復 5# singo1232001
萬分感謝您再重新編寫程式~
只是1個資料夾只放1個效果檔，有一點不方便^^"
晚上我會仔細研究貴語法~感恩^^

PS : 原主檔的程式碼已可將StrRng和 Nrange填入的多個期數之效果檔，各以名稱別存入資料夾內。

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2021-7-13 17:42 | 只看該作者

回復 1# ziv976688

這個檔案會在同個路徑上依照期數創資料夾

檔案如上個檔案同個資料夾內期數一樣會產生序號

遞減複製標題(主檔)創資料夾.zip (152.52 KB)