जांचें कि सेल में दो नंबर समान हैं - एक्सेल-वीबीए
क्या कोई मुझे बता सकता है कि सेल को कैसे जांचें, ए 1 हैइसमें 2 समान संख्याएं हैं? उदाहरण सेल ए 1 = 1124. इसका मतलब है कि मेरे पास 2 समान संख्याएं हैं और यदि ऐसा है, तो बी 1 "हां" होगा बहुत बहुत धन्यवाद।
उत्तर:
उत्तर № 1 के लिए 1यदि आप एक्सेल 2010 का उपयोग कर रहे हैं (एक्सेल 2007 में परीक्षण नहीं किया गया है) तो आपको इसके लिए वीबीए की आवश्यकता नहीं है। आप इस फॉर्मूला का उपयोग कर सकते हैं B1
और इसे कॉपी करें।
=IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(1),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(2),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(3),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(4),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(5),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(6),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(7),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(8),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(9),"",2),"Yes",
IF(LOWER(A1)<>SUBSTITUTE(LOWER(A1),LOWER(0),"",2),"Yes",
"No"))))))))))
व्याख्या
फॉर्मूला से जांचता है 0 - 9
एक्सेल सेल में यदि वह विशेष संख्या आवर्ती हो रही है।
स्क्रीनशॉट
वीबीए संस्करण:
Sub Sample()
Debug.Print Does2NumbersMatch(Range("A1"))
End Sub
Function Does2NumbersMatch(rng As Range)
Dim i As Long
Does2NumbersMatch = "No"
For i = 0 To 9
isMatch = Application.Evaluate("=IF(LOWER(" & rng.Address & ")<>SUBSTITUTE(LOWER(" & _
rng.Address & "),LOWER(" & i & "),"""",2),""Yes"",""No"")")
If isMatch = "Yes" Then
Does2NumbersMatch = "Yes"
Exit Function
End If
Next i
End Function
संबंधित सवाल
सबसे लोकप्रिय
सबसे लोकप्रिय सी
सबसे लोकप्रिय जावा
सबसे लोकप्रिय PHP