標題:
一個清除斜框線問題
[打印本頁]
作者:
周大偉
時間:
2010-11-15 19:39
標題:
一個清除斜框線問題
大大們,
小弟有一問題, 請大大們協助解決, 現附上檔案, 內有標籤說明, 請大大們協助,
謝謝!
[attach]3614[/attach]
作者:
Hsieh
時間:
2010-11-15 19:45
回復
1#
周大偉
關閉事件程序觸發
Sub 清除斜線()
'
' 清除斜線 Macro
' shchao 在 2010/11/15 錄製的巨集
'
'
Application.EnableEvents = False
Range("B15:K34").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 15
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 15
End With
Range("E8:F8").Select
Application.EnableEvents = True
End Sub
複製代碼
作者:
oobird
時間:
2010-11-15 19:59
錄製的代碼是很冗長的,而你的目的只須要一句。
Sub 清除斜線()
[B15:K34].Borders(6).LineStyle = xlNone
End Sub
作者:
周大偉
時間:
2010-11-15 20:21
謝謝两位版主大大, 問題已解決, 在此祝願快樂...謝謝!!
作者:
Hsieh
時間:
2010-11-15 20:36
回復
4#
周大偉
希望在這2個回覆中您能了解幾個重點
1、程式碼中的SELECT會觸發事件程序的解決方法
2、錄製巨集後應去解讀程式碼的意義,才能去蕪存菁減短程式碼,易於日後修正
作者:
周大偉
時間:
2010-11-15 21:23
Hsieh大大,
衷心謝謝寶貴的意見, 祝願快樂!
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)