点击按钮如何弹出新的菜单栏

如何设置按钮控件点击弹出新菜单栏

展开全部

如果是另外工作薄说明太简单，随时不能提供宏代码。如果是其他工作表，方法如下：

要在菜单栏空白处进行操作，请依次执行以下步骤： 1. 右键单击菜单栏的空白区域。 2. 在弹出的右键菜单中选择“控件工具箱”。 3. 在“控件工具箱”对话框中选择“命令按钮”控件。 4. 在工作表中适当位置放置“命令按钮”控件，并关闭对话框。 5. 双击“命令按钮”控件打开代码编辑区。 6. 复制并粘贴以下代码到代码编辑区。 完成以上步骤后，你就可以实现相应的功能了。

Private Sub CommandButton1_Click()

Dim Inet As String

Inet = InputBox（＂请输入要粘贴的行号：＂）

If Len(Trim(Inet)) > 0 Then

If Application.CountA(Sheet2.Range(＂b＂ & Inet & ＂:d＂ & Inet + 1)) > 0 Then

If MsgBox（＂你选择的单元格粘贴区域有数值。是否继续？＂， 4 + 32， ＂提示＂） = vbYes Then

Range(＂a1:c2＂).Copy Sheet2.Range(＂b＂ & Inet)

End If

Else

Range(＂a1:c2＂).Copy Sheet2.Range(＂b＂ & Inet)

End If

End If

End Sub

注意：复制数据源的工作表设置按钮控件，粘贴的工作表是SHEET2

另外因为粘贴的位置所在的行说明并不详细，我采用了对话框选择，如果不用对话框，自动粘贴和粘贴到其他工作薄的可以HI我交谈。

汗~~~没有测试！现发现错误已更改。

WPS控件怎么设置呢

原发布者：安信纪要

OA系统WPS控件设置办法一、控件情况说明1.1WPSdocFrame控件WPSdocFrame.dll是金山公司开发带有签名的ActiveX文件框架控件，Clsid是8E7DA7EC-07EC-4343-8141-88A2ADB63A5F，目前版本是1.0.0.10。系统安装了WPS以后会自动安装WPSdocFrame.dll；该文件的目录是C:\Windows\System32，下表是相关信息。1.2WPSDM_Proj控件WPSDM_Proj.OCX是众望通公司开发未带签名ActiveX文件操作控件，Clsid是5DC31ABD-9983-4E03-BDA6-3CC29693EA82，目前版本是1.1.2.5。该文件正常的下载目录录是C:\Windows\DownloadedProgramFiles，下表是相关信息。二、问题现象因部分客户端由于系统设置原因使得控件没有正确下载安装，导致用户在打开OA系统文件正文等相关操作时提示：“WPS不能正常调用！请检查是否安装了WPS！”等相关信息，无法正常操作WPS正文。如下图所示

三、控件检测3.1检测WPSdocFrame控件检测WPSdocFrame控件是否正确安装，运行OCXTest.exe。在“测试WPSDOC控件”Sheet页面点击测试。如果出现下图。表明WPSdocFrame控件已经正确安装。

如果出现“没有注册类别”提示信息，则表明WPSdocFrame控件没正确安装，如下图所示：

3.2检测WPSDM_Proj控件检测WPSDM_Proj控件是否正确安装，运行OCXTest.exe。在“测试众望通控件”Sheet页面点击测试。如果出现下图。表明WPSDM_Proj控件已经正确安装。如果出现“没有注册类别”提示信息，则表明WPSDM_Pro控件没正确安装，如下图所示：