Top > 呼び出し元・先

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

呼び出し元・先

呼び出し元・先

呼び出し元・先

ハイパーリンクはエクセルの挿入のハイパーリンクをクリックするとアドレスを入力するダイアログがでますのでそこにホームページのURLと同じように呼び出したいファイルのパスとファイル名を入力します。
VPNを使って遠隔地のファイルを呼び出すときなど便利です。
営業部・技術部が別の場所にある場合
Workbooks.Open Filename:= パスとファイル名
で呼び出せます。
技術部はシート2にありますので、 Worksheets("技術部").Activateでシートを表示していきます。
Sub eigyou()
  Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
End Sub
Sub gijyutu()
  Workbooks.Open Filename:="D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
  Worksheets("技術部").Activate
End Sub

呼び出し元・先

呼び出し元・先

呼び出し先のブックが開いているか確認して開きます。
呼び出し元のフォルダー(PATH)を直接入力するのではなく、
MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
PATHで取得してファイル名を足しています。
Sub eigyou1()
'ブックが開いているか確認してから開く
  Dim flag As Boolean
  Dim wb As Workbook
  Dim MyFile As String
  MyFile = ActiveWorkbook.Path & "\呼び出し先.xlsm"
' MyFile = "D:\教材\VBA\ホームページ原稿\よくつかうプログラム\呼び出し先.xlsm"
  flag = False
  For Each wb In Workbooks
    If wb.FullName = MyFile Then
      flag = True
      MsgBox MyFile & "は既に開いています"
      Exit For
    End If
  Next wb
  If flag = False Then
    MsgBox MyFile & "を開きます"
    Workbooks.Open MyFile
  End If
End Sub

塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)