VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格
- 帖子
- 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
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
13#
發表於 2013-11-13 06:58
| 只看該作者
回復 12# jimmy121212
第二行偵錯範圍超出引索 : 就是找不到指定的WorkBooks或是Sheets名稱
檢查一下WorkBooks("名稱")有開啟嗎?? ,Sheets("名稱")是這WorkBooks("名稱")的工作表嗎?? |
|
|
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
15#
發表於 2013-11-13 09:27
| 只看該作者
本帖最後由 GBKEE 於 2013-11-13 09:30 編輯
回復 14# jimmy121212
請看第3行 有這 ' 符號VBA不會執行的,第5,6也有這註解(程式中的說明)文字的符號
'Sheets("活頁簿工作表名稱的 字串") ->Sheets("OP-外資+") |
|
|
|
|
|
|
|
- 帖子
- 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
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
17#
發表於 2013-11-13 10:34
| 只看該作者
回復 16# jimmy121212
可以請求您直接寫出一個可執行的給我參考比對嗎？拜託了 |
|
|
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
18#
發表於 2013-11-13 10:43
| 只看該作者
|
|
mony
|
|
|
|
|
- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2024-8-23
|
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
|
|
|
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
20#
發表於 2013-11-13 11:00
| 只看該作者
回復 19# owen06
OWEN大大
感謝您 這樣我知道我哪裡打錯了 |
|
|
mony
|
|
|
|
|
