Tag: vba
find第一个空白行，然后写入它
我需要find工作簿中的第一个空白行，并将信息写入（row，1）和（row，2）。 我觉得我现在很坚持 Function WriteToMaster(num, path) As Boolean 'Declare variables Dim xlApp As Excel.Application Dim wb As Workbook Dim ws As Worksheet Dim infoLoc As Integer Set xlApp = New Excel.Application Set wb = xlApp.Workbooks.Open("PATH OF THE DOC") Set ws = wb.Worksheets("Sheet1") 'Loop through cells, looking for an empty one, and set that to the Num […]
在IE中使用Excel中的VBA到Googlesearch并返回第一个结果的超链接
我一直在试图使用IE自动化谷歌searchExcel中的文本string。 我想要返回excel中另一个单元格的第一个结果的网站的超链接。 这可能吗？ 我有一个60,000条logging的列表，我需要谷歌search，并在第一个结果中返回网站的超链接。 有没有其他的方法可以推荐？ 我感谢提前的帮助。
如何将项目添加到excel VBA中的窗体中的combobox？
我是VBA新手。 我想创build一个表单，用户select一个combobox的项目，select运行一个macros。我在VBA中创build了一个用户窗体，但我无法将项目添加到combobox。当用户打开表单时，我想要的select在combobox已经加载，我可以做到这一点？ 谢谢
设置Range.Locked时出现错误1004
当试图设置Range对象的Locked属性时，我得到了catch-all运行时错误1004，“无法设置Range类的Locked属性”。 代码如下所示： that_goddamn_sheet.Unprotect ; Determine if we should proceed that_goddamn_range.Locked = True ; Do more stuff that_goddamn_sheet.Protect 当我在行上设置一个断点，并尝试从立即窗口查询that_goddamn_range.Locked的值，这工作没有问题，但设置失败。 但是，如果我运行了that_goddamn_range.Select ，打破macros，解除工作表（它会得到select更改自动重新保护），然后右键单击，select属性，切换到保护选项卡，并勾选locking，然后确认，但工作正常。 什么可能会出错？
如何为VBA应用程序创build产品密钥，防止非法分发软件？
我正在使用Excel VBA应用程序。 我的公司想把它做成一个产品。 这个应用程序只能在一个系统上安装。 有人可以帮我这个。
运行时错误49，错误的DLL调用约定
问：Excel会一直抛出下面的错误，只要我的插件被加载（运行时错误49，错误的DLL调用约定） 尽pipe没有外部DLL引用，但每次都会popup对话框，但不显示错误的位置。 要么 问：每当我保存一行代码时，Excel崩溃。 这怎么解决？
使用VBAmacros重命名Excel工作表
我想询问有关重命名Excel表，我想用新的名称重命名表：旧名+ _v1。 所以，如果我目前的工作表名称是testing ，那么我想要新的名称test_v1 。 我只知道标准的vba重命名excel表单，它是由表单内容重命名excel表单。 Sub Test() Dim WS As Worksheet For Each WS In Sheets WS.Name = WS.Range("A5") Next WS End Sub
Excel VBA中可以全局声明工作表对象吗？
我正在重构Excel 2003工作簿中的许多模块，并在每个模块的每个过程中声明相同的一组工作表; 我想在全球范围内宣布一次。 我可以将工作表名称设置为文字，例如： Public Const xlwkGSModel = "gs_model" As String 然后在程序中使用： …ActiveWorkbook.Worksheets(xlwkGSModel).Cells(1,1) 但有没有办法来声明工作表对象，以便过程中的代码可以是： …xlwkGSModel.Cells(1,1)
vba：从函数返回字典
这概述了我正在尝试做什么。 这不适合我，这是不清楚的。 提前感谢您的帮助。 Sub mySub() dim myDict as Dictionary myDict=new Dictionary myDict=myFunc() End Sub Function myFunc() dim myDict2 set myDict2 = new Dictionary 'some code that does things and adds to myDict2' myFunc=myDict2 End Function
更改单元格中某些字符的颜色
在A1格中我有句子“我想要50个”。 我想使任何数字字符红色文本（只是数字字符）。 我该怎么做呢？ 这是我所拥有的框架 Sub RedText() Dim i As Integer For i = 1 To Len(Cells(1, 1).Value) If IsNumeric(Mid(Cells(1, 1).Value, i, 1)) = True Then 'make the character red text End If Next End Sub 任何帮助将不胜感激。
