Excel VBA質問箱 IV

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

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


22653 / 76738 ←次へ | 前へ→

【59463】アドバンスフィルターの使い方について
質問  フィルター  - 08/12/12(金) 10:41 -

引用なし
パスワード
   >▼kanabun さん:
>ご指導、ありがとうございます。
URL見て直しましたがうまく動作しませんでした。また、アドバンスフィルターと言う事でタイトル変更で再度質問いたします。
何度も質問、ご指導すいませんです。
最終的な条件は
列はF・L・R・X・AD・AJの6列で
2行目から500行まで検索対象データが入っています。
検索後リストボックスに表示するようにしています。
”構文”は・・
Private Sub CommandButton42_Click()
  Dim ss As String
  Dim fRange As Range
  Dim cRange As Range
  Dim CopyTo As Range
  Dim s1 As String, s2 As String, s3 As String, s4 As String, s5 As String, s6 As String
 
  ss = TextBox50.Text
  ss = "*" & ss & "*"
  With Worksheets("DATA")
    Set fRange = .Range("A1").CurrentRegion 'フィルタ範囲
    Set cRange = .Range("AO1") '抽出条件範囲先頭セル
    s1 = .Range("F1").Value   'F列見出し
    s2 = .Range("L1").Value   'L列見出し
    s3 = .Range("R1").Value   'R列見出し
    s4 = .Range("X1").Value   'X列見出し
    s5 = .Range("AD1").Value   'AD列見出し
    s6 = .Range("AJ1").Value   'AJ列見出し
  End With
  If WorksheetFunction.CountIf(fRange.Columns("F:L:R:X:AD:AJ"), ss) > 0 Then
     Set CopyTo = Worksheets("WAREA")
     CopyTo.Parent.UsedRange.ClearContents
     'cRange に抽出条件をセット
     cRange.CurrentRegion.ClearContents
     cRange(1, 1).Value = s1
     cRange(1, 2).Value = s2
     cRange(1, 3).Value = s3
     cRange(1, 4).Value = s4
     cRange(1, 5).Value = s5
     cRange(1, 6).Value = s6
     cRange(2, 1).Value = "'=" & ss
     cRange(3, 2).Value = "'=" & ss
     cRange(4, 3).Value = "'=" & ss
     cRange(5, 4).Value = "'=" & ss
     cRange(6, 5).Value = "'=" & ss
     cRange(7, 6).Value = "'=" & ss
    
     'フィルタオプションによる抽出コピーの実行
     fRange.AdvancedFilter xlFilterCopy, _
       CriteriaRange:=cRange.CurrentRegion, _
        CopyToRange:=CopyTo
  End If


With Worksheets("WAREA")
 IRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
End With

With ListBox1
.ColumnHeads = True
.ColumnCount = 11
.ColumnWidths = "30;80;55;60;60;60;65;45;45;45;25;"
'.Text = "DATA!A2:K500"
.RowSource = "WAREA!A2:K2500"

End With
End Sub
と書きましたが、実行すると、
実行時エラー13 型が一致しませんと表示され
If WorksheetFunction.CountIf(fRange.Columns("F:L:R:X:AD:AJ"), ss) > 0 Thenの部分が黄色くなります。

どの用に対処、修正すればいいでしょうか?重ね重ねすいません。
よろしくご指導お願いいたします。
0 hits

【59463】アドバンスフィルターの使い方について フィルター 08/12/12(金) 10:41 質問
【59464】Re:アドバンスフィルターの使い方について kanabun 08/12/12(金) 11:49 発言
【59469】Re:アドバンスフィルターの使い方について フィルター 08/12/12(金) 15:12 質問
【59473】Re:アドバンスフィルターの使い方について kanabun 08/12/12(金) 15:43 発言
【59474】Re:アドバンスフィルターの使い方について フィルター 08/12/12(金) 16:00 お礼
【59491】Re:アドバンスフィルターの使い方について kanabun 08/12/13(土) 10:35 発言
【59492】Re:アドバンスフィルターの使い方について kanabun 08/12/13(土) 11:35 発言
【59504】Re:アドバンスフィルターの使い方について pico 08/12/14(日) 13:29 質問
【59514】Re:アドバンスフィルターの使い方について kanabun 08/12/15(月) 8:33 発言
【59539】Re:アドバンスフィルターの使い方について フィルター 08/12/17(水) 17:32 お礼
【59541】Re:アドバンスフィルターの使い方について kanabun 08/12/17(水) 19:22 発言
【59542】Re:アドバンスフィルターの使い方について kanabun 08/12/17(水) 19:38 発言
【59553】Re:アドバンスフィルターの使い方について フィルター 08/12/18(木) 14:17 質問
【59556】Re:アドバンスフィルターの使い方について kanabun 08/12/18(木) 16:13 発言
【59557】Re:アドバンスフィルターの使い方について フィルター 08/12/18(木) 16:58 質問
【59558】Re:アドバンスフィルターの使い方について kanabun 08/12/18(木) 17:28 発言
【59561】Re:アドバンスフィルターの使い方について kanabun 08/12/18(木) 18:44 発言
【59562】Re:アドバンスフィルターの使い方について フィルター 08/12/18(木) 19:44 質問
【59565】Re:アドバンスフィルターの使い方について kanabun 08/12/18(木) 21:12 発言
【59742】Re:アドバンスフィルターの使い方について フィルター 09/1/6(火) 16:15 お礼

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