麻辣家族討論版版 » Excelㄧ般區 » vba 兩工作表間多個連結

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

vba 兩工作表間多個連結

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-8-4 15:28 | 只看該作者

vba 兩工作表間多個連結

假設有工作表a與工作表b
工作表b內有多個不連續的儲存格資料需要連結至工作表a相對應的欄位
我用最笨的方式錄製巨集
例如
工作表b的B5儲存格=a!B5
工作表b的C9儲存格=a!C9
藉此方式錄製巨集

若需要連結的儲存格有很多且大多不連續
這樣錄製巨集很費時又費力
請問有沒有什麼辦法可以試試

謝謝

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2015-8-4 16:24 | 只看該作者

本帖最後由 lpk187 於 2015-8-4 16:32 編輯

回復 1# t591nm

可以的話請上傳檔案，比較容易理解你的需求
下列程式只是個範例，是B工作表作所有的不連續連結
若有範圍可修改Cells為Range("??:??")

Public Sub Ex()
For Each Rng In Sheets("A").Cells.SpecialCells(xlCellTypeConstants)
Sheets("B").Range(Rng.Address) = "=A!" & Rng.Address
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

3^#

發表於 2015-8-4 16:27 | 只看該作者

有規則或有對應的名稱就可以
都沒有就只能慢慢 key in

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

4^#

發表於 2015-8-4 17:10 | 只看該作者

大概這樣
如果要連結好多儲存格就得一個一個按
有沒有更快速的方式呢
謝謝

test4.rar (1.84 KB)

高中生 Rank: 3 Rank: 3

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

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

5^#

發表於 2015-8-4 17:36 | 只看該作者

本帖最後由 lpk187 於 2015-8-4 17:37 編輯

回復 5# t591nm

看了你的檔案，你也太沒規則了吧！連條件都沒有怎連？
總要知誰是誰的吧！

中學生 Rank: 2

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

6^#

發表於 2015-8-5 08:47 | 只看該作者

回復 6# lpk187

test4.rar (5.67 KB)

謝謝提醒
已略為更新

其實哪個儲存格要放什麼資料也都是看去年的舊資料的
雖然每份舊資料都放一樣的

靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。

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