VBA Excel-添加新数据时添加边框

我对VBA这件事还不熟悉。我可以问一下，如何为将添加到工作表中的新数据添加边框吗

下面的代码是我当前用于添加数据的代码。加载

UserForm

表单的按钮位于

HOME

工作表中，而添加的数据保存在

STUDENTS\u INFO

工作表中

Sub add_stud()
    With Worksheets("STUDENTS_INFO")
        r = .Range("C" & Rows.Count).End(xlUp).Offset(1).Row
        .Cells(r, 3).value = txtBox_LRN.Text
        .Cells(r, 4).value = txtBox_lname.Text
        .Cells(r, 5).value = txtBox_fname.Text
        .Cells(r, 6).value = txtBox_ext.Text
        .Cells(r, 7).value = txtBox_mname.Text
    End With
End Sub

在我问起这个问题之前，我试着先搜索一些东西。所以，我看到了这段代码，但我真的不知道如何使用它

Dim iRange As Range
Dim iCells As Range

Set iRange = ThisWorkbook.ActiveSheet.UsedRange

For Each iCells In iRange
    If Not IsEmpty(iCells) Then
    iCells.BorderAround _
            LineStyle:=xlContinuous, _
            Weight:=xlThin
    End If
Next iCells

试试看

---

只需录制一个宏，以任意方式绘制边框，然后使用由此生成的代码。@Ambie我应该从哪里开始录制？只是在

学生信息

工作表中添加边框，还是应该开始添加过程？

LineStyle

到

.LineStyle

。您错过了点。查看->宏->录制宏，然后单击完成后停止录制。代码将在编辑器的模块中。@Dy.Lee注意到了这一点。我只是复制并粘贴它，但如何在VBA中使用该代码？我应该把它放在哪里？它起作用了！非常感谢你！

Sub add_stud()
    Dim rngDB As Range
    With Worksheets("STUDENTS_INFO")
        r = .Range("C" & Rows.Count).End(xlUp).Offset(1).Row
        .Cells(r, 3).Value = txtBox_LRN.Text
        .Cells(r, 4).Value = txtBox_lname.Text
        .Cells(r, 5).Value = txtBox_fname.Text
        .Cells(r, 6).Value = txtBox_ext.Text
        .Cells(r, 7).Value = txtBox_mname.Text
        Set rngDB = .Range("c" & r).Resize(1, 5)
        With rngDB.Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        
        
    End With
End Sub