hiko-blog

VBA業務改善

MENU

データベースシートより検索結果を張り付け

VBA
  • 検索結果シートに下記Vba貼り付ける（オートフィルタ的使い方）

＜コード＞

 

 

'データベースのシート：Sheets("基Data").Range("A1:Aj1000")

'検索条件：CriteriaRange:=Range("A1:l2") 調べたい項目を任意に変更可

'検索結果シートの場所：CopyToRange:=Range("p1:Ay1")

 Private Sub Worksheet_Change(ByVal Target As Range)     Sheets("基Data").Range("A1:Aj1000").AdvancedFilter Action:=xlFilterCopy, _        CriteriaRange:=Range("A1:l2"), CopyToRange:=Range("p1:Ay1"), Unique:= _        False

 

 

 

'検索結果シートに下記Vba貼り付け
 

'データベースのシート：Sheets("基Data").Range("A1:Aj1000")

'検索条件：CriteriaRange:=Range("A1:l2")

'検索結果貼り付けシートの場所：CopyToRange:=Range("p1:Ay1")
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    Sheets("基Data").Range("A1:Aj1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:l2"), CopyToRange:=Range("p1:Ay1"), Unique:= _
        False
 
 
 
End Sub