Office中国论坛/Access中国论坛

标题: 关于工作表获取焦点问题求助 [打印本页]

---

作者: pascal331    时间: 2012-6-3 18:40
标题: 关于工作表获取焦点问题求助
为什么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

复制代码

[attach]49293[/attach]

---

作者: cjch1969    时间: 2013-2-23 02:40
提供数据附件

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3