问题[excel](coding)

我使用下面的简单代码在源表中的任何数据发生变化时自动刷新数据透视表，如果数据透视表和数据源位于不同的工作表上，则该代码正常工作。

Dim wb As Workbook
Dim ws As Worksheet
Dim pt As PivotTable

Set wb = ActiveWorkbook

For Each ws In wb.Sheets
  For Each pt In ws.PivotTables
    pt.PivotCache.Refresh
  Next pt
Next ws

我本来可以使用简单的但我只想刷新数据透视表。

ActiveWorkbook.RefreshAll

我在 WorksheetChange 上使用它

Private Sub Worksheet_Change(ByVal Target As Range)

但是，如果数据透视表和源表位于同一张表上，我就会收到错误消息。

错误代码：-2147417848（80010108）对象“pivotcache”的方法“createpivottable”失败

有没有办法将源和数据透视表保存在同一张表中？

谢谢你，

我想自动打印我某个单元格中的二维码。我发现最好的方法是使用 IMAGE 函数。

该函数如下所示： =IMAGE("https://api.qrserver.com/v1/create-qr-code/?data="&ENCODEURL(B2))

不幸的是，有时当我在更改单元格的值后进行打印时，它会在生成二维码之前打印，我得到如下信息： 打印预览在二维码应该出现的位置显示一个文本字符串“Picture” 。

我尝试了几种方法来完成该功能，但没有一种是可靠的。

Sub ChangePrintedQR()
    Dim ImgRange As Range
    Set ImgRange = Range("B4")
    Range("B2") = Now
'    ImgRange.Formula = "=IMAGE(""https://api.qrserver.com/v1/create-qr-code/?data=""&ENCODEURL(B2))" 'Having this line can print "Busy" instead of "Picture"

'    While ImgRange.Text = "Picture"    'This gets stuck in an infinite loop
'        Debug.Print ImgRange.Text      'regardless of this line, trying the Value of the cell does the same
'    Wend

'    Application.Calculate              'This method does nothing
'    If Not Application.CalculationState = xlDone Then
'        DoEvents
'    End If

'    Application.Wait (Now + TimeValue("0:00:10"))   'This results in the waiting, but no change to the printed sheet.

    ActiveSheet.PrintPreview
End Sub

请注意，我有时在打印时会得到更新的图像，但其他时候则不会，我希望每次都能打印更新的图像。

我有一个用户窗体 (Userform1)，它有 4 个列表框 (ListBox1 到 4)，其中都有条目。表单用户选择列表中的条目，然后点击命令按钮 (CommandButton_1)。然后，VBA 宏将每个列表框中的值写入 excel 日志表上的单元格中。用项目填充列表框并将结果写入电子表格的代码正在运行。

但是，我希望能够检查以确保所有列表框都有选择。在写入数据之前，必须始终填写所有选项，否则我们会在以后的分析中失去数据完整性。

我已经弄清楚了如何检查单个列表框是否没有选择，但我想将其概括为能够考虑任意数量的列表框。到目前为止，我尝试过：

'Attempt 1

     For Each Control In Me.Controls
         If Controls.Name Like "Listbox*" Then
             If Controls.Value <> "" Then
                 Else: MsgBox ("You must select a value for every list.")
                 GoTo ERROR_ENDSUB
             End If
         End If
     Next

A1 给我错误 438：Obect 不支持此属性或方法（如果 Controls.Name 行）。

'Attempt 2

     Dim sh as Worksheet
     Set sh = ThisWorkbook.Sheets("Downtime")
     For i = 1 To 4
         If "sh.listbox" & i & ".value" <> "" Then
             Else: MsgBox ("You must select a value for every list.")
             GoTo ERROR_ENDSUB
         End If
     Next

A2 根本不起作用，我可以将列表留空，但它仍然会在没有 Msgbox 的情况下写入数据。

'Attempt 3
    
    Dim LB as ListBox
    For i = 1 To 4
        Set LB = ListBoxes("Listbox" & i)
        If LB.Value <> "" Then
            Else: MsgBox ("You must select a value for every list.")
            GoTo ERROR_ENDSUB
        End If
    Next

A3 出现编译错误：未定义子函数或函数（突出显示的 Listboxes()）。

如果我对 VBA 函数/方法的对象模型不是 100% 熟悉，请原谅我。我是一名化学工程师，以擅长 Excel（公式方面）而闻名，我的公司给我分配了越来越多的电子表格自动化任务。最终，这些任务变得太大了，过去一周左右，我一直在尝试学习 VBA，尽管我之前没有任何编码经验。

我想根据时间间隔（天）过滤数据，排除该时间跨度内所有值为 0 的行，例如从以下文件中：

如果我想提取 2025 年 1 月 8 日至 2025 年 1 月 12 日的数据，我只能获得 A、B、C、E 行数据。如果我想提取 2025 年 1 月 9 日至 2025 年 1 月 10 日的数据，我只能获得 A、B、C 行数据。

我想找到一个公式/函数，以便可以自动完成。我尝试使用 FILTER，但不幸的是我不知道如何指定空值条件。

谢谢

我正在尝试使用 Excel 计算第二行每个单元格前三个条目的总和，并通过第一行中的 BOOL 进行“索引”。

我希望使用偏移量来过滤，但显然不可能使用它。

现在我正在考虑使用 SUMIF 和部分和的差值，但我想找到一种更简单的方法。

输出应该是第三行。

谢谢

情况：

我使用单元格“D2”的内容命名工作表。我刚刚编辑了下面的代码，以捕获各种问题条目、发布消息并提供一个有效且显然需要替换的值。

