sheet1、sheet2同时增加行或删除行的代码，这个代码错在哪，请大师指导修改，拜托

838225419

sheet1、sheet2同时增加行或删除行的代码，这个代码错在哪，请老师指导修改，拜托



Private Sub Worksheet_Activate()

    Dim cmbarbtn As CommandBarButton

    For Each cmbarbtn In ***.commandbars.FindControls(, 296)

        .onaction = "EventInsetRow"

    Next

    .commandbars("Row").Controls(5).OnAction = "EventInsetRow"

    Else

    For Each cmbarbtn In ***.commandbars.FindControls(, 478)

        .onaction = "deleteRow"

    Next

    .commandbars("Row").Controls(6).OnAction = "deleteRow"

End Sub

838225419

请大师指导

ykcbf1100

代码居然没看懂，我是没看出有增加行和删除行的动作。

gwjkkkkk

ykcbf1100 发表于 2024-1-12 14:43
代码居然没看懂，我是没看出有增加行和删除行的动作。

草爷谦虚了。。。

ykcbf1100

gwjkkkkk 发表于 2024-1-12 21:17
草爷谦虚了。。。

我真没看懂

838225419

ykcbf1100 发表于 2024-1-12 14:43
代码居然没看懂，我是没看出有增加行和删除行的动作。

大师，上面发的是下面这两个代码合并的，烦请老师指导

这个是同时增加行的代码：
Private Sub Worksheet_Activate()
    Dim cmbarbtn As CommandBarButton
    For Each cmbarbtn In Application.CommandBars.FindControls(, 296)
        cmbarbtn.OnAction = "EventInsetRow"
    Next
    Application.CommandBars("Row").Controls(5).OnAction = "EventInsetRow"
End Sub

这个是同时删除行的代码：
Private Sub Worksheet_Activate()
    Dim cmbarbtn As CommandBarButton
    For Each cmbarbtn In Application.CommandBars.FindControls(, 478)
        cmbarbtn.OnAction = "deleteRow"
    Next
    Application.CommandBars("Row").Controls(6).OnAction = "deleteRow"
End Sub

838225419

838225419 发表于 2024-1-17 11:22
大师，上面发的是下面这两个代码合并的，烦请老师指导

这个是同时增加行的代码：

已经修正sheet1中代码