工作表同步增加資料

oshi

小學生 Rank: 1

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

24^# 跳轉到 »

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

好像不能整個欄位複製貼上，我如果只複製有資料的欄位就不會報error
如果我是直接點選excel上面的欄位直接點複製就會報錯

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

23^#

發表於 2015-2-24 09:20 | 只看該作者

回復 22# oshi

能否附個檔案上來，以便了解問題所在。

TOP

oshi

小學生 Rank: 1

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

22^#

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

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

21^#

發表於 2015-2-23 14:46 | 只看該作者

回復 20# oshi

你可以使用offset
Sheets("sheet2").Range(tar).offset(0,2) = .Value

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

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

19^#

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

回復 18# leiru

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

TOP

leiru

高中生 Rank: 3 Rank: 3

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

18^#

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

回復 17# owen06

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

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

17^#

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

回復 16# leiru

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

TOP

leiru

高中生 Rank: 3 Rank: 3

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

16^#

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

回復 15# owen06

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

統計2.zip (85.44 KB)

joyce

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

15^#

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

回復 14# leiru

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

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

TOP

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

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