[已解决]如何自动添加边框

fjmxwrs

http://www.excelpx.com/dispbbs.asp?boardid=5&replyid=1456045&id=70765&page=1&skin=0&Star=1

这是个很好的录入功能。请问学生录入后，能在录入表中自动给新增加的学生画上边框吗？

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-9 15:52

这样？
Private Sub CommandButton1_Click() '导入
Dim x%, y%
With Sheet2
    x = .[A65536].End(xlUp).Row + 1
        For y = 1 To 10
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
        .UsedRange.Borders.ColorIndex = 1
  End With
  Call CommandButton2_Click
End Sub

跳转到最佳答案楼层

喜多多

自己录个宏，再去修改一下。可能就可以了

amulee

这样？
Private Sub CommandButton1_Click() '导入
Dim x%, y%
With Sheet2
    x = .[A65536].End(xlUp).Row + 1
        For y = 1 To 10
            .Cells(x, y) = Me.Controls("Tet" & y).Text
        Next y
        .UsedRange.Borders.ColorIndex = 1
  End With
  Call CommandButton2_Click
End Sub