EXCEL自動新增資料

mikokuo

帖子: 2
主題: 0
精華: 0
積分: 9
點名: 0
作業系統: XP
軟體版本: office2003
閱讀權限: 10
性別: 女
註冊時間: 2012-10-30
最後登錄: 2017-4-10

9^#

發表於 2015-4-29 07:26 | 只看該作者

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

帖子: 9
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 10
註冊時間: 2015-4-23
最後登錄: 2015-4-27

8^#

發表於 2015-4-27 11:08 | 只看該作者

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

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2015-4-26 23:20 | 只看該作者

回復 5# change103

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

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

koo

中學生 Rank: 2

帖子: 60
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: w7-32
軟體版本: 2013.2003
閱讀權限: 20
註冊時間: 2014-11-23
最後登錄: 2016-6-6

6^#

發表於 2015-4-26 06:20 | 只看該作者

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
cx = Sheets(2).[B65536].End(xlUp).Row
If Sheets(2).Cells(1, 2) = Empty Then
cx = 1
Else
cx = cx + 1
End If
Sheets(2).Cells(cx, 2) = Cells(1, 1)
Cells(1, 1).Select
End If
End Sub

複製代碼

帖子: 9
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 10
註冊時間: 2015-4-23
最後登錄: 2015-4-27

5^#

發表於 2015-4-24 11:24 | 只看該作者

回復 3# rouber590324

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

帖子: 9
主題: 3
精華: 0
積分: 13
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 10
註冊時間: 2015-4-23
最後登錄: 2015-4-27

4^#

發表於 2015-4-23 17:38 | 只看該作者

回復 2# rouber590324

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

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 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

羅