自動【判讀有標示指定底色的數字次數】&【次數加總】&【輸出檔案】之語法。

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

12^#

發表於 2019-5-6 10:32 | 顯示全部帖子

回復 26# Airman

   是不是這裡沒有執行：

'          With .Sort
'                .SortFields.Add Key:=[B:B]
'                .SetRange sh.UsedRange
'                .Apply
'          End With

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2019-5-6 14:15 | 顯示全部帖子

回復 29# Airman

   Excel 是 2010 版本，沒有那個問題。
   也許 2003 版本會有問題，我這裡沒能測試。
   那個地方是把所有檔案放到儲存格內，再按照分類排序的。

   請改成下列，再試試看：
      '                With .Sort
      '                      .SortFields.Add Key:=[B:B]
      '                .SetRange sh.UsedRange
      '                .Apply
      '          End With
                  .UsedRange.Sort key1:=.[B1], Header:=xlNo

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

14^#

發表於 2019-5-6 15:56 | 顯示全部帖子

回復 31# Airman

請注意，這一段已經拿掉了，沒有了，請先把它刪除：
   '                With .Sort
      '                      .SortFields.Add Key:=[B:B]
      '                .SetRange sh.UsedRange
      '                .Apply
      '          End With

   只剩下這一語句：
                  .UsedRange.Sort key1:=.[B1], Header:=xlNo

帖子: 533
主題: 58
精華: 0
積分: 613
點名: 261
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章熱烈參與勳章

15^#

發表於 2019-5-6 16:21 | 顯示全部帖子

回復 31# Airman

這裡有Excel sort 的語法說明：
https://blog.xuite.net/fred9782001214/wretch/149636887-%5BVBA%5D+%E6%8E%92%E5%BA%8F%E8%AA%9E%E6%B3%95%28Excel+2003+%E9%81%A9%E7%94%A8%29