VBA启动除了按钮还有些什么？

边缘码农 · 发表于 2024-7-10 10:43

sampsonpon 发表于 2024-7-10 10:36
不碍事，只是太多了

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'MsgBox "单元格内容为： " & Target.Value
If Target.Count = 1 Then
Select Case Target.Value
Case "普通镜片"
MsgBox "执行：" & Target
'call 普通镜片
Case "有色腿镜片"
MsgBox "执行：" & Target
'call 有色腿镜片
Case "镜片工厂"
MsgBox "执行：" & Target
'call 镜片工厂
End Select
End If
End Sub

复制代码

sampsonpon · 发表于 2024-7-10 10:55

skiss 发表于 2024-7-10 10:41
如果太多，可以考虑窗体或者加载项里。

搞个窗体给我玩玩呗，谢谢您！

q490525427 · 发表于 2024-7-10 10:55

3楼的理论，11楼的代码

sampsonpon · 发表于 2024-7-10 17:46

边缘码农发表于 2024-7-10 10:43

这个X只是关闭这个显示页面，我想多给个功能：因为有时可能会点错了，所以能不能在提示后按确定才会真正执行，否则可以取消的

yjh_27 · 发表于 2024-7-10 20:00

本帖最后由 yjh_27 于 2024-7-10 20:04 编辑

sampsonpon 发表于 2024-7-10 17:46
这个X只是关闭这个显示页面，我想多给个功能：因为有时可能会点错了，所以能不能在提示后按确定才会 ...

语法MsgBox(prompt[,buttons][,title][,helpfile,context])
Vb
参数说明

prompt - 必需的参数。在对话框中显示为消息的字符串。提示的最大长度大约为1024个字符。如果消息扩展为多行，则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。buttons - 可选参数。一个数字表达式，指定要显示的按钮的类型，要使用的图标样式，默认按钮的标识以及消息框的形式。如果留空，则按钮的默认值为0。title - 可选参数。显示在对话框的标题栏中的字符串表达式。如果标题留空，应用程序名称将被放置在标题栏中。helpfile - 可选参数。一个字符串表达式，标识用于为对话框提供上下文相关帮助的帮助文件。Context - 可选参数。一个数字表达式，用于标识由帮助作者分配给相应帮助主题的帮助上下文编号。如果提供上下文，则还必须提供helpfile。

'    量                   值    说明
'    vbOKOnly             0    仅显示“确定”按钮。
'    vbOKCancel             1    显示“确定”和“取消”按钮。
'    vbAbortRetryIgnore    2    显示“中止”、“重试”和“忽略”按钮。
'    vbYesNoCancel          3    显示“是”、“否”和“取消”按钮。
'    vbYesNo                4    显示“是”和“否”按钮。
'    vbRetryCancel          5    显示“重试”和“取消”按钮。

micch · 发表于 2024-7-10 20:16

可以考虑做到菜单里去，从菜单中激活代码

sampsonpon · 发表于 2024-7-10 22:47

yjh_27 发表于 2024-7-10 20:00
语法MsgBox(prompt[,buttons][,title][,helpfile,context])
Vb
参数说明

这个好，明后天给你花，现在没了

sampsonpon · 发表于 2024-7-10 22:49

micch 发表于 2024-7-10 20:16
可以考虑做到菜单里去，从菜单中激活代码

要不您搞个具体的让我试用用？谢谢您！明后天再给花了

sampsonpon · 发表于 2024-7-10 23:19

yjh_27 发表于 2024-7-10 20:00
语法MsgBox(prompt[,buttons][,title][,helpfile,context])
Vb
参数说明

这个取消键实际上没效果啊，按了取消照样执行啊，怎么弄？想把提示信息的内容排版到正中又怎么弄？

yjh_27 · 发表于 2024-7-11 00:01

本帖最后由 yjh_27 于 2024-7-11 09:54 编辑

sampsonpon 发表于 2024-7-10 23:19
这个取消键实际上没效果啊，按了取消照样执行啊，怎么弄？想把提示信息的内容排版到正中又怎么弄？
...

Case "FQC AN"
xz=MsgBox ("確定执行"& Target & "?",vbOKCancel,"提示：" )
If xz=1 Then Call comb TRM6AN

		自动登录	找回密码
密码			免费注册

[求助] VBA启动除了按钮还有些什么？

评分

评分

评分

评分