[已解决]、、、、、、选择、日期、就帮错，请大侠帮我看看！、、、、、、

lenovo0312

编号保存时自动 1.rar (24.25 KB, 下载次数: 16)

2015-12-8 23:46 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2015-12-9 09:23

修改以下宏
Private Sub DTPicker1_Change()
    s$ = "EXCEL" & Format(DTPicker1, "yyyy-mm-dd") & "-0001"
    Do While Not Sheet2.Range("s:s").Find(s) Is Nothing
        i = i + 1
        s = Left(s, Len(s) - 4) & Format(i, "0000")
    Loop
    ComboBox1 = s
End Sub

跳转到最佳答案楼层

zjdh

修改以下宏
Private Sub DTPicker1_Change()
    s$ = "EXCEL" & Format(DTPicker1, "yyyy-mm-dd") & "-0001"
    Do While Not Sheet2.Range("s:s").Find(s) Is Nothing
        i = i + 1
        s = Left(s, Len(s) - 4) & Format(i, "0000")
    Loop
    ComboBox1 = s
End Sub

iphone9

zjdh 发表于 2015-12-9 09:23
修改以下宏
Private Sub DTPicker1_Change()
    s$ = "EXCEL" & Format(DTPicker1, "yyyy-mm-dd") & "-0 ...

师傅！
请看看http://www.excelpx.com/thread-373829-1-1.html