首頁>Club>

求一段vba程式碼，將選定單元格刪除資料，去掉邊框？

17
回覆列表
  • 1 # 小紅的甜心

    Sub MacroTest()

    With Selection

    .Borders(xlDiagonalDown).LineStyle = xlNone

    .Borders(xlDiagonalUp).LineStyle = xlNone

    .Borders(xlEdgeLeft).LineStyle = xlNone

    .Borders(xlEdgeTop).LineStyle = xlNone

    .Borders(xlEdgeBottom).LineStyle = xlNone

    .Borders(xlEdgeRight).LineStyle = xlNone

    .Borders(xlInsideVertical).LineStyle = xlNone

    .Borders(xlInsideHorizontal).LineStyle = xlNone

    .Borders(xlDiagonalDown).LineStyle = xlNone

    .Borders(xlDiagonalUp).LineStyle = xlNone

    With .Borders(xlEdgeLeft)

    .LineStyle = xlContinuous

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = xlThin

    End With

    With .Borders(xlEdgeTop)

    .LineStyle = xlContinuous

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = xlThin

    End With

    With .Borders(xlEdgeBottom)

    .LineStyle = xlContinuous

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = xlThin

    End With

    With .Borders(xlEdgeRight)

    .LineStyle = xlContinuous

    .ColorIndex = 0

    .TintAndShade = 0

    .Weight = xlThin

    End With

    .Borders(xlInsideVertical).LineStyle = xlNone

    .Borders(xlInsideHorizontal).LineStyle = xlNone

    .ClearContents

    End With

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 甲亢能不能吃有食用鹽的餅乾？