Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


51294 / 76732 ←次へ | 前へ→

【30309】Re:別のbookに移動した際にUserformを開けたい
お礼  mitu  - 05/10/25(火) 2:26 -

引用なし
パスワード
   ▼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

とし、目的を達することができました。
有難うございました。
3 hits

【30295】別のbookに移動した際にUserformを開けたい mitu 05/10/24(月) 17:02 質問
【30303】Re:別のbookに移動した際にUserformを開け... ponpon 05/10/24(月) 21:15 発言
【30309】Re:別のbookに移動した際にUserformを開け... mitu 05/10/25(火) 2:26 お礼
【30313】Re:別のbookに移動した際にUserformを開け... Jaka 05/10/25(火) 9:08 回答
【30324】Re:別のbookに移動した際にUserformを開け... mitu 05/10/25(火) 14:38 お礼

51294 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free