VBAProject --> Microsoft Excel Objects --> SheetXX

Private Sub CommandButton6_Click()
    Dim tmp As Integer
    
    tmp = MsgBox("上書き保存します ", vbInformation + vbOKCancel, "上書き保存")
    
    If tmp = vbOK Then
        ActiveWorkbook.Save
        MsgBox "上書き保存が完了しました。", vbInformation, "上書き保存"
    End If
    
End Sub

 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