Excel VBA質問箱 IV

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

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


7426 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【39243】Re:日付で検索する方法ありますか
回答  Jaka  - 06/6/20(火) 13:39 -

引用なし
パスワード
   http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ

【39250】Re:日付で検索する方法ありますか
お礼  サン E-MAIL  - 06/6/20(火) 15:20 -

引用なし
パスワード
   Jaka さん

御忙しい所、
ご返答ありがとうございました。
抽出をセルごとに分けないやり方もご存知でしょうか。

▼Jaka さん:
>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=102;id=FAQ

【39259】Re:日付で検索する方法ありますか
発言  Jaka  - 06/6/20(火) 17:11 -

引用なし
パスワード
   ▼サン さん:
>抽出をセルごとに分けないやり方もご存知でしょうか。
意味がわかりません。
飛び飛びに抽出されたくなかったら、ソートしてからフィルタすればいいと思います。

【39261】Re:日付で検索する方法ありますか
お礼  サン E-MAIL  - 06/6/20(火) 17:19 -

引用なし
パスワード
   ▼Jaka さん:
有難うございました。
ご面倒お掛けしてすいませんでした。
>▼サン さん:
>>抽出をセルごとに分けないやり方もご存知でしょうか。
>意味がわかりません。
>飛び飛びに抽出されたくなかったら、ソートしてからフィルタすればいいと思います。

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