補充壹個輔助數據:?Cells(i,6) =?DTPicker1。價值與價值。?ComboBox2。文本& amp?ComboBox1。文本
用作索引字段
然後在寫入工作表之前,添加壹個判斷:
暗淡?rng?作為?範圍
設置?rng?=?列(6)。Find(DTPicker1。價值?& amp?ComboBox2。文字?& amp?ComboBox1。正文)
如果?rng?是嗎?不是嗎?什麽都沒有?然後
Msgbox?"該記錄已經存在,不能提交!"
退出?潛水艇
結束?如果,當然也可以用字典對象來完成,這就更簡單了。
此外,查找B列中最後壹個空單元格的循環可以簡化為壹個代碼,如下所示:
我?=?範圍(" B65536 ")。結束(XLUP)。偏移量(1,0)。可以將rowlist控件的RowSource屬性與工作表單元格關聯起來,然後根據前面判斷重復的代碼定位記錄,然後修改保存。