随年份自动生成当前年份

上官云

砂海

要显示 的文本 ,可以辅助列 + 函数
否则 就是 要修改 格式.

上官云

砂海 发表于 2017-2-13 17:27
要显示 的文本 ,可以辅助列 + 函数
否则 就是 要修改 格式.

怎么修改

砂海

2016 改为 2017 ,格式拉下拉
.

上官云

砂海 发表于 2017-2-13 17:37
2016 改为 2017 ,格式拉下拉
.

改的太多了，给有好点的方法？

砂海

Sub 宏1()
'
' 宏1 宏
'

'
    ThisWorkbook.Sheets("随年份自动生成当前年份").Range("a1").NumberFormatLocal = Replace(ThisWorkbook.Sheets("随年份自动生成当前年份").Range("a1").NumberFormatLocal, "2016", "2017")
   
   
End Sub
=======================
把 Range("a1") 改为变量 , (需要的话 还有 工作表 , 工作簿 )
在外面套循环吧

心正意诚身修

="JL-"&YEAR(NOW())&"-XJL-003"
是不是这个意思。公式。

上官云

心正意诚身修 发表于 2017-2-13 18:12
="JL-"&YEAR(NOW())&"-XJL-003"
是不是这个意思。公式。

不是，单元格格式不能变的。

爱疯

只用改1个，其它的，复制格式就好了

爱疯

不知"改的太多了"是什么意思，能用附件说明吗