帖子: 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

Dim i As Integer
Private Sub CommandButton1_Click()
For i = 22 To 10000
'比對日期貼上
If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value
'貼上後填滿公式
Worksheets("0050資料庫").Range("DR320:FE320").Select
Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
Worksheets("0050資料庫").Range("DR320:FE" & i).Select
Worksheets("0051資料庫").Range("EA320:FQ320").Select
Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
Worksheets("0050資料庫").Range("E14").Select
GoTo stockup
End If
Next
stockup:
End Sub

複製代碼

Test_v4.rar (329.41 KB)

檔案

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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 使工作表為作用中

Dim i As Integer
Private Sub CommandButton1_Click()
For i = 22 To 10000
'比對日期貼上
If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value
'貼上後填滿公式
Worksheets("0050資料庫").Activate '****要加上這行選擇為作用中的工作表
Worksheets("0050資料庫").Range("DR320:FE320").Select
Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
Worksheets("0050資料庫").Range("DR320:FE" & i).Select
Worksheets("0051資料庫").Activate '****要加上這行選擇為作用中的工作表
Worksheets("0051資料庫").Range("EA320:FQ320").Select
Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
Worksheets("0050資料庫").Activate '****要加上這行選擇為作用中的工作表
Worksheets("0050資料庫").Range("E14").Select
GoTo stockup
End If
Next
stockup:
End Sub

複製代碼

TOP