Excel中的搜索框VBA

我的代碼有一個簡單的問題。事情是我的搜索框正在工作我可以搜索我的數據到另一個工作表，但問題是我需要在該字段上輸入相同的文本。就像數據寫入大寫鎖定一樣，我也需要用大寫鎖定鍵入它。我不喜歡那樣。我想禁用大小寫敏感但如何？你能幫我嗎，這裏是我的代碼截圖。Excel中的搜索框VBA

My code - click this link to view screenshot code

這裏是我的代碼

Sub searchData() 
Dim erow As Long 
Dim ws As Worksheet 
Dim lastrow As Long 
Dim count As Integer 
Dim mySearch As Variant 
Dim SearchString As String 

    mySearch = Sheets("Control").Range("B2").Value 'Cell Input 
    lastrow = Sheets("Data").Cells(Rows.count, 3).End(xlUp).Row 

    For x = 2 To lastrow 

    If Sheets("Data").Cells(x, 3) = mySearch Then 
    'Loan Details 
     Sheets("Control").Range("B4") = Sheets("Data").Cells(x, 1) 
     Sheets("Control").Range("B5") = Sheets("Data").Cells(x, 2) 
     Sheets("Control").Range("B6") = Sheets("Data").Cells(x, 3) 
     Sheets("Control").Range("B7") = Sheets("Data").Cells(x, 4) 
     Sheets("Control").Range("B8") = Sheets("Data").Cells(x, 5) 
     Sheets("Control").Range("B9") = Sheets("Data").Cells(x, 6) 
     Sheets("Control").Range("B10") = Sheets("Data").Cells(x, 7) 
     Sheets("Control").Range("B11") = Sheets("Data").Cells(x, 8) 
     Sheets("Control").Range("B12") = Sheets("Data").Cells(x, 9) 
     Sheets("Control").Range("B13") = Sheets("Data").Cells(x, 10) 
     Sheets("Control").Range("B14") = Sheets("Data").Cells(x, 11) 
    'Personal Details 
     Sheets("Control").Range("B15") = Sheets("Data").Cells(x, 12) 
     Sheets("Control").Range("B16") = Sheets("Data").Cells(x, 13) 
     Sheets("Control").Range("B17") = Sheets("Data").Cells(x, 14) 
     Sheets("Control").Range("B18") = Sheets("Data").Cells(x, 15) 
     Sheets("Control").Range("B19") = Sheets("Data").Cells(x, 16) 
     Sheets("Control").Range("B20") = Sheets("Data").Cells(x, 17) 
     Sheets("Control").Range("B21") = Sheets("Data").Cells(x, 18) 
     Sheets("Control").Range("B22") = Sheets("Data").Cells(x, 19) 
     Sheets("Control").Range("B23") = Sheets("Data").Cells(x, 20) 
     Sheets("Control").Range("B24") = Sheets("Data").Cells(x, 21) 
     Sheets("Control").Range("B25") = Sheets("Data").Cells(x, 22) 
     Sheets("Control").Range("B26") = Sheets("Data").Cells(x, 23) 
     Sheets("Control").Range("B27") = Sheets("Data").Cells(x, 24) 
     Sheets("Control").Range("B28") = Sheets("Data").Cells(x, 25) 
     Sheets("Control").Range("B29") = Sheets("Data").Cells(x, 26) 
     Sheets("Control").Range("B30") = Sheets("Data").Cells(x, 27) 
    'Employment Details 
     Sheets("Control").Range("B31") = Sheets("Data").Cells(x, 28) 
     Sheets("Control").Range("B32") = Sheets("Data").Cells(x, 29) 
     Sheets("Control").Range("B33") = Sheets("Data").Cells(x, 30) 
     Sheets("Control").Range("B34") = Sheets("Data").Cells(x, 31) 
     Sheets("Control").Range("B35") = Sheets("Data").Cells(x, 32) 
     Sheets("Control").Range("B36") = Sheets("Data").Cells(x, 33) 


    End If 

Next x 

End Sub

來源

2017-07-24 intelliJ

請張貼您的代碼，在屏幕截圖中調試代碼非常困難。 –

您是否想過使用'高級過濾器'？如果你不想區分大小寫或完全匹配，只需要部分匹配，你可以使用'*'標準。 – paulinhax

我不知道如何。我只能做到這一點。你能幫我怎麼樣，我需要添加到我的代碼？是的我想關閉區分大小寫 – intelliJ

更改。如果條件下面，這會自動搜索大寫文字，不管到什麼你已經進入

UCase(Sheets("Data").Cells(x,3)) = UCase(mySearch)

例如：在Sheet you have =「Sample」中，並在搜索框中輸入「sample Searchin g會像「SAMPLE = SAMPLE」一樣搜索

來源

2017-07-24 13:02:43

OH MY GOD！非常感謝你的工作！ :) – intelliJ

除了這個可以作爲答案。這樣這個問題就解決了。謝謝 –

Excel中的搜索框VBA

回答

相關問題