Excel VBA質問箱 IV

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

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


47481 / 76736 ←次へ | 前へ→

【34211】Re:データの抽出
質問  Hiro  - 06/1/28(土) 21:18 -

引用なし
パスワード
   ▼Statis さん:

横からごめんなさい。
興味を持って見させていただいていたのですが…一寸分からなくって
教えてください。
現在下のような配列になっています。
Statisさんのコードを利用させていただいたのですが、エラーが出ます。
エラーの個所とそのメッセージをコードの中に書いています。
問題点は何なのでしょうか?ご指導の程お願いします。

     F
6    年月日
7    2005/3/1
8    2005/3/2
9    2005/3/3
10   2005/3/4
11   2005/4/5
12   2005/4/6
13   2005/4/7
14   2005/4/8
15   2005/7/10
16   2005/7/11
17   2005/7/12
18   2005/7/13
19   2005/12/11
20   2005/12/12
21   2005/12/13
22   2005/12/14
23   2005/12/15
24   2005/12/16

Private Sub CommandButton1_Click()
Dim Da As Date, Da1 As Date
With Worksheets("Sheet1")
  If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
   Da = Format(Me.TextBox1.Value, .Range("F6").NumberFormat)
   Da1 = Format(Me.TextBox2.Value, .Range("F6").NumberFormat)
   If .AutoFilterMode = False Then
     .Rows(5).AutoFilter
   End If
   .Range("F5", .Range("F65536").End(xlUp)).AutoFilter Field:=6, _
       Criteria1:=">=" & Da, Operator:=xlAnd, Criteria2:="<=" & Da1
   ’↑の列で「Range クラスのオートフィルターに失敗しました」と
   'メッセージが出ます。何が問題なのでしょうか?

    If .Range("F65536").End(xlUp).Row = 5 Then
     MsgBox "抽出データがありません。", vbInformation
     .AutoFilterMode = False
   Else
    Unload UserForm1
   End If
  Else
   MsgBox "抽出日を確認", vbCritical
  End If
End With

End Sub

0 hits

【33383】データの抽出 福神漬 06/1/10(火) 12:49 質問
【33385】Re:データの抽出 Jaka 06/1/10(火) 13:39 発言
【33387】Re:データの抽出 福神漬 06/1/10(火) 14:08 発言
【33386】Re:データの抽出 Statis 06/1/10(火) 13:45 発言
【33389】Re:データの抽出 福神漬 06/1/10(火) 14:13 発言
【33392】Re:データの抽出 Statis 06/1/10(火) 15:00 回答
【34111】Re:データの抽出 福神漬 06/1/26(木) 16:14 お礼
【34114】Re:データの抽出 福神漬 06/1/26(木) 16:43 質問
【34115】Re:データの抽出 Statis 06/1/26(木) 16:46 発言
【34134】Re:データの抽出 福神漬 06/1/27(金) 10:13 発言
【34136】Re:データの抽出 多分 06/1/27(金) 10:25 発言
【34140】Re:データの抽出 Statis 06/1/27(金) 10:47 発言
【34145】Re:データの抽出 福神漬 06/1/27(金) 12:18 質問
【34149】Re:データの抽出 Statis 06/1/27(金) 13:24 発言
【34162】Re:データの抽出 福神漬 06/1/27(金) 15:20 発言
【34164】Re:データの抽出 Statis 06/1/27(金) 15:33 発言
【34165】Re:データの抽出 福神漬 06/1/27(金) 15:58 発言
【34167】Re:データの抽出 Statis 06/1/27(金) 16:11 発言
【34211】Re:データの抽出 Hiro 06/1/28(土) 21:18 質問
【34265】Re:データの抽出 Statis 06/1/30(月) 9:56 回答
【34279】Re:データの抽出 福神漬 06/1/30(月) 16:04 発言
【34282】Re:データの抽出 Statis 06/1/30(月) 16:31 回答
【34284】Re:データの抽出 福神漬 06/1/30(月) 16:49 発言
【34286】Re:データの抽出 Statis 06/1/30(月) 17:12 回答
【34293】Re:データの抽出 Hiro 06/1/30(月) 21:12 質問
【34310】Re:データの抽出 Statis 06/1/31(火) 9:08 発言
【34333】Re:データの抽出 Hiro 06/1/31(火) 20:42 発言
【34313】Re:データの抽出 福神漬 06/1/31(火) 9:53 お礼
【34314】Re:データの抽出 Statis 06/1/31(火) 10:02 回答
【34315】Re:データの抽出 福神漬 06/1/31(火) 10:49 お礼

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