12
返回列表 上一主題 發帖

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

GBKEE

帖子
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
  1. Sub 按鈕3_Click()
  2.     Dim Sh(1 To 4) As Worksheet
  3.     'Sheets("活頁簿工作表名稱的 字串")   ->Sheets("OP-外資+")
  4.     Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("OP-外資+") '另一個WORKBOOK
  5.     'Sheets( 索引值  [數字   第幾個工作表])   如Sheets(1)  ->"OP-外資+"
  6.     'Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets(1) '另一個WORKBOOK
  7.     Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '資料檔WORKBOOK
  8.     Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

jimmy121212

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
19#
發表於 2013-11-13 10:51 | 只看該作者
回復 12# jimmy121212

內容改成這樣子可以嗎？
  1. Dim Sh(1 To 4) As Worksheet
  2.     Set Sh(1) = Workbooks("c曆史未平倉.xlsx").Sheets("總未平覽表") '
  3.     Set Sh(4) = Workbooks("a外資及自營-1.xlsm").Sheets("每日概算表")
  4.     Sh(1).[e65536].End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sh(4).[b37:e37].Value
  5.     Sh(1).[r65536].End(xlUp).Offset(1, 0).Resize(1, 4).Value = Sh(4).[b38:e38].Value
複製代碼

TOP

jimmy121212

帖子
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

        靜思自在 : 忘功不忘過，忘怨不忘恩。
12
返回列表 上一主題