干净的条件格式 (Excel VBA)

2024-03-15

如果这个问题已经得到解答，但我无法找到它，我深表歉意。这就是我想要的：我们都知道删除范围、行和列会分割条件格式并使其变得丑陋。我想创建一个个人宏：

1.) Searches through all existing Conditional Formatting in the active sheet
2.) Recognizes duplicates based on their condition and format result
3.) Finds the leftmost column and highest row in all duplicates
4.) Finds the rightmost column and lowest row in all duplicates
5.) Determines a broadened Range using those four values
6.) Remembers the condition and format
7.) Deletes all duplicates
8.) Recreates the Conditional Format over the broadened Range
9.) Repeats until no more duplicates are found
10) Outputs how many duplicates were deleted in a MsgBox

我有 50% 的信心自己可以做到这一点，但我有一种感觉，我需要学习如何使用数组变量。（对此我完全无知，因此感到害怕）所以如果有人已经创建了这个，那么我beg你分享你的天才。或者，如果有人认为他们可以解决这个问题，我为您提供机会来创造可能成为其中之一的东西the整个个人宏用户群体中最常用的工具（就在上面，Ctrl+Shift+V）。

或者，如果没有人有或不想，那么也许有一些提示？？？快来给我扔一根骨头吧！

这是我对这个问题的回答。我仅将其实现为使用公式的条件格式，因为我很少使用其他条件格式类型。它也可以作为我的个人网站的加载项提供：合并条件格式化 v1.2 https://rath.ca/Misc/VBA/Excel/MergeConditionalFormatting%20v1.2.zip

这是代码：

'''
' MergeConditionalFormatting - Add-in to merge conditional formatting.
' Author: Christopher Rath <[email protected] /cdn-cgi/l/email-protection>
' Date: 2020-12-17
' Version: 1.0
' Archived at: http://www.rath.ca/Misc/VBA/
' Copyright © 2020 Christopher Rath
' Distributed under the GNU Lesser General Public License v2.1
' Warranty: None, see the license.
'''
Option Explicit
Option Base 1

' See https://learn.microsoft.com/en-us/office/vba/api/excel.formatcondition

Public Sub MergeCF()
    Dim cfBase As Object
    Dim cfCmp As Object
    Dim iBase, iCmp As Integer
    Dim delCount As Integer
    
    Application.ScreenUpdating = False
    
    delCount = 0
    
    With ActiveSheet.Cells
        'Debug.Print "Base", "Applies To", "Type", "Formula", "|", "Match", "|", "Cmp", "Applies To", "Type", "Formula"
        iBase = 1
        Do While iBase <= .FormatConditions.Count
            Set cfBase = .FormatConditions.Item(iBase)
            
            Application.StatusBar = "Checking FormatCondition " & iBase
            
            If (cfBase.Type = xlCellValue) Or (cfBase.Type = xlExpression) Then
                For iCmp = .FormatConditions.Count To (iBase + 1) Step -1
                    Application.StatusBar = "Checking FormatCondition " & iBase & " to " & iCmp
                
                    Set cfCmp = .FormatConditions.Item(iCmp)
                    
                    'Debug.Print iBase, cfBase.AppliesTo.Address(, , xlR1C1), cfBase.Type, _
                    '            Application.ConvertFormula(cfBase.Formula1, xlA1, xlR1C1, , _
                    '                                       cfBase.AppliesTo.Cells(1, 1)), _
                    '            "|", IIf(cmpFormatConditions(cfBase, cfCmp), "True", "False"), "|", _
                    '            iCmp, cfCmp.AppliesTo.Address(, , xlR1C1), cfCmp.Type, _
                    '            Application.ConvertFormula(cfCmp.Formula1, xlA1, xlR1C1, , _
                    '                                       cfCmp.AppliesTo.Cells(1, 1))
                    
                    If (cfCmp.Type = xlCellValue) Or (cfCmp.Type = xlExpression) Then
                        If cmpFormatConditions(cfBase, cfCmp) Then
                            cfBase.ModifyAppliesToRange Union(cfCmp.AppliesTo, cfBase.AppliesTo, cfCmp.AppliesTo)
                            cfCmp.Delete
                            delCount = delCount + 1
                            ' Testing has shown that the .Delete of the extra FormatCondition has caused the
                            ' FormatConditions collection to become changed; e.g., item(1) is no longer
                            ' guaranteed to be the same FormatCondition object that it was prior to the
                            ' .Delete.  So, we will now re-jig the value if iBase so that it restarts at
                            ' item(1) and once once again starts its scan from scratch.
                            iBase = 1
                            GoTo RESTART
                        End If
                    End If
                Next iCmp
            End If
            iBase = iBase + 1
