- nicehost
-
你流水号写到哪?
例如,写到A列,第一个号是已经存在的,后面运行一次就加个流水号
Sub test()
Dim str1$
Dim i%
i = Mid(Range("A65536").End(xlUp).Value, 4, 5)
i = i + 1
str1 = "EQ-" & Format(i, "00000") & "-" & Format(Date, "mmddyyyy")
Range("A65536").End(xlUp).Offset(1).Value = str1
End Sub
实际上这个直接用公式就可以了
在你要得到1号的单元格输入公式,公式下拉完成
="EQ-"&TEXT(ROW(A1),"00000")&"-"&TEXT(TODAY(),"mmddyyyy")
- 康康map
-
set f=application.worksheetfunction
"日期形式
riqi1=f.text(now,"mmddyyyy")
"流水号“ i ” 如何递增你自己根据需求定制
i=1
liushuihao=f.text(i,"00000")
"结果(textend就是你要的)
textend="EQ-" & liushuihao & "-" & riqi1
"拷贝进去就可以啦 《注意换行》
- FinCloud
-
可以实现,就是用VBA写代码每保存(可其它动作)一次,流水号加1,日期为系统日期,前面的代码不动,
加QQ:346436832
- coco
-
最好是传个截图上来,带有行列标的。
- CarieVinne
-
不清楚怎么用宏程序做答,公式也能实现这个效果,希望能帮到你
="EQ-"&TEXT(ROW(A1),"00000")&"-"&TEXT(TODAY(),"MMDDYYYY")
- 蓓蓓
-
用宏么?
可以
但是,这个问题写的……有些不清楚,不知道具体要做什么?流水号是在哪个单元格?哪个表?有什么作用?