afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2018-5-10 15:24 | 只看該作者

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

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

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

考核表.zip (19.8 KB)

樓主熱帖

yvonne

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

12^#

發表於 2018-5-14 13:46 | 只看該作者

回復 11# imingho

感謝i大回復!!!thanks*20000

yvonne

TOP

imingho

　暱稱: 彰化一整天

中學生 Rank: 2

帖子: 56
主題: 11
精華: 0
積分: 115
點名: 0
作業系統: windows
軟體版本: windows 7
閱讀權限: 20
性別: 男
註冊時間: 2013-3-13
最後登錄: 2023-7-13

11^#

發表於 2018-5-12 09:35 | 只看該作者

本帖最後由 imingho 於 2018-5-12 09:40 編輯

回復 1# afu9240
您原本程式碼的if判斷在加上一個Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) 就會自動覆蓋

Sub EX()
Dim i As Integer
Dim y As Integer
i = 2
Do
If Sheets("工作表4").Cells(i, 1) = "" Or Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6) Then
Exit Do
End If
i = i + 1
Loop
Sheets("工作表4").Cells(i, 1) = Sheets("工作表1").Cells(3, 2)
Sheets("工作表4").Cells(i, 2) = Sheets("工作表1").Cells(3, 6)
Sheets("工作表4").Cells(i, 3) = Sheets("工作表1").Cells(3, 4)
Sheets("工作表4").Cells(i, 4) = Sheets("工作表1").Cells(7, 3)
Sheets("工作表4").Cells(i, 5) = Sheets("工作表1").Cells(8, 3)
Sheets("工作表4").Cells(i, 6) = Sheets("工作表1").Cells(9, 3)
Sheets("工作表4").Cells(i, 7) = Sheets("工作表1").Cells(10, 3)
If Sheets("工作表4").Cells(i, 7) <= 59 Then
Sheets("工作表4").Cells(i, 8) = "丁"
End If
If Sheets("工作表4").Cells(i, 7) >= 60 Then
Sheets("工作表4").Cells(i, 8) = "丙"
End If
If Sheets("工作表4").Cells(i, 7) >= 70 Then
Sheets("工作表4").Cells(i, 8) = "乙"
End If
If Sheets("工作表4").Cells(i, 7) >= 80 Then
Sheets("工作表4").Cells(i, 8) = "甲"
End If
If Sheets("工作表4").Cells(i, 7) >= 90 Then
Sheets("工作表4").Cells(i, 8) = "優"
End If
End Sub

複製代碼

TOP

hcm19522

大學生 Rank: 4

帖子: 1388
主題: 4
精華: 0
積分: 1398
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-29

熱烈參與勳章

10^#

發表於 2018-5-11 10:14 | 只看該作者

參考即可

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

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-29

9^#

發表於 2018-5-11 10:14 | 只看該作者

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

回復 8# afu9240

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

看七樓的說明

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

8^#

發表於 2018-5-11 09:02 | 只看該作者

回復 6# 准提部林

準大真的太感謝了可以WORK

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

yvonne

TOP

afu9240

中學生 Rank: 2

帖子: 164
主題: 45
精華: 0
積分: 211
點名: 0
作業系統: 微軟
軟體版本: win10
閱讀權限: 20
性別: 女
註冊時間: 2017-8-28
最後登錄: 2022-8-5

7^#

發表於 2018-5-11 08:29 | 只看該作者

回復 6# 准提部林

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

yvonne

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-29

6^#

發表於 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