RESTART:
        Loop
    End With
    
    Application.ScreenUpdating = True
    Application.StatusBar = "Consolidated " & delCount & " FormatCondition records."
End Sub

Private Function cmpFormatConditions(ByRef cfBase As FormatCondition, ByRef cfCmp As FormatCondition, _
                                     Optional ByVal comparePriority As Boolean = False) As Boolean
    Dim rtnVal As Boolean
    
    ' We set the return value (rtnVal) to false, and then test each property.
    ' If any individual test evaluates to false then we fall to the bottom of the if-thens
    ' and return the initial value (false).  If we make it through all the tests, then we
    ' change rtnVal to true before returning.
    '
    ' We test each property in reverse alphabetic order because most of the simple types are then tested
    ' first; which should speed up the code.
    '
    ' NOTE: The Priority property cannot be compared because this is simply the number that reflects
    '       the order in which the FormatCondition records are evaluated.  That said, we do allow this
    '       to behaviour to be overridden through an optional parameter.
    '
    rtnVal = False
    
    If cfBase.Type = cfCmp.Type Then
        ' The specific properties to test is dependent upon the Type.
        Select Case cfBase.Type
            Case xlCellValue, xlExpression
                If cfBase.StopIfTrue = cfCmp.StopIfTrue Then
                    If cfBase.PTCondition = cfCmp.PTCondition Then
                        If (Not comparePriority) Or (comparePriority And cfBase.Priority = cfCmp.Priority) Then
                            If cmpNumberFormat(cfBase.NumberFormat, cfCmp.NumberFormat) Then
                                If cmpInterior(cfBase.Interior, cfCmp.Interior) Then
                                    If Application.ConvertFormula(cfBase.Formula1, xlA1, xlR1C1, , cfBase.AppliesTo.Cells(1, 1)) _
                                          = Application.ConvertFormula(cfCmp.Formula1, xlA1, xlR1C1, , cfCmp.AppliesTo.Cells(1, 1)) Then
                                        If cmpFont(cfBase.Font, cfCmp.Font) Then
                                            If cmpBorders(cfBase.Borders, cfCmp.Borders) Then
                                                rtnVal = True
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
             
             Case Else
                ' Ultimately we need to throw a hard error.
                rtnVal = False
        End Select
    End If
        
    cmpFormatConditions = rtnVal
End Function

