工作表同步增加資料

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

11^# 跳轉到 »

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

leiru

高中生 Rank: 3 Rank: 3

帖子: 335
主題: 140
精華: 0
積分: 623
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2025-5-18

12^#

發表於 2015-2-14 19:22 | 只看該作者

回復 11# owen06

謝謝owen06耐心指導,照步驟操作,仍做不出來,再麻煩指導....
感謝

統計.rar (85.65 KB)

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

13^#

發表於 2015-2-16 21:04 | 只看該作者

回復 12# leiru

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

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 335
主題: 140
精華: 0
積分: 623
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2025-5-18

14^#

發表於 2015-2-16 22:51 | 只看該作者

回復 13# owen06

上傳工作表要抓取調整工作表的對應欄位,例如:上傳的a欄抓調整的a欄,以此類推....
上傳工作表的資料是要自動產生,也就是第11篇的vba,只是改工作表名稱及增加欄位,套此公式,寫不出來,想請問大師哪裡出錯..

謝謝您

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

15^#

發表於 2015-2-17 00:20 | 只看該作者

回復 14# leiru

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

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

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 335
主題: 140
精華: 0
積分: 623
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2025-5-18

16^#

發表於 2015-2-17 12:03 | 只看該作者

回復 15# owen06

選取 [開發人員] 核取方塊及勾選"啟用所有巨集 (不建議使用；會執行有潛在危險的程式碼)"
仍然不能帶出來資料,可以麻煩看是哪裡有問題.

統計2.zip (85.44 KB)

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

17^#

發表於 2015-2-17 15:24 | 只看該作者

回復 16# leiru

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

TOP

leiru

高中生 Rank: 3 Rank: 3

帖子: 335
主題: 140
精華: 0
積分: 623
點名: 0
作業系統: WINDOWSXP
軟體版本: OFFICE2003
閱讀權限: 50
性別: 女
來自: 台北縣
註冊時間: 2010-8-5
最後登錄: 2025-5-18

18^#

發表於 2015-2-17 17:01 | 只看該作者

回復 17# owen06

我這裡電腦開啟這檔案,上傳檔案就一直無法帶出來資料,真不知哪裡出問題

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

19^#

發表於 2015-2-18 11:19 | 只看該作者

回復 18# leiru

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

TOP

oshi

小學生 Rank: 1

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

20^#

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]