HSHO's questions

我正在开发一个公式，引用 A 列中的值并根据这些数字调整其功能。

例如，如果我在 Sheet1 的 A 列中有 25 个结果，我想根据 Sheet2 的 A 列中的相应值进行拆分并使用 TEXTJOIN 函数，如下面的公式所示。

我的目标是创建一个以这种方式运行的动态公式。

工作表1

工作表2

尝试过但出现错误：

=TEXTJOIN("', '", TRUE, ARRAYFORMULA(
  IF(MOD(ROW(Sheet1!B2:B)-ROW(Sheet1!B1), 5) = 0, "'" & Sheet1!B2:B & "'", "")))

最终结果如下：

我制定了以下代码来从提供的网页检索数据： https: //www.redfin.com/NV/Fallon/630-Serpa-Pl-89406/unit-Fallon/home/178255574 ?utm_source=android_share&utm_medium=share&utm_nooverride =1&utm_content=链接&2010988919=变体&utm_campaign=homecard_share。

但是，我在以下行遇到“需要对象”错误： sqFt = html.getElementsByClassName("statsLabel")(0).NextSibling.getElementsByClassName("statsValue")(0).innerText。

我希望有人可以提供帮助来纠正此问题，使代码能够成功地从网页中提取相关信息。

我们将非常感谢您的指导。谢谢。

Sub ExtractingRedfin()
    Dim url As String
    Dim ie As Object
    Dim html As Object
    Dim Lastrow As Long
    Lastrow = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
    
    ' URL of the webpage to scrape
    url = Sheet1.Cells(Lastrow, 1).Value
    
    ' Create a new Internet Explorer instance
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False ' Set to True if you want to see the browser
    
    ' Navigate to the URL
    ie.navigate url
    
    ' Wait for the browser to finish loading the page
    Do While ie.readyState <> 4 Or ie.Busy
        DoEvents
    Loop
    
    ' Get the HTML content of the page
    Set html = ie.document
    
    Dim beds As String
    Dim baths As String
    Dim sqFt As String
    Dim price As String
    Dim est As String
    Dim address As String
    Dim cityStateZip As String
    
    beds = html.getElementsByClassName("statsValue")(0).innerText
    baths = html.getElementsByClassName("statsValue")(1).innerText
    sqFt = html.getElementsByClassName("statsLabel")(0).NextSibling.getElementsByClassName("statsValue")(0).innerText
    price = html.getElementsByClassName("info-block price")(0).getElementsByClassName("statsValue")(0).innerText
    est = html.getElementsByClassName("info-block price")(0).getElementsByClassName("statsLabel")(0).innerText
    address = html.getElementsByClassName("street-address")(0).innerText
    cityStateZip = html.getElementsByClassName("citystatezip")(0).innerText
    

    ie.Quit
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet3")
    
    ws.Cells(2, 1).Value = beds
    ws.Cells(2, 2).Value = baths
    ws.Cells(2, 3).Value = sqFt
    ws.Cells(2, 4).Value = price
    ws.Cells(2, 5).Value = est
    ws.Cells(2, 6).Value = address
    ws.Cells(2, 7).Value = cityStateZip
End Sub

我基于一个概念开发了一个脚本：当我单击在 Apps 脚本中定义的特定单元格时，该单元格中的值应复制到单元格 K5。

我不确定为什么它没有按预期运行，并且没有提供错误消息。我非常感谢您在识别和解决问题方面提供的帮助。您的帮助很有价值。

function onEdit(e) {
  var sheet = e.source.getActiveSheet();
  var range = e.range;
  var sheetName = "Calendar"; // Replace with the actual sheet name
  
  // Define your dynamic calendar ranges here
  var calendarRanges = [
    sheetName + "!B7:H7",
    sheetName + "!B13:H13",
    sheetName + "!B19:H19",
    sheetName + "!B25:H25",
    sheetName + "!B31:H31",
    sheetName + "!B37:H37"
  ]; // Add your ranges here
  
  // Check if the edited cell is within any of the defined calendar ranges
  for (var i = 0; i < calendarRanges.length; i++) {
    var rangeData = sheet.getRange(calendarRanges[i]);
    if (
      range.getRow() >= rangeData.getRow() &&
      range.getRow() <= rangeData.getLastRow() &&
      range.getColumn() == rangeData.getColumn()
    ) {
      sheet.getRange("K5").setValue(range.getValue());
      break; // Stop checking after finding a matching range
    }
  }
}

我需要帮助。我使用下面的公式从匹配的列中检索信息并生成超链接以导航回数据。不幸的是，这个公式没有按预期发挥作用。我希望有人可以提供指导来解决这个问题。

=ArrayFormula(IFERROR(HYPERLINK("Scheduler!$B$"&MATCH(SMALL(IF($D$3=INT(Scheduler!B:B),Scheduler!B:B,""),ROW(A1)),Scheduler!B:B,0)+2,SMALL(IF($D$3=INT(Scheduler!B:B),Scheduler!B:B,""),ROW(A1))),""))

谷歌表格