有谁知道如何使用VBA清除即时窗口?
虽然我总是可以手动清除它,但我很好奇是否有办法以编程方式执行此操作.
似乎Visual Basic不能根据用户修改的工作表名称引用工作表.工作表选项卡可以更改其名称,但似乎Visual Basic仍然将工作表名称视为Sheet1等,尽管工作簿选项卡已更改为有用的东西.
我有这个:
TABname = rng.Worksheet.Name ' Excel sheet TAB name, not VSB Sheetx name.
Run Code Online (Sandbox Code Playgroud)
但我想在Visual Basic例程中使用工作表名称.到目前为止我能得到的最好的是选择Case Case the Worksheet Tab与Visual Basic名称,这不是我的一天.Visual Basic必须知道Sheet1,Sheet2等名称.如何将这些与Excel选项卡名称关联起来,以便我不必维护一个随每个新工作表或工作表选项卡重命名而更改的查找表?提前感谢您的回复.
我在下面有这个简单的VBA代码,我不知道为什么不工作.
Sub Run()
test = "MsgBox" & """" & "Job Done!" & """"
Application.Run test
End Sub
Run Code Online (Sandbox Code Playgroud)
我想要做的是将VBA命令作为文本放入变量并将其作为命令运行.在这种情况下,我想运行MsgBox "Job Done!"和打印只是:
任务完成!
我正在尝试在启动Excel时自动显示IDE.
有没有办法模拟功能区中"Visual Basic编辑器"图标的单击?我调查了Application.CommandBars但是丝带没什么.
Private Sub Workbook_Open()
' Display Visual Basic Editor
End Sub
Run Code Online (Sandbox Code Playgroud) 我需要用户单击"信任对VBA项目对象模型的访问",以便我正在构建的应用程序可以帮助他们将代码导入VBE.
我可以显示一个消息框或提供文档,告诉他们如何更改设置(如果他们这样做,则会发出有关反响的警告).但是这个设置仍然埋藏在Excel UI中5次点击...事实上,即使我很难记住在哪里找到它.
所以我想做的是以编程方式打开它们的窗口.
我可能会使用臭名昭着的变幻无常的SendKeys方法,但我想知道是否有更好的方法...
(我看,你实际上可以设置通过宏用VBS脚本来改变当目标Office应用程序并不运行它们按该键的值,获得了用户的VBA项目对象模型这个MSDN文章,但我更希望的是用户手动启用此选项或选择不这样做.
编辑:VBA 或 VSTO解决方案很好,或者您能想到的任何其他内容.
我可以通过调用其.Copy方法来复制工作表。
Sheets("Example").Copy After:=Worksheets("Sheet3")
Run Code Online (Sandbox Code Playgroud)
但是,这还会复制与该工作表关联的所有宏或事件处理程序。如何在不复制任何Visual Basic代码的情况下复制工作表?
我开始使用 InputBox 作为 UI 来获取从数据库运行 SQL 的密码。我发现输入框没有屏蔽输入字符的能力(例如******)。然后我发现我需要使用用户表单来构建带有密码屏蔽字段的文本框。我以前从未这样做过。
我找到了这篇文章(http://www.mrexcel.com/archive/VBA/19882a.html),它似乎可以帮助我完成大部分工作,我可以添加一些我知道该怎么做的事情。当我将其放入空白电子表格中时,我得到了来自其中的完整错误列表,并且由于该帖子太旧了,我想也许 VBA 进行了一些更新,导致此代码过时。有人能够对其提出批评以使其发挥作用吗?我将列出我在尝试修复它时遇到的一些错误以及代码。
Errors:
-Statement invalid Type block
-User-defined type not defined
-Method 'VBE' of object'_Application' failed
-Method 'VBProject' of object'_Workbook' failed
-Object required
Run Code Online (Sandbox Code Playgroud)
代码:
Option Explicit
Public OK As Boolean
Public Const sMyPassWord As String = "test"
Function GetPassWord(Title As String)
'--------------------------------------------------------------------------- ------------
' Procedure : GetPassWord
' DateTime : 4/02/02 19:04
' Author : Ivan F Moala
' Purpose : Creates a Dynamic UF to Test for aPassword
' …Run Code Online (Sandbox Code Playgroud)