ブック 実質オープン

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ブック 実質オープン]
Sub 実質オープン()
'*******************************************************************************
'実質オープン
'*******************************************************************************
アプリ非表示
画面を更新しない
    Dim 要素
    
    For Each 要素 In Workbooks                  '各ワークブックに対して反復処理する
        If 要素.Name <> ThisWorkbook.Name Then  'コード実行中のブック名と違うなら
            要素.Close savechanges:=False       '保存しないで閉じる
        End If
    Next
frmMain.Show
End Sub





Production Japan Import Application. Since 1998