| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 89 人关注过本帖
标题:利用vba让某一列的时间根据那一行任意一个单元格的数据变动而更新到的当时的 ...
只看楼主 加入收藏
YSJXLLLC
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2022-11-17
结帖率:50%
收藏
已结贴  问题点数:20 回复次数:1 
利用vba让某一列的时间根据那一行任意一个单元格的数据变动而更新到的当时的时间,且保存后下次改变表格单元格里的东西仍可以时间改变
然后CHATJPT给了这一段
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRow As Long
    changedRow = Target.Row
    Dim changedCol As Long
    changedCol = Target.Column

    Dim updateCol As Long
    updateCol = 5 '设要更新到第 5 列,您可以根据实际需求修改

    If Intersect(Target, Me.UsedRange) IsNot Nothing Then
        If changedCol <> updateCol Then
            Cells(changedRow, updateCol).NumberFormat = "yyyy/mm/dd hh:mm:ss"
            Cells(changedRow, updateCol) = Now()
        End If
    End If
End Sub

结果就是说第二句有语法错误,VBA小白求大佬指点啊啊啊啊啊啊啊啊啊
搜索更多相关主题的帖子: vba 单元格 时间 改变 更新 
2024-07-30 11:12
yiyanxiyin
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:9
帖 子:215
专家分:1590
注 册:2023-6-29
收藏
得分:20 
If Intersect(Target, Me.UsedRange) IsNot Nothing Then   ====>   If not Intersect(Target, Me.UsedRange) Is Nothing Then
2024-07-30 12:18
快速回复:利用vba让某一列的时间根据那一行任意一个单元格的数据变动而更新到的 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018746 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved