• 从Chrome浏览器读取浏览器Cookie

    我正在使用基于宏的Excel VB应用程序,当有人打开Excel时,我们必须进行身份验证。excel是从已实现SSO的仪表板下载到计算机中的。我陷入了一种情况,需要任何形式的帮助这适合我的解决方案。我尽了最大的努力来解释这种情况,所以事情是,我正在使用SSO Url从我的vb代码打开chrome浏览器(如图像中所示),它将做什么,它将重新引导我到chrome浏览器中的Microsoft Page ,我们将进行身份验证,并且响应将在Page Load事件中的apx页面之一中发送,现在面临的挑战是响应永远不会返...
  • 使用拆分功能/下标超出范围时发生类型不匹配的错误

    基本上,我的程序循环遍历所有工作表,如果数据满足无效点,可靠性失败点或初始失败的条件,它将从工作表的第1行第19列开始计数并显示在工作表中。之后,它将如果可以,则根据我创建的标题对详细信息进行排序,如下所示。所以我打算提取结果为result(0)的计数和设备result(4)的名称。但是,由于某种原因,我一直收到如下所示的不匹配类型错误。那么我该怎么解决呢? updated: now is subscript out of range error Private Sub test() Dim Spec...
  • 根据单元格值将多行复制到另一个不同的工作表

    我有150多个类别,并在excel上输入数据 现在,我需要您的帮助。 如果我在“ A列”上输入任何类别,则excel应该检查是否有一个工作表为该类别命名。如果是,则应将整行复制到该工作表的下一个空行,如果找不到该工作表,则应创建一个命名该类别的工作表,然后将整行复制到该新创建的工作表的下一个空行。可能吗? 预先感谢您一百万。 我使用此代码将整行复制到另一个工作表,是否有任何方法可以对其进行更新,使其符合我的要求? Sub CopyRowBasedOnCellValue() Dim xRg As Ran...
  • 在Excel中跟踪工作表中的更改

    I want to know if there's an event or function in VBA other than Worksheet_Change that follows changes in a sheet because Worksheet_Change is an event that gives me an immediate response and I want a function/event that would give me a result when I ask fo...
  • Excel VBA,使用从单元格中收集值的变量定义范围

    这是我的代码: Dim var As字符串 var = Range(“ B1”)。Value Range(“”)。Interior.ColorIndex = 5 是否可以通过某种方式定义最后一行,如果这样,如何? Range(“ var”)。interior.Colorindex = 5 我希望通过单元格中的值来定义范围,但由于无法确定如何进行操作,我被困在这里。我需要能够在单元格B1中写入单个单元格编号,即A1,A2,B6等,并使用它们在上面的代码中定义范围。提前致谢。
  • 鉴于我已经循环工作表以生成一些数据,如何以更有条理的方式对这些数据进行排序?

    因此,我的程序的工作方式是,它将循环遍历所有这些工作表以查找无效/失败数据,然后将最终结果粘贴到从第1行A列开始。count / countini / countinv表示rel / initial /的数目。无效分别失败。假设我有4个工作表,分别是“ devicea”,“ deviceb”,“ devicec”和“ deviced”,以循环获取rel / initial / invalid失败数据的数量(数字显示在A栏最左端)在每个工作表中。我如何提取与计数名称位于同一单元格中的工作表名称(例如,如果计数...
  • VBA Json阵列到阵列

    我有一个像这样的JSOn: { "people": [{ "description": { "name": "aaa", "age": 21 }, "job": { "title": "student" } }, { "description": { "name": "bbb", "age": ...
  • VBA正则表达式仅返回最后一个匹配项

    我正在尝试查找所有出现在方括号内的引号中的术语(“要查找的词条”),无论是否在括号中有其他单词(这也是“要查找的词条”)。 我的ActiveDocument的内容是: This is a ("Test") and another (second "Test2") 我的代码是: Dim regEx As Object Dim matchCollection As Object Dim extractedString As String Dim match As Object Dim RealQ Dim n ...
  • 连接字符串无效[87]

    我使用PC1更新SQL Server数据库(RPS) Dim ADOConn As New ADODB.Connection Dim ADORec As New ADODB.Recordset ADOConn.ConnectionString = "Driver={SQL Server Native Client 11.0};Server=PC1\SQLEXPRESS;Database=RPS;Trusted_connection=yes" ADOConn.Open 没问题...
  • 尝试使用VBA解析HTML

    我是社区的新手,很高兴来到这里。 最近,我一直在尝试通过使用Excel VBA解析某些html来学习,在某些Web站点中我成功了,但是在其他Web站点中却失败了。 html之一得到了下面的文本: <div class="commodity-list clearfix"> <dl dlproid="39632197" class=""> <div class="show_tips"> <dt id="propic_39632197" data=""> <a href="http://item.secoo.co...
  • 从表集中复制过滤的数据并将其粘贴到另一张纸的下一个空行上

    我试图从工作表“ PEP”(过滤器:Emetteurs,在第18列)中复制一组已过滤的数据,并将其粘贴到工作表“制裁”中的下一个空行中。我在网上找到了此文本代码,并添加了NextRow部分,以便将其粘贴到“制裁”工作表中的下一个空行中。我不久前才开始使用VBA,因此我尝试在线使用代码,但是在这种情况下,我认为这里的问题是我无法定义range的值。我试图在线查找它,但没有结果。预先感谢您的所有帮助! Dim k,j,i As Interger ActiveWorkbook.Sheets("Sanctions"...
  • 有没有一种方法可以自动输入与订单号相同时间对应的值?

    从图片中可以看到,我有三个条目“ 9207116092”,如果它在任何行中更新的具有相同的采购订单号(9207116092),而不是旧的,我希望它应该自动拖动该值(在这种情况下为日期)拖动选项,我希望它可以自动完成。有什么方法可以通过excel vba或仅是excel引用图片Excel vba代码来完成:
  • 如何删除Excel VBA中的特定列(不完全)

    当列T,U,V在同一行具有0值时,我正在尝试删除列。但是,我正在使用的代码仅删除了其中一些,如下所示,即使我已经指定要在我分配的特定单元中删除它们,某些行的T,U,V列仍为0。我在代码的哪一部分做错了? Dim j As Long Dim lr As Long lr = Sheets(1).Cells(Rows.Count, "U").End(xlUp).Row For j = 1 To lr If Sheets(1).Cells(j, 21).Value = 0 And Sheets(1).C...
  • 工作簿变量未设置为路径

    Set wbin = Application.Workbooks.Open(filelocation & FileName) 还有其他原因会将“ wbin”设置为除错误路径之外的其他内容吗? wbin在模块中的尺寸如下: 公共wbin作为Excel.Workbook
  • 粘贴不相邻的公式-仅值

    是否有VBA代码可让我搜索包含公式的所有单元格,将其复制并仅粘贴值? 我尝试了F5,特殊,公式。到那时,它将允许我复制所有不相邻的单元格,但是我收到的消息是 此操作不适用于多项选择 当我尝试仅粘贴它们的值时。
  • VBA-日期时间字符串替换/替换

    我有一列,其中包含来自Outlook的电子邮件的日期和时间。某些日期格式如下-2020年1月2日下午4:15、1月14日至20日12:44 PM,12月24-19日20:15 PM。我尝试使用“替换”和“替换”功能,“替换”确实按定义工作,但是从字符串时间中删除了该操作。我想将所有日期定为2019-12-27 3:02 PM。 sub Replace() Dim sString, searchString as String dim i, LastCell as Long LastCell = Ra...
  • VBA中Count功能的替代方法

    我正在尝试为VBA脚本中使用的count函数找到替代方法, 我试图计算数组中单元格的数量,然后使用该值定义一个for循环。 我尝试了以下方法; NoColdReadings = ActiveCell.FormulaR1C1 = "=COUNT('5. Summary Information'!R[-7]C[5]:R[90]C[5])" NumberOfColdProbes = ActiveSheet.Range("L4").End(xlDown).Row MsgBox NumberOfColdProbes...
  • 在Excel VBA中处理错误“ 13”(西班牙语中的变量和文本)

    我正在创建一个宏,以帮助用户通过textBox删除行。用户需要单击Eliminar hallazgo(删除查找)按钮。 然后,将出现一个带有空文本框的表单,供用户输入将要删除的行号。 如果用户编写一个Int,则该宏运行正常(我不知道如何优化它)。但是,当用户编写其他内容时,宏会崩溃。 我想弹出一个MsgBox,每当用户输入其他内容时,它都会显示类似“请输入有效数字”之类的信息。 到目前为止,这是我的代码: Private Sub AceptarButton_Click() Dim row2Empty ...
  • 具有不同元素的多维数组; VBA Excel

    是否可以创建具有不同元素类型(字符串和整数)的多维数组? 我曾尝试过这种方法但无法正常工作 BT = Range("A12") ReDim IT(BT) As String ReDim RBT(BT) As Integer ReDim IT_RBT(IT, RBT) as ???? how to create multi dim array with different variables type Range("B2").Select i = 0 Do i = i + 1 IT(i) =...
公告

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

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