請問版上對change事件很熟的大大 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 請問版上對change事件很熟的大大

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

請問版上對change事件很熟的大大

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

1^# 跳轉到 »

發表於 2013-7-17 22:35 | 顯示全部帖子

回復 10# 藍天麗池
這裡提供另外一個方法來實現 :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Target
If .Row < 50001 Then
Select Case .Column
Case 5 To 7
.Parent.Cells(.Row, 8) = .Offset(0, -1) + .Offset(0, -2)
End Select
End If
End With
Application.EnableEvents = True
End Sub

複製代碼

靜思自在 : 人生沒有所有權，只有生命的使用權。

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