Excel VBA質問箱 IV

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

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


19576 / 76732 ←次へ | 前へ→

【62586】Re:他のブックの値を参照する
回答  つるりん  - 09/8/2(日) 21:33 -

引用なし
パスワード
   Book1にユーザーフォームを作り
コマンドボタンを作成
Book1のオープンイベントに以下のコードを。
Option Explicit

Private Sub Workbook_Open()
UserForm1.Show
End Sub

コマンドボタンに以下コードを
Option Explicit

Private Sub CommandButton1_Click()
Dim wbName As String
wbName = ThisWorkbook.Path & "\"

  Workbooks.Open wbName & "Book2.xls"
  Unload Me
  Workbooks("book2.xls").Sheets("sheet1").Range("a1").value = _
  Workbooks("Book1.xls").Sheets("sheet1").Range("a1").value
  
End Sub

Book1を開くとユーザーフォームが立ち上がるので
コマンドボタンをクリック。
Book2を開いてBook1A1セルの値をBook2A1セルへ転記
ユーザーフォームを閉じて終了。
Book1、Book2は同じフォルダにあることが条件です。
参考まで。

83 hits

【62584】他のブックの値を参照する ruyu 09/8/2(日) 17:29 質問
【62586】Re:他のブックの値を参照する つるりん 09/8/2(日) 21:33 回答

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