返回列表 上一主題 發帖

[發問] 請問AutoFill問題

ken759727

帖子
19 
主題
12 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-9-27 
最後登錄
2017-12-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-16 15:21 | 只看該作者

[發問] 請問AutoFill問題

本帖最後由 ken759727 於 2012-2-16 20:02 編輯

請問小弟vba如下，
比對日期＆貼上這部分處理其他分頁都沒問題
但是往下填滿欄位的功能卻無法執行在其他分頁[紅色部分]
不知道是哪邊寫錯了。

Worksheets("0051資料庫").Range("EA320:FQ320").Select
Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
  1. Dim i As Integer
  2. Private Sub CommandButton1_Click()
  3. For i = 22 To 10000

  5. '比對日期貼上
  6. If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
  7. Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
  8. Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value


  11. '貼上後填滿公式
  12. Worksheets("0050資料庫").Range("DR320:FE320").Select
  13. Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
  14. Worksheets("0050資料庫").Range("DR320:FE" & i).Select

  16. Worksheets("0051資料庫").Range("EA320:FQ320").Select
  17. Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
  18. Worksheets("0051資料庫").Range("EA320:FQ" & i).Select

  20. Worksheets("0050資料庫").Range("E14").Select

  22. GoTo stockup
  23. End If
  24. Next

  26. stockup:
  27. End Sub
複製代碼

Test_v4.rar (329.41 KB)

檔案

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-2-16 16:07 | 只看該作者
回復 1# ken759727
程式碼沒有錯誤
但是往下填滿欄位的功能卻無法執行在其他分頁     是何意思
Worksheets("0051資料庫").Range("EA320:FQ320").Select  工作表名稱的問題是嗎?

TOP

ken759727

帖子
19 
主題
12 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-9-27 
最後登錄
2017-12-21 
3#
發表於 2012-2-16 20:04 | 只看該作者
回復 2# GBKEE

GBKEE   我有上傳檔案了
請您觀看...我不知道我哪裡出了問題

0051資料庫  是工作表名稱

在0050都可執行 貼上與向下填滿工作表

但是在0051只能做貼上...另一項功能使用了就出錯

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2012-2-16 20:25 | 只看該作者
回復 3# ken759727
程式中  Range("????").Select  前面有指定工作表
如Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
此Worksheets("0051資料庫")  必須是作用中的工作表
所以這一行 Worksheets("0051資料庫").Activate 使工作表為作用中
  1. Dim i As Integer
  2. Private Sub CommandButton1_Click()
  3. For i = 22 To 10000
  4. '比對日期貼上
  5. If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
  6. Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
  7. Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value
  8. '貼上後填滿公式
  9. Worksheets("0050資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
  10. Worksheets("0050資料庫").Range("DR320:FE320").Select
  11. Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
  12. Worksheets("0050資料庫").Range("DR320:FE" & i).Select

  14. Worksheets("0051資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
  15. Worksheets("0051資料庫").Range("EA320:FQ320").Select
  16. Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
  17. Worksheets("0051資料庫").Range("EA320:FQ" & i).Select

  19. Worksheets("0050資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
  20. Worksheets("0050資料庫").Range("E14").Select
  21. GoTo stockup
  22. End If
  23. Next
  24. stockup:
  25. End Sub
複製代碼

TOP

        靜思自在 : 發脾氣是短暫的發瘋。
返回列表 上一主題