ziv976688

回復 8# samwang
參考   http://forum.twbts.com/thread-23380-1-1.html   8#的貴解~
將If Arr(i, j) = 0 Then n = n + 1: Arr(1, j) = n Else Arr(1, j) = "V": GoTo 100]    '列167
改為
    If Arr(i, j) = 0 Then n = n + 1    '列167
    If n > 0 Then Arr(1, j) = n Else Arr(1, j) = "V": GoTo 100    '列168
跑出來的答案是正確的。
但不知道這樣改對不對 ? (沒有自信)

以上  懇請賜正
謝謝您

samwang

回復 11# ziv976688

只要有嘗試寫，就會有進步，修改如下，請測試看看，謝謝
        If Arr(i, j) = 0 Then
            n = n + 1: Arr(1, j) = n
        ElseIf Arr(i, j) > 0 And n = 0 Then
           Arr(1, j) = "V"
        End If

ziv976688

回復 12# samwang
OK了
謝謝您的耐心指導和熱心幫忙~受益良多~感恩

ziv976688

回復 12# samwang
TEST_1004.rar (325.22 KB)

下載次數: 3

2021-10-4 06:39

不好意思，最後2個問題~勞駕您賜正~謝謝您

問題1：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)執行後的效果檔~
統計"0"的個數~在C26都會固定多1個(以7T_搜尋(統)字檔(主檔)_0930(C2_C26=fx)的效果檔比對)~
請詳見：7T前3大&小_0_1902期_100_7個_1次(C26=VBA效果檔)；7T前3大&小_0_1902期_100_14個_1次(C26=VBA效果檔)
PS：如果您要測試14個檔案的話~請將另7個7RA統的檔案，置入子資料夾內後~再執行(主檔)即可。

問題2：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的列191~列197程式碼不能執行~
如果執行~會在列195自動欄寬產生"偵錯"~然後無法關閉檔案~會當機~必須強制重新開機

備註：
如果將7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的
列3改為
Dim Path As String, A, Ar(1 To 1000, 1 To 2), Arr, Brr(1 To 7), Crr, T, i&, j& ', n%, ci%, cj%, ai%
列142~列145改為執行
列147~列176改為註解
列191~列197改為執行
即=7T_搜尋(統)字檔(主檔)_0930(C2_C26=fx)，
則列191~列197的程式碼就可以執行。

以上   懇請賜教。謝謝您    

samwang

回復 14# ziv976688


問題1: >> 已更新，如附件，請測試看看，謝謝。

問題2：
7T_搜尋(統)字檔(主檔)_1003(C2_C26=VBA)的列191~列197程式碼不能執行~
如果執行~會在列195自動欄寬產生"偵錯"~然後無法關閉檔案~會當機~必須強制重新開機
>> 問題2，我測試沒問題，另外列191~197(版面設定)，後學認為是多餘的可以移除，
因為後面程式列200 是將整個原來檔案格式整個copy ，然後另存新檔，所以不用再每次重新設定，
清除舊資料時，需用.ClearContents，不可用.Delete(原格式設定清除)，謝謝

ziv976688

回復 15# samwang
測試結果 :
問題1 :
列147 改為    Crr = .Range("c2:ay16"): Arr = .Range("c47:ay" & R): n = 0
問題已解決

問題2 :
因為細查後~發現BUG出在  .Font.Name = "Verdana" '字體；
而我所需要的是 .EntireColumn.AutoFit  '自動欄寬 (Sheets("Sheet1")預先設定的"自動欄寬"~無效~因為每期的欄寬是浮動不定的)
如貴建議~將 .Font.Name = "Verdana" '字體移除
問題已解決

謝謝您的耐心指導和熱心幫忙~受益良多~感恩