Private Function cmpBackground(ByRef bBase As Variant, ByRef bCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(bBase) And IsNull(bCmp) Then
        rtnVal = True
    ElseIf Not IsNull(bBase) And Not IsNull(bCmp) Then
        If bBase = bCmp Then
            rtnVal = True
        End If
    End If
    
    cmpBackground = rtnVal
End Function

Private Function cmpBold(ByRef bBase As Variant, ByRef bCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(bBase) And IsNull(bCmp) Then
        rtnVal = True
    ElseIf Not IsNull(bBase) And Not IsNull(bCmp) Then
        If bBase = bCmp Then
            rtnVal = True
        End If
    End If
    
    cmpBold = rtnVal
End Function

Private Function cmpBorder(ByRef bBase As Border, ByRef bCmp As Border) As Boolean
    Dim rtnVal As Boolean

    rtnVal = False
    
    If bBase.Color = bCmp.Color Then
        If bBase.ColorIndex = bCmp.ColorIndex Then
            If Not IsObject(bBase.ThemeColor) And Not IsObject(bCmp.ThemeColor) Then
                rtnVal = True
            ElseIf (Not IsObject(bBase.ThemeColor)) And (Not IsObject(bCmp.ThemeColor)) Then
                If bBase.ThemeColor = bCmp.ThemeColor Then
                    If bBase.Weight = bCmp.Weight Then
                        If bBase.LineStyle = bCmp.LineStyle Then
                            If bBase.TintAndShade = bCmp.TintAndShade Then
                                rtnVal = True
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
    
    cmpBorder = rtnVal
End Function

Private Function cmpBorders(ByRef bBase As Borders, ByRef bCmp As Borders) As Boolean
    Dim rtnVal As Boolean

    rtnVal = False
    
    If cmpBorder(bBase(xlDiagonalDown), bCmp(xlDiagonalDown)) Then
        If cmpBorder(bBase(xlDiagonalUp), bCmp(xlDiagonalUp)) Then
            If cmpBorder(bBase(xlEdgeBottom), bCmp(xlEdgeBottom)) Then
                If cmpBorder(bBase(xlEdgeLeft), bCmp(xlEdgeLeft)) Then
                    If cmpBorder(bBase(xlEdgeRight), bCmp(xlEdgeRight)) Then
                        If cmpBorder(bBase(xlEdgeTop), bCmp(xlEdgeTop)) Then
                            If cmpBorder(bBase(xlInsideHorizontal), bCmp(xlInsideHorizontal)) Then
                                If cmpBorder(bBase(xlInsideVertical), bCmp(xlInsideVertical)) Then
                                    rtnVal = True
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
    
    cmpBorders = rtnVal
End Function

Private Function cmpColor(ByRef cBase As Variant, ByRef cCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(cBase) And IsNull(cCmp) Then
        rtnVal = True
    ElseIf Not IsNull(cBase) And Not IsNull(cCmp) Then
        If cBase = cCmp Then
            rtnVal = True
        End If
    End If
    
    cmpColor = rtnVal
End Function

Private Function cmpColorIndex(ByRef cBase As Variant, ByRef cCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(cBase) And IsNull(cCmp) Then
        rtnVal = True
    ElseIf Not IsNull(cBase) And Not IsNull(cCmp) Then
        If cBase = cCmp Then
            rtnVal = True
        End If
    End If
    
    cmpColorIndex = rtnVal
End Function

Private Function cmpFont(ByRef fBase As Font, ByRef fCmp As Font) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    ' Is a Font object and so I need to build out tests for its properties.
    If cmpBackground(fBase.Background, fCmp.Background) Then
        If cmpBold(fBase.Bold, fCmp.Bold) Then
            If cmpColor(fBase.Color, fCmp.Color) Then
                If cmpColorIndex(fBase.ColorIndex, fCmp.ColorIndex) Then
                    If cmpFontStyle(fBase.FontStyle, fCmp.FontStyle) Then
                        If cmpItalic(fBase.Italic, fCmp.Italic) Then
                            If cmpName(fBase.Name, fCmp.Name) Then
                                If cmpSize(fBase.Size, fCmp.Size) Then
                                    If cmpStrikethrough(fBase.Size, fCmp.Size) Then
                                        If cmpSubscript(fBase.Size, fCmp.Size) Then
                                            If cmpSuperscript(fBase.Size, fCmp.Size) Then
                                                If cmpThemeColor_V(fBase, fCmp) Then
                                                    If fBase.ThemeFont = fCmp.ThemeFont Then
                                                        If cmpTintAndShade(fBase.TintAndShade, fCmp.TintAndShade) Then
                                                            If cmpUnderline(fBase.Underline, fCmp.Underline) Then
                                                                rtnVal = True
                                                            End If
                                                        End If
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
    
    cmpFont = rtnVal
End Function

Private Function cmpFontStyle(ByRef fBase As Variant, ByRef fCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(fBase) And IsNull(fCmp) Then
        rtnVal = True
    ElseIf Not IsNull(fBase) And Not IsNull(fCmp) Then
        If fBase = fCmp Then
            rtnVal = True
        End If
    End If
    
    cmpFontStyle = rtnVal
End Function

Private Function cmpGradient(ByRef gBase As Variant, ByRef gCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If (gBase Is Nothing) And (gCmp Is Nothing) Then
        rtnVal = True
    ElseIf Not (gBase Is Nothing) And Not (gCmp Is Nothing) Then
        If gBase = gCmp Then
            rtnVal = True
        End If
    End If
    
    cmpGradient = rtnVal
End Function

Private Function cmpInterior(ByRef iBase As Interior, ByRef iCmp As Interior) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If iBase.Color = iCmp.Color Then
        If cmpColorIndex(iBase.ColorIndex, iCmp.ColorIndex) Then
            If cmpGradient(iBase.Gradient, iCmp.Gradient) Then
                If cmpPattern(iBase.Pattern, iCmp.Pattern) Then
                    If cmpPatternColor(iBase.PatternColor, iCmp.PatternColor) Then
                        If cmpPatternColorIndex(iBase.PatternColorIndex, iCmp.PatternColorIndex) Then
                            If cmpPatternThemeColor(iBase.PatternThemeColor, iCmp.PatternThemeColor) Then
                                If cmpPatternTintAndShade(iBase.PatternTintAndShade, iCmp.PatternTintAndShade) Then
                                    If cmpThemeColor_V(iBase, iCmp) Then
                                        If cmpTintAndShade(iBase.TintAndShade, iCmp.TintAndShade) Then
                                            rtnVal = True
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
    
    cmpInterior = rtnVal
End Function

Private Function cmpItalic(ByRef iBase As Variant, ByRef iCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(iBase) And IsNull(iCmp) Then
        rtnVal = True
    ElseIf Not IsNull(iBase) And Not IsNull(iCmp) Then
        If iBase = iCmp Then
            rtnVal = True
        End If
    End If
    
    cmpItalic = rtnVal
End Function

Private Function cmpName(ByRef nBase As Variant, ByRef nCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(nBase) And IsNull(nCmp) Then
        rtnVal = True
    ElseIf Not IsNull(nBase) And Not IsNull(nCmp) Then
        If nBase = nCmp Then
            rtnVal = True
        End If
    End If
    
    cmpName = rtnVal
End Function

Private Function cmpNumberFormat(ByRef nfBase As Variant, ByRef nfCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsEmpty(nfBase) And IsEmpty(nfCmp) Then
        rtnVal = True
    ElseIf (Not IsEmpty(nfBase)) And (Not IsEmpty(nfCmp)) Then
        If nfBase = nfCmp Then
            rtnVal = True
        End If
    End If
    
    cmpNumberFormat = rtnVal
End Function

Private Function cmpPattern(ByRef pBase As Variant, ByRef pCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(pBase) And IsNull(pCmp) Then
        rtnVal = True
    ElseIf Not IsNull(pBase) And Not IsNull(pCmp) Then
        If pBase = pCmp Then
            rtnVal = True
        End If
    End If
    
    cmpPattern = rtnVal
End Function

Private Function cmpPatternColor(ByRef pBase As Variant, ByRef pCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(pBase) And IsNull(pCmp) Then
        rtnVal = True
    ElseIf Not IsNull(pBase) And Not IsNull(pCmp) Then
        If pBase = pCmp Then
            rtnVal = True
        End If
    End If
    
    cmpPatternColor = rtnVal
End Function

Private Function cmpPatternColorIndex(ByRef pBase As Variant, ByRef pCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(pBase) And IsNull(pCmp) Then
        rtnVal = True
    ElseIf Not IsNull(pBase) And Not IsNull(pCmp) Then
        If pBase = pCmp Then
            rtnVal = True
        End If
    End If
    
    cmpPatternColorIndex = rtnVal
End Function

Private Function cmpPatternThemeColor(ByRef pBase As Variant, ByRef pCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(pBase) And IsNull(pCmp) Then
        rtnVal = True
    ElseIf Not IsNull(pBase) And Not IsNull(pCmp) Then
        If pBase = pCmp Then
            rtnVal = True
        End If
    End If
    
    cmpPatternThemeColor = rtnVal
End Function

Private Function cmpPatternTintAndShade(ByRef pBase As Variant, ByRef pCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(pBase) And IsNull(pCmp) Then
        rtnVal = True
    ElseIf Not IsNull(pBase) And Not IsNull(pCmp) Then
        If pBase = pCmp Then
            rtnVal = True
        End If
    End If
    
    cmpPatternTintAndShade = rtnVal
End Function

Private Function cmpSize(ByRef sBase As Variant, ByRef sCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(sBase) And IsNull(sCmp) Then
        rtnVal = True
    ElseIf Not IsNull(sBase) And Not IsNull(sCmp) Then
        If sBase = sCmp Then
            rtnVal = True
        End If
    End If
    
    cmpSize = rtnVal
End Function

Private Function cmpStrikethrough(ByRef sBase As Variant, ByRef sCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(sBase) And IsNull(sCmp) Then
        rtnVal = True
    ElseIf Not IsNull(sBase) And Not IsNull(sCmp) Then
        If sBase = sCmp Then
            rtnVal = True
        End If
    End If
    
    cmpStrikethrough = rtnVal
End Function

Private Function cmpSubscript(ByRef sBase As Variant, ByRef sCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(sBase) And IsNull(sCmp) Then
        rtnVal = True
    ElseIf Not IsNull(sBase) And Not IsNull(sCmp) Then
        If sBase = sCmp Then
            rtnVal = True
        End If
    End If
    
    cmpSubscript = rtnVal
End Function

Private Function cmpSuperscript(ByRef sBase As Variant, ByRef sCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(sBase) And IsNull(sCmp) Then
        rtnVal = True
    ElseIf Not IsNull(sBase) And Not IsNull(sCmp) Then
        If sBase = sCmp Then
            rtnVal = True
        End If
    End If
    
    cmpSuperscript = rtnVal
End Function

Private Function cmpThemeColor_V(ByRef vBase As Variant, ByRef vCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    Dim baseErr, cmpErr As Boolean
    
    baseErr = False
    cmpErr = False
    rtnVal = False
    
    On Error GoTo ERR_BASE
    ' Force an evaluation of fcBase.ThemeColor.  We only care if it was possible to read the property
    ' without generating an error.
    If IsNull(vBase.ThemeColor) Then
        ' Empty clause.
    End If
   
    On Error GoTo ERR_CMP
    ' Force an evaluation of fcBase.ThemeColor.  We only care if it was possible to read the property
    ' without generating an error.
    If IsNull(vCmp.ThemeColor) Then
        ' Empty clause.
    End If
       
    On Error GoTo 0
    
    If baseErr And cmpErr Then
        rtnVal = True
    ElseIf (Not baseErr) And (Not cmpErr) Then
        If IsNull(vBase.ThemeColor) And IsNull(vCmp.ThemeColor) Then
            rtnVal = True
        ElseIf Not IsNull(vBase.ThemeColor) And Not IsNull(vCmp.ThemeColor) Then
            If vBase.ThemeColor = vCmp.ThemeColor Then
                rtnVal = True
            End If
        End If
    End If

    cmpThemeColor_V = rtnVal
    Exit Function
    
ERR_BASE:
    On Error Resume Next
    baseErr = True
    Resume
ERR_CMP:
    On Error Resume Next
    cmpErr = True
    Resume
End Function

Private Function cmpTintAndShade(ByRef tbase As Variant, ByRef tcmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(tbase) And IsNull(tcmp) Then
        rtnVal = True
    ElseIf Not IsNull(tbase) And Not IsNull(tcmp) Then
        If tbase = tcmp Then
            rtnVal = True
        End If
    End If
    
    cmpTintAndShade = rtnVal
End Function

Private Function cmpUnderline(ByRef uBase As Variant, ByRef uCmp As Variant) As Boolean
    Dim rtnVal As Boolean
    
    rtnVal = False
    
    If IsNull(uBase) And IsNull(uCmp) Then
        rtnVal = True
    ElseIf Not IsNull(uBase) And Not IsNull(uCmp) Then
        If uBase = uCmp Then
            rtnVal = True
        End If
    End If
    cmpUnderline = rtnVal
End Function

本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

vba

Excel

干净的条件格式 (Excel VBA) 的相关文章

无法在我的抓取工具中设置超时选项以防止无限循环

我已经使用 IE 在 vba 中编写了一个脚本在其搜索框中的网页中启动搜索通过点击搜索按钮根据搜索填充结果网页加载它是searchbox几秒钟后它就会打开但是我的下面的脚本可以处理这个障碍并以正确的方式执行搜索现在我有一个稍微
excel 2010刷新BackgroundQuery中运行时错误1004

我正在尝试用 vba 编写一个脚本用于将多个文本文件导入 Excel 一张纸然后将它们绘制在一张图表上我面临一个问题刷新后台查询命令并出现 1004 运行时错误我怎样才能解决它谢谢埃亚勒这是我的代码 Sub fring1 Di
当时间为 00:00 时，Pandas 读取 excel 返回类型对象

在更新版本的 Pandas 中我使用的是 1 2 3 当从 Excel 文件读取时间时时间为 00 00 00 时会出现问题下面的脚本其中 filepath 是我的 Excel 文件的路径其中包含一个标题名为 Time 的列 im
Excel 工作簿 - 从 C# 读取速度非常慢？

正在尝试读取 Excel 工作簿发现读取 3560 行 7 列的工作表需要很长时间大约需要 1 分 17 秒我所做的就是循环遍历整个工作表并将值存储在列表中这是正常现象还是我做错了什么 static void Main strin
VBA Shell 并等待退出代码

我正在打包一个办公应用程序 VBA 它调用 C 控制台应用程序来执行应用程序大型模拟程序的一些繁重工作我希望能够让 VBA 应用程序等待控制台应用程序完成并从控制台应用程序检索退出代码我已经能够做到前者但尚未能够从应用程序中检索退
Office excel将CORS请求作为跨域请求

我正在尝试从我的 Excel 插件发出跨域请求正如这里所建议的 http dev office com docs add ins develop addressing same origin policy limitations http
导出到excel时如何显示前导零？

我正在通过更改内容类型来创建 Excel 报告 Response ContentType application vnd ms excel 我有包含前导零的值问题是导出到 Excel 时缺少前导零 e g 000123 gt 123 我知
如何在 Excel 中对一组数据进行排序以匹配另一组数据？

我有一个不按字母或数字顺序排列的数据列表我想对同一日期的第二个列表进行排序以匹配第一个列表我无法更改数据的顺序我的目标是将第二组中的附加数据粘贴回第一个数据集中 DATA SET A DATA SET B 22350 BH160 10
VBA 有没有办法了解未使用的变量？

标准 VBA 编辑器中是否有工具方法或设置来警告已被修改的变量Dim med 但没有被使用 MZ Tools http www mztools com index aspx将搜索您的代码并告诉您哪些内容未被使用 VBA的版本可以找到her
如何等到 Excel 计算公式后再继续 win32com

我有一个 win32com Python 脚本它将多个 Excel 文件合并到电子表格中并将其另存为 PDF 现在的工作原理是输出几乎都是 NAME 因为文件是在计算 Excel 文件内容之前输出的这可能需要一分钟如何强制工作簿计算值
如何在Power Query中对N列求和

我的数据每月都会更新因此我尝试创建一个强大的查询表该表将显示我创建的枢转 N 列的总和但我似乎不知道如何在强大的查询中执行此操作我目前有这个代码旋转后创建要求和的列的列表添加索引列以限制每行添加一列该列对该行的列进行求和
标志状态的 VBA 替换

根据文档 Outlook 中的 MailItem FlagStatus 属性是已弃用 https msdn microsoft com en us library microsoft office interop outlook maili
检查未绑定控件是否具有值的正确方法

简单场景一个表单和一个文本框未绑定 Text1 If lt gt Text1 Then MsgBox Not Empty End If 上面的代码有效表达方式 lt gt Text1如果文本框包含字符则计算结果为 True 无论文本
在VBA中初始化全局变量

在 Excel 2003 中如何声明全局变量并仅在打开工作簿时初始化它们一次我有一些由几个宏使用的参数基本上是输入文件的路径目前我的代码如下所示 global path1 path2 as string sub initPaths
获取当前 VBA 函数的名称

对于错误处理代码我想获取发生错误的当前 VBA 函数或子函数的名称有谁知道如何做到这一点编辑谢谢大家我曾希望存在一个未记录的技巧来自行确定函数但这显然不存在我想我会保留当前的代码 Option Compare Databa
使用 FindElementbyXpath() 获取 Selenium Basic 中可填充框的行和列名称

我正在使用 Selenium Basic 将电子表格中的文本填充到网站中网站的html代码是这样的 div table cellspacing 0 border 1 style width 99 tr th style font weig
Android Excel CSV 的 MIME 数据类型是什么？

我尝试了 text csv 甚至 application vnd ms excel 但 Excel 不会显示在选择列表中很多其他应用程序也可以 void shareCsv Uri uri Context context Intent in
C# 无法将欧元符号打印到文件中（使用 Excel 打开时）

我在使用 Web api 控制器的 get 方法时遇到问题此方法返回一个 HttpResponseMessage 对象该对象具有带有 csv 文件的 HttpContent 其中包含欧元符号当该方法返回文件时不会打印欧元符号该方法
使用 split 函数到数组中会导致编译错误：无法分配给数组

我正在尝试使用split 函数根据给定名称字符串中的空格拆分名称当尝试编译我在下面编写的代码时出现编译错误无法分配给数组我几乎从这里复制了微软的示例 https support microsoft com en us kb 2662
使用PHP从doc、xls文件中读取数据

我想知道是否可以从 doc 和 xls 文件中读取数据并将将内容读取到图像文件中创建文档的页面样本例如我有一些文件希望我的客户购买所以我需要自动创建小图像例如我的文档样本我们将不胜感激您的帮助对于读取 xls 文件我真的推

随机推荐

显示精灵的另一个实例

是否可以显示精灵的另一个实例我想做的是反射动画精灵到目前为止我得到的是我的 Sprite 称为 canvas 它内部有使用 AS3 进行动画处理的内容我想要做的是显示它翻转的副本在它下面看起来像倒影我尝试了以下代码但没有运气
类库（传统便携式）？

我有一台装有 Microsoft Visual Studio Community 2017 的电脑版本 15 2 它有一个类库便携式的项目模板另一台版本为 15 3 1 的 PC 有一个类库模板 Legacy Portable PC
请解释如何使用CheckBoxTableCell

我想了解更多有关如何实际使用或子类化如果需要 CheckBoxTableCell 的信息在一种特定情况下我想使用此类其中复选框不绑定到基础数据模型属性假设我有一个名为选择的列其中包含复选框该列或多或少充当该行的视觉标记用
亚马逊s3上传多个文件android

如果有人仍在寻找解决方案我最终会在代码上使用循环但我没有找到官方 api 来执行多个文件上传我有一个 ImageFiles 的 ArrayList 我想将其上传到 Amazon s3 他们的文档提供了以下代码 credentials
通过距离和摩擦力计算速度

我正在用 Javascript Canvas HTML5 编写一个游戏我刚刚发现了一个与高等数学相关的大问题该游戏是平面 2D 游戏因此您可以从另一个角度看世界这意味着没有重力只有摩擦力 CODE var friction 0 9
当没有导航栏时，如何在 EKEventeditViewController 中获得“完成”或“后退”按钮？

我的 iOS 应用程序中有一个日历事件列表单击时将在 EKEventViewController 中打开这是我的代码 void tableView UITableView tableView didSelectRowAtIndexPat
如何在表格行上使用slideDown（或show）函数？

我正在尝试向表中添加一行并将该行滑入视图中但是 Slidedown 函数似乎向表行添加了 display block 样式这会弄乱布局有什么想法可以解决这个问题吗这是代码 get some url val1 id function
在 Promise catch 中重新抛出错误

我在教程中找到了以下代码 promise then function result some code catch function error throw error 我有点困惑 catch 调用有什么作用吗在我看来它没有任何效果因
Windows 搜索 sql - 无法访问 System.Search.QueryFocusedSummary

我正在尝试使用 sql 查询 Windows Search 4 0 该物业我感兴趣的是 System Search QueryFocusedSummary 我正在尝试从 SystemIndex 读取此属性我收到列不存在错误消息我能
安装nvm后无法卸载全局npm包

我发现了与此问题相关的几个线程但似乎没有一个专门处理我的案例并且我无法使用我找到的建议来解决当我跑步时npm uninstall g some package 它只是返回 up to date in 043s 全球一揽子计划仍然存在
cakephp 3.x 保存多个实体 - newEntities

我在保存多条记录方面遇到了最困难的时期我已经尝试了一百万次但最终遇到了同样的问题我的记录没有保存而且我看不到任何错误请记住我是 cakephp 的新手也是一名新手编码员我是否遗漏了一些明显且关键的东西 Table this
Google 在 React 中使用 firebase 登录 chrome 扩展

使用 Firebase 进行 Google 登录并使用 React 创建的 Chrome 扩展程序我已经使用设置了 oauthGoogleConsole并能够使用 chrome 扩展程序成功登录 chrome identity getA
Leaflet Draw spritesheet 图标问题 - 缺失且未对齐

我已将传单绘制纳入我的一个项目中我的问题是图标没有显示在工具栏中它看起来像这样环顾四周我发现THIS https github com Leaflet Leaflet draw issues 617发布并按照其说明进行操作我在 Le
在 apache (ubuntu 12) 下将 python 脚本作为 cgi 运行时出现问题

披露我搜索了很多我认为我的问题针对我的配置在这里没有得到解答例如作为 cgi apache 服务器运行 python 脚本 https stackoverflow com questions 15878010 run python
Unity android 项目抛出“抱歉，您的硬件不支持此应用程序”错误

我已经调查了2天了我读了很多东西总结一下我读到的内容非 NEON 设备无法与 UNITY 5 版本一起使用您应该将安装位置设置为自动或强制内部您应该将写入权限设置为仅限内部除了上述设置之外我还尝试了这些纹理压缩设置不要覆
如何更改 actionPerformed() 内的 Swing Timer Delay

所以我正在构建这个音乐播放器应用程序它可以播放拖放到 JLabel 上的音符当我按下播放按钮时我希望每个音符都突出显示并带有与该音符对应的延迟值我为此使用了 Swing Timer 但问题是它只是以构造函数中指定的恒定延迟循环
返回元组时 GCC/Clang x86_64 C++ ABI 不匹配？

当尝试时优化 x86 64 上的返回值 https stackoverflow com q 25381736 3919155 我注意到一个奇怪的事情即给定代码 include
如何更快地加载JQuery？

我有aspx 其中有jquery 由于加载 jquery 的延迟我面临一些样式问题请谁能告诉我如何快速加载jquery 我今天读了 Stackoverflow 上 Sam Saffron 撰写的关于此主题的博客文章我还没有尝试过作者的
上传到 iTunes Store 时出错

我们确实需要一些帮助在过去的两个月里我们一直在与所有 Apple Mumbo Jumbo 进行斗争但似乎无法在 APPStore 上获取我们的应用程序现在我的问题是在验证存档编译并共享它之后在提交过程中我得到上传到 iTunes
干净的条件格式 (Excel VBA)

如果这个问题已经得到解答但我无法找到它我深表歉意这就是我想要的我们都知道删除范围行和列会分割条件格式并使其变得丑陋我想创建一个个人宏 1 Searches through all existing Conditional For

干净的条件格式 (Excel VBA)

干净的条件格式 (Excel VBA) 的相关文章

随机推荐

热门标签