揀選名稱中有【均值】的檔案之語法。 - Excel程式區

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

11^# 跳轉到 »

發表於 2019-6-2 11:39 | 只看該作者

本帖最後由 Airman 於 2019-6-2 11:41 編輯

回復 7# Scott090
回復 9# Airman
修正筆誤~
目前以下列的程式碼=無論檔案名稱內有或沒有均值的文字，全部都有執行藍色字的程式碼。

TOP

Airman

中學生 Rank: 2

帖子: 315
主題: 51
精華: 0
積分: 367
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-29
最後登錄: 2021-10-12

12^#

發表於 2019-6-2 12:36 | 只看該作者

回復 6# 准提部林
准大 :
測試結果 :

均值.rar (23.3 KB)
因為工作表名稱變成復原Sheet1(不是=檔案名稱)，自行試了半天~無法處理^^"
敬請賜正~謝謝您^^

TOP

Scott090

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 55
精華: 0
積分: 599
點名: 40
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2025-2-16

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

13^#

發表於 2019-6-2 13:08 | 只看該作者

回復 11# Airman

   承9#：
   猜測檔名變數 A 內的字串型態可能是：
   沒有"均值"二字：                   "?????????????"  或
   僅有"均值"二字沒有再重複： "?????均值?????"
   假如是這樣，請用：
   If  instr(A,"均值")<>0  Then
         [B1:BK1].Clear
         For j = 1 To 49       '均值
            Cells(1, j + 1) = j
         Next
      End If

TOP

准提部林