| |
”リスト”シートにはＡ１〜Ｇ１が項目、Ａ２〜Ｇ２からデータがあります。
”検索”シートに条件を入力し検索ボタンを入力すれば一致するデータが表示されます。Ａ１〜Ｇ１項目、Ａ２〜Ｇ２が検索条件、Ａ４〜Ｇ４が結果表示用項目
Ａ５〜Ｇ５が抽出結果表示欄（複数あれば続けてＡ６〜〇５で表示）
抽出結果を修正し、反映ボタンを押せば”リスト”シートが更新される。
このようなマクロボタンを作りたいと考えています。
Sub 正方形長方形2_Click()
Sheets("検索").Rows("4:65536").ClearContents
Sheets("リスト").Select
Range("A2").Select
ActiveCell.CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("検索").Range("A1:E2"), _
CopyToRange:=Sheets("検索").Range("A5:E65536"), _
Unique:=False
Sheets("検索").Select
End Sub
これで抽出はうまくいくのですが、反映する際、
Dim cel As Range
If IsNumeric(Range("A5").Value) And Not IsEmpty(Range("A5").Value) Then
Worksheets("リスト").Cells(Range("A5").Value, 1).Resize(1, 26).Value _
= Range("A5:Z5").Value
Else
MsgBox "行番号が？？です"
End If
これですると”リスト”シートが乱れてしまいます。
ご教授願います。
|
|
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
