我想知道如何根據特定條件向范圍添加邊框（通過呼叫程序）。以影像為例，我想呼叫我的程式，根據發生日期的每個實體，將邊框添加到 A:D 列的范圍，即 A5:D7 將共享一個外邊框，A8:D10， A11:D12 等等。下面是我想呼叫的程式，在我想象的回圈中，直到命中 A 列的最后一個單元格。
子 add_outside_border()
With Selection
.borders(xlEdgeLeft).LineStyle = xlContinuous
.borders(xlEdgeTop).LineStyle = xlContinuous
.borders(xlEdgeBottom).LineStyle = xlContinuous
.borders(xlEdgeRight).LineStyle = xlContinuous
End With
結束子
uj5u.com熱心網友回復：
請嘗試下一個代碼：
Sub testBoderArrowndData()
Dim sh As Worksheet, lastR As Long, arr, i As Long, j As Long, boolLast As Boolean
Set sh = ActiveSheet
lastR = sh.Range("A" & sh.rows.count).End(xlUp).row
j = 1
For i = 5 To lastR
If IsDate(sh.Range("A" & i).value) Then
Do While Not IsDate(sh.Range("A" & i j).value)
j = j 1
If i j >= lastR Then boolLast = True: Exit Do 'for the last range
Loop
sh.Range("A" & i & ":D" & i j - IIf(boolLast, 0, 1)).BorderAround xlContinuous, xlThick
i = i j - 1: j = 1
End If
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/388348.html