代码冲突

lingning1001

朱荣兴 发表于 2018-9-6 12:53
工作表名称前加个序号干嘛呢？？？？？

或者代码修改一部分，可以实现吗？

爱表

不是冲突，是你的“Sheets(ListBox1.List(i, 0)).Select  ”语句中SheetsListBox1.List(i, 0)不是特定的工作表，找不到，所以提示下标越界，“ListBox1.List(i, 0)”找到的是序号加姓名，如“2钱二”，你需要先截取其中的姓名“钱二”。另外，你代码中的Sheets("操作表").Select中“操作表”也是错的，应改成“数据库”，否则也会提示“下标越界”。修改后的代码如下，你试一下

爱表

Private Sub 打印预览_Click()
Dim i
Dim sh1 As String
For i = 0 To ListBox1.ListCount - 1
sh1 = Mid(ListBox1.List(i, 0), 2, Len(ListBox1.List(i, 0)) - 1)
        If ListBox1.Selected(i) = True Then
            Sheets(sh1).Select         '这句代码和Private Sub UserForm_Initialize()中代码冲突，下标越界
                        
ActiveWorkbook.ActiveSheet().PrintPreview


        End If
Next

Sheets("数据库").Select
Range("R5").Select



End Sub

lingning1001

爱表 发表于 2018-9-6 13:54
Private Sub 打印预览_Click()
Dim i
Dim sh1 As String

是的是的，可以了，非常感谢

爱表

不用谢。只要记住提示“下标越界”，99%的情况是找不到，也就说对象不存在，就好找到错误了。