• Scripting.Dictionary使用多于3个条件的字符串填充一列

    我试图用字符串填充C列,考虑行上的使用者是否符合以下条件之一: 如果使用者符合以下规则之一,则该值应设置为“考虑”: •消费者只有1笔交易-(已完成) •消费者进行了2-4次交易,但总交易额<10,000美元-(完成) •消费者级别(基于以下规则)为2级或3级---(此信息在CV和CW列中) •如果下拉列表为60天,并且最大交易日期早于30天 •如果下拉列表为1年且最大交易日期早于90天 •如果下拉列表为5年且最大交易日期早于180天 'Interdction Review Tab, column C Sh...
  • 从所有Excel文件复制特定数据并粘贴到名为“导出”的当前Excel工作表2中的VBA MACRO

    我对宏/ vba非常陌生...我正在尝试在指定的文件夹中创建循环宏,并从名为“查看发货”的sheet1复制数据,并将其粘贴到名为“导出”的sheet2的当前工作簿中。但是,下面的代码无法正常工作,因为我在指定了文件夹路径的第一个下面的行中遇到了错误。 'Make sure a folder was picked. If Not strPath = "C:\Path\DailyDownL\" Then 其次,我不了解如何为要复制的范围编写代码。名为“ DailyDownl”的文件夹中的所有exce...
  • 嗨,VBA编码新手和动态范围的困扰

    大家好,我有一个问题,我的工作表上有3个按钮,每个按钮都添加了一种包含公式成本核算的不同类型的行。 我的问题是,如果我添加更多行,则会抛出其他范围,并且代码无法正常工作。 我如何获得随着添加到工作表的行数而改变的目标?提前致谢 enter image description here enter code here Private Sub CommandButton1_Click() ''ADD LABOUR ROWS TO COST SHEET 'TARGET FOR NEW ROW Shee...
  • 用3种不同的颜色格式化数据

    我是VBA和一般代码的初学者。 我使用此代码的目标是在一定范围内的Excel表中生成随机数据,其中包含一些随机生成的异常值(代码的这一部分工作正常)。 然后我要给这些值指定颜色,绿色为正常值,黄色为异常值,红色为超出限制。 我在代表pH的最后一列中测试了此方法,因为查看这些值很容易就能知道哪个是好是坏,而无需使用颜色。 我使用了if / else if条件来按颜色设置值的格式,但是我无法使该代码正常工作,红色值的效果很好,因为它是代码中的固定值,但是黄色和绿色被弄乱了全部为绿色或全部为黄色,以及我已尝试解决...
  • 在VBA中需要帮助

    运行代码时出现错误 运行时错误-462。 如果有人可以协助我,请找到以下代码。 我知道的是,当我们在VBA中使用Word模板时,通常会出现此错误。 请协助 Dim wd As Object, editor As Object Dim Doc As Object Dim tbPar As Integer On Error Resume Next Set wd = GetObject(, "...
  • 可以将此宏更改为可用于任意数量的资金吗?

    这个宏是在我担任现任职务很久以前编写的,但是现在我想对其进行改进,使其适用于任意数量的x基金。我仅将宏的一部分粘贴到最多4个基金中,但是现在它以相同的方式继续粘贴多达50个基金,您可以想象这是一场噩梦。 编辑:我应该提到,我打算尽可能删除所有“选择”和“激活”命令。这是几年前由Macro Recorder上的某人完成的,因此,这绝对是我清理工作的一部分,但弄清楚如何复印张数以及使公式适用于任何数量的资金,这是我在努力的工作用。 Sub MultiFunds() MultiFund = InputBox("...
  • 带VBA的动态映射列标题

    I am trying to map columns from one worksheet to another before copying the columns. I found some useful codes here especially by @Nulldev (mapping column headers from one sheet to another) in this discussion. 但是,就我而言,我收到了许多带有不同标头拼写/名称的计划(列中的内容相同),我需要将其导入到...
  • 清理手动活门隐藏行/列VBA

    Sub Hide_ManualTrapDoor() Dim ws As Worksheet Dim lr As Integer, lc As Integer Dim ir As Integer, ic As Integer, er As Integer, ec As Integer If MsgBox("Please wait while your Rate Matrix is being constructed.", vbOKCancel, "NGSP") = vbCan...
  • VBA嵌套IF / ElseIF帮助有条件超链接创建

    希望有人可以提供帮助–我希望我做错了很简单的事情。 情况是这样的: 我有一个带有可变行的表(月到月) 我要在(CaseLink)中放置公式的四列为空白 Sample Table “系统”列具有以下三个值之一; CSv1,CSv2,PIA “案例编号”列将包含数字-不可重复或不重复 CaseLink列是我遇到的问题–我试图插入三个超链接之一,以将值包含在Case#列中。链接目标基于“系统”列中的值 以前,我在“系统”列中只有两个变量,并且能够通过简单的IF语句来解决,因为它是true还是false...
  • 使用搜索栏刮擦网络

    enter image description herei would like to download the data from "https://search.gleif.org/#/search/simpleSearch=" by searching the LEI for hierarchy information. sample LEI: 5493005JT54IX5MZ9P52 Which refers to Canada Goose Inc. and i would like to get ...
  • 尝试从多个URL导入数据但始终卡在第一个URL上

    盯着这个看了一个多小时之后,我举起双手,在这里寻求帮助。通常,我自己会解决这个问题,但是我想我走错了路,现在我真的偏离了路线。我试图遍历93个URL并从每个URL导入数据。这是我正在测试的代码。 Sub Web_Table() Dim HTMLDoc As New HTMLDocument Dim objTable As Object Dim lRow As Long Dim lngTable As Long Dim lngRow As Long Dim ln...
  • 在VBA中创建和共享文件夹

    Looking for such a topic, I have found VBScript that do the task in successful way Here's the VBScript https://blogs.msdn.microsoft.com/imayak/2008/12/05/vbscript-for-creating-and-sharing-a-folder/# I tried to convert this to work on VBA Sub MyTest() '----...
  • 应用遍历列

    我是VBA的新手。 我正在为excel中的远程表格的切换按钮编写代码。 该表包含一个标题行和一个页脚行,在标题行中用户手动捕获总量,在行中有详细信息,用户可以选择捕获详细信息,在页脚中提供了总计的详细信息。 Attached Table Layout 该按钮的功能基本上是: 1.根据用户是否要捕获细节来隐藏/取消隐藏细节行。 2.如果用户已捕获细节,则在隐藏细节时,将验证页眉和页脚是否相符。如果不是,则会出现一条消息,提示用户覆盖标题(是/否/取消)。 我的问题是,我已经设法为单个列编写了代码,但是我不知道...
  • 如何找到正确的子窗口以将文本发送到(在VBA中)?

    我正在工作的一个项目将自动打开一个分类的应用程序,并从那里检索数据到excel工作簿中。我在此应用程序中需要做的就是能够通过Excel VBA将其打开并将文本发送到应用程序的主文本窗口中(外观类似于记事本,但是您在该应用程序中编写了可检索特定内容的代码行)您想要的数据)。在我的工作区中,我无法从Internet下载任何工具,因为计算机受到保护并被锁定,无法正常使用。对于这个项目,我一直在尝试使用WindowsAPI函数,例如ShellExecute,FindWindow,FindWindowEx,SendM...
  • 无法在变更事件中运行子项

    我有一个更改事件代码,该代码会自动添加日期/时间,复制公式,锁定超过24小时的单元格,保护工作表并保存工作簿。这很好。我有一个SUB SUM(),它是一个循环内的循环,该循环可计算总时间并根据条件填充某些单元格。这很好。在未激活更改事件的情况下开发的SUB SUM()。我需要他们一起工作,但我似乎不知道该怎么做。我在更改事件代码内的不同点调用了SUB SUM(),它始终锁定。错误包括“数据类型不匹配”和“堆栈已满”,或者循环不断。我认为问题在于每次SUB(SUM)写入一个值时,事件触发器就会启动,并且由于事...
公告

欢迎访问 goshare  点击这里设置您的邮箱  可以接收站内跟帖、回复邮件提醒,不错过任何一条消息。

关注公众号订阅更多技术干货! 码农俱乐部