00:10:00
當(dāng)前位置：財(cái)稅問題 >
實(shí)務(wù)
問題已解決
請(qǐng)問老師，在定金登記表里怎樣設(shè)置“日期和廳面”兩個(gè)條件同時(shí)重復(fù)的預(yù)警？
溫馨提示：如果以上題目與您遇到的情況不符，可直接提問，隨時(shí)問隨時(shí)答
選中需要設(shè)置的單元格區(qū)域：假設(shè)你的“日期”列是A列，“廳面”列是B列。
打開數(shù)據(jù)驗(yàn)證：
選擇A列和B列的單元格區(qū)域。
在功能區(qū)中選擇“數(shù)據(jù)”選項(xiàng)卡。
點(diǎn)擊“數(shù)據(jù)驗(yàn)證”按鈕。
設(shè)置驗(yàn)證條件：
在“設(shè)置”選項(xiàng)卡中，選擇“自定義”。
在“公式”輸入框中輸入以下公式：
=COUNTIFS($A$2:$A$100, A2, $B$2:$B$100, B2) = 1
Excel
這個(gè)公式的意思是：如果A列和B列的值在指定范圍內(nèi)同時(shí)出現(xiàn)超過一次，則返回錯(cuò)誤。
05/15 20:18
84785003 
05/15 21:12
廳面在E列，日期在G列怎么做？
劉艷紅老師 
05/15 21:14
選擇E列和G列的單元格區(qū)域。
在功能區(qū)中選擇“數(shù)據(jù)”選項(xiàng)卡。
點(diǎn)擊“數(shù)據(jù)驗(yàn)證”按鈕。
設(shè)置驗(yàn)證條件：
在“設(shè)置”選項(xiàng)卡中，選擇“自定義”。
在“公式”輸入框中輸入以下公式：
=COUNTIFS($E$2:$E$100, E2, $G$2:$G$100, G2) = 1
劉艷紅老師
05/15 21:14
這個(gè)方法還是一樣的用
84785003
05/15 21:40
可是怎么出現(xiàn)一項(xiàng)重復(fù)的就提示啊，我想要的是兩項(xiàng)同時(shí)重復(fù)的才提示，比如：同時(shí)出現(xiàn)兩個(gè)2025.6.19，錦繡廳。而不是只出現(xiàn)兩個(gè)2025.6.19就提示
劉艷紅老師
05/15 21:50
按 Alt + F11 打開VBA編輯器，插入到工作表模塊。
將代碼粘貼并保存，修改 DateCol 和 HallCol 為實(shí)際列號(hào)。
返回表格，輸入數(shù)據(jù)時(shí)會(huì)自動(dòng)觸發(fā)預(yù)警。
若需要輸入時(shí)彈窗提示，可使用以下VBA代碼：
復(fù)制代碼
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DateCol As Long, HallCol As Long
DateCol = 1 假設(shè)日期在第1列（A列）
HallCol = 2 假設(shè)廳面在第2列（B列）
If Not Intersect(Target, Range(Cells(2, DateCol), Cells(Rows.Count, DateCol))) Is Nothing Then
Dim DateVal As Variant, HallVal As Variant
DateVal = Target.Offset(0, DateCol - Target.Column)
HallVal = Target.Offset(0, HallCol - Target.Column)
If Application.CountIfs(Range(Cells(2, DateCol), Cells(Target.Row - 1, DateCol)), DateVal, _
Range(Cells(2, HallCol), Cells(Target.Row - 1, HallCol)), HallVal) > 0 Then
MsgBox 日期和廳面組合已存在，請(qǐng)檢查！, vbExclamation
End If
End If
End Sub
閱讀 28
描述你的問題，直接向老師提問
998
意見反饋
