问题[excel](coding)

我的 Excel 电子表格是一份案件清单。共有 500 行，案件信息范围从 C 列到 R 列。

我为每一行创建了选项按钮，这样我可以通过单击该选项按钮来“选择”一个案例。我的 VLOOKUP 公式根据我的选择在另一张表中识别出正确的案例。

现在，我正在尝试创建一个按钮，允许我将选定的案例从电子表格移动到另一张表格上。我知道如何做到这一点，但我的方法非常麻烦，因为它要求我输入每行的单元格引用。一共有 500 个单元格引用，所以这会花很长时间。有没有办法以编程方式加快这一过程？

这是我实现所需结果的方法，但耗时太长。如您所见，我在“ElseIf Selection = 3”之后停了下来，因为我意识到我必须这样做 500 次。我宁愿不必输入 500 个“ElseIf Selection = ”条目并更改下面“从案例列表中删除”部分中的单元格引用。有什么解决方案吗？

Sub Archive_Case()

Dim selection As Integer

selection = Range("Calculations!A2").Value

Dim Workbook As Workbook 'This Workbook
Dim Cases As Worksheet 'Cases Worksheet
Dim Calculations As Worksheet 'Calculations
Dim Dispo As Worksheet 'Dispo

Set Workbook = ThisWorkbook
Set Cases = Workbook.Sheets("Cases")
Set Calculations = Workbook.Sheets("Calculations")
Set Dispo = Workbook.Sheets("Dispo")

If selection = 0 Then

    MsgBox "Select a case that you want to archive."

ElseIf selection = 1 Then

    If MsgBox("Do you really want to archive this case and remove it from this list?", vbYesNo) = vbNo Then Exit Sub

'Copy into Dispo List
    Application.ScreenUpdating = False
        'Dispo.Unprotect
        Worksheets("Calculations").Range("M16:AB16").Copy
        Dispo.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        'Dispo.Protect
    Application.ScreenUpdating = True

'Erase from Case List
    With Cases

    .Select
    .Range("C11:R11").ClearContents
    .Range("C11").Select

    End With

ElseIf selection = 2 Then

    If MsgBox("Do you really want to archive this case and remove it from this list?", vbYesNo) = vbNo Then Exit Sub

'Copy into Dispo List
    Application.ScreenUpdating = False
        'Dispo.Unprotect
        Worksheets("Calculations").Range("M16:AB16").Copy
        Dispo.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        'Dispo.Protect
    Application.ScreenUpdating = True

'Erase from Case List
    With Cases

    .Select
    .Range("C12:R12").ClearContents
    .Range("C12").Select

    End With

ElseIf selection = 3 Then

    If MsgBox("Do you really want to archive this case and remove it from this list?", vbYesNo) = vbNo Then Exit Sub

'Copy into Dispo List
    Application.ScreenUpdating = False
        'Dispo.Unprotect
        Worksheets("Calculations").Range("M16:AB16").Copy
        Dispo.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
        'Dispo.Protect
    Application.ScreenUpdating = True

'Erase from Case List
    With Cases

    .Select
    .Range("C13:R13").ClearContents
    .Range("C13").Select

    End With

End If

End Sub

我正在尝试创建一个公式，它将创建由最小值和最大值组成的合并日期字符串，并以包含个位数的单元格分隔。

我一直尝试操纵的公式如下所示：

=UNIQUE(FILTER(MIN(B1:P1),LEN(B1:P1)>1,""))

你好，我有超过 15K 行的数据。

我想对列表中的项目求和，并计算不在列表中的项目的总和。

当它包含在范围内时，我会使用 textsplit 函数获得结果。下面是我的公式：

=SUM(--(TEXTSPLIT(F2,",")=B2:B12)*C2:C12)

如果我对“不等于”使用相同的公式，则不会给出准确的结果。我卡在这里，可能是什么原因。

=SUM(--(TEXTSPLIT(F2,",")<>B2:B12)*C2:C12)

但不知何故我使用过滤功能来管理我的工作。

=SUM(FILTER(C2:C12,(B2:B12<>"A")*(B2:B12<>"D")*(B2:B12<>"E")*(B2:B12<>"H")*(B2:B12<>"K")))

有人能帮我解释一下为什么当我使用“不等于”时 Textsplit 函数没有给出准确的结果

谢谢 ：-）

我需要通过 Excel 365 公式（不是 VBA，不是 Power Query）获取两个“集合”的笛卡尔积。例如，我的两个集合是两个左侧表，预期的笛卡尔积是右侧表：

Excel 365 中两个集合的笛卡尔积

如何使用一个 Excel 公式获取笛卡尔积？

如果可能的话，我想要一个通用的答案，适用于任意两个集合，无论它们包含什么值，无论这两个集合中的列数是多少。

两组：

我的组织使用 Excel 2016，但计划很快取消使用 VBA 宏或用户定义公式的功能。我们正在尝试寻找适应这一变化的方法。

问题：

我们可以用其他公式替换下面的用户定义公式吗？

用户定义公式：FYFinder

FYFinder 接受对日期的单元格引用（或尝试将数字引用转换为 Excel 日期）并提供该日期的财政年度。新的财政年度从每年的 10 月 1 日开始。因此，对于 2025 年，从 2025 年 1 月 1 日到 2025 年 9 月 30 日的所有日子都属于 2025 财政年度，而从 2025 年 10 月 1 日到 2025 年 12 月 31 日的所有日子都属于 2026 财政年度。日期时间值的时间部分将被忽略，非数字输入会产生错误

