Скачать или смотреть Excel VBA - Case-sensitive and Case-insensitive Search

💡 Source Code

Private Sub CommandButton1_Click()
TextBox1.Text = ""
End Sub

Private Sub TextBox1_Change()
Dim ws As Worksheet, i As Integer, cs As String, ci As String
i = 0
With ListBox1
.Clear
Label2.Caption = "No data found"
If Len(TextBox1.Text) = 0 Then
Else:
For Each ws In ThisWorkbook.Worksheets
If CheckBox1.Value = -1 Then
cs = ws.Name
ci = TextBox1.Text
Else:
cs = LCase(ws.Name)
ci = LCase(TextBox1.Text)
End If
If InStr(1, cs, ci) ▶ 0 Then
.AddItem
.List(i, 0) = ws.Name
Label2.Caption = i + 1 & " data found"
i = i + 1
End If
Next ws
End If
End With
End Sub

Private Sub CheckBox1_Click()
Call TextBox1_Change
TextBox1.SetFocus
End Sub
------------------------------------------------------------------------------------------

#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#casesensitive
#caseinsensitive
#search
#find
#casesensitivesearch
#caseinsensitivesearch