乐彩论坛

[问题求助] 请假旺财老师 代码问题 只看楼主

查看: 593 | 回复: 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 审核通过

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

是的,麻烦谢谢老师了。

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

神舟六号 发表于 2021-3-3 11:24
老师如何调整?单元格点红也不变化.请教老师,谢谢

1、是在胆码上面的那行插入新行?
2、变红的区域是哪个区域?
时间久了,不记得你原来的需求了

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

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

1
2

京ICP证150165号 | 京ICP备13046446号