[發問] Borders屬性問題

請問各位大大
以下是"刪除"按鈕的程度碼
Private Sub CommandButton2_Click()
Dim a As Integer
Dim b As Integer
Dim xR As Integer
Dim xT As Integer
Dim gyou As Integer
xR = ActiveCell.Row
xT = ActiveCell.Column
a = Range("A1").Value
b = Range("A2").Value
If xR = 1 And xT > 2 And xT <= a + 2 Then
gyou = ActiveCell.Column
ActiveSheet.Columns(gyou).Delete
Range("A1").Value = Range("A1").Value - 1
a = Range("A1").Value
ElseIf xR > 1 And xR <= b + 1 Then
Cells(xR, "B").Resize(, a + 2).Delete xlUp
Range("A2").Value = Range("A2").Value - 1
b = Range("A2").Value
End If

Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeRight).Weight = xlThick
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeLeft).Weight = xlThick
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders(xlEdgeBottom).Weight = xlThick
Range(Cells(1, 2), Cells(1, a + 2)).Borders(xlEdgeBottom).Weight = xlThick

End Sub

執行後出現"無法設定種類Borders的屬性Weight" 是什麼原因呢？？

創新專安Pugh概念選擇.rar (25.65 KB)

樓主熱帖

寶寶

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

2^#

發表於 2012-6-21 22:30 | 只看該作者

Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders.LineStyle = xlNone
Range(Cells(1, 2), Cells(b + 4, a + 2)).Borders.LineStyle = xlContinuous
Range(Cells(1, 2), Cells(b + 4, a + 2)).BorderAround , 4, 1
Range(Cells(1, 2), Cells(1, a + 2)).BorderAround , 4, 1
1.先取消所有框線
2.設置範圍的所有細線
3.對兩個區域分別設外框粗線

TOP

GBKEE