請問如何找出重複批號 - Excelㄧ般區

帖子: 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兔年全勤獎章

2^#

發表於 2010-7-7 13:29 | 顯示全部帖子

回復 13# PD961A
在原來的欄位

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

學海無涯_不恥下問

帖子: 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兔年全勤獎章

3^#

發表於 2010-7-7 14:03 | 顯示全部帖子

回復 15# PD961A

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

學海無涯_不恥下問

帖子: 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兔年全勤獎章

4^#

發表於 2010-7-8 09:30 | 顯示全部帖子

回復 17# PD961A

所以你是想用vba?

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

學海無涯_不恥下問

帖子: 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兔年全勤獎章

5^#

發表於 2010-7-8 10:12 | 顯示全部帖子

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

學海無涯_不恥下問

帖子: 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兔年全勤獎章

6^#

發表於 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

複製代碼

學海無涯_不恥下問