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

sampsonpon

yjh_27 发表于 2024-7-11 00:01
Case "FQC AN"
xz=MsgBox "確定执行"& Target & "?",vbOKCancel,"提示："
If xz=1 Then Call comb TRM6 ...

应该是语法错误，不给过

yjh_27

sampsonpon 发表于 2024-7-11 08:13
应该是语法错误，不给过

加  Msgbox （.....）

饮冰e士

参与一下：

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.   If Target.Address = "$B$2" Then
   
5.     Select Case Target.Value
   
6.       Case "普通镜片"
   
7.         If MsgBox("要执行：" & Target & " 吗？", vbOKCancel + vbInformation, "提醒") = vbOK Then
   
8.           MsgBox "好的，这就执行 " & Target & " ！", vbInformation, "提醒"
   
9.         Else
   
10.           MsgBox "镜片太普通，还是不要了 ！", vbInformation, "提醒"
    
11.         End If
    
12.       Case "有色腿镜片"
    
13.         If MsgBox("要执行：" & Target & " 吗？", vbOKCancel + vbInformation, "提醒") = vbOK Then
    
14.           MsgBox "好的，这就执行 " & Target & " ！", vbInformation, "提醒"
    
15.         Else
    
16.           MsgBox "镜片腿好色，这可要不得 ！", vbInformation, "提醒"
    
17.         End If
    
18.       Case "镜片工厂"
    
19.         If MsgBox("要执行：" & Target & " 吗？", vbOKCancel + vbInformation, "提醒") = vbOK Then
    
20.           MsgBox "好的，这就执行 " & Target & " ！", vbInformation, "提醒"
    
21.         Else
    
22.           MsgBox "工厂套路深，我要回农村 ！", vbInformation, "提醒"
    
23.           End If
    
24.     End Select
    
25.   End If
    
26. End Sub
    

复制代码

sampsonpon

yjh_27 发表于 2024-7-11 00:01
Case "FQC AN"
xz=MsgBox ("確定执行"& Target & "?",vbOKCancel,"提示：" )
If xz=1 Then Call comb T ...

对了对了！谢谢谢谢！

sampsonpon

饮冰e士 发表于 2024-7-11 10:37
参与一下：

嗯，这个也挺好的，好好研究下。谢谢您！明后天送上小花

WANT-T

Tina.棠 发表于 2024-7-10 10:05
宏的调用一般是3个方式，一种是绑定按钮，通过点击调用。第二种可以设置快捷键。第三种，做响应事件，具体 ...

还可以定时，还可以call

sampsonpon

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

如果能给Target固定一下区域就好了，例如A3:B11。否则如果它们边上有相同值的话也就会点击到了

zjdh

sampsonpon 发表于 2024-7-11 15:27
如果能给Target固定一下区域就好了，例如A3:B11。否则如果它们边上有相同值的话也就会点击到了

那就插入一句判断
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("A3:B11"), Target) Is Nothing Then Exit Sub
    '................

End Sub

loveuni

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

这个思路感觉还是很可以的，不错。