Tag: vba

excel vba获取行，来自selection.address的单元格值

For i = 1 To 20 '' select the cell in question Cells.Find(…).Select '' get the cell address CellAddr = Selection.Address(False, False, xlR1C1) Next 以上是我的代码，用于search电子表格来查找特定的string，然后select它。 我想要使​​用Selection.Address来获取单元格的地址，在这种情况下，返回沿着R[100]C 。 有没有办法我可以拆分结果的行和列的值，所以我可以在代码中操纵它们？ 我想，例如，添加14行到选定的单元格的行值。 我相信CellAddr将是一个Range对象，所以它可能工作我只是模糊的实现。 谢谢！

如何检索这台电脑的IP地址？

什么是最简单的（模块包含，代码长度等）方式来检索机器的IP地址（第一个接口打开）？ 我知道一些使用MSINET的解决scheme，但我相信我们可以做得更好。 不要回复 Function HomeIP() as Atring HomeIP= "127.0.0.1" End Function 因为这不是那么有趣…或者是正确的。 该场景是一个文件IDfunction的问题，我试图build立一个答复。

将各个Excel工作表保存为CSV

我需要parsingExcel工作表。 现在我将每张工作表都保存为.csv，效果很好。 我使用OpenCSVparsing文件等，但创build这些.csv文件是一个痛苦。 在Excel中将单个工作表保存为.csv最简单快捷的方法是什么？ 我假设某种VBAmacros将做的工作，但由于我不是一个VBA程序员，我不知道如何做到这一点。 也许我可以以某种方式logging一个macros？

在隐藏的工作表或工作簿上可以执行哪些Excel VBA操作？

隐藏的工作表/工作簿对于在VBA代码中可以做什么有一些限制，比如大多数Select和Selection语句，以及来自ActiveSheet任何东西，但是我似乎找不到任何限制的列表。 Google，帮助系统中的内置文档以及MSDN的网站都让我失望了。 任何人都可以指向正确的方向吗？ 编辑：工作簿打开 Set WB_Master = Workbooks.Open(Filename:=PATH_Master, ReadOnly:=False) 然后隐藏起来 WB_Master.Windows(1).Visible = False

插入行而不select任何东西？

我正在VBA中工作，并希望在特定位置插入一行而不select它。 我遇到的问题是，在选中该行之后，脚本完成运行时，电子表格将向下滚动到该行。 我希望能够做到这一点，而电子表格被向下滚动到插入的行。 Rows(i & ":" & i).Select ActiveCell.EntireRow.Insert 我不想selectA1来到顶部。

从url获取图片，然后重命名图片

我有很多文章编号的excel列表，例如。 “23378847”。 我想要列表中存储在我的文件夹中的所有商品编号的图片。 但结果会是如此。 应该是23378847.jpg而不是152499 http://media.byggtjeneste.no/media/bilde/152499/LargeThumbnail 要么 http://www.nobb.no/Nobbnr/OrginalBilde/23378847/152499 有没有办法，我可以做一个脚本读取我的文件，并保存与列表中相同的文章编号的图片？

在Excel中以编程方式隐藏活动工作簿

我正在开发一个基于工作簿的VBA项目。 该代码打开一个新的工作簿，并调用一个外部的API下载并插入一堆数据在这个新的工作簿的多个工作表。 我停用屏幕更新（ Application.Screenupdating = False ），所以最初屏幕保持专注于原始工作簿，而API在后台下载其他工作簿中的数据。 但是，一旦API插入数据，屏幕切换到新的工作簿。 我怎样才能防止这种情况发生？ 谢谢！

使用VBA代码如何在Excel 2003中将Excel工作表导出为图像？

请build议从excel工作表中导出数据范围的更好方式，如.jpeg或.png或.gif中的图像。

比较VBA中的精度问题

我无法在Excel VBA中比较两个double 假设我有以下代码 Dim a as double Dim b as double a = 0.15 b = 0.01 在对b进行一些操作之后，b现在等于0.6 然而，与双数据types相关的不精确性让我头痛，因为 if a = b then //this will never trigger end if 你知道我怎样才能消除双重types的拖尾不精确？

如何使用VBA将标题添加到Excel用户窗体中的多列列表框

是否可以在多列列表框中设置标题而不使用工作表范围作为源？ 以下使用分配给列表框属性的variables数组，标题显示为空白。 Sub testMultiColumnLb() ReDim arr(1 To 3, 1 To 2) arr(1, 1) = "1" arr(1, 2) = "One" arr(2, 1) = "2" arr(2, 2) = "Two" arr(3, 1) = "3" arr(3, 2) = "Three" With ufTestUserForm.lbTest .Clear .ColumnCount = 2 .List = arr End With ufTestUserForm.Show 1 End Sub