123
返回列表 上一主題 發帖

[發問] 以"指定字"作為copy並貼上值的指定範圍

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-28 15:08 | 只看該作者

[發問] 以"指定字"作為copy並貼上值的指定範圍

巨集中的指定範圍作copy並貼上值的動作,能否以"指定字"作為copy並貼上值的指定範圍?這個用意是在於工作表的資料有增加或減少時,用"指定字"作為範圍才不需要不斷的去修改巨集程式,請大家幫幫忙!
例如:D19:O133
以"Shipped per SS: "字樣為開始(D19),以"PACKING:"向右+11個儲存格(即O133)為結束
PKG.zip (19.34 KB)
收藏 分享

JOYARK

帖子
6 
主題
4 
精華
0 
積分
52 
點名
0  
作業系統
WIN7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2011-5-6 
最後登錄
2024-10-24 
23#
發表於 2012-5-1 05:44 | 只看該作者
謝謝提供學習非常實用
JOYARK

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
22#
發表於 2012-4-29 14:20 | 只看該作者
回復 21# PJChen
Please check the CI12-460_ACE PO#120309 by FEDEX to .xlsx produced  this morning
in D:\Shipping Doc\PJ subdirectory.

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
21#
發表於 2012-4-29 12:47 | 只看該作者
回復 20# c_c_lai
結果看來是相同的.

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
20#
發表於 2012-4-29 06:40 | 只看該作者
本帖最後由 c_c_lai 於 2012-4-29 06:42 編輯

回復 19# PJChen
這是不是妳要的？

  1. Sub Try()
  2.     Dim Rng(1 To 2) As Range
  3.    
  4.     Windows("PKG.xlsx").Activate

  6.      '  加入 Hsieh 先進的引用方法
  7.     With Workbooks("PKG.xlsx")
  8.         With .Sheets("PKG")
  9.             Set Rng(1) = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
  10.             Set Rng(2) = .Range("D:D").Find("PACKING:")
  11.             
  12.             If Rng(1) Is Nothing Or Rng(2) Is Nothing Then
  13.                 MsgBox "找不到"
  14.             Else     '  依照 Hsieh 先進的指示，稍加修飾
  15.                .Range(Rng(1), Rng(2).Offset(, 11)) = .Range(Rng(1), Rng(2)).Resize(, 12).Value
  16.             End If
  17.         End With
  18.     End With
  19.    
  20.    
  21.     Selection.Copy
  22.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  23.         :=False, Transpose:=False
  24.     Range("Q122:Q122").Select
  25.     Selection.Copy
  26.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  27.         :=False, Transpose:=False
  28.     ActiveSheet.Paste
  29.     Rows("143:143").Select
  30.     Selection.ClearContents
  31.     Range("C1").Select
  32.    
  33.     ActiveWorkbook.SaveAs "D:\Shipping Doc\PJ\" & [Q5] & "_" & [C6] & " PO#" & [V7] & " by " & [C19] & " to " & [C22] & ".xlsx"
  34.         
  35.     Sheets("PKG").Select                         ' 恢復原狀
  36.     Columns("R:AC").Select                    ' 恢復原狀
  37.     Selection.Delete Shift:=xlToLeft     ' 恢復原狀
  38.     Columns("A:C").Select
  39.     Range("C11").Activate
  40.     Selection.Delete Shift:=xlToLeft
  41.    
  42.     ActiveWorkbook.Save
  43. End Sub
複製代碼
VBA TEST.rar (55.82 KB)

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
19#
發表於 2012-4-28 23:06 | 只看該作者
回復 18# Hsieh

謝謝版大,
原來是自已大意

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
18#
發表於 2012-4-28 23:00 | 只看該作者
回復 17# PJChen


    D19是變數a的位置，向上11列也只到D8
你忽略了14到18列被隱藏，沒算這4列所以範圍沒包含D4
學海無涯_不恥下問

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
17#
發表於 2012-4-28 22:24 | 只看該作者
回復 16# Hsieh
不好意思版大,
由"Shipped per SS:"向上11格(儲存格D4)在我的工作表上是沒有超出範圍,但我故意在D4放置了公式,修改為以下的樣子,
貼上值之後D4公式還在,所以  .Range(a.Offset(-11, 0)並沒有向上11格,我該怎麼辦?
如果你需要看檔案,我上傳了   VBA TEST.zip (35.29 KB)
            .Range(a.Offset(-11, 0), b.Offset(, 12)) = .Range(a.Offset(-11, 0), b.Offset(, 12)).Value

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
244  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-10 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
16#
發表於 2012-4-28 22:14 | 只看該作者
回復 15# PJChen

有2個問題
1.向上11格式Offset(-11,0)
2.如果a的位置在1到11列之間，那麼，向上11列就會超出工作表範圍，所以出錯。
學海無涯_不恥下問

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
15#
發表於 2012-4-28 22:07 | 只看該作者
回復 14# Hsieh

謝版大,
執行後沒有問題,但請指教一個範圍上的問題:
b的範圍這樣寫可以向右延伸12格....... b.Offset(, 12)
那如果a的範圍我想向上走11格,我改為以下,為什麼它不能執行?
.Range(a.Offset(, -11), b.Offset(, 12)) = .Range(a.Offset(, -11), b.Offset(, 12)).Value

TOP

        靜思自在 : 甘願做、歡喜受。
123
返回列表 上一主題