返回列表 上一主題 發帖

[發問] 開啟工作簿不會執行但到巨集裡按F5會正常執行

cathaylife

帖子
19 
主題
6 
精華
0 
積分
48 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
10 
註冊時間
2016-8-19 
最後登錄
2016-12-17 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-9-14 10:49 | 只看該作者

[發問] 開啟工作簿不會執行但到巨集裡按F5會正常執行

各位好 我使用auto_open() 函數進行開啟活頁簿自動進行更新的動作，但是程式碼只有一半執行正確
另外一半就是紅色標註的並不會正常執行，但是如果是在巨集裡面按F5就能正常執行請問是為什麼?


Sub auto_open()
     Call ex2
End Sub
'''''''''''''''''''''''''''''
Sub ex2() '更新Sheets 9 ~ 11 的日期

    EndRow = Sheets("Data").Range("B30000").End(xlUp).Row
   
    For YY = 9 To 11 Step 1
   
        For ZZ = 2275 To EndRow  Step 1
        
                If Sheets(YY).Range("A" & ZZ) <> Sheets("Data").Range("B" & ZZ ) Then
               
                    Sheets(YY).Range("A" & ZZ) = Sheets("Data").Range("B" & ZZ)
                    
                End If  
        Next
   
       Sheets(YY).Range("B2275:S" & Range("A30000").End(xlUp).Row).FillDown
        
    Next   

    Next
   
End Sub
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-9-14 16:31 | 只看該作者
回復 1# cathaylife
Sheets(YY).Range("B2275:S" & Sheets(YY).Range("A30000").End(xlUp).Row).FillDown
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

cathaylife

帖子
19 
主題
6 
精華
0 
積分
48 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
10 
註冊時間
2016-8-19 
最後登錄
2016-12-17 

論壇贊助勳章
3#
發表於 2016-9-15 22:28 | 只看該作者
感謝原來是這個小bug!!!

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題