Excel VBA質問箱 IV

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

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


53753 / 76732 ←次へ | 前へ→

【27788】Re:藁をもつかむ思いで・・・
回答  だるま WEB  - 05/8/19(金) 14:48 -

引用なし
パスワード
   こんな感じのことでしょうか。^d^

Sub test()
  myFilter 特定の文字, 別の特定の文字
End Sub

Sub myFilter(項目 As String, 値 As String)
  Dim rngDest As Range
  Dim rngTitle As Range
  Dim rngFind As Range
  
  With ActiveSheet.UsedRange
    .Worksheet.AutoFilterMode = False
    Set rngTitle = .Rows(1)
    Set rngFind = rngTitle.Find(項目, , xlValues, xlPart)
    If rngFind Is Nothing Then Exit Sub
    
    .AutoFilter rngFind.Column, "=*" & 値 & "*"
    
    Set rngDest = Worksheets.Add.Range("A1")
    rngTitle.Copy rngDest
    Set rngDest = rngDest.Offset(1)
    
    With .Offset(1).SpecialCells(xlCellTypeVisible)
      .Copy rngDest
      .Delete xlUp
    End With
    
    .Worksheet.AutoFilterMode = False
  End With
End Sub

1 hits

【27779】藁をもつかむ思いで・・・ VBA15日目の初心者 05/8/19(金) 10:54 質問
【27784】Re:藁をもつかむ思いで・・・ ちくたく 05/8/19(金) 11:44 回答
【27786】Re:藁をもつかむ思いで・・・ m2m10 05/8/19(金) 12:55 質問
【27787】Re:藁をもつかむ思いで・・・ タイトル 05/8/19(金) 13:18 発言
【27788】Re:藁をもつかむ思いで・・・ だるま 05/8/19(金) 14:48 回答
【27808】Re:藁をもつかむ思いで・・・ VBA15日目の初心者 05/8/20(土) 5:07 お礼

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