|
▼kanabun さん:
遅くなりました。ご指導ありがとうございます。
文字検索について質問があるのですが、改めて質問いたします。
どうもありがとうございました。
>▼初心者 さん:
>
>>ここに200/02で2月分のデータを検索する方法はありますでしょうか?
>
>UserFormに TextBox48と TextBox49 および CommandButtonを配置して、
>以下の (1) または (2) の方式で TextBoxに入力し、
> (1)2009年2月分を抽出するばあい
> → TextBox48 に 「2009/2 」とタイプする
>
> (2)2009/1/15〜 2009/2/15 期間を抽出したいばあい
> → TextBox48 に 「2009/1/15 」
> TextBox48 に 「2009/2/15 」とタイプする
>
>↓CommandButtonをクリックしてみてください。
>
>Private Sub CommandButton1_Click()
> Dim n As Long
> Dim date1 As Date
> Dim date2 As Date
>
> If IsDate(TextBox48.Text) Then
> date1 = CDate(TextBox48.Text)
> n = UBound(Split(TextBox48.Text, "/")) ' / の数を調べる
> Select Case n
> Case 1
> date2 = DateAdd("m", 1, date1) - 1
> Case 2
> If IsDate(TextBox49.Text) Then
> date2 = CDate(TextBox49.Text)
> Else
> MsgBox "2つめのTextBoxの値が日付ではありません"
> Exit Sub
> End If
> End Select
>
> With Worksheets("DATA").Range("A1").CurrentRegion
> .AutoFilter
> .AutoFilter _
> Field:=3, _
> Criteria1:=">=" & date1, _
> Operator:=xlAnd, _
> Criteria2:="<=" & date2
> End With
> MsgBox "抽出しました"
> End If
>
>End Sub
|
|