Microsoft Excel VBA-运行时错误438

Question

我似乎有一个错误，我正在努力找出原因。我已经尝试了帮助部分，也尝试在线研究它，但没有得出任何结果。我希望有人能够帮助我解决这个问题。

问题

我在电子表格上为不同的工作表创建了多个表单。我做了表格，可以用来隐藏/显示用户的判断选择列。我有两种形式可以很好的工作，但是第三种。

我得到

运行时错误438“对象不支持此属性或方法”

这是什么意思？代码与其他表单完全相同。它们之间唯一的区别是床单的名称不同。

我将为工作表粘贴下面的代码。希望你能区分哪个是哪个。我会尽力解释。

下面的代码

主工作表 - 包含用于表单打开表单的按钮

Private Sub openUserForm_Click()
    chkFormCooms.Show
End Sub

窗体

Option Explicit

Sub hideCol(C As Integer)
    If Controls("CheckBox" & C) = True Then
        Columns(C).Hidden = True
    Else
        Columns(C).Hidden = False
    End If
    ActiveWindow.ScrollColumn = 1
End Sub

Private Sub chkP1_Click()
    If Me.chkP1.Value = True Then
        Sheets("Cooms").Columns("T:W").Hidden = True
        Sheets("chkCooms").chk1.Value = True
    ElseIf Me.chkP1.Value = False Then
        Sheets("Cooms").Columns("T:W").Hidden = False
        Sheets("chkCooms").chk1.Value = False
    End If
End Sub

Private Sub chkP2_Click()
    If Me.chkP2.Value = True Then
        Sheets("Cooms").Columns("X:AA").Hidden = True
        Sheets("chkCooms").chk2.Value = True
    ElseIf Me.chkP2.Value = False Then
        Sheets("Cooms").Columns("X:AA").Hidden = False
        Sheets("chkCooms").chk2.Value = False
    End If
End Sub

Private Sub chkP3_Click()
   If Me.chkP3.Value = True Then
        Sheets("Cooms").Columns("AB:AE").Hidden = True
        Sheets("chkCooms").chk3.Value = True
    ElseIf Me.chkP3.Value = False Then
        Sheets("Cooms").Columns("AB:AE").Hidden = False
        Sheets("chkCooms").chk3.Value = False
    End If
End Sub

Private Sub chkP4_Click()
    If Me.chkP4.Value = True Then
        Sheets("Cooms").Columns("AF:AI").Hidden = True
        Sheets("chkCooms").chk4.Value = True
    ElseIf Me.chkP4.Value = False Then
        Sheets("Cooms").Columns("AF:AI").Hidden = False
        Sheets("chkCooms").chk4.Value = False
    End If
End Sub

Private Sub chkP5_Click()
   If Me.chkP5.Value = True Then
        Sheets("Cooms").Columns("AJ:AM").Hidden = True
        Sheets("chkCooms").chk5.Value = True
    ElseIf Me.chkP5.Value = False Then
        Sheets("Cooms").Columns("AJ:AM").Hidden = False
        Sheets("chkCooms").chk5.Value = False
    End If
End Sub

Private Sub chkP6_Click()
    If Me.chkP6.Value = True Then
        Sheets("Cooms").Columns("AN:AQ").Hidden = True
        Sheets("chkCooms").chk6.Value = True
    ElseIf Me.chkP6.Value = False Then
        Sheets("Cooms").Columns("AN:AQ").Hidden = False
        Sheets("chkCooms").chk6.Value = False
    End If
 End Sub

Private Sub chkP7_Click()
    If Me.chkP7.Value = True Then
        Sheets("Cooms").Columns("AR:AU").Hidden = True
        Sheets("chkCooms").chk7.Value = True
    ElseIf Me.chkP7.Value = False Then
        Sheets("Cooms").Columns("AR:AU").Hidden = False
        Sheets("chkCooms").chk7.Value = False
    End If
End Sub

Private Sub chkP8_Click()
    If Me.chkP8.Value = True Then
        Sheets("Coomst").Columns("AV:AY").Hidden = True
        Sheets("chkCooms").chk8.Value = True
    ElseIf Me.chkP8.Value = False Then
        Sheets("Cooms").Columns("AV:AY").Hidden = False
        Sheets("chkCooms").chk8.Value = False
    End If
End Sub

Private Sub chkP9_Click()
    If Me.chkP9.Value = True Then
        Sheets("Cooms").Columns("AZ:BC").Hidden = True
        Sheets("chkCooms").chk9.Value = True
    ElseIf Me.chkP9.Value = False Then
        Sheets("Cooms").Columns("AZ:BC").Hidden = False
        Sheets("chkCooms").chk9.Value = False
    End If
End Sub

 Private Sub chkP10_Click()
    If Me.chkP10.Value = True Then
        Sheets("Cooms").Columns("BD:BG").Hidden = True
        Sheets("chkCooms").chk10.Value = True
    ElseIf Me.chkP10.Value = False Then
        Sheets("Cooms").Columns("BD:BG").Hidden = False
        Sheets("chkCooms").chk10.Value = False
    End If
End Sub

 Private Sub chkP11_Click()
    If Me.chkP11.Value = True Then
        Sheets("Cooms").Columns("BH:BK").Hidden = True
        Sheets("chkCooms").chk11.Value = True
    ElseIf Me.chkP11.Value = False Then
        Sheets("Cooms").Columns("BH:BK").Hidden = False
        Sheets("chkCooms").chk11.Value = False
    End If
End Sub

 Private Sub chkP12_Click()
    If Me.chkP12.Value = True Then
        Sheets("Cooms").Columns("BL:BO").Hidden = True
        Sheets("chkCooms").chk12.Value = True
    ElseIf Me.chkP12.Value = False Then
        Sheets("Cooms").Columns("BL:BO").Hidden = False
        Sheets("chkCooms").chk12.Value = False
    End If
End Sub

 Private Sub chkP13_Click()
    If Me.chkP13.Value = True Then
        Sheets("Cooms").Columns("BP:BS").Hidden = True
        Sheets("chkCooms").chk13.Value = True
    ElseIf Me.chkP13.Value = False Then
        Sheets("Cooms").Columns("BP:BS").Hidden = False
        Sheets("chkCooms").chk13.Value = False
    End If
End Sub

Private Sub UserForm_Initialize()
    Me.chkP1.Value = Sheets("chkCooms").chk1.Value
    Me.chkP2.Value = Sheets("chkCooms").chk2.Value
    Me.chkP3.Value = Sheets("chkCooms").chk3.Value
    Me.chkP4.Value = Sheets("chkCooms").chk4.Value
    Me.chkP5.Value = Sheets("chkCooms").chk5.Value
    Me.chkP6.Value = Sheets("chkCooms").chk6.Value
    Me.chkP7.Value = Sheets("chkCooms").chk7.Value
    Me.chkP8.Value = Sheets("chkCooms").chk8.Value
    Me.chkP9.Value = Sheets("chkCooms").chk9.Value
    Me.chkP10.Value = Sheets("chkCooms").chk10.Value
    Me.chkP11.Value = Sheets("chkCooms").chk11.Value
    Me.chkP12.Value = Sheets("chkCooms").chk12.Value
    Me.chkP13.Value = Sheets("chkCooms").chk13.Value
End Sub

我希望这一切都有意义，并且有人能够在这件事上帮助我。如果你需要进一步的解释，请不要犹豫。非常感谢你的帮助。

Answer 1

检查您的用户名，可能拼写错误

有关错误的信息，请检查此惊人的描述