工作表同步增加資料

返回列表下一主題上一主題發帖

oshi

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2015-2-4
最後登錄: 2015-2-26

1^# 跳轉到 »

發表於 2015-2-22 13:56 | 顯示全部帖子

回復 11# owen06

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row >= 2 And .Column = 1 Or .Column = 2 Then
tar = .Address(0, 0)
Sheets("sheet2").Range(tar) = .Value
End If
End With
End Sub

複製代碼

請問一下如果我想要讓他可以Shift到指定欄位才貼上要怎麼修改呢?
目前都是sheet1(A2)->sheet2(A2)

如果我想要貼到sheet2(C2) 要怎麼修改?
我改變address 裡面的值好像也沒什麼用QQ

TOP

oshi

小學生 Rank: 1

帖子: 13
主題: 1
精華: 0
積分: 21
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
註冊時間: 2015-2-4
最後登錄: 2015-2-26

2^#

發表於 2015-2-24 00:22 | 顯示全部帖子

回復 21# owen06

owen大~

我又遇到一個問題是~
我有兩個工作表(A,B)都想要同步增加資料到工作表C

當只有一個工作表的時候，都可以正常同步增加資料
可是如果我把同一組代碼貼在A,B工作表內之後，同步資料就會跳出" Run time error '1004' "
如附圖

請問要怎麼解決這個問題呢?

Image 001-1424708209.png (4.6 KB)

error

Image 001-1424708209.png