vba中如何隐藏指定區域?UsedRange和CurrentRegion（不區分大小寫）是應用非常頻繁的兩個屬性，Usedrange是工作表的屬性，即其使用時應該是sheets(1).usedrange、sheets(2).usedrange這種形式，而currentregion是單元格的屬性，即其使用應該是range("A1").currentregion或cells(1,1).CurrentRegion這種形式，現在小編就來說說關于vba中如何隐藏指定區域?下面内容希望能幫助到你，我們來一起看看吧!

vba中如何隐藏指定區域

UsedRange和CurrentRegion（不區分大小寫）是應用非常頻繁的兩個屬性，Usedrange是工作表的屬性，即其使用時應該是sheets(1).usedrange、sheets(2).usedrange這種形式，而currentregion是單元格的屬性，即其使用應該是range("A1").currentregion或cells(1,1).CurrentRegion這種形式。

先從字面意思上來看，usedrange就是已經使用的區域的意思，也就是說sheet1.usedrange表示的是sheet1表格中已經使用的區域，怎麼理解這個已經使用的區域呢？已經使用的區域就是指鼠标從整個表格最左上角的那個非空單元格一直拖動到整個表格最右下角的那個已經使用過的單元格所選擇的區域。而CurrentRegion的字面意思就是當前區域，那個range("A1").currentregion就是指A1單元格當前所在的那個區域，在這裡當前所在的區域就是指當前單元格所在的以空行和空列隔開的區域。

如果想以某行、某列為基準來選擇其非空區域，可以使用單元格的end屬性。

如以下小實例即可對按第一行、第一列定義的非空區域設置單元格邊框屬性為xlHairline

Sub allHairline()

Dim LRow, Lcol As Integer

Lrow = Range("A" & Rows.Count).End(xlUp).Row

Lcol = Cells(1, Columns.Count).End(xlToLeft).Column

Dim str As String

str = Cells(Lrow, Lcol).Address '$AB$17

Dim j As Integer

j = InStrRev(str, "$") '最後出現位置

'str = Left(str, j - 1)

'str = Right(str, Len(str) - 1)

str = Mid(str, 1, j - 1)

Cells.Select

Selection.Borders.LineStyle = xlNone

Range("A1:" & str & Lrow).Select

Selection.Borders.Weight = xlHairline

End Sub

-End-

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!