j88141

回復 9# Hsieh


   呼~試了很久  終於試出來了
原來 [忽略空白]需要取消勾選 不然做不出來

我還可以問一下嗎
因為我現在原本的儲存格已經有資料驗證了(有下拉式選單)
好像不能再用資料驗證了
有什麼方法讓兩個同時存在嗎?
謝謝~

yen956

回復 6# j88141
你的意思是不是這個?


如果是, 可試試看：

1. '未決解前後空白的問題
   
2. '例如: "台北"、" 台北"、"台北 " 會視為不同的名詞, 不知如何解決
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     '////////////
   
5.     Dim myRange As Range, str1 As String
   
6.     Set myRange = Worksheets(1).Range("A1:H10")
   
7.    
   
8.     If Not Intersect(Target, myRange) Is Nothing Then
   
9.         Range("I1") = Target
   
10.         If Target <> "" Then
    
11.             Range("I2") = "=COUNTIF(A1:H10,I1)"
    
12.             If Range("I2") >= 4 Then
    
13.                 MsgBox Target & "已經輸入" & Range("I2") & "次了。", vbExclamation
    
14.             End If
    
15.         Else
    
16.             Range("I1") = ""
    
17.             Range("I2") = ""
    
18.         End If
    
19.     End If
    
20.     '///////////////
    
21. End Sub
    
22. 
    
23. '可將兩行 '////////// 之間的 VBA 剪下, 貼到下面, 效果不同, 試試看
    
24. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
25. End Sub

複製代碼

j88141

回復 12# yen956


    謝謝囉~
這是我想要的
:)