Tag: vba

Excel VBA从XML获取特定节点: 我从一个URL API（我没有共享的URL，因为它允许访问安全信息）的XML文件。从这个文件我想获得一定的信息。我的问题是，一旦我在父节点（eventNode），我想简单地能够从特定的子节点获取数据。例如，如果eventNode是<event><ID>1</ID>…<title>event 1</title></event> ，那么我怎样才能知道节点名称是ID （或任何其他价值我想拉出）？我已经看了很多通过论坛和.SelectSingleNode给了我没有运气。此外.selectNodes不会像XMLstring中的正常节点列表一样工作。我不知道这是否是由于我用来parsing我的XML文件的方法。 Sub ListEvents() Dim strPath As String strPath = getAPI("GetEvents", "filter=&orderBy=") Dim xmlDocument As MSXML2.DOMDocument60 Set xmlDocument = New DOMDocument60 With CreateObject("MSXML2.XMLHTTP") .Open "GET", strPath, False .send xmlDocument.LoadXML .responseText End With Dim lvl1 As IXMLDOMNode: Dim lvl2 As IXMLDOMNode Dim eventNode As IXMLDOMNode: Dim isNode […]

有没有一种战术（阅读'黑客'）解决scheme，以避免VBA代码和Excel工作表作为一个二进制文件？: 据我所知，当我用VBA代码创build一个Excel工作表时，VBA代码被保存为工作表的二进制文件。因此，我不能以有用的方式将代码放到源代码pipe理中，有多个开发人员在解决问题，难以区分等等。有没有办法切换到VSTO，COM插件等？例如，从Web服务，共享驱动器等运行的工作表加载所有的VBA？任何想法赞赏。谢谢。

在VBA中使用一个范围数组 – Excel: VBA是否支持使用范围variables数组？ dim rangeArray() as range dim count as integer dim i as integer count = 3 redim rangeArray(1 to count) for i = 1 to count msgbox rangeArray(i).cells(1,1).value next 我不能让它在这种types的应用程序中工作。我想按一定顺序存储一系列的范围作为“主副本”。然后，我可以添加，删除，sorting或做任何事情，这个数组，然后打印出来的Excel中的一系列范围。它似乎不像Excel支持这一点 – 它只是迫使你存储在电子表格中的数据，你必须重读它才能使用它。

在具有多列的列表框中添加项目: 我怎样才能添加2 columns ？如果我使用ListBox.AddItem它会添加第一列中的项目。我也想在2nd column添加项目。谢谢！

如何使用VBA汇总选定范围的列？: 在select了一个包含数值的范围后，我想通过VBA在每一列的底部input一个=SUM公式，即在最后一个选定行之后的行上。对于每一列，它应该将整个select的相应列中的所有值相加。我怎样才能做到这一点？现在，我使用macroslogging器给出的代码： ActiveCell.FormulaR1C1 = "=SUM(R[-10]C:R[-1]C)" 。问题是当我的范围大于10行时，将不考虑底部10以上的行。

VBA在特定范围的细胞和受保护的细胞免受冲洗配方的清除值: 如果我有像A1：Z50的数据，但我只想删除A5：X50 通过使用VBA，任何人都可以引导我（因为我认为它比拖动整个单元格或clickA5 + shift + clickX50 +删除快很多）接着你如何locking细胞以防止其被修复或清除

确定解锁细胞范围的快速方法: 在线论坛中的一个常见请求是用于识别工作表内未locking单元格的代码。标准解决scheme使用循环遍历活动工作表使用部分中的每个单元格，testing每个单元格确定它是否被locking。下面列出了这种方法的代码示例。考虑到循环遍历单元格范围的内在差的性能，可能有哪些优越的方法？（注：我打算join我以前在另一个论坛上主持的现有方法，作为一种潜在的方法 – 但是如果提供的话，我会接受另一种适当的方法作为答案）范围方法来识别解锁的单元格 Sub SelectUnlockedCells() `http://www.extendoffice.com/documents/excel/1053-excel-identify-select-locked-cells.html Dim WorkRange As Range Dim FoundCells As Range Dim Cell As Range On Error GoTo SelectUnlockedCells_Error Set WorkRange = ActiveSheet.UsedRange For Each Cell In WorkRange If Cell.Locked = False Then If FoundCells Is Nothing Then Set FoundCells = Cell Else Set FoundCells = […]

VBA Excel范围（）与单元格参数: 为什么以下不起作用： Range(Cells(1,1)).Value = 3 Cells(1,1)应该基本上和使用A1东西一样吗？（我意识到我可以做Cells(1,1).Value = 3 ，但我只是好奇它为什么不起作用。）我读了MSDN条目，它显示第一个参数必须是A1风格，但是像这样的工作： Range(Cells(1,1), Cells(2,3)).Value = 2 完全困惑。

EnterKey在VBA Userform中按下button: 我在Excel中有一个用户表单，要求input用户名和密码。一旦你input你的密码，如果你按下回车键，只是“select”下一个项目是LogInbutton，但它不会按下它。你必须再次按Enter才能实际按下button。我怎么能这样做，当用户按下他的键盘上的inputloginbutton被按下，并与代码关联运行（ Logincode_click ）？