返回列表 上一主題 發帖

[發問] 請問有無共用Worksheet_Change的方法

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-12 19:16 | 顯示全部帖子

[發問] 請問有無共用Worksheet_Change的方法

在VBA的Sheet1中貼
Private Sub Worksheet_Change(ByVal Target As Range)
.
.
.
End Sub
可達到儲存格變動後運算
但假設有10個Sheet(Sheet1~Sheet10)
能否不需每個Sheet都貼就能達到儲存格變動後運算的功能
收藏 分享
YOYO

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
2#
發表於 2011-8-14 01:01 | 顯示全部帖子
請問是貼在This Workbook嗎?
Private Sub Workbook_SheetChange(ByVal Target As Range)
.
.
End Sub
我還是無法執行
YOYO

TOP

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
3#
發表於 2011-8-14 17:18 | 顯示全部帖子
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
oobird 發表於 2011-8-14 10:16



    請問版大
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
但內容我用的是Cells(i,j)
請問要怎麼修正
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Cells)會錯誤
YOYO

TOP

yanto913

帖子
116 
主題
29 
精華
0 
積分
232 
點名
0  
作業系統
winXp 
軟體版本
office 2003 
閱讀權限
20 
性別
女 
來自
台灣台中市 
註冊時間
2010-9-6 
最後登錄
2023-7-11 
4#
發表於 2011-8-14 19:45 | 顯示全部帖子
回復 6# GBKEE


    已上傳檔案，改Range就可以，但想知道如果要用Cells怎麼解決!!

DATA_Sample_20110809.rar (18.73 KB)

YOYO

TOP

        靜思自在 : 要用心，不要操心、煩心。
返回列表 上一主題