返回列表 上一主題 發帖

[發問] 一邊輸入一邊即時比對

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
1# 跳轉到 »
發表於 2011-8-20 08:57 | 顯示全部帖子
用錯事件了。
  1. Private Sub Worksheet_Change(ByVal Target As Excel.Range)
  2.     If Target.Column <> 5 Then Exit Sub
  3.     If Target.Count > 1 Then Exit Sub
  4.     If Sheets("DATA").[b:b].Find(Target, , , 1) Is Nothing Then
  5.         Application.EnableEvents = False
  6.         Target.Offset(, -3) = "?"
  7.         Target.Offset(, -3).Font.ColorIndex = 3
  8.         Application.EnableEvents = True
  9.     End If
  10. End Sub
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-21 10:17 | 顯示全部帖子
Worksheet_SelectionChange是在點擊儲存格就發生的事件
不適合你在寫入儲存格才要判斷執行任務
所以要 寫在Worksheet_Change事件中。
改過後要清除寫入的問號：
Target.Offset(, -3) = "?"
Target.Offset(, -3).Font.ColorIndex = 3
ELSE
Target.Offset(, -3) = ""
Target.Offset(, -3).Font.ColorIndex = 0  
      Application.EnableEvents = True
    End If
加上紅字部份

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
3#
發表於 2011-8-21 12:52 | 顯示全部帖子
我運行是ok的。你要不要把無法運行的檔案附上來？

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題