|
みなさんこんにちは 質問を投稿させていただきます。
下記のような記述があります
Private Sub CommandButton1_Click()
Dim MyIp As String, Sh As Worksheet, Fi As Range, Ad As String
Sheets(Array("あ", "か", "さ", "た", "な", "は", "ま", "や", "ら")).Select
MyIp = Application.InputBox("検索する品名を入力して下さい。")
If MyIp = "" Then Exit Sub
If MyIp = "False" Then Exit Sub
With Worksheets("閲覧")
.Range("A2:IV65536").ClearContents
For Each Sh In Worksheets
If Sh.Name <> "閲覧" Then
Set Fi = Sh.Cells.Find(MyIp, , xlValues, xlPart, , xlPrevious, MatchCase, False)
If Not Fi Is Nothing Then
Ad = Fi.Address
Do
Set Fi = Sh.Cells.FindNext(Fi)
Fi.EntireRow.Copy Sheets("閲覧").Range("A65536").End(xlUp).Offset(1)
Loop Until Ad = Fi.Address
Set Fi = Nothing
End If
End If
Next Sh
.Activate
End With
End Sub
これで キーワードにより検索された各シートの行が 閲覧シートに
コピーされる仕組みです。
ところが 行の一部にマクロボタンがあるのですがその部分だけ
コピーされません。
なんとか他のフィールド同様マクロボタンも閲覧シートにコピー
するにはどうすればよいですか?
ちなみに マクロボタンにはマクロが割り当てられています。
よろしくお願いいたします。
|
|