EXCEL添加所选单元格的所有边框，有快捷键吗？

Excel中只有Ctrl+Shift+&快捷键为所选单元格添加外框线，而没有添加所有框线的快捷键，若需要添加该快捷键，可通过以下步骤进行绝森设置：

所需材料：Excel 2007演示。

一、首先点击左上角Office按钮，接着点击Excel 选项闭慧。

二、打开Excel选项的“自定义”选项卡，展开命令列表，点击“开始选项卡”。

三、点击“边框”，然后点击中间的“添加”，把边轿宏答框功能添加入快速访问栏，最后点击“确定”。

四、回到表格内，这时按下Alt键观察边框的快捷键，下图显示的为5.

五、这时选中一些单元格，然后按下快捷键Alt+5打开边框列表，然后再按下“所有框线”的快捷键A。

六、这时就可以通过快捷键为所选中的单元格添加所有框线了。

Sub 设置框线薯没()

    Dim x, y

    x = ActiveSheet.UsedRange.Rows.Count '使用的行数

    y = ActiveSheet.UsedRange.Columns.Count '使用的列数

    x = WorksheetFunction.RoundUp(x / 12, 0) 携手橘* 12 '按12对齐

   辩团 With ActiveSheet.UsedRange.Resize(x, y).Borders

        .LineStyle = xlContinuous

        .Weight = xlThin

    End With

End Sub

使用VBA可以轻松的设置Excel中的一个或多个单元格甚至是一个区域的或者是被选中单元格的左对齐、友对齐、居中对齐、字体、字号、字型等属性。

①左对齐、右对齐、居中对齐

'选择区域或单元格右对齐Selection.HorizontalAlignment

=

Excel.xlRight

'选择区域或单元格左对齐Selection.HorizontalAlignment

=

Excel.xlLeft

'选择区域或单元格居中对齐Selection.HorizontalAlignment

=

Excel.xlCenter

固定区域的对齐方式的代码：

Range("A1:A9").HorizontalAlignment

=

Excel.xlLeft

②字体、字号、字型

'当前单元格字体为粗体Selection.Font.Bold

=

True

'当前单元格字体为斜体Selection.Font.Italic

=

True

'当前单元格字体为宋体20号字

With

Selection.Font

　.Name

=

"宋体"

　.Size

=

20

End

With

---