返回列表 上一主題 發帖

[發問] 儲存格自動update

本帖最後由 victorl 於 2010-6-5 02:44 編輯

回復 6# john2006168

參考一下
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$7" And InStr(Target.Value, Range("D7").Value) = 0 Then Target.Value = [D7] & Target.Value
End Sub
說明:
1. Target.Address <> "$D$7"      D7儲存格變更不能觸發Worksheet_Change事件
2. InStr(Target.Value, Range("D7").Value) = 0     避免重複觸發Worksheet_Change事件
3. 除D7儲存格之外只要內容變更均會依  樓主的需求變更內容

TOP

回復 10# Hsieh


    感謝  Hsieh大,受教了。

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題