Hsieh

回復 9# PD961A
要使用公式必需在新增一欄使用
不用格式條件顯示
那用驗證避免輸入重複看能否接受

Hsieh

回復 13# PD961A
在原來的欄位

    複本 生產計畫表.rar (14.86 KB)

下載次數: 9

2010-7-7 13:28

Hsieh

回復 15# PD961A


    我用x定義名稱
妳原本驗證的清單來源被刪公式錯誤
我是用代表妳的清單來源
只是這樣一來妳就沒有下拉清單可用
還有若用vba解決妳的程式碼放錯位置了
要在工作表模組下不是在一般模組

Hsieh

回復 17# PD961A

所以你是想用vba?
    複本 生產計畫表.rar (16.6 KB)

下載次數: 4

2010-7-8 09:30

Hsieh

selectionchange
選取位置改變時觸發的程序
change
是儲存格內容(值)改變時觸發的程序

Hsieh

回復 22# PD961A
既然不想多一欄輸入公式,而採用VBA,又怕顏色太亂,又要知道哪幾格重複,那就用註解物件儲存如何?

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Rng As Range, A As Range, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. If Target.Column <> 7 Then Exit Sub
   
5. For Each A In Range("G13:G65536").SpecialCells(xlCellTypeConstants)
   
6. If Application.CountIf(Columns("G"), A) > 1 Then
   
7.   If IsEmpty(d(A.Value)) Then
   
8.      Set d(A.Value) = A
   
9.   Else
   
10.      Set d(A.Value) = Union(d(A.Value), A)
    
11.   End If
    
12. End If
    
13. Next
    
14. For Each A In Range("G:G").SpecialCells(xlCellTypeConstants)
    
15.    If Not IsEmpty(d(A.Value)) Then
    
16.       For Each Rng In d(A.Value)
    
17.          If Rng.Comment Is Nothing Then
    
18.             Rng.AddComment.Text Text:=d(A.Value).Address(0, 0)
    
19.             Else
    
20.             Rng.Comment.Text Text:=d(A.Value).Address(0, 0)
    
21.          End If
    
22.       Next
    
23.     End If
    
24. Next
    
25. End Sub

複製代碼