返回列表 上一主題 發帖

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

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

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

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

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))
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集4100篇 EXCEL函數

TOP

[版主管理留言]
  • 小誌(2018-5-10 18:22): 狀況?怎麼個不行,請說明!! 簡單說句不行,前輩們如何幫?

回復 2# hcm19522


    不行呢~~大大
yvonne

TOP

回復 2# hcm19522


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

TOP

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

姓名有可能會重覆, 既然有[工號], 應是唯一的, 用[工號]來抓才是妥當吧!!
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

  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. MsgBox "登載資料完成!!"
  19. End Sub
複製代碼
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

回復 6# 准提部林


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

TOP

回復 6# 准提部林


    準大 真的太感謝了 可以WORK

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

20180511.JPG
2018-5-11 09:02
yvonne

TOP

本帖最後由 准提部林 於 2018-5-12 12:05 編輯

回復 8# afu9240


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

看七樓的說明
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集4100篇 EXCEL函數

TOP

        靜思自在 : 人的心地是一畦田,土地沒有播下好種子,也長不出好的果實。 -
返回列表 上一主題