|
▼ponpon さん:
ありがとうございます。
>Sub test3()
> With Sheets("データベース")
> .Range("A1").AutoFilter Field:=6, Criteria1:="外来"
> .AutoFilter.Range.Columns(2).Offset(1).Copy Sheets("抽出外来").Range("A1")
> .AutoFilterMode = False
> End With
>End Sub
>
上記コードでは抽出できませんでした。
>Sub test4()
> With Sheets("データベース")
> .Range("A1").AutoFilter Field:=6, Criteria1:="外来"
> With .AutoFilter.Range.Columns(2)
> If .SpecialCells(xlCellTypeVisible).Count > 1 Then
> .Offset(1).Copy Sheets("抽出外来").Range("A1")
> End If
> End With
> .AutoFilterMode = False
> End With
>End Sub
この上記コードで抽出できました。
入院と外来をそれぞれボタンを付けてクリックにて動作しています。
ひとつのボタンクリックで、入院抽出・外来抽出できればいいなと思っています。
|
|