[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBA 外部参照 値更新』(み)
エクセルファイルにいくつかシートがあり、2枚目のシートは他のエクセルファイルより値を持ってくるよう計算式が入っております。
ファイルを開いた際、更新を行いたいのですが、どのようにマクロを書けばよいでしょうか。
ご教示いただけますでしょうか。
< 使用 Excel:Excel2016、使用 OS:Windows10 >
(マナ) 2019/01/11(金) 22:12
手作業で、更新できないという意味ですか?
>多数のメンバーが使用するので、個々で設定が異なる為。
意味がわかりません。
具体例をあげて説明できませんか。
(マナ) 2019/01/12(土) 09:48
Private Sub Workbook_Open()
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub
を記載したのですが、更新がされません。
間違っているのでしょうか。
(み) 2019/01/13(日) 11:31
(マナ) 2019/01/13(日) 14:52
手作業では更新するときは、そのファイルをopenするのではないですか?
(マナ) 2019/01/13(日) 23:14
>手作業で行う時は、リンクの編集→値の更新を押して更新を行います。 それを記録してみてはどうでしょうか? (SoulMan) 2019/01/14(月) 19:37
見当違いならすみません。
リンクの編集→起動時の確認→メッセージを表示しないで、リンクの自動更新を行う
これで自動更新できないですか?
もしリンクの自動更新と値の更新が別物なら忘れて下さい。 (ぬっ子) 2019/01/14(月) 19:52
Option Explicit
Private Sub Workbook_Open() Dim myLinks, lnk
Application.ScreenUpdating = False
ThisWorkbook.UpdateLinks = xlUpdateLinksAlways
myLinks = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(myLinks) Then For Each lnk In myLinks Workbooks.Open(lnk).Close False Next End If
End Sub
(マナ) 2019/01/14(月) 21:21
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.