Excel VBA質問箱 IV

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

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


66359 / 76734 ←次へ | 前へ→

【14939】IF条件にて終了させたい
質問  ウシロメタさ  - 04/6/10(木) 19:53 -

引用なし
パスワード
   下記コードにおいて
IF条件にて開いているブックを保存して終了させたいのですが
エクセル自体が残ってしまいます
いけないところをご教授ください

下記コードは
開いているブックを保存するときに
他のブックを開いてデータを転記するというものですが
他のブックが誰かに開かれていた場合
警告を出したうえで、ブックを保存し、
エクセル自体を終了させるというものです


Private Sub Workbook_BeforeClose(Cancel As Boolean)

UserForm7.Show vbmoderess
DoEvents


  Dim mBk As Workbook
  Dim i  As Long
  Dim j  As Variant
  Set mBk = _
    Workbooks.Open( _
      WorksheetFunction.Substitute(ThisWorkbook.Path, "保存フォルダー", "") & _
        "マスターファイル.xls", Password:="3434")
        
    If ActiveWorkbook.ReadOnly = True Then


  ActiveWorkbook.Close
 
  Unload UserForm7
 
 
  MsgBox "マスターファイルへ更新できませんでした。次回このファイルを閉じた時に更新します"


  ThisWorkbook.Save
  
      
   Application.Quit


  End If
        
    Exit Sub


  With ThisWorkbook.Worksheets("工事台帳")
    i = .Range("g2").Value
    j = Application.Match(i, mBk.Worksheets("マスター台帳").Range("c:c"), 0)
    If IsError(j) Then
      MsgBox "ファイル名無し"
      mBk.Close
      Exit Sub
    End If
    mBk.Worksheets("マスター台帳").Cells(j, 1).Value = .Range("e2").Value
    mBk.Worksheets("マスター台帳").Cells(j, 2).Value = .Range("f2").Value
    mBk.Worksheets("マスター台帳").Cells(j, 4).Value = .Range("e3").Value
    
    mBk.Worksheets("マスター台帳").Cells(j, 5).Value = .Range("e5").Value
    mBk.Worksheets("マスター台帳").Cells(j, 6).Value = .Range("n5").Value
    mBk.Worksheets("マスター台帳").Cells(j, 7).Value = .Range("n18").Value
    
    mBk.Worksheets("マスター台帳").Cells(j, 8).Value = .Range("h26").Value
    mBk.Worksheets("マスター台帳").Cells(j, 9).Value = .Range("h20").Value
    mBk.Worksheets("マスター台帳").Cells(j, 10).Value = .Range("h21").Value
    
    mBk.Worksheets("マスター台帳").Cells(j, 11).Value = .Range("h22").Value
    mBk.Worksheets("マスター台帳").Cells(j, 12).Value = .Range("h23").Value
    mBk.Worksheets("マスター台帳").Cells(j, 13).Value = .Range("h24").Value
    
    mBk.Worksheets("マスター台帳").Cells(j, 14).Value = .Range("h25").Value


  End With
  mBk.Save
  mBk.Close


Application.DisplayAlerts = False

ThisWorkbook.Save

Unload UserForm7
Application.Quit


End Sub

1 hits

【14939】IF条件にて終了させたい ウシロメタさ 04/6/10(木) 19:53 質問
【14944】Re:IF条件にて終了させたい [名前なし] 04/6/11(金) 1:17 回答
【14945】Re:IF条件にて終了させたい あわびが旬 04/6/11(金) 5:36 お礼
【14946】Re:IF条件にて終了させたい ウシロメタさ 04/6/11(金) 8:26 お礼
【14948】Re:IF条件にて終了させたい ちゃっぴ 04/6/11(金) 11:28 発言
【14956】Re:IF条件にて終了させたい ウシロメタさ 04/6/11(金) 18:58 発言
【14957】Re:IF条件にて終了させたい IROC 04/6/11(金) 20:09 回答
【14958】Re:IF条件にて終了させたい IROC 04/6/11(金) 20:11 回答
【14978】Re:IF条件にて終了させたい ウシロメタさ 04/6/12(土) 13:52 発言
【14979】Re:IF条件にて終了させたい つん 04/6/12(土) 14:33 発言
【14986】Re:IF条件にて終了させたい あわびが旬 04/6/12(土) 19:56 発言
【14987】Re:IF条件にて終了させたい ウシロメタさ 04/6/12(土) 19:58 発言
【14992】きゃー(>_<) ごめんなさい つん 04/6/12(土) 22:27 発言

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