代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim BadData As Boolean
    
    If Intersect(Target, ThisWorkbook.Sheets(2).Range("D2")) Is Nothing Then
        Exit Sub
    End If
    
   BadData = False
        
    If Len(Target.Value) > 31 Or IsEmpty(Target.Value) Then
        BadData = True
    ElseIf InStr(Target.Value, "[") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "]") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "*") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "?") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "\") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, "/") <> 0 Then
        BadData = True
    ElseIf InStr(Target.Value, ":") <> 0 Then
        BadData = True
    End If
    
    If BadData Then
        MsgBox "You have entered an unacceptable ID value." & vbCrLf & _
                vbCrLf & _
                "The Site No entry must:" & vbCrLf & _
                vbCrLf & _
                "1)  Be a value less than 31 characters long" & vbCrLf & _
                "2)  Not contain the following characters:  /, \, :, ?, *, [, ]" & vbCrLf & _
                "3)  Not be a blank value" & vbCrLf & _
                "4)  Be compatible with excel sheet name restrictions"
                
        Target.Value = "Enter Site ID"
    End If
    
    ThisWorkbook.Sheets(2).Name = Target.Value

End Sub

虽然上面的代码似乎有效，但我确信还有多种其他方法可以实现相同的最终结果。多个 IF 语句导致相同的值让我有点困扰。

我最初想把所有单独的 InStr 检查与 Len 和 IS Empty 检查放在一个长的 OR 语句中，但最后决定不这样做，因为我觉得其他人来尝试并找出代码会很麻烦。我意识到如果检查结果为 TRUE，ELSEIF 可能会有一些好处，可以防止进行后续检查。

问题

我想知道是否有更好的方法来做到这一点？

我只需要更改表格最后一行 + 2 行单元格的字体（“A：M”），但我不知道如何在 VBA 代码中写入它...我已经在下面的代码中写了最后一部分，但不幸的是错了

请提出任何建议

Sub Addnewrow()

Dim lo As ListObject
    Dim newRow As ListRow
    Dim cpyRng As Range
    
    Set lo = Range("Data").ListObject
    Set newRow = lo.ListRows.Add
    
With newRow
.Range(12).FillDown

 With Range(LastRow + 2)
 
        .Font.Size = 12
        .Font.Name = "Tahoma"
        .Font.Bold = True
    End With

End Sub

我不确定如何解决合并单元格对合并范围内每个单元格的核算，但我试图阻止用户选择彼此相邻的单元格组合并清除内容。

Sub PreventDeleteMultipleMergedCells()
    
    If Selection.Count = 1 Then
        Selection.ClearContents
    Else
        MsgBox "You cannot delete the contents of multiple selected cells."
    End If
    
End Sub

我在研究中遇到了一个公共函数（见下文），但我不确定如何将输出放入子函数中，当选定的单元格> 1时，该子函数将触发 MsgBox。

Public Function MergedColumnsCount(c As Range) As Long
    MergedColumnCount = 0
    For i = 1 To c.Columns.Count
        MergeColumnSize = c(i).MergeArea.Columns.Count
        If MergeColumnSize > 1 Then
            i = i + MergeColumnSize - 1
        End If
        MergedColumnCount = MergedColumnCount + 1
    Next i
    MergedColumnsCount = MergedColumnCount
End Function

我有一张格式松散的表格，其中人员在顶部，任务在行中，还有一列表示开始日期，一列表示结束日期。用户将在给定的子任务中输入预期的小时数，然后它将汇总到任务本身中。我能够得到按行求和的结果，除以查找的月份数，但无法将值正确分布在相关月份中。

这就是数据的结构。

要求制作一个表格，列出任务和子任务，并计算相关月份内完成给定任务所花费时间的直线平均值。（总计/月份数 -> 开始日期和结束日期之间的月份数）。

例如，在这里您可以看到我从总任务中过滤掉子任务，并将它们各自的总小时数分散到预计发生任务的月份中。

我现在想集中讨论下表，因为上表是从那里总结出来的，所以我想我可以相应地调整其余部分。

现在，我从标题中该任务/日期的每个任务/月总数中取出 sumifs，只是为了让它溢出到列中。但是，这会将相同的值分布到所有月份的任务中，而不仅仅是相关月份。所以我尝试了一个 If 来检查日期是否在开始日期和结束日期之间，但它不会溢出。如果我单独这样做，它不能正确验证逻辑。

我还尝试使用 LET 语句来定义开始日期和结束日期，然后检查月份标题溢出范围以查看该值是否介于这些日期之间，如果是，则将该值乘以 1 或 0 以尝试将不相关的值归零。

当我尝试根据行的 xlookup 结果检查列并将其应用于交点时，这就是当前发生的情况。

下面是一个标记表，可以帮助您了解基础知识。

我的任务过滤公式：=FILTER(A5:A16,MOD(A5:A16,1)<>0)

我的日期标题公式：=DATE(YEAR(MIN(B5:B16)),SEQUENCE(1,DATEDIF(MIN(B5:B16),MAX(C5:C16),"M")+1,MONTH(MIN(B5:B16)),1),1)

当我与 VBA 代码斗争并尝试创建一个新的自定义函数时，我发现R1MQR2在单元格公式中调用函数名称时出现错误。

Public Function R1MQR2(Re1 As String, Re2 As String) As Boolean
    R1MQR2 = True
End Function

尝试了一些组合之后，即使中间有更多字符，像R1R2和这样的任何内容都无法从单元格中调用，即使 Excel 本身建议您使用自定义函数。它会失败。C1C2

另一方面V1V2，

有任何地方指定这个吗？我可能看到R1R2它指的是某个范围，但是R1xxR2？我遗漏了什么？