Tag: vba

VBA设置单元格的公式: 我正尝试使用（dynamic创build的）工作表名称和固定单元格地址来设置单元格的公式。我正在使用下面的行，但似乎无法得到它的工作： "=" & strProjectName & "!" & Cells(2, 7).Address 任何意见，为什么这是行不通的或在正确的方向prod将不胜感激。提前致谢

Excel VBA – 如何清除另一个应用程序中另一个工作簿上的剪贴板？: 背景：我有一个格式化原始数据的脚本，并将其附加到我打开的分析工作簿的末尾。该脚本从分析工作簿运行，因为RAW数据每次都被填充。问题：脚本工作正常，有一个例外，我无法清除其他工作簿上的剪贴板，我怀疑这是由于它在Excel的另一个实例（应用程序）中打开。我的代码如此之远： Sub Data_Ready_For_Transfer() Dim wb As Workbook Dim ws As Worksheet Dim rnglog As Range Dim lastrow As Range Dim logrange As Range Dim vlastrow As Range Dim vlastcol As Range Dim copydata As Range Dim pastecell As Range Dim callno As Range Set wb = GetObject("Book1") Set ws = […]

如何获得工作表上的光标的（X，Y）坐标？: 我希望能够创build一个graphics，其左上angular位于我的光标位置。那可能吗？我的鼠标的（X，Y）可以转换成范围格式吗？

当我尝试使用在Excel电子表格中定义的VBA函数时，我得到“这不是一个有效的函数”: 我在VBA中定义了一个函数，如下所示 Public Function Distance(X, Y) as Double 然后在一个单元格中，我尝试使用这个函数。我input“@Dis”并得到下拉菜单，select函数，然后在单元格中input以@Distance（A1，A2）结尾的参数。当我按Enter时，出现错误“该function无效”。我在整个系统中启用了macros，试图将其保存为旧的格式，并将其作为macros启用的工作簿格式无济于事。我使用这个函数有什么问题？

共享/分发Excelmacros的最佳方式是什么？: 我在Excel中编写macros，并希望将其分发给用户。一旦打开，我希望macros将自己添加为工具栏，然后在Excel打开时始终可见。所以macros可以方便地从所有的工作簿中使用。

在excel vba中添加分钟（hh：mm）: 我正在制作一个制作时间表，并且想补充一下。 78分钟到一个时间前。 7：05（上午）在VBA。我怎么去做这个？这是我到目前为止所尝试的，但我得到一个错误13types：不匹配 Dim TUntilPump As Integer Dim TFPump As Long, TStartPump As Long TUP = 78 TFP = Time(0, TUP, 0) TSP = Time(7,05,0) + TFP 我认为这与我的variables维度或我的时代的格式有关，但我不知道我做错了什么。任何帮助表示赞赏，并提前感谢！

VBA是否有三元运算符？: 我来自基于C编程语言的Obj C的美丽世界，我爱上了寻找节省空间的奇特方法。但是，我已经查看了尽可能多的文档，并且我无法在VBA上find任何可以缩短此语法的多汁内容： If boolVar = True Then 'Do something Else 'Do nothing End If 在对象C中，自然是C，我非常熟悉这样做： boolVar ? "Nope, tis false" : "Yup, tis true" 这与大多数其他语言使用的非常相似，有些可能会使用额外的逻辑运算符，如!=或==但这让我很乐观。我可能没有find正确的地方，如果是这样的话，请让我知道你的文档在哪里。 TLDR，我们可以在VBA中缩短If / Then / Else到一行代码吗？当“做某事”不过是设置另一个variables的单个参数，或启用/禁用一个button时，这非常方便。

在Excel中使用VBA修剪单元格: 我有什么看起来像Excel中的一些数据的简单问题。我有大量的数据与从networking表粘贴的前导空格，我想摆脱最初的空间。我拆了下面的代码（我完全是VBA的新手），但似乎没有工作。当我在debugging器中遍历它看起来像一个无限循环。任何帮助，将不胜感激！ Sub DoTrim() For Each cell In Selection.Cells If cell.HasFormula = False Then cell = Trim(cell) End If Next End Sub 编辑：它看起来像修剪function运行到“空间”字符的问题。此代码： Sub DoTrim() Dim cell As Range, areaToTrim As Range Set areaToTrim = Selection.Cells For Each cell In areaToTrim cell.Value = "MUPPET" Next cell End Sub 改变了单元格的值，所以我想这是一个非空格的空格！任何想法如何摆脱这些？

添加新行到Excel表（VBA）: 我有一个excel，用来logging你为特定的一天和一顿饭摄取的食物。我有一个网格，其中每一行代表你吃的食物，它有多less糖等。然后我添加了一个保存button，将所有的数据保存到另一个表中的表格。这是我所尝试过的 Public Sub addDataToTable(ByVal strTableName As String, ByRef arrData As Variant) Dim lLastRow As Long Dim iHeader As Integer Dim iCount As Integer With Worksheets(4).ListObjects(strTableName) 'find the last row of the list lLastRow = Worksheets(4).ListObjects(strTableName).ListRows.Count 'shift from an extra row if list has header If .Sort.Header = xlYes Then iHeader = 1 […]

运行VBA脚本导致Excel停止响应: 我有一个VBA脚本，将表添加到大约500个Excel文件。我在运行VBA脚本和添加简单表单时没有任何问题，但是当我尝试添加一个VBA脚本表单和graphics和button的表单时，它会运行一段时间而不是冻结。这是代码。我知道它没有error handling – 任何build议如何解决这个问题，也许是什么导致Excel冻结？ Sub FindOpenFiles() Const ForReading = 1 Set oFSO = New FileSystemObject Dim txtStream As TextStream Dim FSO As Scripting.FileSystemObject, folder As Scripting.folder, file As Scripting.file, wb As Workbook, sh As Worksheet Dim directory As String 'The path for the equipement list. – add the desired path for all […]