VBA - 计算特定日期范围内的值
首先，让我告诉你我想要实现的脚本。我需要一个脚本来计算日期范围内的值3个月，我有一个源文件，其中包含3个月的数据，现在如果数据在数月内，我需要按月计算数据（3 ）将其标记为所选..（每月至少一个值（最多3个）） 样本： `头文件A |标题B |标题C | white | 1/1/2016 | | white | 2/2/2016 | | white | 3/3/2016 |
..
Office
将值分配给动态数组元素会导致下标超出范围错误
Sub ArrTest（） Dim Arr（）As Variant Arr（1，1）=“Test” End Sub 我没有对数组进行维度，因为我不知道需要什么大小是。我将最终将这个数组写入一个电子表格。我试图将将来写入的单元格的左上角分配为“test”。 现在，如果我明白动态数组开始索引在0，所以第一个元素是真的Arr（0,0）。我试过Arr（0,0）
..
Mac Excel使用VBA生成UTF-8
是否可以在Excel 2016 for Mac中使用Visual Basic（VBA）生成UTF-8文件？ 我需要生成一个编码的XML或TXT文件。 谢谢 解决方案 不是UTF-8，但是 UTF-16 是VBA在内部使用的，所以你可以直接转储字符串数据： Dim fnum As Integer fnum = FreeFile（） 打开“utf16.txt”对于二进制访问
..
在VBA excel 2016 64bit的Treeview的替代品
我正在尝试运行一个具有树视图控件的VBA的excel。它在32位机器上工作正常，但是在64位机器上，与excel 2016不工作，错误，没有找到treeview组件。 有没有其他类似的组件可以替换treeview？ 解决方案 如果你在谈论64位Office，而不是64位Windows，那么我建议你看一下Jan Karel的替换Treeview这里： http://www.jkp-ad
..
excel vba在单元格中选择第二个最后一个字符
我以为这很简单，但是找不到解决方案！ 我正在写一个宏，在单元格中的现有文本之后插入一个红色的刻度（或向下箭头）。 ActiveCell.FormulaR1C1 = ActiveCell& “P” P需要格式化为粗体，红色和Wingdings 2.它需要一个空格如果以后添加文本，则会在以后添加。 如果在文本之前没有问题： 使用ActiveCell.Cha
..
在IF公式中引用Workbook变量
我有一个宏，用于比较两个工作簿之间的数字，并输出是否正确或不正确。 其中一个工作簿被存储为一个变量，因为它引用了上个月的名字。 Dim wb As Workbook 设置wb =工作簿（“Monthly Life Management Report”& Format（DateAdd（“ m“，-1，Date），”mmmm yyyy“）&”.xlsm“） 运行宏的最后一部
..
尝试从新创建的工作簿（Outlook VBA）中删除工作表时的运行时错误
我有一个Outlook宏，用于将用户 Tasklist 导出到存储在网络驱动器上的Excel电子表格。 我正在尝试检查目录中是否存在工作簿（如果从这里得到的语句）。 如果没有一个，则使用一个名为“Sheet 1”的工作表创建一个新的工作簿，如果已经有一个正确的用户名，然后打开它（ add声明从这里）： Dim FilePath As String Dim TestStr A
..
使用ADODB从VBA中的Recordset获取小数
我正在尝试从一个字段获取一个值，我不知道为什么是圆的 rs.Open myQuery，cnn i = 1 尽管rs.EOF = False S1 = rs.Fields（“S1”） 单元格（i，1）= S1 i = i + 1 rs.Next 循环 例如，在数据库S1是8.567，但我总是得到8 有没有办法从该字段定义数据类型？ 谢谢！
..
Excel的VBA宏连接
我有一个要求，像我在列A中有一些值，我有B，C，D列中的多个值。如果我的列包含值 X 然后我要列标题和列A值连接。 例如 我在Stack Overflow中遇到了很多问题，我没有发现任何有用的东西。 感谢您的帮助！ 解决方案 请尝试此代码。 Sub FindValues（ByVal WhereToFind As Range，ByVal WhereToPaste A
..
VBA代码将当前日期添加到下一个单元格中
我有以下数据（附件），我必须每天手动添加。 现在，我试图自动化。 我想在下一个可用的单元格中添加当前日期（例如：单元格E1） 第二个单元格（E2），应获得名为“库存”的另一个工作表的自动过滤器后可见行的返回值。 请帮助我使用这两个代码。 解决方案 Sub main（） With Range（“A1”）。CurrentRegion .Offset（.Columns.C
..
数据库中的VBA点加载到文本框中为逗号
我知道标题听起来很奇怪，所以我将从截图开始： 正如你所看到的，问题是当我在UserForm中查找一个ID时，这一点突然变成一个逗号。 在回顾信息之前，我保存所有信息非常简单： 与ws 范围（“BH”& lastRow）.value = Me.payinfoOnTime 范围（“BI”& lastRow）.value = Me.payinfo30 范围（“BJ” & last
..
如何编程命令按钮将一系列数据复制到另一个工作簿
我想知道有人能帮我吗我是一名新的VBA用户，并在本网站上制作了使用指南的时间表。 目前，当点击命令按钮2时，在时间表上捕获的数据将被传输到同一工作表中名为“数据”的工作表。我想要的是将其传输到另一个文件夹中保存的另一个工作簿。工作表的完整路径为C：\Users\mohskhan\Desktop\masterts.xlsm。请有人帮忙 当前编码如下： Private Sub Co
..
VBA - 更改省略副本以允许重复
代码说明 我有一些代码，可以从打开文件中的两个特定列标题下获取信息，并将其打印到主文件。它将信息打印到我的主文件到第3列，然后列第2列，然后根据第3列中的单元格数列列1。列1,2和3应始终是相同的长度（包括空格） 我目前使用一个GetValue函数，它找到一个特定的头，例如HOLDER，并从最后一个占用的行直到但不包括标题HOLDER，抓取其下的所有值。它忽略了任何副本。 问题是
..
从网站检索数字到Excel
从本网站 http://bit.ly/1Ib8IhP 我试图将这个数字转成Excel单元格。 在Bayswater路的要价：$ 1,828,502 有没有办法使用VBA或其他工具？ 解决方案 这是一种可能的解决方案： Option Explicit Sub RetrieveAvgPrice（） Dim sUrl，sContent，sPri
..
我需要修改代码来计算列中可变数量的行
我正在尝试找到一些excel vba代码，它对列中的所有单元格进行计数，该列具有高于活动单元格以上的值，不包括标题，并排除紧邻活动单元格上方的单元格。所以例如，如果我有一个列 1 5 4 N / A 4 当前单元格 我希望当前单元格等于2 （计数5和4，而不是N / AN / A，不是当前单元格以上的单元格，而不是第一个单元格） 列将不同。
..
使用VBA获取阈值
我有一列A和一列B.在列A中，我有（从A2开始）从1-150开始的值（所以结束于A151） 如果是这样，我也有同样的事情在列CY 更好的解释： 循环通过列BY 从单元格2-151的内部循环。 如果B2> Z2，还有下一个4个顺序单元格（B3-B6）> Z2，则将A2复制到B153并移至下一列。 如果B2> Z2但是下一个4不是全部> Z2，则用B3重复进程。 如果B2
..
如何在Excel中使用userform VBA记住'red x'时的密码
用户通常必须运行更多次，每次提示输入登录凭据所以我希望userform在用户/密码一直被提供直到工作簿被关闭之前记住。 它正常工作，直到用户按下“进程”按钮或从“关闭”按钮关闭用户窗体，但是当他/她用“红色” x'，用户/通行证在下次运行时消失。 我知道'红色x'可以被禁用，但是如果有另一种方式，我很好奇即使在按下“红色x”的情况下，也可以记录用户记录吗？ 以下是我的代码：
..
奇怪的方法比较发生
这是一件奇怪的事情，我在这里看到这个问题：问题与VBA Excel数字格式我以为我可以扩展它，看看有没有人可以解释。 说我有一个Excel文档，列有5个单元格 A 全部为 1234 第一个格式为格式字符串“000000000” 第二个格式使用Excel的“Number”格式 第三个格式为Excel的“常规”格式 第四个格式为“文本” 第五个格式为“文本”，但实际上是字符串“00
..
用VBA隐藏数据透视表
我尝试访问： .PivotTables（index）.Visible 但是没有可见属性为数据透视表对象。 如果用户更改了一些复选框，我需要隐藏这些数据透视表。也许我可以把它们隐藏在一个白盒子后面，但在我看来，这不是一个很好的解决方案。 如果你不能帮我，那我会做它与白盒子。 提前非常感谢你的答案... 解决方案 尝试： .PivotTables（inde
..
无法在Excel VBA IP列表ping中更改ping超时
以下代码在Excel表单中列出IP地址列表，并返回响应时间和TTL。根据IP地址的数量，超时可以真正加快，并等待很长时间。有没有办法添加500ms的自定义超时？ Sub Ping_Check（） '根据http： /social.technet.microsoft.com/Forums/en-US/ITCG/thread/e59a38e1-eaf0-4b13-af10-fd4be559f5
..