麻辣家族討論版版 » Excel程式區 » 詢問如何讓每一頁都使用相同的巨集。

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

[發問] 詢問如何讓每一頁都使用相同的巨集。

中學生 Rank: 2

帖子: 119
主題: 39
精華: 0
積分: 164
點名: 0
作業系統: WIN7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-11-1
最後登錄: 2019-2-21

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-5-8 22:49 | 只看該作者

[發問] 詢問如何讓每一頁都使用相同的巨集。

詢問如何讓每一頁都使用相同的巨集。

我只錄製一頁， 2-10頁跟隨第一頁的。

有甚麼辦法?

樓主熱帖

收藏

超級版主 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兔年全勤獎章

3^#

發表於 2013-5-9 07:09 | 只看該作者

本帖最後由 GBKEE 於 2013-5-9 07:11 編輯

回復 1# keovin790916

Option Explicit
[code]'ThisWorkbook(這活頁簿)模組的程式碼
Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'ThisWorkbook(這活頁簿) 改變作用中的工作表的觸動事件
'你錄製的巨集可放這裡
MsgBox Sh.Name
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'ThisWorkbook(這活頁簿) 工作表有修改的觸動事件
'你錄製的巨集可放這裡
MsgBox Sh.Name & " " & Target
End Sub

複製代碼

Private Sub Ex() '可複製於任何模組
'VBA視窗中按 F8 逐行執行此程式看看
Sheets("Sheet1").[a1] = "aaa"
Sheet2.Activate
Sheet2.[a1] = "aaa"
Sheet3.Activate
Sheet3.[a1] = "aaa"
Sheet1.Activate
End Sub

複製代碼

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

小學生 Rank: 1

帖子: 29
主題: 3
精華: 0
積分: 39
點名: 0
作業系統: WINDOWS XP
軟體版本: office 2003
閱讀權限: 10
性別: 男
來自: 台灣
註冊時間: 2012-10-12
最後登錄: 2020-10-15

2^#

發表於 2013-5-9 00:40 | 只看該作者

附上附件...比較清楚你想要的結果

好可愛的寶寶

靜思自在 : 口說好話、心想好意、身行好事。

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