Excel VBA質問箱 IV

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

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


9167 / 76736 ←次へ | 前へ→

【73135】Re:AdvancedFilteで日付を検索
発言  kanabun  - 12/11/19(月) 16:03 -

引用なし
パスワード
   ▼masui さん:
>▼kanabun さん:
>
> UserForm検索.TextBox日=2012 が入力されています
>
> sht1.Cells(Gyou, Retu) = year(UserForm検索.TextBox日)
> OR指定で
> sht1.Cells(Gyou+1, Retu) = UserForm検索.TextBox日
> としましたがうまくいきません
> マクロの書き方が違うようです
> よろしくお願いします
>
>
>>あるいは、検索条件を
>>
>>------  E  ----------------   
>>1  
>>2  =YEAR(A2)=2012
>>3  =LEFT(A2,4)="2012"
>>
>>-------------------------------
>>こんなふうに OR指定 してもいいですね(対象列がA列のばあい)


検索対象範囲が 「一覧」シートのA3に列見出しがあり、A4から
日付けデータがあると仮定します。(つまり日付データは A列のばあい)
試してないけど、こんな感じですよ

Dim ss As String

'TextBoxの文字列を変数ss にコピーします
ss = UserForm検索.TextBox日.Text

'「条件」シートの[E1:E3] に検索条件式を記入します
'A4 は最初のデータセル
With Worksheets("条件").Range("E1")
  .ClearContents
  .Offset(1).Formula = "=YEAR(一覧!A4)=" & ss
  .Offset(2).Formula = "=LEFT(一覧!A4,4)=""" & ss & """
End With
Worksheets("一覧").Range("A3").CurrentRegion.AdvancedFilter _
 Action:=xlFilterCopy, _
 CriteriaRange:=Worksheets("条件").Range("E1:E3"), _
 CopytoRange:=workSheets("項目").Range("A5"), _
 Unique:=True

0 hits

【73128】AdvancedFilteで日付を検索 masui 12/11/19(月) 13:07 質問
【73129】Re:AdvancedFilteで日付を検索 kanabun 12/11/19(月) 13:30 発言
【73130】Re:AdvancedFilteで日付を検索 UO3 12/11/19(月) 13:33 発言
【73131】Re:AdvancedFilteで日付を検索 kanabun 12/11/19(月) 13:41 発言
【73132】Re:AdvancedFilteで日付を検索 kanabun 12/11/19(月) 13:43 発言
【73134】Re:AdvancedFilteで日付を検索 masui 12/11/19(月) 15:19 質問
【73135】Re:AdvancedFilteで日付を検索 kanabun 12/11/19(月) 16:03 発言
【73141】Re:AdvancedFilteで日付を検索 masui 12/11/20(火) 9:40 質問
【73142】Re:AdvancedFilteで日付を検索 kanabun 12/11/20(火) 10:29 発言
【73143】Re:AdvancedFilteで日付を検索 masui 12/11/20(火) 13:18 質問
【73153】Re:AdvancedFilteで日付を検索 kanabun 12/11/21(水) 19:25 発言
【73154】Re:AdvancedFilteで日付を検索 kanabun 12/11/21(水) 19:35 発言
【73144】Re:AdvancedFilteで日付を検索 masui 12/11/20(火) 13:45 質問
【73156】Re:AdvancedFilteで日付を検索 kanabun 12/11/21(水) 20:00 発言
【73164】Re:AdvancedFilteで日付を検索 masui 12/11/22(木) 12:18 お礼
【74028】Re:AdvancedFilteで日付を検索 masui 13/4/7(日) 10:52 質問
【74029】Re:AdvancedFilteで日付を検索 kanabun 13/4/7(日) 21:33 発言
【74030】Re:AdvancedFilteで日付を検索 kanabun 13/4/8(月) 9:20 発言
【74031】Re:AdvancedFilteで日付を検索 masui 13/4/8(月) 12:14 質問
【74032】Re:AdvancedFilteで日付を検索 kanabun 13/4/8(月) 18:01 発言
【74039】Re:AdvancedFilteで日付を検索 masui 13/4/9(火) 15:23 質問
【74051】Re:AdvancedFilteで日付を検索 kanabun 13/4/10(水) 20:41 発言
【74054】Re:AdvancedFilteで日付を検索 masui 13/4/10(水) 22:24 お礼
【74055】Re:AdvancedFilteで日付を検索 kanabun 13/4/10(水) 22:38 発言
【74052】Re:AdvancedFilteで日付を検索 kanabun 13/4/10(水) 21:21 発言
【74053】Re:AdvancedFilteで日付を検索 kanabun 13/4/10(水) 21:32 発言

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