返回列表 上一主題 發帖

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

本帖最後由 Airman 於 2019-5-5 22:08 編輯

回復 20# Scott090
                     

Scott090大大:您好!
謝謝您的修正^^
不好意思,執行後~出現"編輯錯誤"的提示^^"
煩請賜正!謝謝您^^

TOP

回復 21# Airman


  要把把程式檔跟資料檔放在同一路徑。

   

  請問有出現如上圖有檔案名稱的工作表嗎?

TOP

回復 22# Scott090
Scott090大大:您好!
要把程式檔跟資料檔放在同一路徑~
請問有出現如上圖有檔案名稱的工作表嗎?~

不曉得是什麼原因?現在卻可正常執行^^
但輸出後的答案檔內容不正確^^"
煩請檢視和賜正。
謝謝您!晚安!

(均值排序).rar (68.7 KB)

TOP

本帖最後由 Airman 於 2019-5-6 00:44 編輯

承上樓~
呵~呵~是小弟將列115~列119"不執行"~測試後;
忘了恢復原稿^^"

TOP

回復 24# Airman


    你沒執行的部分是對分類的排序。

     結果又如何?

TOP

回復 25# Scott090

結果如附上的2019-0405_統計和2019-0406_統計~答案不對^^"

TOP

回復 26# Airman


   
   

  我者裡的執行結果

TOP

回復 26# Airman


     是不是這裡沒有執行:               

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

TOP

回復 28# Scott090

列115~列119有執行: 就會出現21樓的提示框。   
您執行看看!謝謝您^^

TOP

回復 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

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題