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

GBKEE

超級版主 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兔年全勤獎章

11^# 跳轉到 »

發表於 2013-11-11 17:30 | 只看該作者

本帖最後由 GBKEE 於 2013-11-11 17:37 編輯

回復 10# jimmy121212

Sub 按鈕3_Click()
Dim Sh(1 To 4) As Worksheet
'Sheets("活頁簿工作表名稱的字串") ->Sheets("OP-外資+")
Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("OP-外資+") '另一個WORKBOOK
'Sheets( 索引值 [數字第幾個工作表]) 如Sheets(1) ->"OP-外資+"
'Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets(1) '另一個WORKBOOK
Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '資料檔WORKBOOK
Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
End Sub

複製代碼

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

TOP

jimmy121212

小學生 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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

jimmy121212

小學生 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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

jimmy121212

小學生 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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

jimmy121212

小學生 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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

複製代碼

TOP

jimmy121212

小學生 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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]