Board logo

標題: [發問] 請問AutoFill問題 [打印本頁]
作者: ken759727    時間: 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
複製代碼
作者: GBKEE    時間: 2012-2-16 16:07

回復 1# ken759727
程式碼沒有錯誤
但是往下填滿欄位的功能卻無法執行在其他分頁     是何意思
Worksheets("0051資料庫").Range("EA320:FQ320").Select  工作表名稱的問題是嗎?
作者: ken759727    時間: 2012-2-16 20:04

回復 2# GBKEE

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

0051資料庫  是工作表名稱

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

但是在0051只能做貼上...另一項功能使用了就出錯
作者: GBKEE    時間: 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)