excelvba文件對話框

A. Excel中用VBA寫一個判斷並彈出對話框

ALT+F11進入VBA編輯,在左側的列表裡找到要判斷的A1A2單元格所在的表雙擊,然後在右邊的窗口裡粘貼版以下代碼權.並保存.
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
If
Target.Column
=
1
Then
If
Range("A1")
>
Range("A2")
Then
mya
=
MsgBox("A1已經大於A2,請確定是否繼續?",
vbYesNo,
"警告")
If
mya
=
7
Then
Application.DisplayAlerts
=
False
'所有的更改都不保存.
如果要保存,注釋或刪除這行
'ActiveWorkbook.Save
'這行是保存工作表的,要使用這行代碼請去掉代碼前面的注釋符號
Application.Quit
End
If
End
If
End
Sub

B. excel vba做出一個打開文件對話框：

Sub SelectFile()
Application.DisplayAlerts = False
fil = ThisWorkbook.Name
Filename = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")
If Filename <> False Then
aFile = Split(Filename, "\")
sfilename = aFile(UBound(aFile))
End If
Workbooks.Open (Filename)
Workbooks(sfilename).Sheets(1).Cells.Copy Workbooks(fil).Sheets(1).Cells
Workbooks(sfilename).Close
Application.DisplayAlerts = True
End Sub

C. EXCEL VBA怎樣在點擊按鈕後，彈出一個輸入密碼的對話框，密碼正確的話執後續程序段，否則結束

Subtest()
myPW="123456"'設置密碼
p=InputBox("請輸入運復行密碼","溫馨提示制！",Default)
IfmyPW=pThen
MsgBox"OK"'刪除此句，插入原代碼
Else
MsgBox"密碼錯誤，請重新輸入！",,"溫馨提示！"
EndIf
EndSub

D. 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，復制輸入上述代碼。

E. excel vba 在對話框里輸入參數

Excel中可以利來用將inputbox的結果復制給源變數的方式，在對話框里輸入參數。

軟體版本：office2007

舉例說明如下：

1.在VBA中輸入如下代碼：