帖子: 27
主題: 7
精華: 0
積分: 69
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-19
最後登錄: 2012-6-26

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-4-19 18:04 | 只看該作者

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

本帖最後由 atuan207 於 2011-4-19 18:07 編輯

各位板上的大大您好:
最近自己在做一個生日表的練習，是用vab寫成視窗化
可是目前有點卡關，不知道該如何讓它輸入的資料自己編號
大概的樣子像這樣

會輸入的資料只有B，C，D
不過想做成的表格格式像

Q1:
A資料是放學號，所以想讓他藉由B資料的新增而自動編排
可是對於取得資料端點這部份的語法不是很熟悉，
我有爬文爬到一篇"如何在A欄自動填上編號" 連結=>http://forum.twbts.com/thread-926-1-36.html
當中老師使用的方法.SpecialCells(xlCellTypeConstants)<=這個有點不懂在做什麼的
所以想請教板上的大大
我自己有想個方法，是否可以藉由判讀B欄的內容，如果有值得話，則A欄位放值
或者是用FOR迴圈來做???不過FOR迴圈好像只有一開始會跑，如果要做在新增不知道恰不恰當
Q2:
因為刪除資料想用透過學號來判別，這部分不知道該如何做
刪除的語法Rows(1).delete 這是刪除第一列
如果想判讀輸入A的值後刪除相對應的，是不是該把(1)的值放成變數 EX Rows(a).delete 這樣做???
自己目前想的:
Private Sub Cbo刪除資料_Click()
   Dim a as Range
   Dim b as Range 'b值定義為A行的值
   If  a = b then
   row.(a).delet
   else
   MsgBox "查無此資料"
End if
End Sub
是這樣嗎????

不好意思因為才剛自學大概三週
對於如何讓他判讀整行的方法還不會
想請教板上的大大
感謝

2.PNG (4.06 KB)

3.PNG (5.65 KB)

樓主熱帖

FAlonso

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

2^#

發表於 2011-4-19 18:56 | 只看該作者

試試這個
A欄新增編號,自製按鈕

Sub showserial()
Range("A2:A65536").ClearContents
Range("A2") = 1
Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
End Sub

複製代碼

利用學號幹掉row(textbox1為自製userform物件中的成員,閣下的未必一樣)

Private Sub CommandButton1_Click()
Dim myrange As Range
Set myrange = Columns("A:A").Find(TextBox1.Value)
If IsError(myrange) Then
Exit Sub
Else
Rows(myrange.Row).Delete
End If
End Sub

複製代碼

利用完幹掉row,最好重新編號才繼續

80 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-4-19 19:35 | 只看該作者

回復 2# FAlonso
If IsError(myrange) Then 應修改為 If myrange Is Nothing Then

TOP

atuan207

中學生 Rank: 2

帖子: 27
主題: 7
精華: 0
積分: 69
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-19
最後登錄: 2012-6-26

4^#

發表於 2011-4-19 20:46 | 只看該作者

謝謝大大們的幫助，小弟看完大大的程式後有一些問題想問
我試著做一下註解釐清觀念順便請教一下

自動編號的:
Range("A2:A65536").ClearContents
//是指從A2~An個欄位 clear這個是清除公式保留格式設定嗎???
Range("A2") = 1
//A2的為起點1
Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
// A2:A 不懂 B(65536)是指B整行 .end(xlup)是指取得連續區域上端的值
//.DataSeries這行F1解釋為在指定範圍內建立資料數列。但在這用的意思是??
刪除的:
Dim myrange As Range //定義myrange
Set myrange = Columns("A:A").Find(TextBox1.Value)
//列("A:A") "A:A"跟上面一樣不懂(應該是一樣的宣告方式) 尋找輸入txt的值
If myrange Is Nothing Then
Exit Sub
//如果沒事就離開
Else
Rows(myrange.Row).Delete
//否則就刪除myrange輸入的那列
End If

註解這樣對嗎????
編號的問題比較多，刪除的少一些
還麻煩大大糾正小弟的觀念

TOP

FAlonso