vba打開文件對話框

『壹』 Excel中用VBA寫一個判斷並彈出對話框

將以下代碼放入所需要的工作表VB代碼中：Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim A1 As Long
Dim B1 As Long
Dim Rsp As String
'定義A1、B1的取值代碼，省略
A1 = Range("A1") '假設A1內容，版實際當中自權行編寫
B1 = Range("B1") '假設B1內容，實際當中自行編寫
If A1 > B1 Then
Rsp = MsgBox("A1已大於A2，請確定繼續?", vbYesNo)
If Rsp = vbNo Then
ThisWorkbook.Close
End If
End If
End Sub實際輸入上述代碼，可採用vba編輯器，選擇對應的工作表，再選擇相應事件SelectionChange，復制輸入上述代碼。