標題: EXCEL自動新增資料 [打印本頁]

---

作者: change103    時間: 2015-4-23 10:57     標題: EXCEL自動新增資料

我希望在工作頁1的a1輸入資料，在工作頁2的b1紀錄起來，
之後，在a1輸入新資料時，工作頁2的b1資料紀錄不變，
而是自動往下更新一行變成b2，以此類推

---

作者: change103    時間: 2015-4-23 15:46     標題: EXCEL自動新增資料

想請教一下，
我希望在工作頁1的a1輸入資料，在工作頁2的b1紀錄起來，
之後，在a1輸入新資料時，工作頁2的b1資料紀錄不變，
而是自動往下更新一行變成b2，以此類推

感謝!!

---

作者: rouber590324    時間: 2015-4-23 16:21

DEAR SIR
1 如下於 SHEET1 加入即可.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheet2.[A65536].End(xlUp).Offset(1, 0) = [A1]
[A1].Select
Application.EnableEvents = True
End If
End Sub

---

作者: change103    時間: 2015-4-23 17:38

回復 2# rouber590324

感謝回答!!
但小弟對VBA其實還沒有很了解(還在摸索並尋找各式資料參考)!
是否能提供範本參考呢

---

作者: change103    時間: 2015-4-24 11:24

回復 3# rouber590324


  您好!!
想請問一下，因為想知道此VBA是怎麼運作，
就直接開新檔下去跑，但是一直在這行If Target.Address = "$A$1" Then出現"424，沒有物件的錯誤"
我該怎麼排除這類錯誤呢?

---

作者: koo    時間: 2015-4-26 06:20

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then
   
3.     cx = Sheets(2).[B65536].End(xlUp).Row
   
4.         If Sheets(2).Cells(1, 2) = Empty Then
   
5.             cx = 1
   
6.         Else
   
7.             cx = cx + 1
   
8.         End If
   
9.     Sheets(2).Cells(cx, 2) = Cells(1, 1)
   
10.     Cells(1, 1).Select
    
11. End If
    
12. End Sub

複製代碼

---

作者: lpk187    時間: 2015-4-26 23:20

回復 5# change103


    rouber590324 大大的程式是屬於工作表事件程式必須要放在工作表1的程式中，不是放在模組(Module1)中
[attach]20804[/attach]

If Target.Address = "$A$1" Then出現"424，沒有物件的錯誤"
上面這個錯誤就是有可能你是放在模組(Module1)中而讓(ByVal Target As Range)中的 Target不能是Range物件

---

作者: change103    時間: 2015-4-27 11:08

回復 7# lpk187
感謝以上幾位熱心幫忙解說!!
我再試試看!!

---

作者: mikokuo    時間: 2015-4-29 07:26

這個問題困擾很久
謝謝各位大大

---

作者: gn001038600    時間: 2015-4-29 09:51

如果您寫在This workbook下 打開檔案的時候程式就會執行嚕(如下圖)
[attach]20821[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)