返回列表 上一主題 發帖

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

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

請問各位先進
請問要在G欄找出重複批號
公式如何寫?
謝謝...



生產計畫表.rar (13.06 KB)

用条件格式

1.png (19.19 KB)

1.png

学习

TOP

回復 2# wqfzqgk


    不好意思謝謝您
可是我的2003沒有"重複"這個格式可以選

TOP

回復 3# PD961A


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

TOP

回復 4# wqfzqgk


    謝謝您
可以再請問您
您這個公式輸入後可以找到1個重複的
請問可以有公式是只要重複的批號都顯示嗎?
1.jpg
謝謝您..

TOP

g13
格式化條件=COUNTIF($G$13:$G13,$G14)>=1

gong.rar (22.17 KB)

知之為知之,不知為不知,誠實也!

TOP

回復 6# gong


    謝謝先進wqfzqgk及版主的回文
不好意思
可以請問
自訂格式內容是以文字顏色及圖案顏色顯示去區分批號重複的地方
可以讓它格式內容不是以顏色去得知重複批號
而是顯示"重複批號"嗎?
(本身格式已經需要顏色去區分移動順序..再增加重複批號的顏色會很雜亂..)
感謝您....

TOP

那样的话可以用worksheet的selectionchang作一程序,一变化就自动回复信息,
是否有重复值,并且用颜色去标示。可以作一程序
学习

TOP

回復 8# wqfzqgk

謝謝您....可以請問要如何寫公式?
    可以讓它格式內容不是以顏色去得知重複批號
     而是顯示"重複批號"嗎?

    感謝您....

TOP

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

        靜思自在 : 口說一句好話,如口出蓮花;口說一句壞話如口吐毒蛇。
返回列表 上一主題