Excel VBA質問箱 IV

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

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


3384 / 13644 ツリー ←次へ | 前へ→

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

【62584】他のブックの値を参照する
質問  ruyu  - 09/8/2(日) 17:29 -

引用なし
パスワード
   質問です。


他のブックにあるセルの値を使用したいのですが、
エクセルの"=他のブックの値 "はその画面を開いたときに
更新のメッセージがでてくるので使用したくないです。
VBAで可能な方法を教えてください。
ちなみにbook1のセルににセットしてある値をbook2を開くと自動で当該のセルにセットしたいです。
いろいろと試してやってみたのですがどうも上手くいきません。
条件としては
1.book1のuserformのコマンドボタンを押すとbook2が開く
2.book1はcloseさせずにuserformはcloseさせる

上記の条件でやっているのですができません。

テキストファイルに書き込んでそれを読みにいったほうがよいのでしょうか?
教えてください

【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は同じフォルダにあることが条件です。
参考まで。

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