一個表單輸入問題請協助,

返回列表下一主題上一主題發帖

周大偉

中學生 Rank: 2

帖子: 250
主題: 59
精華: 0
積分: 313
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 澳門
註冊時間: 2010-9-11
最後登錄: 2020-1-6

11^# 跳轉到 »

發表於 2018-6-3 14:59 | 只看該作者

本帖最後由周大偉於 2018-6-3 15:07 編輯

回復 7# Hsieh
Hsieh版大，好
先行謝過版大
小弟想修改這表單, 但功力淺, 請協助, 謝謝!!
內有明細說明,

bb.zip (30.21 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 257
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

12^#

發表於 2018-6-4 14:45 | 只看該作者

回復 11# 周大偉

Private Sub Label6_Click()
Application.ScreenUpdating = False
With Workbooks.Open(ThisWorkbook.Path & "\員工資料表.xlsx")
If ComboBox1 <> "" Then
With .Sheets(ComboBox1.Text)
Set Rng = .Columns("A").Find(TextBox1, lookat:=xlWhole)
If Rng Is Nothing Then
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) '未有資料，新建
Else
yn = MsgBox("姓名已存在，是否覆蓋?", vbYesNo)
If yn = 6 Then
Rng.Resize(, 4) = Array(TextBox1, TextBox2, TextBox3, TextBox4) '覆蓋原資料
Else
k = Application.CountIf(.Columns("A"), Rng & "*")
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(, 4) = Array(Rng & k, TextBox2, TextBox3, TextBox4) '新建資料
End If
End If
End With
.Close 1
End If
End With
End Sub