Question

VB代码运行失败求助解决

Public Sub init() /Dim strRowSource As String /Dim colWidths As String /If strSheetName = "客户信息" Then / strRowSource = "客户信息!$A4:$E" & Application.Evaluate("COUNTA(客户信息!A:A)") /strCols = "A2:2,B2:5,$A2:1,C2:3" /colWidths = "35;70;80;100;80;120" /End If /If strSheetName = "商品信息" Then / strRowSource = "商品信息!$A4:$E" & Application.Evaluate("COUNTA(客户信息!A:A)") / strCols = "A2:2,B2:5,$A2:1,C2:3" /colWidths = "35;100;200;70;50;50" /rngBlankCol = "C" /End If /With listInfo / .RowSource = strRowSource /.ColumnWidths = colWidths /End With /Me.listInfo.Height = IIf(Me.Height >= 350, 280, 128) /txt_keyWord.SetFocus/End Sub

Answer 1

关键字 Me 可出现在类模块中。也可以是窗体的代码中。截图中这个错误的起因可能是代码放到了标准模块中，解决方法是把me替换为指定的对象名称。由于问题信息不完整只能你自己试一下了。

截图里圈注的几处都有可能出现同样的问题。