av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-10-22 15:01 | 只看該作者

如何讓總表讀取其他工作表的資料

總表.rar (9.2 KB)

1.如何讓總表讀取其他工作表的資料(答案如附件檔)? (因為其他工作表會不斷新增資料)

2.當1.完成後，是否能在修改總表資料時，其他工作表也會自動同步修改？

以上要辛苦老師，萬分感謝！

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

12^#

發表於 2016-10-25 23:53 | 只看該作者

本帖最後由 av8d 於 2016-10-26 00:16 編輯

發現一個問題，總表A欄和B欄所擷取後的格式會自動靠右，目前需求是希望能靠左，我先寫個巨集先用，希望能知道原因，萬分感謝。

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

11^#

發表於 2016-10-25 23:44 | 只看該作者

回復 10# lpk187

原來是我改錯地方~萬分感謝GBKEE大大和lpk187大大

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

10^#

發表於 2016-10-25 00:45 | 只看該作者

回復 9# av8d

你這裡
If E.Name <> "總表" Then
要改成
If E.Name <> "總表" And E.Name <> "位置圖" Then

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

9^#

發表於 2016-10-25 00:06 | 只看該作者

回復 6# GBKEE

G大，抱歉，再次打擾，

總表.rar (21.96 KB)

他黃色標誌的地方是 .Resize(UBound(E), UBound(E, 2)) = E

再次麻煩G大，萬分感激。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2016-10-24 20:08 | 只看該作者

回復 7# av8d
錯誤是 Chart 沒有 Rows物件,Worksheet 才有Rows物件
With Sheets("總表").Range("A" & Sheets("總表").Rows.Count).End(xlUp).Offset(1)

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

7^#

發表於 2016-10-24 13:26 | 只看該作者

回復 6# GBKEE

謝謝G大，如果我把按鈕放在位置圖，會出現型態不符合的訊息，.Resize...........問題出現在這段。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2016-10-24 04:25 | 只看該作者

回復 5# av8d

If E.Name <> "總表" And E.Name <> "位置圖" Then
'
'
'
Sheets("總表").UsedRange.Columns(1).NumberFormatLocal = "[$-404]e/m/d"

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

5^#

發表於 2016-10-23 19:57 | 只看該作者

回復 2# GBKEE

再請問一下G大，如果我有個工作表("位置圖")不想加入總表當中，是否有辦法，萬分感激。

TOP

lpk187

高中生 Rank: 3 Rank: 3

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

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

4^#

發表於 2016-10-23 15:09 | 只看該作者

回復 3# av8d

Range("A2", [A2].End(xlDown)).NumberFormatLocal = "[$-404]e/m/d"

TOP