Re: [算表] VBA 序號自動產生

看板Office作者itat2007 (Black Day)時間16年前 (2009/10/08 08:01)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

之前這個問題解決了,但是現在有遇到一個問題這個辦法不能比對之前已經編的流水號,如果日期往回計算就會造成重覆編號小弟的想法是再開一個code.xls 檔案,作比對的動作 (降低原本檔案的檔案大小) 如果有重覆的,自動加一在進行比對如果沒有,就使用已成立的流水號在比對上用FIND 不知道怎麼判斷成立與否請問此方向是否對?? 有大大能給一點提示嗎? ※ 引述《windknife18 (windknife18)》之銘言： : 試了一下，應該是你使用 yymmdd 所以會有第一個是0的情況， : 而 excel 又把他認為是數字，所以第一個0會不見了 ... : 改以下得方法試看看！ : Sub 按鈕1_Click() : Dim da As Variant : Worksheets("sheet2").Cells(4, 3).Value = Date : da = Format(Worksheets("sheet2").Cells(4, 3).Value, "yymmdd") : i = 0 : Do : i = i + 1 : Loop Until da & i > Worksheets("sheet1").Cells(1, 3).Value : Worksheets("sheet2").Cells(4, 2).NumberFormatLocal = "@" : Worksheets("sheet2").Cells(4, 2).Value = da & i : Worksheets("sheet1").Cells(1, 3).NumberFormatLocal = "@" : Worksheets("sheet1").Cells(1, 3).Value = da & i : End Sub : ※ 引述《itat2007 (Black Day)》之銘言： : : 軟體: EXCEL : : 版本: 2003 : : ============================================================= : : 請問一下各位大大,小弟要做一個序號自動產生,以日期為前六碼號碼 : : 最後一個為流水號 : : 在sheet2欄中做一個按鈕,要比對sheet1欄中某個數值, : : 這個數值就是前次輸入的序號,但是如果填入欄位做比對 : : 都會不成立,如果手動輸入數值就可以 : : 不知道問題出在哪,以下是程式碼,希望各位大大幫我看看 : : 謝謝 : : ================================================== : : Private Sub CommandButton1_Click() : : Dim da As Variant : : Worksheets("sheet2").Cells(4, 3).Value = Date : : da = Format(Worksheets("sheet2").Cells(4, 3).Value, "yymmdd") : : i = 0 : : Do : : i = i + 1 : : Loop Until da & i > Worksheets("sheet1").Cells(1, 3).Value : : Worksheets("sheet2").Cells(4, 2).Value = da & i : : Worksheets("sheet1").Cells(1, 3).Value = da & i : : End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.64.11.3