[已解决]【求教】操作--删除表的对话框

xdwy81129

【求教】操作--删除表的对话框
Sheets(3).Delete
用语句删除表时，excel会自动弹出如下图的对话框

1.希望做到5秒钟没有选择执行默认的选择（删除）。

2.如果点击的是“取消”按钮----这句语句怎么写。

感谢老师赐教

 

【求教】操作--删除表的对话框

最佳答案

月排行榜 / 总排行榜

amulee

2010-4-26 14:24

可以编写菜单，替换当前菜单中的相关按钮，包括工作标签右键菜单和编辑菜单中的删除工作簿的相关按钮。自己添加一个使之指向如下Test过程。菜单编写你自己想办法完成吧。我把主过程给你。

Function 是否删除()
    Dim ReturnN
    ReturnN = CreateObject("WScript.Shell").Popup("是否确定删除？", 5, "警告", 1)
    是否删除 = IIf(Abs(ReturnN) = 1, True, False)
End Function
Sub Test()
    Application.DisplayAlerts = False
    If 是否删除 Then
        ActiveSheet.Delete
    End If
    Application.DisplayAlerts = True
End Sub

[此贴子已经被作者于2010-4-26 14:25:01编辑过]

跳转到最佳答案楼层

xdwy81129

自己顶下，等待答案

开辆小富康

这个，建议你自己写一个弹出对话框，用默认的好象不太好办哟

开辆小富康

e2dw5OCK.rar (13.61 KB, 下载次数: 0)

2010-4-24 05:58 上传

点击文件名下载附件
【求教】操作--删除表的对话框
山寨一个，用来删除test工作表

xdwy81129

QUOTE:

以下是引用开辆小富康在2010-4-24 5:59:00的发言：

山寨一个，用来删除test工作表

谢谢，能指教下怎么没有让默认的删除对话框出现？？？？？

amulee

可以编写菜单，替换当前菜单中的相关按钮，包括工作标签右键菜单和编辑菜单中的删除工作簿的相关按钮。自己添加一个使之指向如下Test过程。菜单编写你自己想办法完成吧。我把主过程给你。

Function 是否删除()
    Dim ReturnN
    ReturnN = CreateObject("WScript.Shell").Popup("是否确定删除？", 5, "警告", 1)
    是否删除 = IIf(Abs(ReturnN) = 1, True, False)
End Function
Sub Test()
    Application.DisplayAlerts = False
    If 是否删除 Then
        ActiveSheet.Delete
    End If
    Application.DisplayAlerts = True
End Sub

[此贴子已经被作者于2010-4-26 14:25:01编辑过]

amulee

关于Popup对话框的说明如下：

语法
WshShell.Popup(strText, [natSecondsToWait], [strTitle], [natType]) = intButton
注释
若提供 natSecondsToWait 且其值大于零，则消息框在 natSecondsToWait 秒后关闭。
natType 的含义与其在 Win32? MessageBox 函数中相同。下表显示 natType 中的值及含义。下表中的值可以组合。
按钮类型
值 说明
0 显示“确定”按钮
1 显示“确定”和“取消”按钮
2 显示“终止”、“重试”和“忽略”按钮
3 显示“是”、“否”和“取消”按钮
4 显示“是”和“否”按钮
5 显示“重试”和“取消”按钮
图标类型
值 说明
16 显示停止标记图标
32 显示问号图标
48 显示感叹号图标
64 显示信息标记图标
以上两个表并不涵盖 natType 的所有值。完整的列表请参阅 Win32 文档。
返回值 intButton 指示用户所单击的按扭编号。若用户在 natSecondsToWait 秒之前不单击按扭，则 intButton 设置为 -1 。
值 说明
1 “确定”按扭
2 “取消”按扭
3 “终止”按扭
4 “重试”按扭
5 “忽略”按扭
6 “是”按扭
7 “否”按扭

xdwy81129

QUOTE:

以下是引用amulee在2010-4-26 14:24:00的发言：

可以编写菜单，替换当前菜单中的相关按钮，包括工作标签右键菜单和编辑菜单中的删除工作簿的相关按钮。自己添加一个使之指向如下Test过程。菜单编写你自己想办法完成吧。我把主过程给你。

Function 是否删除()
    Dim ReturnN
    ReturnN = CreateObject("WScript.Shell").Popup("是否确定删除？", 5, "警告", 1)
    是否删除 = IIf(Abs(ReturnN) = 1, True, False)
End
  Function
Sub Test()
    Application.DisplayAlerts = False
    If 是否删除 Then
        ActiveSheet.Delete
    End
  If
    Application.DisplayAlerts = True
End
  Sub

好好学习下，不懂在重新提问了。

感谢阿木老师