VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
VBA問題 請問如何利用VBA讓資料每次執行後自動貼上到最後一格
各位大大好
請問若想要把附件的SHEET3裡面的B31:H31
與B33:H33
當執行巨集時會自動貼到SHEET1的B2:G2
與SHEET2的B:G2
並且每次執行都繪貼到下一格呢??
若能解答不勝感激 |
-
-
範本.rar
(22.84 KB)
|
|
mony
|
|
|
|
|
- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2024-8-23
  
|
2#
發表於 2013-11-4 13:57
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
3#
發表於 2013-11-4 20:26
| 只看該作者
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
4#
發表於 2013-11-4 20:55
| 只看該作者
回復 2# owen06
不好意思 請問I=2跟X=2的用意是
初學者請大大指導 謝謝 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
5#
發表於 2013-11-4 23:08
| 只看該作者
回復 4# jimmy121212
想再請問大大 如附件 與先前一樣還要再加上A36:M36貼到SHEET4要怎麼寫呢 試了好幾次都失敗 懇請大大幫忙 謝謝 |
|
|
mony
|
|
|
|
|
- 帖子
- 396
- 主題
- 12
- 精華
- 0
- 積分
- 425
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2013-7-2
- 最後登錄
- 2024-8-23
|
6#
發表於 2013-11-5 08:17
| 只看該作者
回復 5# jimmy121212
不好意思，昨天那樣寫的太笨了，換成這樣會比較方便。
另外你問程式裡的I跟X是什麼意思，其實沒什麼特別意思，個人習慣而已，
要設什麼都隨個人喜好，不要衝突到就好。
簡單的說，FOR …... NEXT，是一迴圈的方式，
FOR X = 1 TO 10
CELLS(X ,3)=10
NEXT
你用F8下去逐步執行，就會發現(1,3), (2,3)一直到(10,3)的儲存格都逐個變成10，
這就是迴圈，但是因為你有限定到10，所以他不會在(11,3)執行指令。
而我設的 For X = 2 To Application.CountA(Sheet2.[A:A]) + 1
他就可以用公式去計算出範圍，讓X的最大值成為一個變數，
你可以在即時運算視窗輸入『?Application.CountA(Sheet1.[A:A]) + 1』
去看看每次有新增資料時，他算出來的答案是不是有所不同。
不過早上想想這個方法挺呆的，你用附檔的這個語法簡單明暸多了。
以上都是本版上面的大大教的，來這真的會獲益良多哦~ |
|
|
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
7#
發表於 2013-11-5 09:31
| 只看該作者
|
原來是這樣啊 再次感謝owen06 大大 這裡高手多且熱心 難怪受益良多 |
|
|
mony
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
8#
發表於 2013-11-9 21:48
| 只看該作者
回復 6# owen06
想再請教 如果要將資料貼到另一個WORKBOOK要怎樣寫呢??不好意思 我沒有基礎 試了好久都不行 希望您可以教教我
感恩 |
|
|
mony
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
     
|
9#
發表於 2013-11-10 10:21
| 只看該作者
回復 8# jimmy121212 - Private Sub CommandButton1_Click()
- Dim Sh(1 To 4) As Worksheet
- Set Sh(1) = Workbooks("a.xls").Sheets("Sheet1") '另一個WORKBOOK
- Set Sh(2) = Workbooks("a.xls").Sheets("Sheet2") '另一個WORKBOOK
- Set Sh(3) = Workbooks("a.xls").Sheets("Sheet4") '另一個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
- Sh(2).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B33:H33].Columns.Count) = Sh(4).[B33:H33].Value
- Sh(3).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[a36:m36].Columns.Count) = Sh(4).[a36:m36].Value
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 20
- 主題
- 5
- 精華
- 0
- 積分
- 31
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- na
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-10-25
- 最後登錄
- 2014-6-3
|
10#
發表於 2013-11-11 17:00
| 只看該作者
本帖最後由 jimmy121212 於 2013-11-11 17:03 編輯
[attach]16665[/attach]回復 9# GBKEE
GBKEE大大 小弟試過多次 還是錯誤 小弟厚顏的想請問:dizzy: 不知您可否幫我寫上 我再慢慢對照學習
我要將"外資及其自營"檔案中*每日概算表*裏的(B37:E37)與(B38:E38)自動複製到檔案*歷史未平倉的(E:H)與(R:U)
感謝 |
-
-
a外資及自營-1.rar
(550.97 KB)
-
-
c曆史未平倉.rar
(308.11 KB)
|
|
mony
|
|
|
|
|
