关于工作表获取焦点问题求助

pascal331

为什么combobox2在选择完后焦点不能转到工作表上，而还是在我做的窗体上

预想的是combobox2在选择完后焦点定位到Cells(X.Row, Y.Column)，并可直接输入数据

现在是选择完后焦点还在combobox2上

1. Private Sub ComboBox2_Change()
   
2. Dim sh As String
   
3. Dim X As Range
   
4. Dim Y As Range
   
5. Dim a As Date
   
6. Dim k As String
   
7. On Error Resume Next
   
8. a = TextBox1.Value
   
9. k = ComboBox2.Value
   
10. sh = ComboBox1.Text
    
11. Sheets(sh).Select
    
12. Set X = ActiveSheet.UsedRange.Find(a)
    
13. Set Y = ActiveSheet.UsedRange.Find(k)
    
14. Cells(X.Row, Y.Column).Activate
    
15. End Sub

复制代码

cjch1969

提供数据附件