Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


42560 / 76732 ←次へ | 前へ→

【39237】日付で検索する方法ありますか
質問  サン E-MAIL  - 06/6/20(火) 12:38 -

引用なし
パスワード
   下記の方法で日付で検索したいのですが、
どこを変えたらいいかわかりません。
申し訳ございませんが、どなたか教えて頂けますでしょうか。
宜しくお願い致します。


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
2 hits

【39237】日付で検索する方法ありますか サン 06/6/20(火) 12:38 質問
【39243】Re:日付で検索する方法ありますか Jaka 06/6/20(火) 13:39 回答
【39250】Re:日付で検索する方法ありますか サン 06/6/20(火) 15:20 お礼
【39259】Re:日付で検索する方法ありますか Jaka 06/6/20(火) 17:11 発言
【39261】Re:日付で検索する方法ありますか サン 06/6/20(火) 17:19 お礼

42560 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free