[發問] 求幫忙!有關重複輸入的資料是否可以自動覆蓋???

afu9240

各位高手及超級版主大家好

               有一個問題想請教,附件如果將資料填完後 按執行存檔, 資料會儲存在工作表4,如果執行存檔遇到同樣的姓名時, 資料要如何自動覆蓋呢!!!!!!!!求幫忙  感恩 考核表.zip (19.8 KB)

下載次數: 8

2018-5-10 15:22

hcm19522

C7:C10=LOOKUP(1,0/(工作表4!C$2:C$99=D$3)/(工作表4!B$2:B$99=F$3),OFFSET(工作表4!C$2,,ROW(A1),98))

afu9240

回復 2# hcm19522


    不行呢~~大大

afu9240

回復 2# hcm19522


    感謝h大回覆,這好像是公式,所以我不知如何用,感謝小誌版主給予建議,我以後會注意,這個網站真的是讓我受益良多,感謝前輩們的協助

准提部林

如果執行存檔遇到同樣的姓名時

姓名有可能會重覆, 既然有[工號], 應是唯一的, 用[工號]來抓才是妥當吧!!

准提部林

1. Sub 登載()
   
2. Dim FRng As Range, xR As Range, N%, U, T$
   
3. If [F3] = "" Then MsgBox "工號未輸入!!": Exit Sub
   
4. Set FRng = [工作表4!B:B].Find([F3], Lookat:=xlWhole)
   
5. If Not FRng Is Nothing Then
   
6.    Beep
   
7.    If MsgBox("工號已存在,是否要覆蓋舊資料?   ", 4 + 32 + 256) = vbNo Then Exit Sub
   
8. End If
   
9. If FRng Is Nothing Then Set FRng = [工作表4!B65536].End(xlUp)(2)
   
10. Set FRng = FRng(1, 0)
    
11. For Each xR In [B3,F3,D3,C7,C8,C9,C10]
    
12.     N = N + 1
    
13.     FRng(1, N) = xR
    
14. Next
    
15. U = Val([C10])
    
16. T = Switch(U <= 59, "丁", U >= 90, "優", U >= 80, "甲", U >= 70, "乙", U >= 60, "丙")
    
17. N = N + 1: FRng(1, N) = T
    
18. 
    
19. MsgBox "登載資料完成!!"
    
20. End Sub

複製代碼

afu9240

回復 6# 准提部林


    感謝準大回復,我先研究一下!!!非常感謝

afu9240

回復 6# 准提部林


    準大 真的太感謝了 可以WORK

但請教一下下面螢光部分 我不太懂它的意思 可以請教嗎????感謝前輩

下載 (58.69 KB)

2018-5-11 09:02

准提部林

回復 8# afu9240


http://forum.twbts.com/viewthread.php?tid=15644&rpid=84940

看七樓的說明

hcm19522

參考即可

http://blog.xuite.net/hcm19522/twblog/580029160