請教如何使用VBA將公式複製到指定欄位內？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請教如何使用VBA將公式複製到指定欄位內？

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

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

1^# 跳轉到 »

發表於 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

高中生 Rank: 3 Rank: 3

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

2^#

發表於 2012-9-8 09:17 | 顯示全部帖子

本帖最後由 luhpro 於 2012-9-8 09:18 編輯

回復 luhpro
非常感激您的回覆！
我是以 "工作表1" 的各個公式圖示作為母表，保持不動 (母單)，
而將它 ...
c_c_lai 發表於 2012-9-8 08:39

Sub nn()
Dim shSou, shTar
Dim obTar As Object
Set shSou = Sheets("工作表1")
Set shTar = Sheets("工作表2")
shSou.Shapes("Object 1").Copy '拷貝公式物件
With shTar
.Paste ' 貼到工作表2
Set obTar = Selection ' 取得被貼上的公式物件
obTar.Left = .[C8].Left ' 設定物件位置貼齊至 C8 儲存格
obTar.Top = .[C8].Top
End With
End Sub

複製代碼

靜思自在 : 君子如水，隨方就圓，無處不自在。

返回列表下一主題上一主題