修改程式碼

如何讓以下的程式包含在找不到員工編號，能提醒，希望在多加上如果不想在TextBox3上輸入編號(空白)的意思，就直接在活頁呈現空白的指令，

Private Sub CommandButton1_Click()
On Error Resume Next
'輸入員工編號後用函數來取得員工姓名
ranme = sht2.Cells(WorksheetFunction.Match(TextBox3.Text, sht2.Range("D:D"), 0), "E")
'如果查無員工編號，要求重新輸入員工編號
If ranme = "" Then
      MsgBox "查無員工編號，請重新輸入"
      UserForm1.TextBox3.Text = ""
      UserForm1.TextBox3.SetFocus
      Exit Sub
End If
On Error GoTo 0
With sht1
      .Range("A2") = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)
      .Range("A4") = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)
      .Range("B4") = TextBox2.Text
      .Range("B7") = ranme '這裡是TextBox3轉寫地方
End With
End Sub

麻煩各位先進們不吝指教~

樓主熱帖

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

2^#

發表於 2012-1-8 19:39 | 顯示全部帖子

本帖最後由 man65boy 於 2012-1-8 20:47 編輯

回復 2# GBKEE

重點是要:有輸入時，找不到員工編號，能夠提醒，在多加上如果不想在TextBox3上輸入編號，只輸入空白，按OK就直接在活頁呈現空白，

複製老師所改的程式，出現

，小弟把原始表單移一些過來給老師過目，小弟VBA程度差很多，怕浪費老師的時間，

1010108.rar (9.86 KB)

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2012-1-9 21:27 | 顯示全部帖子

本帖最後由 man65boy 於 2012-1-10 19:22 編輯

回復 4# GBKEE

感謝GBKEE大大的回答，想請大大在修改一些，小弟可能把範例多加了ComboBox1下拉，拍事，小弟錯看程式需要ComboBox1，不過也謝謝大大給了小弟不錯的範例，我再把檔案重新上傳，這次部會錯了。

10101090.rar (12.62 KB)