求幫忙!有關重複輸入的資料是否可以自動覆蓋??? - Excel程式區

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

1^# 跳轉到 »

發表於 2018-5-10 22:24 | 顯示全部帖子

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

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

2^#

發表於 2018-5-10 22:52 | 顯示全部帖子

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

複製代碼

3^#

發表於 2018-5-11 10:14 | 顯示全部帖子

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

回復 8# afu9240

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

看七樓的說明

靜思自在 : 人生沒有所有權，只有生命的使用權。