• 清理手动活门隐藏行/列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)写入一个值时,事件触发器就会启动,并且由于事...
  • HeapFree崩溃了

    摘要: 我有VBA代码,可收集大量信息并将其写到一个或多个工作表中。为了提高将大量信息写入表的性能,我创建了一个类,该类的行为类似于缓冲的复制/粘贴流:调用方向其发送CSV格式的字符串,并将其缓冲在内存中,直到缓冲区已满为止。装满后,它将粘贴到一张纸上,清除缓冲区并继续。 最初,我使用全局内存,但是由于开销较小,因此在MSDN上看到了建议使用堆而不是全局或本地的建议。所以现在我正在使用堆。 I'm in the process of adapting everything for 64-bit Office...
  • 注释用于跟踪更改

    我在VBA中遇到了一些代码问题。我试图将对excel表格上某个单元格所做的更改显示在对该单元格所做的更改的注释中,我希望将这些更改存储在列表中,以便以后查看它们。我尝试了很多不同的代码片段,尝试将其实现到代码中,但没有一个起作用。 关于如何使它起作用的任何想法? Worksheet 下面的代码是我目前正在使用的 Private Sub Worksheet_Change(ByVal Target As Range) Dim Adding As Boolean, Finding As Boolean, ...
  • 具有多个条件的VBA匹配功能

    我是新来的,这是我的第一个问题,我也不讲英语,所以我的代码(变量)有时在荷兰。 我有一本包含多个工作表的工作簿(预订,平房,验证器和时间表)。时间表需要填写正确的小屋以进行预订。 我的问题:我希望使用match函数返回Cottage_id。我需要Cottage_id(在小屋表的A列中),在该类中正确,在该小屋中尺寸正确。 我已经尝试了很多,但似乎无济于事 我收到诸如“类型不匹配”和无效的过程调用或参数之类的错误消息。 先感谢您! 我的代码: Dim i As Integer Dim c As Intege...
  • VBA Excel将单元格范围复制到外部工作簿

    以前我在处理以下查询: VBA Excel taking control of the cells on the another workbook 关于将数据从我的活动工作簿复制到某个外部工作簿的信息。 现在,我想做一个模拟拷贝,但不是一个单元格,而是一个范围。 我的代码如下所示: Sub Splicing() Dim PoP As String, SN As String Dim Fibre As Range Dim newbook As Workbook Dim fs As W...
  • 从特定日期开始从excel中的多个文件夹中提取电子邮件元数据,并不断添加新的电子邮件而不是替换

    我正在尝试将前景中的元数据提取到excel中,并从网上找到此代码。单击按钮时,它的工作方式是提示您选择所需的文件夹,并且整个文件夹数据都已加载到输出工作表中。但是我希望从某个日期以及Outlook中的多个文件夹中提取电子邮件。此外,每次替换电子邮件代码时,我只需要将新电子邮件添加到输出表即可。 我对VBA不太熟悉,也不知道代码中要更改什么。有人可以帮我吗 Sub GetMailInfo() Dim results() As String ' get contacts results = ExportEm...
  • 在64位VBA中使用TaskDialogIndirect

    问题描述 我尝试使代码在64位VBA下工作,而该代码在32位VBA中可以正常工作。 它与通用控件TaskDialogs有关。 我使用Microsoft Access,但其他VBA主机中的问题应该相同。 一部分在(32位和64位)VBA中都可以正常工作,而另一部分则不能。 TaskDialog API working well in both (32- and 64-Bit) VBA You can start the procedure TestTaskDlg for a test. Option Expl...
  • Excel VBA-将行复制到新工作簿

    我编写了一个宏,该宏将根据列中的值进行过滤,为每个不同的值创建一个由过滤器命名的新工作表,然后将包含该不同值的行复制到新工作表中。我知道如何将整个工作表复制到新工作簿中(并根据源工作表的名称来命名工作簿),但是我想省去中间步骤,直接创建新工作簿,因为我的一些数据集是太大以至于Excel无法处理新工作表的数量。我下面有创建新工作表的原始代码,我想知道如何修改它,以便它创建新工作簿并将其保存到与原始主文件相同的目录中 Sub parse_data() Dim lr As Long Dim ws ...
公告

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

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