yen956

是這樣嗎?

下載 (70.27 KB)

2015-12-25 17:57

試試看!!

1. 'Sheets("工作交接事項")_CommandButton1
   
2. Private Sub CommandButton1_Click()
   
3.     UserForm1.Show
   
4. End Sub
   
5. 
   
6. 'UserForm1_CommandButton1
   
7. Private Sub CommandButton1_Click()
   
8.     Dim sh As Worksheet, Rng As Range, MH
   
9.     Dim LstR As Integer
   
10.     Set sh = Sheets("工作交接事項")
    
11.     LstR = sh.[A2].End(xlDown).Row
    
12.     Set Rng = sh.[A2].Resize(LstR - 1, 1)
    
13.     MH = Application.Match(TextBox1.Value, Rng, 0)
    
14.     If IsNumeric(MH) Then
    
15.         TextBox2.Value = sh.Cells(MH + 1, "B")  '反應日期
    
16.         TextBox3.Value = sh.Cells(MH + 1, "C")  '反應人員
    
17.         '~~
    
18.         '~~
    
19.     End If
    
20. End Sub
    
21. 
    
22. 'UserForm1_CommandButton2
    
23. Private Sub CommandButton2_Click()   'OK
    
24.     Unload Me
    
25. End Sub

複製代碼