在单元格中键入固定的值，在指定的单元格中显示记录时间

lhf890802 · 发表于 2015-3-12 15:59

如附件所示：

	A	B	C	D
1	Current status	60
2
3		记录时间		条件
4	Status 60			1. 当在B1单元格键入‘60’时，B4自动记录当前日期；
5	Status 70			2. 当在B1单元格键入‘70’时，B5自动记录当前日期；
6	Status 90			3. 当在B1单元格键入‘90’时，B6自动记录当前日期；

该贴已经同步到 lhf890802的微博

丢丢表格 · 发表于 2015-3-12 16:02

并不是越自动越好，因为这样会造成麻烦的后果。

lhf890802 · 发表于 2015-3-12 16:24

丢丢表格发表于 2015-3-12 16:02
并不是越自动越好，因为这样会造成麻烦的后果。

比如呢？这个主要是避免忘记填写。如果可以的话，求指点！

HRQT · 发表于 2015-3-12 16:26

lhf890802 发表于 2015-3-12 16:24
比如呢？这个主要是避免忘记填写。如果可以的话，求指点！

设置条件格式，键入内容后，用颜色提示需要输入时间的单元格

zheng_0925 · 发表于 2015-3-12 16:38

这是什么条件，b1输入任意，相对应的都是记录当前日期。

类似这样的问题，一般vba来解决。

lhf890802 · 发表于 2015-3-12 16:43

zheng_0925 发表于 2015-3-12 16:38
这是什么条件，b1输入任意，相对应的都是记录当前日期。

类似这样的问题，一般vba来解决。

怎样写VBA呢？？？？

zax010 · 发表于 2015-3-25 21:07

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
For i = 4 To [a1048576].End(3).Row
If InStr(Cells(i, 1).Value, Cells(1, 2).Value) > 0 Then Cells(i, 2) = Date
Next
End Sub

zax010 · 发表于 2015-3-25 21:26

>>>>>>>>>>>>>>>>>

新建 Microsoft Excel 工作表.rar (12.68 KB, 下载次数: 69)

lhf890802 · 发表于 2015-3-26 16:32

zax010 发表于 2015-3-25 21:26
>>>>>>>>>>>>>>>>>

谢谢！非常有用！不过你能帮忙解释一下语句的意思吗？
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
For i = 4 To [a1048576].End(3).Row
If InStr(Cells(i, 1).Value, Cells(1, 2).Value) > 0 Then Cells(i, 2) = Date
Next
End Sub

zax010 · 发表于 2015-3-26 19:20

lhf890802 发表于 2015-3-26 16:32
谢谢！非常有用！不过你能帮忙解释一下语句的意思吗？
Private Sub Worksheet_Change(ByVal Target As R ...

>>>>>>>>>>>>>>>>>>>

新建 Microsoft Excel 工作表.rar (14.2 KB, 下载次数: 69)

		自动登录	找回密码
密码			免费注册

[求助] 在单元格中键入固定的值，在指定的单元格中显示记录时间

评分