- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
3#
發表於 2012-4-28 16:43
| 只看該作者
回復 2# GBKEE
G大,您好
我把您寫的程式套到我的工作表巨集中,但他執行時,無法 作copy並貼上值的動作,我在工作表中打了公式作為實驗,結果另存後就都亂碼了,能否幫我看看問題出在哪?
 PKG2.zip (20.5 KB)
Windows("PKG.xlsx").Activate
Sheets("PKG").Select
Dim Rng(1 To 2) As Range
With ActiveSheet
Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
Set Rng(2) = .Range("D:D").Find("PACKING:")
If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
MsgBox "找不到"
Else
.Range(Rng(1), Rng(2)).Resize(, 11).Copy
End If
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q122:Q122").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Rows("143:143").Select
Selection.ClearContents
Range("C1").Select
End With
ActiveWorkbook.SaveAs "P:\Shipping Doc\PJ\" & [Q5] & "_" & [C6] & " PO#" & [V7] & " by " & [C19] & " to " & [C22] & ".xlsx"
Sheets("PKG").Select
Columns("R:AC").Select
Selection.Delete Shift:=xlToLeft
Columns("A:C").Select
Range("C11").Activate
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Save
End Sub |
|
發表於 2012-4-28 17:06
| 
