如何将时间序列中的年份修改为当前年份

xfliuliu2710 · 发表于 2018-7-26 11:45

请教：如何将时间序列中的年份修改为当前年份

kuangben8 · 发表于 2018-7-26 11:57

查找替换一下就好了。不过你有365个选项供你选择，选择起来也不方便吧？
查找替换.gif

xfliuliu2710 · 发表于 2018-7-26 12:01

kuangben8 发表于 2018-7-26 11:57
查找替换一下就好了。不过你有365个选项供你选择，选择起来也不方便吧？

谢谢，这个方法会做。但比较麻烦，因为D列、以及其他地方引用A列序列的地方都要象这样查找替换。希望用VBA代码解决。

zhjlgaojuan · 发表于 2018-7-26 12:02

=DATEVALUE("2018-" & MONTH(A1) & "-" & DAY(A1))

kuangben8 · 发表于 2018-7-26 12:03

xfliuliu2710 发表于 2018-7-26 12:01
谢谢，这个方法会做。但比较麻烦，因为D列、以及其他地方引用A列序列的地方都要象这样查找替换。希望用VB ...

如果就是引用A列数据，一年一次的查找替换就好了。如果还有其他列，建议上传和你数据区域一致的样表上来。

zhjlgaojuan · 发表于 2018-7-26 12:03

一个简单的年份替换,没必要VBA吧....基础函数就可以实现了啊

YZC51 · 发表于 2018-7-26 13:07

请参考
Private Sub Worksheet_Activate()
aa = DateSerial(Year(Date), 1, 1)
Dim arr(1 To 366, 0)
For i = 1 To 366
arr(i, 0) = aa + i - 1
Next
[a1:a366] = arr
End Sub

xfliuliu2710 · 发表于 2018-7-26 13:25

kuangben8 发表于 2018-7-26 12:03
如果就是引用A列数据，一年一次的查找替换就好了。如果还有其他列，建议上传和你数据区域一致的样表上来 ...

重新上传附件。引用这个序列的有三个工作表。本人知道每年初将这四个序列查找替换为当前年份，但使用这个工作簿的有多名同事，而且经常更换使用人员，每年初都要向每名使用的人交代这样查找替换，就很麻烦。如不查找替换，计算结果就会产生差错。所以希望写代码、做个按钮，就方便了。

zhjlgaojuan · 发表于 2018-7-26 13:47

定义一个序列表,就是为了保证数据有效性....有点服了,你脑洞也太大了,直接将日期栏的数据有效性设置为日期介于两个日期之间不就行了?365(也可能是366)行的下拉列表,你想折磨死数据录入员?
大约看了一下你的整个工作簿,除了那个明细数据需要填写以外,其他几个表连存在的意义都没有...
汇总表是完全可以通过数据透视表自动得出,这个也去定义一个数据有效性,还真服了楼主的耐心...

xfliuliu2710 · 发表于 2018-7-26 14:34

由于数据保密原因，整个工作簿原始数据不能全部上传。数据录入人员需要做的就是那个填写表，J列选择时间序列，其他各表都是通过点击按钮完成。现在要解决的问题就是第一个表的时间序列、以及后面各表的引用序列前面的年份如何相应改为当前年份，也就是为了减轻录入人员查找替换的工作量。我不会数据透视表，怎么教工作人员用数据透视呢。

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

[求助] 如何将时间序列中的年份修改为当前年份