Excel VBA边框

Question

我正在寻找为一系列单元格添加边框，这些单元格是由循环选取的，而嵌套的If语句是我在Excel中的VBA中。事实上，我知道的唯一方法是在代码中添加一个Underline语句，但是我的老师希望我做一个底部边框。事情是，在尝试了StackOverflow上提到的技巧后，我似乎无法弄清楚如何让它工作。有人可以帮忙吗？

Sub InputTitle()
'Subrutine's title is off from the actual task being performed.
'Excel asks user for a title to be input below.
Dim strTitle As String
strTitle = InputBox("Please enter a title")
ActiveWorkbook.Sheets(1).Range("A1") = strTitle & " Library Budget"
Range("B4").Select

'Excel goes through the cells, searching for the value 'Net Budget'.
'If Excel finds the value as Total, it will add a bottom border to
'the subsiquent cells, before continuing the loop.
Do Until ActiveCell.Value = "Net Budget:"
    ActiveCell.Offset(1, 0).Range("A1").Select
    If ActiveCell.Value = "Total:" Then
        ActiveCell.Offset(-1, 1).Range("A1:D1").Select
        <<--Selection.Border (xlEdgeBottom)-->>
        ActiveCell.Offset(1, -1).Range("A1").Select
    End If
Loop
End Sub

我知道有一行代码有'＆lt;＆lt; - ＆gt;＆gt;'。那是为了识别我的目标。每次运行代码时，系统都会在该行发生故障，告诉我'对象不支持此属性或方法'。谁能解释我做错了什么？我感觉它过于基本，而且我看起来更像是一个白痴而不是其他任何东西......

Answer 1

将<<--Selection.Border (xlEdgeBottom)-->>替换为Selection.Borders(xlEdgeBottom).LineStyle = xlContinuous。

simoco说的是真的：如果你录制一个宏，你可以看看代码，看看它在做什么。