vba相关内容
我需要以编程方式删除不可打印的字符,例如: 制表符-字符(9) 换行符-字符(10) 回车-字符(13) 数据链路转义字符(16) 我启动了一个通用函数,该函数将从MS Access表单域的Lost_Focus事件中调用。 我想不出当字符串包含不需要的字符时如何识别。 Function RemoveNonPrintableCharacters(ByVal TextDat
..
我正在尝试计算表中满足特定条件的记录的数量。我更喜欢使用SQL,而不是Dcount,因为我想更好地使用SQL。下面是我当前的代码: Dim countString As String Dim count countString = "SELECT COUNT(*) FROM `Engagement Letters` WHERE 'Client ID' = " & Me.cboSelectC
..
此问题已解决using a formula。 遗憾的是,我需要一个可以在Excel 2016中运行的解决方案,而VBA似乎是最佳/唯一的解决方案。 图例:(跨同一工作簿中的多个工作表) 每列都有一个标题。 表3 A栏:姓名列表 表3 H栏:电子邮件地址列表 Sheet1的M列:包含向下拖动的以下公式,该公式生成可变行数的数据: =IFERROR(INDEX($A$2:$A$42,MAT
..
我希望将下面的宏传输到UDF,但我不知道如何将其传输到UDF。 我想要一个UDF,我在其中选择查找字符串并在放置UDF的单元格中返回它。 有人能帮帮我吗? Sub Find_pipe() Dim Findstring As String Dim Location As String Dim Rng As Range Sub Find_Fi
..
我有一个带错误处理的Excel VBA函数,它返回一个Double。 如果函数失败,返回错误的最佳方式是什么? 目前,如果失败,则返回0,但0可能是该函数的有效返回。 是否只需将函数更改为返回Variant,然后返回错误? 推荐答案 您可以使用CVErr()返回任何#类型的错误;例如,返回#VALUE! Public Function Foo(i As Long)
..
在查看可能的PjAssignmentTimscaledData选项(here)时,我需要提取的缺少的是剩余的工作字段。有没有人能够想出如何使用VBA根据剩余工作提取每周作业? 我的VBA中有一个部分是: ass.TimeScaleData(tsk.Start,tsk.Finish,pjAssignmentTimscaledActualWork,pjTimscaleWeek) 但我
..
我有以下要求: 以域管理员用户身份登录到管理客户端计算机 我希望使用调用在Exchange服务器上执行一些更改 通过PowerShell从VBA(EXCEL 2013)到Exchange服务器(2013)。 客户端计算机运行Windows 10(1809)和PowerShell v5.1.17763.1 在VBA EXCEL表单中按下按钮后,我想执行一项琐碎的操作 任务,如获取特定邮箱用户的所
..
用vbasolver实现三角棱锥体、三角棱锥体偏移-三维平面相交 x=0.250 y=0.250 z=0.250内接球心 每个平面偏移0.25I挑战VBA求解器 为什么整行0.250 0.250 0.250 我要全排0.250 0.250 0.250 为什么6row 8 row错误 结果很奇怪 请告诉我如何修复它。 Const x0 = 0 Cons
..
下面的代码用于循环遍历区域中的所有行,并根据该单元格及其下面的单元格中的单元格的值隐藏它们。如果两个单元格值都=&q;&q;,则意图隐藏整行。一切都很好,但速度非常慢。任何有关更快的建议都将不胜感激。 Sheets("Morning Report Export Sheet").Activate For x = 10 To 108 If Cells(x, 9).Value = ""
..
我需要在VBA中计算一个字符串布尔表达式,例如:“1 and(0 Or 0 Or 1)” (计算结果应为“1”。) 我正在寻找类似于Python“val”函数的东西。有没有一种使用VBA实现这一点的简单方法?谢谢! 推荐答案 除了omegastripe的回答之外,请注意脚本控制是32位的。随着64位成为标准,我将不愿使用任何仅为32位的解决方案。 有关64位脚本控件替代方案
..
我正在编写一个Exel宏,该宏在运行另一个宏后发送结果的屏幕截图 。 所拍摄的屏幕截图以jpg格式保存在目录C:DocumentsSCREENSHOT中。 我想将图片1.jpg";C:DocumentsSCREENSHOTPicture1.jpg";发送给一个电报组uSiga机器人。 我可以使用以下代码轻松发送文本消息。 Private Sub telegram_pru
..
我正在处理一个获得大量信息的Excel工作表。 有些列包含我需要在脚本中使用的信息,并且在单击按钮后,我使用我找到的以下代码来保存我在.txt文件中选择的任何内容。 Private Sub CommandButton21_Click() Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j
..
我有一个MS Access表,跟踪50种产品的日销售量。我想使用VBA 1 CSV文件(包括标头)为每个产品导出,显示记录集中的每日卷,而不将记录集保存到永久查询。我正在使用下面的代码,但我被困在下面代码中突出显示的实际导出的点上。 如能协助解决此问题,我们将不胜感激。 Dim rst As Recordset Dim rstId As Recordset SQLExportIds
..
我收到EXCEL文件已经有一段时间了,这些文件通常在帐目后带有特殊字符ALT+0160。我通常只是在EXCEL中手动替换它,但最近我变得懒惰了,想用我的VBA脚本替换它。此脚本用于将所需的列插入我们的数据库中: Sub insert() Dim sSql As String Dim db As New ADODB.Connection 'Go to Tools, Refer
..
我有一个工作簿,其中包含工作表、摘要和工作表(其中所有数据都已合并,如图所示)、8、9、10。 我要从";摘要&q;复制数据,条件是如果A列中的单元格包含工作表名称(8、9或10),则该单元格的行和列C到E将粘贴到具有匹配名称的工作表。 粘贴的数据将偏移到第7行,并且每个基准点都将增加一个空格。例如,摘要中A列的第2行到第6行的单元格包含第8行,因此第C行到第E行的第2行到第6
..
我不是这里的VBA专家,但我尽了最大努力... 我们的目标是创建一个宏来根据Application.Match函数中的表行变量更新表中的单元格值,这也是我正在努力解决的问题。以下是我到目前为止所拥有的以及我迷路的地方(还注释到代码中)。 我似乎无法获得Match函数来将TargetRw变量设置为表中匹配的行。目前,我遇到了“类型不匹配”,但我尝试了几种不同的配置,并收到了各种不同的错误
..
我想在一个工作表(200+)中更改许多Excel名称,名称类似于comp...我想把它改成……。所以每次的变化都是一样的。有没有办法一次完成这一切? 我知道对于函数来说,很简单,使用Control h,然后用cons替换comp,然后它们都会一次更改。您是否也知道这对于名称(单元格的名称和单元格的范围)是否可能。这将为我省去很多(特别是无聊的)工作。已经非常感谢了! 最佳 蒂莫西
..
我正在编写一份使用VBA操作数据的Excel报告。 虽然我没有理由不能使用VBA来实现我的目的,但我更愿意使用SQL,因为我对该语言更加精通。为了做到这一点,我面临着几个挑战,并已将我的问题简化为一个更容易解决的问题。 假设我有一个Excel电子表格,单元格A1中的数字为1,单元格A2中的数字为2,单元格A3中的数字为3。在单元格A4中,我尝试对这些求和,结果是数字6。 sum()函
..
在Excel中,我有一个目录和这个表格的图形,其中X轴可以随着开始和结束而变化。如何动态设置X轴范围,使其不总是使用如下所示的整个表格?我目前必须进入图表设置并手动更改它。 以下是我的数据表: 我刚才添加的min_max列,因为我认为它可能有用。 根据组合框选项的不同,日历周选项也会有所不同。因此,我希望图表适应日历周的范围,而不是在右侧有巨大的缺口。 补偿公式会是什么样子的?我试过
..
我一直在努力寻找一种方法将平均值添加到列中的第一个空单元格(列中将有多个空单元格,因为它被分成几个组,但我希望只循环它,这样在填充第一个空格之后,它将对下一个空格执行相同的操作。我希望它是所示图像中C2:C6的平均值,但单元格范围和列数都是动态的。我试图让它找到下一个空行,然后在它上面取平均值,但显然我不擅长编程。第二个空格用于标准误差,但我希望编辑代码以使平均值应用于标准误差。此外,大部分代码来
..