Excel VBA質問箱 IV

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

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


72462 / 76732 ←次へ | 前へ→

【8754】Re:複数のブックを操作するには?
回答  Jaka  - 03/10/31(金) 9:09 -

引用なし
パスワード
   こういうこと?

Book1
Private Sub CommandButton1_Click()
  Me.Hide
  RPth = "'" & ThisWorkbook.Path
  Application.Run (RPth & "\Book2.xls'!auto_open")
  MsgBox "帰ってきた。"
  Workbooks("Book2.xls").Close  'ここで、ブック2を閉じる。
  Me.Show
End Sub

Book2

Sub auto_open()
  ThisWorkbook.Activate
  UserForm1.Show 'Book2のフォーム
End Sub

Private Sub CommandButton1_Click()
  For i = 1 To 5000
    Me.TextBox1.Value = i
    DoEvents
  Next
  Unload Me
  ここで、ブック2を閉じてしまうと実行君が持っていた帰る為の命綱が途切れてしまって帰れなくなる。
End Sub

0 hits

【8724】複数のブックを操作するには? なる 03/10/30(木) 11:13 質問
【8726】Re:複数のブックを操作するには? INA 03/10/30(木) 11:19 回答
【8729】Re:複数のブックを操作するには? なる 03/10/30(木) 11:36 質問
【8731】Re:複数のブックを操作するには? INA 03/10/30(木) 11:40 回答
【8732】Re:複数のブックを操作するには? なる 03/10/30(木) 11:51 質問
【8734】Re:複数のブックを操作するには? INA 03/10/30(木) 11:59 回答
【8736】Re:複数のブックを操作するには? なる 03/10/30(木) 13:14 質問
【8738】Re:複数のブックを操作するには? INA 03/10/30(木) 13:35 回答
【8756】Re:複数のブックを操作するには? なる 03/10/31(金) 9:36 お礼
【8758】Re:複数のブックを操作するには? INA 03/10/31(金) 10:49 回答
【8770】Re:複数のブックを操作するには? なる 03/10/31(金) 17:43 お礼
【8739】Re:複数のブックを操作するには? なる 03/10/30(木) 17:03 質問
【8744】Re:複数のブックを操作するには? INA 03/10/30(木) 18:34 回答
【8754】Re:複数のブックを操作するには? Jaka 03/10/31(金) 9:09 回答
【8757】Re:複数のブックを操作するには? なる 03/10/31(金) 10:05 質問
【8771】Re:複数のブックを操作するには? なる 03/10/31(金) 17:44 お礼

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