77问答网
所有问题
当前搜索:
vba弹出对话框提示输入
VBA
怎么弹出窗口输入,
弹出显示输入
某某某,输入后在某某位置上,因为表 ...
答:
Sub
弹出输入对话框
() m = InputBox("请输入身份证号码:", "
提示
", "420102198001013413") [A1] = mEnd Sub 执行该代码将弹出一个对话框,如图:你可对m中的值用代码进行判断,如果有错则再写1句代码提示“输入错误,请重新输入:”等,m中的值也可赋值到你任意需要的地方,或直接在当前...
...
VBA
怎样在点击按钮后,
弹出
一个
输入
密码的
对话框
,密码正确的话执后续...
答:
Sub test()myPW = "123456" '设置密码p = InputBox("请
输入
运行密码", "温馨
提示
!", Default)If myPW = p Then MsgBox "OK" '删除此句,插入原代码Else MsgBox "密码错误,请重新输入!", , "温馨提示!"End IfEnd Sub ...
如何通过
vba
在关闭Excel时
弹出对话框
?
答:
代码文本为:Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim arr, j arr = Me.Sheets(1).UsedRange.Resize(2)For j = 1 To UBound(arr, 2)If arr(1, j) <> "" And arr(2, j) = "" Then Application.Goto Me.Sheets(1).Cells(2, j)MsgBox "关闭前请
输入
【" & arr(1...
如何用
VBA
语言编一个,当文件有重复
输入
时,会
弹出
一个需要输入密码的
对话
...
答:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim TR, TC TR = Target.Row TC = Target.Column If Cells(TR, TC) <> "" Then X = WorksheetFunction.CountIf(Range("A:A"), Cells(TR, TC))If X > 1 Then If InputBox("有重复的数据录入,
输入
密码确认!否则会清除") ...
如何用
VBA
实现
弹出
窗口
答:
(1) 如果同时提供了Helpfile与Context参数,可以按F1键来查看与Context相应的帮助主题,Excel通常会在
输入框
中自动添加一个帮助(Help)按钮。(2)若在消息框中
显示
“取消”按钮,则按下ESC键与单击“取消”按钮效果相同。若消息框中有“帮助”按钮,则提供相关的帮助信息。(3)如果要输入多个参数并省略...
VBA
实现点击按钮后在
弹出
的
对话框输入
行号,并将该行删除。
答:
1:n = n + 1 If n > 3 Then Exit Sub Else mima = InputBox("请
输入
密码")If mima <> 123 Then GoTo 1 Me.Unprotect (123)End If shrow = Application.InputBox("请输入行号", , , , , , 1)Rows(shrow).Delete Me.Protect 123, 1, 1 End Sub 将下面的代码复制到thisworkbook...
Excel中用
VBA
写一个判断并
弹出对话框
答:
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,复制输入上述代码。
...列
输入
或粘贴数据后,一列中有重复的则
弹出对话框
警告。
答:
选中你要
输入
的列,如A列,进行以下操作:1、依次选择:数据-数据有效性-数据有效性(V)2、设置中选择:自定义,输入函数:=countif(A:A,A1)<2 3、出错警告,样式选择:警告;标题输入:错误;错误信息输入:数据重复。4、确定 5、可以在A列输入数据试试了 ...
EXCEL中如何用
VBA
实现判断并
弹出对话框
? 要求如图片:
答:
for i=2 to [b65536].end(3).row if cells(i,"B")<500 then If MsgBox("是否要继续", vbOKCancel, "温馨
提示
") = vbOK Then '这里放继续 的代码 Else exit sub End If end if next
excel
vba
输入框
在sheet1中
弹出对话框输入
一个数,在sheet2中弹出一...
答:
Public a As Integer 然后,在sheet1的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()a = InputBox("mmmm")Worksheets("sheet2").Select End Sub 然后在sheet2的Worksheet_Activate()事件里写上代码:Private Sub Worksheet_Activate()If InputBox("nnnnnn") = a Then Range("...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vba弹出确认对话框
vba点击单元格弹出对话框
vba关闭当前excel文件
vba中弹出警告框的命令
excel可以设置弹窗输入吗
vba 弹出窗口
vba二维数组初始化
vba生成随机数
vba定义数据类型