12
返回列表 上一主題 發帖

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

Scott090

帖子
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羊年全勤獎章熱烈參與勳章
11# 跳轉到 »
發表於 2019-5-6 10:22 | 顯示全部帖子
回復 26# Airman


   
   

  我者裡的執行結果

TOP

Scott090

帖子
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

TOP

Scott090

帖子
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

TOP

Scott090

帖子
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

TOP

Scott090

帖子
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

TOP

Scott090

帖子
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羊年全勤獎章熱烈參與勳章
16#
發表於 2019-5-8 08:54 | 顯示全部帖子
本帖最後由 Scott090 於 2019-5-8 08:56 編輯

回復 38# Airman

          不甚明白需求，
           請說明 紅色圈圈內的 欄位 有底色，但是底下圈圈內沒有數字；
            或者說，跟統計數字無關，只要 [D~J] 內 有數字就可以?
         

TOP

Scott090

帖子
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羊年全勤獎章熱烈參與勳章
17#
發表於 2019-5-9 09:55 | 顯示全部帖子
回復 42# Airman

    請參考以下程式書寫的參考：
    今日總表(均值排序)20190509.rar (125.75 KB)

TOP

        靜思自在 : 話多不如話少，話少不如話好。
12
返回列表 上一主題