作者：乔山办公网日期：
返回目录：excel表格制作
Range("a2").Offset(i, o).Select 这句错了e5a48de588b6e799bee5baa6336，数字0 写成了 字母o
另外，vba中控件的默认名字与vb中不同，注意区别：
.Text1 ，文本框 默认的名字为 .TextBox1
.combox1 ，复合框 默认名字为 .ComboBox1
给你优化了代码：
---------------
Private Sub CommandButton1_Click()
Dim a, i
With Worksheets("sheet1").Range("a2")
For i = 1 To 65534
If .Cells(i, o) = "" Then
With UserForm1
a = Array(.TextBox1.Text, .TextBox2.Text, .ComboBox1.Text, _
.TextBox3.Text, .TextBox4.Text, .TextBox5.Text, _
.TextBox6.Text, .ComboBox2.Text, .TextBox7.Text, _
.ComboBox3.Text, .TextBox8.Text)
End With
.Cells(i, 1).Resize(1, 11) = a
Exit For
End If
Next i
End With
End Sub
我用的是英文版
你应该在引用里边没有引用.
在VBE窗口点 "Tools"->"References" (应该是引用吧)
里边引用一下就好.
如果程序开布的话,记得把OCX也复制到别的机子注册一下哦
应该是你这个窗体的名字和你模块的名字重复了~
无图无真相。如果需要，腾讯号码谐音【一丝霸气三思柳闪闪舞】可以详细讨论。