使用 VBA 验证一系列单元格中的日期

萨马德·拉扎
Sub DataFormat()
Dim i As Long, LastRow As Long
LastRow = Worksheets("QC").Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If Worksheets("QC").Cells(i, "K").Value = "MM/01/YYYY" Then
Worksheets("QC").Cells(i, "K").Interior.ColorIndex = 2
    Else
      Worksheets("QC").Cells(i, "K").Interior.ColorIndex = 3
      End If
      Next i
End Sub

我只是验证单元格 K 中的值。它的日期为 11/1/2017,单元格的格式为 11 月 17 日。通过上面的代码,我正在验证它是否包含当月的第一天并且此代码不起作用。

石头44

您的问题主要来自

Worksheets("QC").Cells(i, "K").value 

这不是检查正确的日期。要检查日期格式,您需要添加.NumberFormat

此外,您使用mm/dd/yyyy的数字格式与您在 excel 中的 11 月 17 日表格中的数字格式不同,因此您可以将其删除。

现在为了检查一个月中的哪一天,您可以简单地使用Day()仅适用于内部字符串的函数

Option Explicit

Sub DataFormat()
Dim i As Long, LastRow As Long
Dim daydate As String
LastRow = Worksheets("QC").Cells(Rows.Count, "A").End(xlUp).Row

   For i = 3 To LastRow
      daydate = Worksheets("QC").Cells(i, "K").Value
         If IsDate(daydate) Then

             If Day(daydate) = 1 Then
                 Worksheets("QC").Cells(i, "K").Interior.ColorIndex = 2
             Else
                 Worksheets("QC").Cells(i, "K").Interior.ColorIndex = 3
             End If

         Else
             Worksheets("QC").Cells(i, "K").Interior.ColorIndex = 3
         End If
   Next i
End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何遍历一系列单元格(Excel VBA)时如何获取当前单元格号

来自分类Dev

Excel VBA,如何使用一个工作表上的下拉列表中的选择格式(颜色)另一工作表上的一系列单元格

来自分类Dev

我可以采用一系列单元格,删除重复项和空白单元格,然后复制到VBA Excel中已经存在的表中吗?

来自分类Dev

只需尝试使用Excel VBA将相同的字符串粘贴到一系列单元格中

来自分类Dev

从Excel VBA中的一系列单元格中获取列x的单元格

来自分类Dev

使用closedXML和C#将一系列单元格值放入列表中

来自分类Dev

在一系列单元格上将ISFORMULA与ARRAYFORMULA一起使用

来自分类Dev

如何使用openpyxl和python3在Excel工作表中为一系列单元格(列和行)赋予字体颜色?

来自分类Dev

VBA引用一系列单元格(动态引用)

来自分类Dev

使用目标偏移量清除Excel中的一系列单元格

来自分类Dev

使用VBA将一系列单元格从封闭的工作簿复制到已经包含正文的Outlook电子邮件中?

来自分类Dev

VBA Excel:连接一系列单元格

来自分类Dev

使用VBA复制和粘贴一系列单元格

来自分类Dev

使用&在Excel中加入一系列单元格

来自分类Dev

在Excel VBA中对一系列单元格使用自动填充

来自分类Dev

VBA使用数组值作为单元格验证值

来自分类Dev

VBA代码可通过向上移动/向上移动一系列单元格来覆盖单元格

来自分类Dev

Excel VBA在列中重复复制和粘贴一系列单元格

来自分类Dev

如何将我的VBA代码应用于一系列单元格?

来自分类Dev

如何根据vba中的单元格值生成一系列数字并水平显示结果?

来自分类Dev

循环遍历一系列选定的单元格并使用文本到列将 1 个单元格拆分为 4 列

来自分类Dev

如何保护excel文件中的一系列单元格免受另一个(其中包含vba代码)的影响?

来自分类Dev

VBA - 如何将一系列单元格除以固定单元格

来自分类Dev

根据一系列值分配单元格值(使用 =ifs)

来自分类Dev

VBA Excel 选择命名范围内的一系列单元格

来自分类Dev

使用VBA提取一系列URL

来自分类Dev

在引用从 B 列到 D 列的一系列单元格时创建文件夹和子文件夹的 VBA 代码?

来自分类Dev

如何在 ARRAYFORMULA 中为一系列单元格使用自定义函数?

来自分类Dev

如何使用 VBA 循环切割一系列单元格并粘贴到下一行

Related 相关文章

  1. 1

    如何遍历一系列单元格(Excel VBA)时如何获取当前单元格号

  2. 2

    Excel VBA,如何使用一个工作表上的下拉列表中的选择格式(颜色)另一工作表上的一系列单元格

  3. 3

    我可以采用一系列单元格,删除重复项和空白单元格,然后复制到VBA Excel中已经存在的表中吗?

  4. 4

    只需尝试使用Excel VBA将相同的字符串粘贴到一系列单元格中

  5. 5

    从Excel VBA中的一系列单元格中获取列x的单元格

  6. 6

    使用closedXML和C#将一系列单元格值放入列表中

  7. 7

    在一系列单元格上将ISFORMULA与ARRAYFORMULA一起使用

  8. 8

    如何使用openpyxl和python3在Excel工作表中为一系列单元格(列和行)赋予字体颜色?

  9. 9

    VBA引用一系列单元格(动态引用)

  10. 10

    使用目标偏移量清除Excel中的一系列单元格

  11. 11

    使用VBA将一系列单元格从封闭的工作簿复制到已经包含正文的Outlook电子邮件中?

  12. 12

    VBA Excel:连接一系列单元格

  13. 13

    使用VBA复制和粘贴一系列单元格

  14. 14

    使用&在Excel中加入一系列单元格

  15. 15

    在Excel VBA中对一系列单元格使用自动填充

  16. 16

    VBA使用数组值作为单元格验证值

  17. 17

    VBA代码可通过向上移动/向上移动一系列单元格来覆盖单元格

  18. 18

    Excel VBA在列中重复复制和粘贴一系列单元格

  19. 19

    如何将我的VBA代码应用于一系列单元格?

  20. 20

    如何根据vba中的单元格值生成一系列数字并水平显示结果?

  21. 21

    循环遍历一系列选定的单元格并使用文本到列将 1 个单元格拆分为 4 列

  22. 22

    如何保护excel文件中的一系列单元格免受另一个(其中包含vba代码)的影响?

  23. 23

    VBA - 如何将一系列单元格除以固定单元格

  24. 24

    根据一系列值分配单元格值(使用 =ifs)

  25. 25

    VBA Excel 选择命名范围内的一系列单元格

  26. 26

    使用VBA提取一系列URL

  27. 27

    在引用从 B 列到 D 列的一系列单元格时创建文件夹和子文件夹的 VBA 代码?

  28. 28

    如何在 ARRAYFORMULA 中为一系列单元格使用自定义函数?

  29. 29

    如何使用 VBA 循环切割一系列单元格并粘贴到下一行

热门标签

归档