|
てっとり早いのは、リストボックスなどに
同じインスタンスで起動しているブック
の一覧を取得して、リストで選択したブック
に対して処理、でしょうか。
'ブックの一覧取得
Private Sub CommandButton1_Click()
Dim wb As Workbook
For Each wb In Workbooks
Me.ListBox1.AddItem wb.Name
Next
End Sub
'選択したブックに対して処理
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wb As Workbook
Set wb = Workbooks(Me.ListBox1.List(Me.ListBox1.ListIndex))
MsgBox wb.Name
End Sub
ただ、↑では各ブックのアクティブセルは取得できません。
アクティブセルに対して処理を行いたいなら、↓のような
感じになります。
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim wb As Workbook
Set wb = Workbooks(Me.ListBox1.List(Me.ListBox1.ListIndex))
wb.Activate
MsgBox wb.Name & vbCrLf & ActiveCell.Address
End Sub
|
|