VBA 编程问题菜鸟，显示（运行时错误'13' 类型不匹配）请大神帮助!!!程序如下

Question

Dim i As Integer, o As Integer

For i = 1 To Sheets.Count And o = ComboBox2.Text

If o = "Audi C7" And Sheets(i).Name = Sheets("Audi C7") Then

Sheets(i).Visible = xlSheetVisible

Sheets(i).Range("B3:H26").PrintOut Copies:=1, Collate:=True ' IgnorePrintAreas:=False

End If
Next i
提示For i = 1 To Sheets.Count And o = ComboBox2.Text 这句有问题

Answer 1

你这段程序小问题比较多
1、首先你定义o As Integer，但是后面o = ComboBox2.Text 和o = "Audi C7"都是赋值给o文本格式的数据，虽然VB支持类型强制转换，但不建议你这么写，要养成好习惯；
2、Sheets(i).Name = Sheets("Audi C7")这一句一定会产生数据类型错误，因为Sheets("Audi C7")返回的是sheet类型，而Sheets(i).Name则是文本类型，两者之间无法实现强制转换。
总之，你还是要小心一些变量的类型及其转换、赋值等方法，尽量不要交给VBA编译器自己去转换，有一些会无法转换，则产生错误13，也就是类型不匹配。

追问

那需要怎么改呢？