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中输入如下代码：