返回列表 上一主題 發帖

[發問] 請教如何使用VBA將公式複製到指定欄位內？

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-9-7 09:02 | 只看該作者

[發問] 請教如何使用VBA將公式複製到指定欄位內？

請教如何使用VBA將工作表1內的五個公式分別複製到工作表2
之任一指定欄位內？
謝謝各位先進指導！
公式.rar (12.64 KB)
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-9-8 08:39 | 只看該作者
回復 2# luhpro
非常感激您的回覆！
我是以 "工作表1" 的各個公式圖示作為母表，保持不動 (母單)，
而將它其內的各個公式圖示逐一複製到其它的有關之 "工作表2"、
"工作表3"、"工作表4" 內等等 (而非在 "母表" ("工作表1") 中移位)。
不知可否再次賜教？

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
4#
發表於 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
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-9-8 09:52 | 只看該作者
回復 4# luhpro
測試順利，真的非常謝謝您！

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題