- 帖子
- 65
- 主題
- 0
- 精華
- 0
- 積分
- 120
- 點名
- 0
- 作業系統
- Win 7
- 軟體版本
- Office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-15
- 最後登錄
- 2010-7-16
|
本帖最後由 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儲存格之外只要內容變更均會依 樓主的需求變更內容 |
|
發表於 2010-6-5 02:41
| 
