請修正Sheets("Sheet1")改變格式後的語法。 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請修正Sheets("Sheet1")改變格式後的語法。

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

[發問] 請修正Sheets("Sheet1")改變格式後的語法。

大學生 Rank: 4

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

1^# 跳轉到 »

發表於 2021-10-11 08:17 | 顯示全部帖子

回復 1# ziv976688

請問：下列紅色字顏的程式碼要如何修正？
>> 不好意思，上次寫的有問題導致無法修改，請修改3個地方如下，謝謝

Dim ci%-->Dim ci  '列2
CR = Array("",1, 2, 3, 6, 7, 8)-->CR = Array(1, 2, 3, 6, 7, 8)  '列140 '列149
For ci = 1 To UBound(cR) + 2 -->For Each ci In CR    '列140 '列149

大學生 Rank: 4

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

2^#

發表於 2021-10-11 12:04 | 顯示全部帖子

回復 3# ziv976688

不好意思，請問一下期數每次只有一個，對吧？
如果是就直接由下面的資料複制到上面位置，這樣就不用在寫迴圈取值會比較快，謝謝

大學生 Rank: 4

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

3^#

發表於 2021-10-12 07:23 | 顯示全部帖子

本帖最後由 samwang 於 2021-10-12 07:29 編輯

回復 5# ziv976688

請參考另一個版本(Sheets("Sheet1")還沒有改格式~執行後的答案是正確的)
>> 我知道原因了，因為這次欄位和上次的不一樣了，所以上次那個又不行了，必須又要重寫且研究一下規則，謝謝

大學生 Rank: 4

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

4^#

發表於 2021-10-12 12:15 | 顯示全部帖子

回復 7# ziv976688

如果不是如末學想的那樣Easy，而是如您所說~須又要重寫且研究一下規則~
>> 本來想說如您說的只要小改就好，沒想要費這麼大工夫，所以直接重寫單期和多期都有寫入，請再測試看看，謝謝。

7S_搜尋(統)字檔(主檔)_1012.zip (46.57 KB)

大學生 Rank: 4

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

5^#

發表於 2021-10-12 17:38 | 顯示全部帖子

回復 samwang
實在是過意不去~還勞駕您費心重新編寫~感恩

所以直接重寫單期和多期都有寫入 ...
ziv976688 發表於 2021-10-12 16:26

不好意思，我寫得多期是我自己猜想您要的需求，規則可能含您的需求不一樣
可以提供相關單期和多期的規則和資料做測試，謝謝

大學生 Rank: 4

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

6^#

發表於 2021-10-13 07:26 | 顯示全部帖子

回復 11# ziv976688

為什需求結果不一樣? 有時候要顯示單期有時候要很多期數?

1.PNG (78.96 KB)

大學生 Rank: 4

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

7^#

發表於 2021-10-13 12:42 | 顯示全部帖子

回復 13# ziv976688

你講的沒錯 #8有問題，問題是結果的資料沒清除乾淨，導致第1個沒問題，第2個就錯誤，
另外，被單期和多期定義搞亂，導致....，已更正單純用#1需求去寫，請再測試看看，謝謝

PS: 如您提到又原程式小修改就可以符合#1需求，有時候想太多，腦筋打結.....

7S_搜尋(統)字檔(主檔)_1013.zip (46.36 KB)

大學生 Rank: 4

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

8^#

發表於 2021-10-14 07:53 | 顯示全部帖子

回復 21# ziv976688

已回覆，發現您已修改幾乎快完成了，很棒加油，謝謝。

靜思自在 : 小事不做、大事難成。

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