• 使用VBA在用户窗体上生成的下拉组合框和文本框

    基本上,我要创建一个对话框 如果您可以在上面看到,我想使组合框应用于BDI Industry Group和CIF的搜索。 然后,每当我单击“按行业分组搜索”组合框并选择一个时,CIF字段都会为您提供另一个下拉菜单供您选择,然后,其他字段将根据以下数据自动填充 上面的屏幕截图只是我数据库的一小部分。总共有7504行,标题从A2开始。 假设我选择运输 然后,我希望CIF字段显示下拉菜单CIF 13039099和12901262。 接下来,例如,当我选择CIF 13039099时,其他字段将直接基于数据库自动...
  • 图不会互相重叠

    I have X amount of graphs where X is always an even number. Every series shows up as two graphs. One line graph and a Xy Scatter plot. The problem is that the graphs are separated, one to the left, one to the right. I want them to overlap so the points fro...
  • 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() '----...
公告

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

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