VBA實現表單自動編號

效果：每次提交或重新整理標段，表單案指定格式實現自動編號。如當天日期加數字編號的格式 即 2023年2月3日產生的第一張表單產生的編號格式為20190203-001 以此類推第二張表單編號為20190203-002 

如果日期發生變化，那麼日期後面的編號也從1開始。如2023年2月4日那麼，他的編號20190204-001 如果是當天，他產生多章表單那麼編號會自動遞增。 如果表單編號所在單元格為空那麼也將從001開始

產生編號。

**：

sub autonum()

a = right([c2], 2)
cdat = format(now(), "yyyymmdd")
pc = left([c2], 8)
va = thisworkbook.sheets("a3").range("c2").value
msgbox va
with thisworkbook.sheets("a3")
if va = "" or cdat <> pc then
c = format(now, "yyyy") & format(now, "mm") & format(now, "dd") & "-" & format(1, "000")
.range("c2").value = c
else
c = format(now, "yyyy") & format(now, "mm") & format(now, "dd") & "-" & format(a + 1, "000")
.range("c2").value = c
end if
end with
end sub

GridView自動實現編號

有時候會遇到這樣的情況，就是需要對gridview 顯示的結果增加一列自動遞增編號列，以標示每一行的序號。要實現這一功能，首先在 gridview 第一列加入乙個 templatefield，並在 templatefield 的 itemtemplate 加入乙個 label id lblno as...

GridView控制項自動編號實現

gridview控制項自動編號實現，主要有二種方法 一 container.dataitemindex 1 二 protected void gvdatatypemanage rowdatabound object sender,gridviewroweventargs e 注意 當有分頁控制項一起...

GridView控制項自動編號實現

gridview控制項自動編號實現，主要有二種方法 一 container.dataitemindex 1 二 protected void gvdatatypemanage rowdatabound object sender,gridviewroweventargs e 注意 當有分頁控制項一起...