vba相关内容

VBA:如何从数据中删除不可打印的字符

我需要以编程方式删除不可打印的字符,例如: 制表符-字符(9) 换行符-字符(10) 回车-字符(13) 数据链路转义字符(16) 我启动了一个通用函数,该函数将从MS Access表单域的Lost_Focus事件中调用。 我想不出当字符串包含不需要的字符时如何识别。 Function RemoveNonPrintableCharacters(ByVal TextDat ..
发布时间:2022-04-08 17:39:05 其他开发

如何从一列中查找每个值并返回带有分隔符的电子邮件地址

此问题已解决using a formula。 遗憾的是,我需要一个可以在Excel 2016中运行的解决方案,而VBA似乎是最佳/唯一的解决方案。 图例:(跨同一工作簿中的多个工作表) 每列都有一个标题。 表3 A栏:姓名列表 表3 H栏:电子邮件地址列表 Sheet1的M列:包含向下拖动的以下公式,该公式生成可变行数的数据: =IFERROR(INDEX($A$2:$A$42,MAT ..
发布时间:2022-04-08 13:33:29 其他开发

将宏传给自定义项

我希望将下面的宏传输到UDF,但我不知道如何将其传输到UDF。 我想要一个UDF,我在其中选择查找字符串并在放置UDF的单元格中返回它。 有人能帮帮我吗? Sub Find_pipe() Dim Findstring As String Dim Location As String Dim Rng As Range Sub Find_Fi ..
发布时间:2022-04-08 13:29:51 其他开发

在UDF VBA函数中返回错误的最佳方法

我有一个带错误处理的Excel VBA函数,它返回一个Double。 如果函数失败,返回错误的最佳方式是什么? 目前,如果失败,则返回0,但0可能是该函数的有效返回。 是否只需将函数更改为返回Variant,然后返回错误? 推荐答案 您可以使用CVErr()返回任何#类型的错误;例如,返回#VALUE! Public Function Foo(i As Long) ..
发布时间:2022-04-08 13:12:07 其他开发

VBA-按周分配从MS Project提取剩余工时

在查看可能的PjAssignmentTimscaledData选项(here)时,我需要提取的缺少的是剩余的工作字段。有没有人能够想出如何使用VBA根据剩余工作提取每周作业? 我的VBA中有一个部分是: ass.TimeScaleData(tsk.Start,tsk.Finish,pjAssignmentTimscaledActualWork,pjTimscaleWeek) 但我 ..
发布时间:2022-04-07 12:13:20 其他开发

PowerShell调用-命令使用stdout和stderr检索从VBA交换管理外壳,但不弹出凭据

我有以下要求: 以域管理员用户身份登录到管理客户端计算机 我希望使用调用在Exchange服务器上执行一些更改 通过PowerShell从VBA(EXCEL 2013)到Exchange服务器(2013)。 客户端计算机运行Windows 10(1809)和PowerShell v5.1.17763.1 在VBA EXCEL表单中按下按钮后,我想执行一项琐碎的操作 任务,如获取特定邮箱用户的所 ..
发布时间:2022-04-06 17:40:58 其他开发

用于隐藏行的慢VBA循环

下面的代码用于循环遍历区域中的所有行,并根据该单元格及其下面的单元格中的单元格的值隐藏它们。如果两个单元格值都=&q;&q;,则意图隐藏整行。一切都很好,但速度非常慢。任何有关更快的建议都将不胜感激。 Sheets("Morning Report Export Sheet").Activate For x = 10 To 108 If Cells(x, 9).Value = "" ..
发布时间:2022-04-05 22:45:36 其他开发

用VBA计算字符串布尔表达式

我需要在VBA中计算一个字符串布尔表达式,例如:“1 and(0 Or 0 Or 1)” (计算结果应为“1”。) 我正在寻找类似于Python“val”函数的东西。有没有一种使用VBA实现这一点的简单方法?谢谢! 推荐答案 除了omegastripe的回答之外,请注意脚本控制是32位的。随着64位成为标准,我将不愿使用任何仅为32位的解决方案。 有关64位脚本控件替代方案 ..
发布时间:2022-04-05 16:51:19 其他开发

Exel VBA使用Telegram bot API发送图像

我正在编写一个Exel宏,该宏在运行另一个宏后发送结果的屏幕截图 。 所拍摄的屏幕截图以jpg格式保存在目录C:DocumentsSCREENSHOT中。 我想将图片1.jpg";C:DocumentsSCREENSHOTPicture1.jpg";发送给一个电报组uSiga机器人。 我可以使用以下代码轻松发送文本消息。 Private Sub telegram_pru ..
发布时间:2022-04-05 15:20:59 其他开发

将选定单元格的导出写入不带引号的.txt文件

我正在处理一个获得大量信息的Excel工作表。 有些列包含我需要在脚本中使用的信息,并且在单击按钮后,我使用我找到的以下代码来保存我在.txt文件中选择的任何内容。 Private Sub CommandButton21_Click() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j ..
发布时间:2022-04-05 11:49:04 其他开发

如何使用VBA将临时记录集导出为CSV文件

我有一个MS Access表,跟踪50种产品的日销售量。我想使用VBA 1 CSV文件(包括标头)为每个产品导出,显示记录集中的每日卷,而不将记录集保存到永久查询。我正在使用下面的代码,但我被困在下面代码中突出显示的实际导出的点上。 如能协助解决此问题,我们将不胜感激。 Dim rst As Recordset Dim rstId As Recordset SQLExportIds ..
发布时间:2022-04-05 11:37:07 其他开发

在EXCEL中用VBA替换CHR(160)时出现问题

我收到EXCEL文件已经有一段时间了,这些文件通常在帐目后带有特殊字符ALT+0160。我通常只是在EXCEL中手动替换它,但最近我变得懒惰了,想用我的VBA脚本替换它。此脚本用于将所需的列插入我们的数据库中: Sub insert() Dim sSql As String Dim db As New ADODB.Connection 'Go to Tools, Refer ..
发布时间:2022-04-04 12:14:13 其他开发

复制具有匹配工作表名称的数据

我有一个工作簿,其中包含工作表、摘要和工作表(其中所有数据都已合并,如图所示)、8、9、10。 我要从";摘要&q;复制数据,条件是如果A列中的单元格包含工作表名称(8、9或10),则该单元格的行和列C到E将粘贴到具有匹配名称的工作表。 粘贴的数据将偏移到第7行,并且每个基准点都将增加一个空格。例如,摘要中A列的第2行到第6行的单元格包含第8行,因此第C行到第E行的第2行到第6 ..
发布时间:2022-04-03 21:20:46 其他开发

如何利用VBA和Match函数更新Excel表格中的单元格数值?

我不是这里的VBA专家,但我尽了最大努力... 我们的目标是创建一个宏来根据Application.Match函数中的表行变量更新表中的单元格值,这也是我正在努力解决的问题。以下是我到目前为止所拥有的以及我迷路的地方(还注释到代码中)。 我似乎无法获得Match函数来将TargetRw变量设置为表中匹配的行。目前,我遇到了“类型不匹配”,但我尝试了几种不同的配置,并收到了各种不同的错误 ..
发布时间:2022-04-03 21:16:44 其他开发

一次更改工作表中的多个命名单元格和区域

我想在一个工作表(200+)中更改许多Excel名称,名称类似于comp...我想把它改成……。所以每次的变化都是一样的。有没有办法一次完成这一切? 我知道对于函数来说,很简单,使用Control h,然后用cons替换comp,然后它们都会一次更改。您是否也知道这对于名称(单元格的名称和单元格的范围)是否可能。这将为我省去很多(特别是无聊的)工作。已经非常感谢了! 最佳 蒂莫西 ..
发布时间:2022-04-03 09:56:48 其他开发

使用SQL在EXCEL中操作数据

我正在编写一份使用VBA操作数据的Excel报告。 虽然我没有理由不能使用VBA来实现我的目的,但我更愿意使用SQL,因为我对该语言更加精通。为了做到这一点,我面临着几个挑战,并已将我的问题简化为一个更容易解决的问题。 假设我有一个Excel电子表格,单元格A1中的数字为1,单元格A2中的数字为2,单元格A3中的数字为3。在单元格A4中,我尝试对这些求和,结果是数字6。 sum()函 ..
发布时间:2022-04-02 20:00:47 其他开发

具有动态x轴属性的Excel图形

在Excel中,我有一个目录和这个表格的图形,其中X轴可以随着开始和结束而变化。如何动态设置X轴范围,使其不总是使用如下所示的整个表格?我目前必须进入图表设置并手动更改它。 以下是我的数据表: 我刚才添加的min_max列,因为我认为它可能有用。 根据组合框选项的不同,日历周选项也会有所不同。因此,我希望图表适应日历周的范围,而不是在右侧有巨大的缺口。 补偿公式会是什么样子的?我试过 ..
发布时间:2022-04-01 11:32:06 其他开发

将平均值计算添加到下一个空白行

我一直在努力寻找一种方法将平均值添加到列中的第一个空单元格(列中将有多个空单元格,因为它被分成几个组,但我希望只循环它,这样在填充第一个空格之后,它将对下一个空格执行相同的操作。我希望它是所示图像中C2:C6的平均值,但单元格范围和列数都是动态的。我试图让它找到下一个空行,然后在它上面取平均值,但显然我不擅长编程。第二个空格用于标准误差,但我希望编辑代码以使平均值应用于标准误差。此外,大部分代码来 ..
发布时间:2022-03-31 09:23:28 其他开发