返回列表 上一主題 發帖

[發問] 請問如何找出重複批號

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
1# 跳轉到 »
發表於 2010-7-7 07:57 | 顯示全部帖子
用条件格式

1.png (19.19 KB)

1.png

学习

TOP

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
2#
發表於 2010-7-7 08:34 | 顯示全部帖子
回復 3# PD961A


    公式中输入=countif(g:g，G13)>1
学习

TOP

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
3#
發表於 2010-7-7 10:01 | 顯示全部帖子
那样的话可以用worksheet的selectionchang作一程序，一变化就自动回复信息，
是否有重复值，并且用颜色去标示。可以作一程序
学习

TOP

wqfzqgk

帖子
75 
主題
19 
精華
0 
積分
135 
點名
0  
作業系統
win7 
軟體版本
2007 010 
閱讀權限
20 
註冊時間
2010-5-18 
最後登錄
2013-10-26 
4#
發表於 2010-7-7 10:59 | 顯示全部帖子
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
roww = Target.Row
If Application.WorksheetFunction.CountIf(Range("g1:g" & roww), Target.Value) <> 1 Then
MsgBox "重複批號"
Target.Interior.ColorIndex = Application.WorksheetFunction.RandBetween(1, 50)
Else
Exit Sub
End If
End If
End Sub
学习

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題