|
下記の方法で日付で検索したいのですが、
どこを変えたらいいかわかりません。
申し訳ございませんが、どなたか教えて頂けますでしょうか。
宜しくお願い致します。
Sub 会社名の抽出()
Dim strMoji As String
strMoji = InputBox("検索文字を入力してください")
strMoji = "*" & strMoji & "*"
Sheets("Sheet1").Activate
Cells.Clear
With Sheets("Sheet2")
.Range("A1").AutoFilter Field:=2, Criteria1:=strMoji
.Range("A1").CurrentRegion.Copy _
Destination:=Sheets("Sheet1").Range("A1")
.Range("A1").AutoFilter
End With
Sheets("sheet1").Columns("A:L").AutoFit
Cells.Select
ActiveWindow.Zoom = 85
Range("A2").Select
ActiveWindow.FreezePanes = True
Range("A1").Select
End Sub
|
|