| |
▼ponpon さん：
こんばんは。ご教授有難うございました。
>>book1からbook2に移行する際の引数の値によっては
>どんなコードで移行しているかよくわからないので何ですが
Call book2に移行(引数)
Sub book2に移行(引数)
pathをもとめて
Workbooks.Open (path & book2)
ここで、userformを開きたく、
Call Workbooks(booknm).Userform4
Run ActiveWorkbook.UserForm4.Show(vbmodaless)
等をこころみましたが、うまくいかず質問させていただきました。
教えていただいたことを参考にして下記を追加し
Set sh = Workbooks(book2).Sheets(1)
sh.Cells(1, 1) = mebook
sh.Cells(1, 2) = 引数
sh.activate
End sub
book2で、
Private Sub Workbook_Activate()
引数 = Sheets(1).Cells(1, 2)
If 引数 > 0 Then
UserForm.Show vbmodaless
UserForm.ListBox = UserForm.ListBox.List(引数 - 1)
End If
Sheets(1).Cells(1, 2) = ""
End Sub
とし、目的を達することができました。
有難うございました。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
