GBKEE

If Not Target.Address Like "$A$*" Then Exit Sub '不是在A欄輸入就退出
Hsieh 發表於 2010-6-5 09:01

一樣的效果  If Target.Column <> 1 Then Exit Sub '不是在A欄輸入就退出

GBKEE

    是可以,不過如果有delete就不行了.   是刪除儲存格嗎? 是會有問題
john2006168 發表於 2010-6-5 23:03

是儲存格="" 嗎?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <> 1 Then Exit Sub '不是在A欄輸入就退出
   
3. Application.EnableEvents = False '關閉觸發事件程序
   
4. If Target <> "" Then Target = [D7] & Target
   
5. Application.EnableEvents = True '開啟觸發事件程序
   
6. End Sub

複製代碼

GBKEE

回復 12# john2006168
If Target <> "" Then Target = [D7] & Target
以上程式碼 紅色文字 [儲存格不為空白] 的條件成立時 執行 Target = [D7] & Target