- 帖子
- 19
- 主題
- 12
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-9-27
- 最後登錄
- 2017-12-21
|
本帖最後由 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)
檔案
|
發表於 2012-2-16 15:21
| 
