Board logo

標題: [發問] 請教如何使用VBA將公式複製到指定欄位內？ [打印本頁]
作者: c_c_lai    時間: 2012-9-7 09:02     標題: 請教如何使用VBA將公式複製到指定欄位內？

請教如何使用VBA將工作表1內的五個公式分別複製到工作表2
之任一指定欄位內？
謝謝各位先進指導！
[attach]12397[/attach]
作者: luhpro    時間: 2012-9-8 08:12

請教如何使用VBA將工作表1內的五個公式分別複製到工作表2
之任一指定欄位內？
謝謝各位先進指導！
c_c_lai 發表於 2012-9-7 09:02


以將第 1 個公式貼到 C8 儲存格為例 :

ActiveSheet.Shapes("Object 1").Left = [C8].Left
ActiveSheet.Shapes("Object 1").Top = [C8].Top
作者: c_c_lai    時間: 2012-9-8 08:39

回復 2# luhpro
非常感激您的回覆！
我是以 "工作表1" 的各個公式圖示作為母表，保持不動 (母單)，
而將它其內的各個公式圖示逐一複製到其它的有關之 "工作表2"、
"工作表3"、"工作表4" 內等等 (而非在 "母表" ("工作表1") 中移位)。
不知可否再次賜教？
作者: luhpro    時間: 2012-9-8 09:17

本帖最後由 luhpro 於 2012-9-8 09:18 編輯
回復  luhpro
非常感激您的回覆！
我是以 "工作表1" 的各個公式圖示作為母表，保持不動 (母單)，
而將它 ...
c_c_lai 發表於 2012-9-8 08:39
  1. Sub nn()
  2.   Dim shSou, shTar
  3.   Dim obTar As Object
  4.    
  5.   Set shSou = Sheets("工作表1")
  6.   Set shTar = Sheets("工作表2")
  7.   
  8.   shSou.Shapes("Object 1").Copy '拷貝公式物件
  9.   With shTar
  10.     .Paste   ' 貼到工作表2
  11.    
  12.     Set obTar = Selection  ' 取得被貼上的公式物件
  13.     obTar.Left = .[C8].Left ' 設定物件位置貼齊至 C8 儲存格
  14.     obTar.Top = .[C8].Top
  15.   End With
  16. End Sub
複製代碼
作者: c_c_lai    時間: 2012-9-8 09:52

回復 4# luhpro
測試順利，真的非常謝謝您！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)