返回列表 上一主題 發帖

[發問] 請教:利用自訂表單貼上設定好的公式

minture3

帖子
50 
主題
8 
精華
0 
積分
54 
點名
0  
作業系統
windows7 
軟體版本
EXCEL 2007 
閱讀權限
20 
性別
男 
註冊時間
2015-3-24 
最後登錄
2015-7-13 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-4-14 12:17 | 只看該作者

[發問] 請教:利用自訂表單貼上設定好的公式

本帖最後由 minture3 於 2015-4-14 12:18 編輯

請教各位
小弟想要利用自訂的表單如下圖
點選方案一後

就像這樣幫我把在另外一個EXCEL檔案中的方案一計算公式複製過來並貼上我目前所在位置的儲存格

請教各位程式碼應該怎麼寫?
以下是小弟參考錄製巨集的方式修改的
但是執行後會有問題
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
收藏 分享

minture3

帖子
50 
主題
8 
精華
0 
積分
54 
點名
0  
作業系統
windows7 
軟體版本
EXCEL 2007 
閱讀權限
20 
性別
男 
註冊時間
2015-3-24 
最後登錄
2015-7-13 
5#
發表於 2015-4-16 18:35 | 只看該作者
回復 4# PKKO


    感謝!! 測試過是我要的  我在自己修正一下!!

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2015-4-16 12:16 | 只看該作者
回復 3# minture3

試試看
    Location = Selection.Row
    Workbooks("方案公式.xls").Sheets("sheet1").Rows("5:15").Copy Workbooks("目的檔案(工作簿)名").Sheets("sheet1").Rows(Location)
PKKO

TOP

minture3

帖子
50 
主題
8 
精華
0 
積分
54 
點名
0  
作業系統
windows7 
軟體版本
EXCEL 2007 
閱讀權限
20 
性別
男 
註冊時間
2015-3-24 
最後登錄
2015-7-13 
3#
發表於 2015-4-16 08:50 | 只看該作者
本帖最後由 minture3 於 2015-4-16 08:52 編輯

回復 2# luhpro

感謝回覆
但是我希望的是彈出自訂表單後
選中儲存格中的某一格 點選自訂表單上面的方案一(or方案二)
就直接把另外一章工作表中的方案一(or方案二)的公式貼上

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
1  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2015-4-14 22:24 | 只看該作者
請教各位
小弟想要利用自訂的表單如下圖
點選方案一後

就像這樣幫我把在另外一個EXCEL檔案中的方案一計 ...
minture3 發表於 2015-4-14 12:17

試試

Workbooks("方案公式.xls").Sheets("sheet1").Rows("5:15").Copy Workbooks("目的檔案(工作簿)名").Sheets("sheet1").[A1]

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題