麻辣家族討論版版 » Excel程式區 » VBA問題請問如何利用VBA讓資料每次執行後自動貼上到最後一格

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

VBA問題請問如何利用VBA讓資料每次執行後自動貼上到最後一格

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-11-4 13:06 | 只看該作者

VBA問題請問如何利用VBA讓資料每次執行後自動貼上到最後一格

各位大大好
請問若想要把附件的SHEET3裡面的B31:H31
與B33:H33
當執行巨集時會自動貼到SHEET1的B2:G2
與SHEET2的B:G2
並且每次執行都繪貼到下一格呢??
若能解答不勝感激

範本.rar (22.84 KB)

樓主熱帖

收藏

mony

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

20^#

發表於 2013-11-13 11:00 | 只看該作者

回復 19# owen06

OWEN大大
感謝您這樣我知道我哪裡打錯了

mony

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2022-7-26

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

19^#

發表於 2013-11-13 10:51 | 只看該作者

回復 12# jimmy121212

內容改成這樣子可以嗎？

Dim Sh(1 To 4) As Worksheet
Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("總未平覽表") '
Set Sh(4) = Workbooks("a外資及自營-1.xlsm").Sheets("每日概算表")
Sh(1).[e65536].End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sh(4).[b37:e37].Value
Sh(1).[r65536].End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sh(4).[b38:e38].Value

複製代碼

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

18^#

發表於 2013-11-13 10:43 | 只看該作者

回復 17# GBKEE

謝謝

mony

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

17^#

發表於 2013-11-13 10:34 | 只看該作者

回復 16# jimmy121212

可以請求您直接寫出一個可執行的給我參考比對嗎？拜託了

不知所以然,給你檔案是多餘的,多看看(VBA的說明)會進步的.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

16^#

發表於 2013-11-13 10:15 | 只看該作者

回復 15# GBKEE

喔對是04. Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("OP-外資+") '另一個WORKBOOK
超出引索

mony

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

15^#

發表於 2013-11-13 09:27 | 只看該作者

本帖最後由 GBKEE 於 2013-11-13 09:30 編輯

回復 14# jimmy121212
請看第3行有這 ' 符號VBA不會執行的,第5,6也有這註解(程式中的說明)文字的符號

'Sheets("活頁簿工作表名稱的字串") ->Sheets("OP-外資+")

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

14^#

發表於 2013-11-13 09:18 | 只看該作者

回復 13# GBKEE

抱歉是第三行 03 .Sheets("活頁簿工作表名稱的字串") ->Sheets("OP-外資+")

mony

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

13^#

發表於 2013-11-13 06:58 | 只看該作者

回復 12# jimmy121212
第二行偵錯範圍超出引索 : 就是找不到指定的WorkBooks或是Sheets名稱
檢查一下WorkBooks("名稱")有開啟嗎?? ,Sheets("名稱")是這WorkBooks("名稱")的工作表嗎??

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

小學生 Rank: 1

帖子: 20
主題: 5
精華: 0
積分: 31
點名: 0
作業系統: xp
軟體版本: na
閱讀權限: 10
性別: 男
註冊時間: 2010-10-25
最後登錄: 2014-6-3

論壇贊助勳章

12^#

發表於 2013-11-12 23:26 | 只看該作者

回復 11# GBKEE

謝謝GBKEE大大
但第二行偵錯範圍超出引索，實在抓不到頭緒
可以請求您直接寫出一個可執行的給我參考比對嗎？拜託了
另外我是要我要將"外資及其自營"檔案中*每日概算表*裏的(B37:E37)與(B38:E38)自動複製到檔案*歷史未平倉的(E:H)與(R:U)

mony

靜思自在 : 不要小看自己，因為人有無限的可能。

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