工作表同步增加資料

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2015-2-12 11:15 | 顯示全部帖子

回復 1# leiru

試試看

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

複製代碼

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2015-2-12 14:54 | 顯示全部帖子

本帖最後由 owen06 於 2015-2-12 14:59 編輯

回復 5# leiru

vba又不難，何必要排斥呢？畢竟只靠公式，很難達成這種自動的動作。
先點上面的『複製代碼』，然後在你的檔案裡按alt+F11，跳出vba編輯視窗，然後點『工作表1』2下，貼上代碼，就完成了呀。

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2015-2-14 12:10 | 顯示全部帖子

回復 10# leiru

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

複製代碼

若要增加欄，就再多加： or .column=X 即可
若要改工作表名 Sheets("XXX").Range(tar) = .Value
以上都修改X的部份即可

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2015-2-16 21:04 | 顯示全部帖子

回復 12# leiru

請問調整跟上傳這二個表，是要做怎麼樣的連動呢？可否簡述一下，謝謝~

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2015-2-17 00:20 | 顯示全部帖子

回復 14# leiru

我測試的結果是ok的呀，在『調整』工作表第1115列新增內容，
在『上傳』工作表的第1115列，也就會秀出相對應的東西，
還是你excel的巨集安全性裡，並未開啟『啟用所有巨集』呢？

另外如果你要1到10欄都同步的話，直接改這樣會比較簡潔
If .Row >= 2 And .Column <= 10 Then

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2015-2-17 15:24 | 顯示全部帖子

回復 16# leiru

小如，我看你在調整那個表，第1115列有新增一筆資料，
而上傳的那個表，第1115列，就有同步你新增的那筆資料呀，沒問題呀~

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

7^#

發表於 2015-2-18 11:19 | 顯示全部帖子

回復 18# leiru

你第一個上傳的附檔『統計』裡的第1115列是沒有資料的，
但第二個上傳附檔『統計2』裡的第1115列你有key一筆資料，
而上傳那個表的第1115列也出現了在調整的表裡輸入的東西，
代表你所需要的功能有正確執行無誤呀，因為第二個附檔，
是你在輸入完後儲存上傳的，即然他第1115列有產生東西出來，
即表示功能已經正確執行無誤了不是嗎？

TOP

owen06