例如，给定以下输入，输出为：

• A1:= 11/20/2024 ; FYFinder(A1) = 2025
• A2：= 2017 年 9 月 30 日； FYFinder(A2) = 2017
• A3:= 2017 年 10 月 1 日； FYFinder(A3) = 2018
• A4:= 1 ；FYFinder（A4）= 1900
• A5:= 11/20/2024 5:15 下午 ; FYFinder(A5) = 2025
• A6:= "11/20/2024" ; FYFinder(A6) = #VALUE！
• A7：=“StackOverflow；FYFinder（A7）=#VALUE！

请注意，A4 演示了该函数将所有数字视为日期，而非数字会产生错误

可以使用以下公式轻松复制此功能：

=IF(MONTH(A1)>=10,1+YEAR(A1),YEAR(A1))

或者简洁版本

=--(MONTH(A1)>=10)+YEAR(A1)

那么，鉴于这些信息，我们可以做些什么来在没有 VBA 的情况下复制该功能？我尝试使用自定义命名范围，但我看到的示例无法引用特定单元格。例如：

=--(MONTH(TODAY())>=10)+YEAR(TODAY()) 仅适用于今天。或者=--(MONTH(A1)>=10)+YEAR(A1)仅引用单元格 A1

（我的组织计划很快升级到 Excel 365，因此如果答案来自该版本，那么它可以帮助我们更快地采用它。

我正在寻找在二维中平铺 Excel 数组的方法，如另一个数组所定义，理想情况下不使用 VBA。

为了更好地解释，我想要一个 excel 公式f(A, B)

其中 A 是布尔值且 =

[[1, 0],
 [0, 1]

其中 B =

[[1, 2],
 [3, 4]

并f(A, B)根据 A 中的 bool 值对 B 进行平铺，在本例中，f(A, B) =

[[1, 2, 0, 0],
 [3, 4, 0, 0],
 [0, 0, 1, 2],
 [0, 0, 3, 4]]

我最初的想法是=IF(MUNIT(2), {1, 2;3, 4}, {0, 0;0, 0})，但是输出扩展得不太好。

我正在尝试从字符串中提取数字，如下所示，

我只希望从文本字符串的末尾获取数字，

我做了一些研究，它告诉我如何提取由空格、“-”或“/”分隔的数字。但是很难从非固定模式的字符串中提取数字。

为此，我阅读了一个使用此公式的教程：

RIGHT(cell, LEN(cell) - MAX(IF(ISNUMBER(MID(cell, ROW(INDIRECT("1:"&LEN(cell))), 1) *1)=FALSE, ROW(INDIRECT("1:"&LEN(cell))), 0)))

但是结果却不是这样。我得到的是这个结果：

是我做错了吗？还是我应该使用其他方法从字符串末尾获取数字？

我几年前编写的一个小函数遇到了麻烦，它用于简单地对列表对象中 A>Z 中的特定列进行排序。

它随机失败“对象的方法范围 - '全局'失败”但如果我在卡住时再次按 F5，它会正常继续（有时）。

我不明白如何调试这个，你能帮忙吗？

为了更好地理解：gracode_Dico 是一个全局词典，用于通过输入 lo 名称来获取代码的正确值。

代码在 .SortFields.Add2 key:=Range(sRange), SortOn:= _ 行失败

'Boucle sur All Listobjects si leur nom est t_, puis trie selon le code de la table.
Private Function GRA_Tri_By_Code(theworkbook As Workbook)

Dim sRange As String, ws As Worksheet, lo As ListObject

For Each ws In theworkbook.Worksheets
    If Left(ws.Name, 2) = "t_" Then
    For Each lo In ws.ListObjects
        If Left(lo.Name, 2) = "t_" Then
            Select Case lo.Name
            Case "t_cable_patch201", "t_ltech_patch201", "t_zpbo_patch201", "t_cab_cond", "t_cond_chem", "t_love"
                'Debug.Print "Impossible de trier " & lo.Name
            Case Else
                sRange = lo.Name & "[[#All],[" & gracode_Dico(lo.Name) & "_code]]"
                'sRange = lo.Name & "[[#All],[" & "ba" & "_code]]"
                With lo.Sort
                    .SortFields.Clear
                    .SortFields.Add2 key:=Range(sRange), SortOn:= _
                    xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                    .Header = xlYes: .MatchCase = False: .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
                End With
            End Select
        End If
    Next lo
    End If
Next

End Function

我尝试使用 ws.activate（不喜欢它），没有任何变化。我尝试精确指定范围的父级，如 ws.Range(sRange) 或 lo.Range(sRange)，但没有成功。

有没有办法过滤数据透视表以仅包含原始数据的某些行并保护过滤器不被更改？

所有用户都可以查看所有数据，但为了保持一致的报告，不应更改过滤器。工作表保护不起作用，因为这样数据透视表就无法更新。

此外：是否可以根据另一个单元格过滤数据透视表？（这样数据透视表就被限制为一个字段等于单元格的值的数据。）

Sub NewThing()

Dim Cell As Range

For Each Cell In Worksheets("Question 2").Range("B3:B11").Cells

    If Cell.Value >= 90000 Then
    
        Range("C3:C11").Value = Cell.Value * 1.5
    Else
        Range("C3:C11").Value = Cell.Value * 1.1
    
    End If

Next Cell

End Sub

当我进入 vba 编辑器时，我可以看到 C3:C11 中的值循环，我做错了什么？它从 B11 中获取最后一个值并将其用于整个列。请帮忙。