1234
返回列表 上一主題 發帖

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

PD961A

帖子
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

帖子
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

帖子
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

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
32#
發表於 2010-7-11 23:12 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

PD961A

帖子
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

帖子
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

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

論壇貢獻勳章
29#
發表於 2010-7-11 18:58 | 只看該作者
回復 27# PD961A


    g13的格式化條件
=COUNTIF($G$13:$G13,$G14)>=1
資料錯了一位
應改成
=COUNTIF($G$13:$G13,$G13)>1
或改為
=COUNTIF($G$12:$G12,$G13)>=1

gong.rar (41.36 KB)

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

TOP

PD961A

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

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
28#
發表於 2010-7-11 16:16 | 只看該作者
本帖最後由 PD961A 於 2010-7-11 16:18 編輯

回復 26# gong


    另外您說修正
  如果從13列開始即包含本身,公式要把>=1,的"="拿掉
才會正確顯示
結果設定後是不會變色...步驟哪裡有問題?
感謝您....



gong-2.rar (22.42 KB)



另外謝謝您o13
=if(countif($g$13:$g13,$g13)=1,"","重覆") 的公式..謝謝

TOP

PD961A

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

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
27#
發表於 2010-7-11 16:13 | 只看該作者
回復 25# gong


    謝謝GONG版主
檔案設定格式是一樣的(沒有另外手動設定)
但是代出的值就是怪怪的
1.gif

gong-1.rar (22.51 KB)

謝謝您

TOP

gong

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

論壇貢獻勳章
26#
發表於 2010-7-11 12:52 | 只看該作者
本帖最後由 gong 於 2010-7-11 12:57 編輯
最後另外試
   3.正在試另一種加欄位(既然都要加欄位的話)用公式顯示"重複批號"在儲存格中直接顯示



...
PD961A 發表於 2010-7-11 10:35


o13
=if(countif($g$13:$g13,$g13)=1,"","重覆")
知之為知之，不知為不知，誠實也！

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
1234
返回列表 上一主題