如何寫~重復的資料將取代原有的資料

請教各位高手大老們

我想用『自訂表單』方式輸入資料，
會在a2 b2 c2 d2 e2 f2 g2新增一筆資料
以此類推
a3 b3 c3 d3 e3 f3 g3
a4 b4 c4 d4 e4 f4 g4
如果在新增資料時，判斷a欄位有重復的資料時，將取代原有那『一整列』存在的資料

要那如何寫呢:dizzy:

踏足片刻，享受生活(Y)
醉生夢死，渾然忘我(N)
(Y/N)?

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 550
主題: 55
精華: 0
積分: 614
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-4-23

2^#

發表於 2011-8-12 13:16 | 只看該作者

回復 1# zcxzcxz

簡單的寫法(沒有防呆唷)

Private Sub CommandButton1_Click()
A = TextBox1.Text '列數
Range("A" & A) = TextBox2.Text
Range("B" & A) = TextBox3.Text
Range("C" & A) = TextBox4.Text
Range("D" & A) = TextBox5.Text
Range("E" & A) = TextBox6.Text
Range("F" & A) = TextBox7.Text
Range("G" & A) = TextBox8.Text
End Sub

複製代碼

學習才能提升自己

TOP

zcxzcxz

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
來自: 台北
註冊時間: 2011-8-9
最後登錄: 2013-2-20

3^#

發表於 2011-8-12 17:23 | 只看該作者

回復 2# hugh0620

Private Sub CommandButton3_Click()
Sheets("維修進度記錄表").Select
Range("A1").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 0).Range("A2") = TextBox1.Text
ActiveCell.Offset(0, 0).Range("B2") = TextBox2.Text
ActiveCell.Offset(0, 0).Range("C2") = TextBox3.Text
ActiveCell.Offset(0, 0).Range("D2") = TextBox4.Text
ActiveCell.Offset(0, 0).Range("E2") = TextBox5.Text
ActiveCell.Offset(0, 0).Range("F2") = TextBox6.Text
ActiveCell.Offset(0, 0).Range("G2") = TextBox7.Text
ActiveCell.Offset(0, 0).Range("H2") = TextBox8.Text
ActiveCell.Offset(0, 0).Range("I2") = TextBox9.Text
ActiveCell.Offset(0, 0).Range("J2") = TextBox10.Text
ActiveCell.Offset(0, 0).Range("K2") = TextBox11.Text
End Sub
------------------------------------------------------
我的欄位a是主要的單號，是唯一性的，但其他欄位內容狀況常會變動，『b~k欄位』
因為筆數量太大，當有異動時，就需抓出資料列出來整筆修改，所以我設了一個表單，在輸入資料時，如果發現單號有重復
希望可以自動的取代b~k欄位的資料，而a欄單號則是不會新增一筆資料，而是將之前舊有的欄位資料做更新
------------------------------------------------------
有什麼方法可以做到嗎???麻煩您了:dizzy:

踏足片刻，享受生活(Y)
醉生夢死，渾然忘我(N)
(Y/N)?

TOP

hugh0620