EXCEL自動新增資料

change103

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

change103

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

感謝!!

rouber590324

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

回復 2# rouber590324

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

change103

回復 3# rouber590324


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

koo

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

回復 5# change103


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

下載 (48.79 KB)

2015-4-26 23:19

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

change103

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

mikokuo

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

gn001038600

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

下載 (140.98 KB)

2015-4-29 09:50