Board logo

標題: [發問] 編號接續疑問 [打印本頁]
作者: sammay    時間: 2012-4-12 11:00     標題: 編號接續疑問

請問各位大大：
自定表單1中的編號為手動輸入，如何讓它下一次（檔案關閉後，再打開）編輯時，在編號欄位自動帶入 6 呢？
[attach]10418[/attach]
[attach]10419[/attach]
作者: mark15jill    時間: 2012-4-12 11:15

回復 1# sammay

在A2 輸入
    =IF(B1<>"",A1+1,"")

往下拉

此功用為 B欄位只要有數值 A欄位自動+1
作者: GBKEE    時間: 2012-4-12 11:42

回復 1# sammay
  1. Option Explicit
  2. Private Sub UserForm_Initialize()
  3.     TextBox4.Text = DateAdd("w", 5, Date)
  4.     TextBox5.Text = DateAdd("w", 14, Date)
  5.     TextBox6 = xlRow
  6.     TextBox6.SetFocus
  7. End Sub
  8. Private Function xlRow() As Integer
  9.     xlRow = Application.CountA(Sheet1.[A:A])
  10. End Function
複製代碼
作者: sammay    時間: 2012-4-12 16:13

回復 2# mark15jill
感謝mark15jill大大回覆，感恩
作者: sammay    時間: 2012-4-12 16:19

回復 3# GBKEE
感謝GBKEE大大回覆，受用了。
再請問GBKEE大大，如果是動態生成的工作表，那工作表名稱應如何取得，那自定函數xlRow()如何修改呢
  1. Private Function xlRow() As Integer
  2. xlRow = Application.CountA(Sheet1.[A:A])
  3. End Function
複製代碼
作者: GBKEE    時間: 2012-4-12 17:04

回復 5# sammay
  1. Private Function xlRow() As Integer
  2. xlRow = Application.CountA(ActiveSheet.[A:A])
  3. End Function
複製代碼
作者: sammay    時間: 2012-4-16 09:09

回復 6# GBKEE
感謝GBKEE大大回覆，受用了。再次感謝您！



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)