返回列表 上一主題 發帖

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

zcxzcxz

帖子
10 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2011-8-9 
最後登錄
2013-2-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-8-12 09:15 | 顯示全部帖子

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

請教各位高手大老們

我想用『自訂表單』方式輸入資料，
會在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)?

zcxzcxz

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

zcxzcxz

帖子
10 
主題
1 
精華
0 
積分
14 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
來自
台北 
註冊時間
2011-8-9 
最後登錄
2013-2-20 
3#
發表於 2011-8-15 13:26 | 顯示全部帖子
回復 5# hugh0620


    感謝大大不吝嗇賜教~:victory:
踏足片刻，享受生活(Y)
醉生夢死，渾然忘我(N)
(Y/N)?

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題