当用户在特定的列区域中输入数据时，VBA代码是否可以更新Excel工作表的列中的单元格？
当用户在特定的列区域中输入数据时，VBA代码是否可以更新Excel工作表的列中的单元格？
提问于 2020-01-23 14:43:17
我有一个12列宽，多行深的Excel工作表。我正在尝试编写一个Worksheet_Change Sub，它将使工作表使用Now函数自动将当前日期/时间输入到列L(或12)中，与A-K列或1- 11列中的单元格中的数据被更改的行相同。
到目前为止，我已经尝试使用Offset函数来完成此任务，但我只能成功地完成相对更新，而不是部分绝对更新。我尝试使用Choose函数，以便根据用户的目标单元格替换列移位的offset函数变量，但我也无法使用它。现在我正在尝试使用这个，但无济于事：
Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Offst As Integer
End Type
Set WorkRng = Range("A:K")
If Not Application.Intersect(WorkRng, Range(Target.AddressLocal)) _
Is Nothing Then
If Target.Column = 1 Then Offst = 11
ElseIf Target.Column = 2 Then Offst = 10
ElseIf Target.Column = 3 Then Offst = 9
ElseIf Target.Column = 4 Then Offst = 8
ElseIf Target.Column = 5 Then Offst = 7
ElseIf Target.Column = 6 Then Offst = 6
ElseIf Target.Column = 7 Then Offst = 5
ElseIf Target.Column = 8 Then Offst = 4
ElseIf Target.Column = 9 Then Offst = 3
ElseIf Target.Column = 10 Then Offst = 2
ElseIf Target.Column = 11 Then Offst = 1
End If
With Offst
Target.Offset(0, Offst).Value = Now
Target.Offset(0, Offst).NumberFormat = "dd-mmm-yyyy AM/PM"
End With
End Sub我对VBA非常基础，而且我没有太多的时间。我在互联网上搜索了很多，我想我很擅长耗尽搜索引擎，但我找不到与我的情况直接相关的东西。我只能找到人们更新单列数据的示例，而不是范围。
任何帮助都是非常感谢的！感谢您抽出宝贵的时间！
回答 1
Stack Overflow用户
回答已采纳
发布于 2020-01-23 14:48:03
不需要偏移量。您可以对L进行硬编码，并使用Intersect和Target.EntireRow来更新列L中的相应行。
简化后，整个代码可以是：
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Me.Range("A:K"), Target) Is Nothing Then Exit Sub
Intersect(Me.Columns("L"), Target.EntireRow).Value = Now
Intersect(Me.Columns("L"), Target.EntireRow).NumberFormat = "dd-mmm-yyyy AM/PM"
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/59881122
复制相关文章
相似问题
盖科最优控制如何创建多个终止目标/条件？
盖科最优控制空气密度方程出错
盖科最优控制如何使值超过一定的阈值？
带有控制变量的GEKKO最优控制
盖科最优控制我不能把一个值保留在它的范围内
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
