標題:
[發問]
請教:利用自訂表單貼上設定好的公式
[打印本頁]
作者:
minture3
時間:
2015-4-14 12:17
標題:
請教:利用自訂表單貼上設定好的公式
本帖最後由 minture3 於 2015-4-14 12:18 編輯
請教各位
小弟想要利用自訂的表單如下圖
點選方案一後
[attach]20639[/attach]
就像這樣幫我把在另外一個EXCEL檔案中的方案一計算公式複製過來並貼上我目前所在位置的儲存格
[attach]20640[/attach]
請教各位程式碼應該怎麼寫?
以下是小弟參考錄製巨集的方式修改的
但是執行後會有問題
userform1.show 0
Windows("方案公式.xls").Activate
Sheets("sheet1").Rows("5:15").Select
Application.CutCopyMode = False
Selection.Copy
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.Paste
作者:
luhpro
時間:
2015-4-14 22:24
請教各位
小弟想要利用自訂的表單如下圖
點選方案一後
就像這樣幫我把在另外一個EXCEL檔案中的方案一計 ...
minture3 發表於 2015-4-14 12:17
試試
Workbooks("方案公式.xls").Sheets("sheet1").Rows("5:15").Copy Workbooks("目的檔案(工作簿)名").Sheets("sheet1").[A1]
作者:
minture3
時間:
2015-4-16 08:50
本帖最後由 minture3 於 2015-4-16 08:52 編輯
回復
2#
luhpro
感謝回覆
但是我希望的是彈出自訂表單後
選中儲存格中的某一格 點選自訂表單上面的方案一(or方案二)
就直接把另外一章工作表中的方案一(or方案二)的公式貼上
作者:
PKKO
時間:
2015-4-16 12:16
回復
3#
minture3
試試看
Location = Selection.Row
Workbooks("方案公式.xls").Sheets("sheet1").Rows("5:15").Copy Workbooks("目的檔案(工作簿)名").Sheets("sheet1").Rows(Location)
作者:
minture3
時間:
2015-4-16 18:35
回復
4#
PKKO
感謝!! 測試過是我要的 我在自己修正一下!!
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
