乐彩论坛

[问题求助] 请假旺财老师 代码问题 看全部

查看: 605 | 回复: 12 | 收藏: 0

点插入按钮后,插入不在表格下面,而在表格什么是什么原因?如何改正。谢谢!点单元格也不变色。

Private Sub CommandButton1_Click()
    Dim i%
    Sheets("期数表").Activate
    i = WorksheetFunction.Count([a:a], "<>") + 2
    Sheets("期数表").Rows(i + 1).Insert
    Range("A" & i + 1, "Cy" & i).Formula = Range("A" & i, "dt" & i).Formula

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i%
    i = WorksheetFunction.Count([a:a], "<>") + 2
    Set Rng = Application.Intersect(Target, Range(Cells(i + 1, "x"), Cells(i + 3, "dt")))
    If Not Rng Is Nothing Then
        If Rng.Interior.Color = vbRed Then
            Rng.Interior.ColorIndex = xlNone
        Else
            Rng.Interior.Color = vbRed
        End If
    End If
    [A1].Select
End Sub

本主题由 十一层 于 2021-02-27 22:13 审核通过

错别字更正 ,请教旺财老师。

是的,麻烦谢谢老师了。

老师如何调整?单元格点红也不变化.请教老师,谢谢

变红行是胆码行和下面2行。

再次衷心感谢老师帮助。谢谢!  谢谢!
表格已修复好

旺财老师您好,表格更新数据后,新插入行不能自动复制上一行公式,如何解决。谢谢

在胆码行上面能插入新行,就是不能复制公式 ,还得手动下拉复制整行公式。

1

京ICP证150165号 | 京ICP备13046446号