PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-7 07:52 | 只看該作者

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

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

生產計畫表.rar (13.06 KB)

樓主熱帖

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

34^#

發表於 2010-7-12 13:01 | 只看該作者

回復 PD961A
既然不想多一欄輸入公式,而採用VBA,又怕顏色太亂,又要知道哪幾格重複,那就用註解物件儲存如 ...
Hsieh 發表於 2010-7-11 23:12

版主
謝謝您
程式改好了可以適用..

謝謝..

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

33^#

發表於 2010-7-12 08:17 | 只看該作者

正規化資料表

爛表格害人

一小時後銷毀
老夏發表於 2010-7-12 07:58

謝謝夏版主
我會改進的
謝謝您....

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

32^#

發表於 2010-7-11 23:12 | 只看該作者

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, A As Range, d As Object
Set d = CreateObject("Scripting.Dictionary")
If Target.Column <> 7 Then Exit Sub
For Each A In Range("G13:G65536").SpecialCells(xlCellTypeConstants)
If Application.CountIf(Columns("G"), A) > 1 Then
If IsEmpty(d(A.Value)) Then
Set d(A.Value) = A
Else
Set d(A.Value) = Union(d(A.Value), A)
End If
End If
Next
For Each A In Range("G:G").SpecialCells(xlCellTypeConstants)
If Not IsEmpty(d(A.Value)) Then
For Each Rng In d(A.Value)
If Rng.Comment Is Nothing Then
Rng.AddComment.Text Text:=d(A.Value).Address(0, 0)
Else
Rng.Comment.Text Text:=d(A.Value).Address(0, 0)
End If
Next
End If
Next
End Sub

複製代碼

學海無涯_不恥下問

TOP

PD961A

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

31^#

發表於 2010-7-11 19:10 | 只看該作者

回復 29# gong

謝謝GONG版主
資料錯了一位
應改成=COUNTIF($G$13:$G13,$G13)>1
或改為=COUNTIF($G$12:$G12,$G13)>=1
如果從13列開始即包含本身,公式要把>=1,的"="拿掉才會正確顯示
所以這是錯誤點的地方
非常謝謝您...

TOP

gong

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 455
主題: 8
精華: 1
積分: 480
點名: 0
作業系統: WINS home
軟體版本: OFFICE XP
閱讀權限: 100
性別: 男
來自: 平鎮
註冊時間: 2010-5-1
最後登錄: 2015-1-22

論壇貢獻勳章

30^#

發表於 2010-7-11 19:04 | 只看該作者

本帖最後由 gong 於 2010-7-11 19:09 編輯

回復 gong

另外您說修正
如果從13列開始即包含本身,公式要把>=1,的"="拿掉
才會正確顯示
結 ...
PD961A 發表於 2010-7-11 16:16

你的g13格式化條件設
=COUNTIF($G$13:$G53,$G54)>1
這樣的範圍錯了,條件天差地遠當然無法顯示正確值

應該是
=COUNTIF($G$13:$G13,$G13)>1
這樣的意思是從第13列起包含本身如果有1個以上的重覆,則填上條件格式的藍底色
(14列以下的資料在本公式內暫時不計)
你原來的公式範圍不正確,條件位置也不對

知之為知之，不知為不知，誠實也！

TOP

gong