Mr Ethernet's questions

我正在尝试创建一个 VBA 脚本，该脚本将有条件地格式化一系列单元格，这些单元格包含具有我选择的填充颜色的任何文本字符串。

到目前为止，我使用 Excel 条件格式规则来实现此目的，并且有效；但是，将单元格的内容从一列拖放到另一列会导致条件格式规则变得非常零散，并很快变得一团糟。最初是两条条件格式规则，一条用于 A 列，另一条用于 B 列，随着 Excel 在单元格数据的每次复制或移动时更改规则的“适用于”字段，迅速变成了数十条单独的规则。

能够实现与我的条件格式设置规则相同的功能的 VBA 脚本会好得多，因为它不会受到移动或复制和粘贴单元格数据的影响。我将能够自由地将我的数据拖放到适当的列中，而不会影响底层 VBA 代码。

这里是否有任何具有基本 VBA 编码经验的人对一段简单的代码有任何想法，我可以使用它来简单地更改包含任何字符串的任何单元格的填充颜色？它适用于单元格 A1:A200。

如果您出于某种原因不喜欢我的问题，就像 David Postill 最近所做的那样，请在评论中告诉我，并给我几分钟时间用您认为可能需要的任何其他信息更新它，而不是否决它和匆匆离去。

只对听取具有一些基本 VBA 经验并希望提供帮助的人的意见感兴趣。请不要尖刻评论“我们不会调试您在网上为您找到的一些随机脚本”。我只想听到积极、乐于助人的人的意见。

我有一个跟踪项目和日期的电子表格。每个项目都有一个与之关联的相应日期：

显示条件格式的屏幕截图：

如果日期等于或小于当前日期的 100 天，则日期单元格突出显示为绿色，使用此条件格式公式：

=TODAY()-C3:C12<120

如果日期距离当前日期超过 100 天，单元格将突出显示为红色，使用以下条件格式公式：

=TODAY()-C3:C12>=120

此外，所有行都按日期升序排序，空白日期单元格不产生条件格式：

=ISBLANK(C3:C12)=TRUE

我要解决的问题是，当为特定项目更新日期时，所有行都需要使用 VBA 代码动态重新排列为新的升序日期顺序。

在屏幕截图中，您会注意到第 6 项不合适。它的整行应该通过宏自动按日期顺序移动到正确的顺序中。

我试图合并我在网上找到的以下脚本。不幸的是，随之而来的是一些非常奇怪的行为，我的行以一种我无法正确理解的方式重新排列。无论我做什么，标题都会被宏移动到其他所有内容下方！

谁能看出这段 VBA 代码有什么问题？一旦我更新任何日期，它就会把我的数据弄得一团糟。

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("C3").Sort Key1:=Range("C12"), _
  Order1:=xlAscending, Header:=xlNo, _
  OrderCustom:=1, MatchCase:=False, _
  Orientation:=xlTopToBottom
End Sub

编辑：

“你还没有提供脚本的链接”

脚本链接： https ://www.extendoffice.com/documents/excel/3655-excel-auto-sort-by-date.html

“......更重要的是告诉我们随机脚本实际上应该做什么”

该脚本应该在输入或修改时自动对日期进行排序，可以从中推断出：

“我试图解决的问题是，当为特定项目更新日期时，所有行都需要使用 VBA 代码动态重新排列为新的升序日期顺序。”

... 和：

“它的整行应该通过宏自动按日期顺序移动到正确的顺序中。”

抱歉，如果我没有说清楚这个脚本的目的是在修改日期时动态安排日期。

这是添加新日期时发生的情况；标头移动到数据下方：

标头与数据一起排序

谁能看出为什么标题会移到数据下方？