返回列表 上一主題 發帖

[發問] 如何自動編號 及刪除資料

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
1# 跳轉到 »
發表於 2011-4-19 18:56 | 顯示全部帖子
試試這個
A欄新增編號,自製按鈕
  1. Sub showserial()
  2. Range("A2:A65536").ClearContents
  3. Range("A2") = 1
  4. Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
  5. End Sub
複製代碼
利用學號幹掉row(textbox1為自製userform物件中的成員,閣下的未必一樣)
  1. Private Sub CommandButton1_Click()
  2. Dim myrange As Range
  3. Set myrange = Columns("A:A").Find(TextBox1.Value)
  4. If IsError(myrange) Then
  5. Exit Sub
  6. Else
  7. Rows(myrange.Row).Delete
  8. End If
  9. End Sub
複製代碼
利用完幹掉row,最好重新編號才繼續
80 字節以內
不支持自定義 Discuz! 代碼

TOP

FAlonso

帖子
135 
主題
19 
精華
0 
積分
165 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2010-12-9 
最後登錄
2012-8-27 
2#
發表於 2011-4-19 21:37 | 顯示全部帖子
dataseries是製造數據列即學號
B行有幾多個就學號就計多少(不過你應該要修改一下這部份,因為刪掉的學號不再使用的話,需要以下程式)
  1. Sub showserial()
  2. Range("A" & [a65536].End(xlUp).Row & ":A" & Range("B65536").End(xlUp).Row).DataSeries
  3. End Sub
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題