繁体   English   中英

Excel VBA-单元格更改,列中的日期戳

Excel VBA - Cell change, datestamp in a column

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我想创建两个日期戳,一个用于OK,一个用于NOT OK。 值在A列中填写, 'x' for OK'x' for OK 'NOK' for NOT OK

在A列中填写“ x”时,第49列中的值应为“ x”填写时的日期戳。

当在列中填写“ NOK”时,列52中的值应为在填写“ NOK”时的日期戳。

同样,如果从A列中删除了“ x”或“ NOK”,则日期戳也应消失。 这就是我所拥有的。

Private Sub Worksheet_Change(ByVal Target As Range)
    '49 = ok
    '52 = NOK

    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Set KeyCells = Range("A1:" & LastRow)

    If Application.Intersect(KeyCells, Range(Target.Address)) Like "*x*" Then
        Cells(Row, 49).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
    End If

    If Application.Intersect(KeyCells, Range(Target.Address)) Like "*NOK*" Then
        Cells(Row, 52).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
    End If

End Sub
1 个回复

在这里,尝试一下:

Private Sub Worksheet_Change(ByVal Target As Range)
    '49 = ok '52 = NOK
    Application.EnableEvents = False

    With Target
    'check if change happend in column A
    If .Column = 1 Then
      'check if changed value is X
      If .Value Like "*x*" Then
          'add datestamp if it is
          Cells(.Row, 49).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
      Else
          'clear datestamp if not
          Cells(.Row, 49).Value = ""
      End If

      If .Value Like "*NOK*" Then
          Cells(.Row, 52).Value = Format(DateTime.Now, "yyyy-MM-dd hh:mm:ss")
      Else
          Cells(.Row, 52).Value = ""
      End If
    End If
    End With
    Application.EnableEvents = True
End Sub
1 Excel 中的 VBA - 更改列中的 VLOOKUP 公式以根据静态单元格值插入工作表名称

我有一个包含多张工作表的工作簿,将定期添加新工作表,标题为 [mmm yy] 格式。 在我的主工作表(“ContactList”)中,我有一个 IF 公式,在三列中有一个“嵌套”VLOOKUP 公式,用于从相应的工作表中提取相应的数字,并且我有一个单元格,其中包含我想要的格式的日期。 我希望我的脚本 ...

2 VBA-使用按钮清除Excel中的单元格

我正在寻找一个按钮,可以清除一个范围内的所有单元格(例如B6:M10000)以及单个单元格(例如C3) 到目前为止,这是我所拥有的,但似乎没有用。 提前致谢 。 ...

3 Excel / VBA-如何对列中的每个现有单元格进行相同的编辑

如何在列中具有值的每个单元格中添加=“ =”? (示例显示在图片中)。 我读到,使用高级过滤器时,此方法将使我能够获得完全匹配的结果。 我尝试执行AutoFill方法(双击突出显示的单元格底部的正方形),但是它只是用第一行中的值替换列中的每个单元格。 ...

2020-12-21 07:47:41 1 57   excel/ vba
7 VBA-将单元格中的数据设置为要显示的日期

可能是一个简单的问题,由于我仍然不完全了解如何使用excel中的不同“层”(与显示的内容相比,单元格中的实际数据是多少),我无法确定自己的数字。日期) 我的单元格中有以下数据 我运行了以下vba代码,希望重新格式化该数据: 这使我的数据显示为: 这实际上是我想要的。 ...

8 VBA-从列表中查找单元格(列)

第一次在这里问一个问题。 即使我确定答案已经存在,也很难找到答案,但希望您能为我提供帮助。 因此,我需要在Tab1的A列中找到Tab1中的单元格A1,并将其设为活动单元格并选择整行。 我怎么做? 看起来很简单,但是由于某种原因,我无法使用此解决方案。 有人可以帮忙吗? 谢谢! ...

2018-02-20 18:20:51 2 166   vba
9 VBA - 检查单元格值是否在列中

我在 Excel 上有 2 张纸。 表 1 包含大约 500 所大学的列表,它们的全球排名在 A 列中,大学名称在 B 列中 表 2 包含 A 列中个人姓名、B 列中他们的大学和 C 列中他们的考试成绩列表。 我想编写一个 VBA 代码来检查表 2,如果个人的大学在前 50 名(在表 1 中,第 ...

2021-01-06 09:00:44 1 42   excel/ vba
10 VBA-比较两列中的单元格与其他两列中的单元格

我已经四处搜寻,但找不到这个问题的好答案。 我有两个列表,每个列表两列。 该列表包含经销商编号(A列)和经销商零件编号(B列)。 在每个列中可能重复相同的值(每个经销商有几个零件号,每个零件号可能出现在多个经销商中)。 我希望脚本以Sheet1中的A1和B1开头,检查Sheet2 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2021 STACKOOM.COM