वीबीए कोड सेल द्वारा एक्सेल कॉलम में कोई मूल्य कैसे खोजें।

Question

मुझे Excel शीट में सेल्डा मानना ​​होगा। मैं इसे खोजने के लिए इस VBA कोड उपयोग कर रहा था:

Set cell = Cells.Find(What:=celda, After:=ActiveCell, LookIn:= _ 
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _ 
    xlNext, MatchCase:=False, SearchFormat:=False) 


If cell Is Nothing Then 
    'do it something 

Else 
    'do it another thing 
End If 

समस्या है जब मैं केवल एक एक्सेल कॉलम में मूल्य लगाना होगा। मैं अगले कोड के साथ इसे खोजने:

Columns("B:B").Select 
    Selection.Find(What:="VA22GU1", After:=ActiveCell, LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False).Activate 

लेकिन मैं कैसे पहले VBA कोड के लिए यह अनुकूल करने के लिए, क्योंकि मैं मूल्य nothing उपयोग करने के लिए पता नहीं है।

Answer 1

बस

Columns("B:B").Select 
Set cell = Selection.Find(What:="celda", After:=ActiveCell, LookIn:=xlFormulas, _ 
     LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
     MatchCase:=False, SearchFormat:=False) 

If cell Is Nothing Then 
    'do it something 

Else 
    'do it another thing 
End If 

Answer 2

का उपयोग बस पूर्णता के लिए के लिए, आप भी उसी तकनीक का एक्सेल तालिकाओं के साथ ऊपर का उपयोग कर सकते हैं।

नीचे दिए गए उदाहरण में, मैं "tblConfig" नामक एक्सेल टेबल के किसी भी सेल में एक टेक्स्ट देख रहा हूं, जिसे कॉन्फ़िगर नामक शीट में रखा गया है जो सामान्य रूप से छुपाया जाता है। मैं ढूँढें विधि के डिफ़ॉल्ट स्वीकार कर रहा हूँ।

Dim list As ListObject 
Dim config As Worksheet 
Dim cell as Range 


Set config = Sheets("Config") 
Set list = config.ListObjects("tblConfig") 

'search in any cell of the data range of excel table 
Set cell = list.DataBodyRange.Find(searchTerm) 

If cell Is Nothing Then 
    'when information is not found 
Else 
    'when information is found 
End If 

Answer 3

Dim strFirstAddress As String 
Dim searchlast As Range 
Dim search As Range 

Set search = ActiveSheet.Range("A1:A100") 
Set searchlast = search.Cells(search.Cells.Count) 

Set rngFindValue = ActiveSheet.Range("A1:A100").Find(Text, searchlast, xlValues) 
If Not rngFindValue Is Nothing Then 
    strFirstAddress = rngFindValue.Address 
    Do 
    Set rngFindValue = search.FindNext(rngFindValue) 
    Loop Until rngFindValue.Address = strFirstAddress