- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-15
|
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
|
|
發表於 2018-5-10 15:24
| 
