高分！ 但是不知道是不是简单。。。 关于Excel中焦点的问题。发言有分！

Question

Private Sub CommandButton1_Click()
Dim i As Integer
i = 3
While Not IsEmpty(ActiveSheet.Cells(i, 1).Value)
  If ActiveSheet.Cells(i, 1).Value = TextBox1.Text Then
    ActiveSheet.Cells(i, 1).Select
  End If
  i = i + 1
  Wend
  TextBox1.Text = ""
  On Error Resume Next
  TextBox1.SetFouce  '一般用不着
End Sub

Answer 1

假设当前你的Form.Caption="Form1",Form上有一个文本框Text1,则在Form中相应的代码:AppActivate "Form1"
Text1.SetFoucus    OK!

Answer 2

我自己解决了怎么办啊？
Text1.Active

Answer 3

tolshadow (光影) 
你出错的那行代码,是不是直接从程序中复制过来的?
如果是复制过来的,请先纠正拼写错误在调试看看
应是SetFoucus,而不是SetFouce