- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 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
|
|
發表於 2012-2-16 16:07
| 