excel - 如何在单元格的一侧应用粗边框

标签 excel vba

我想知道如何在 Excel 上的所有选定单元格上应用粗右边框,最好使用快捷方式。我尝试录制一个宏,然后应用粗边框并删除顶部、底部和左侧的单元格,但这只是意味着只有顶部的单元格有右边框,其余的选择有左边框和右边框。

我只是在 excel 上发现了宏,所以如果有我需要输入的代码,如果你不介意告诉我在输入代码之前和之后要做什么以使其工作,那就太好了。

最佳答案

像这样的东西应该工作......

Dim MyRange as range
MyRange = activesheet.range("C1:C14")
MyRange.Borders(xlEdgeRight).LineStyle = xlContinuous
MyRange.Borders(xlEdgeRight).Weight = xlThick 
MyRange.Borders(xlInsideVertical).LineStyle = xlContinuous
MyRange.Borders(xlInsideVertical).Weight = xlThick 

可以使用选择来代替 MyRange Range 对象
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Selection.Borders(xlEdgeRight).Weight = xlThick 
Selection.Borders(xlInsideVertical).LineStyle = xlContinuous
Selection.Borders(xlInsideVertical).Weight = xlThick 

其他线宽常数...
    'other weight constants...
    'xlHairline 
    'xlMedium 
    'xlThick 
    'xlThin 

关于excel - 如何在单元格的一侧应用粗边框,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28684330/

相关文章:

xml - 使用 VBA 将 XML 网站导入 Access

excel - 通过变量更改事件 x 选项按钮的背景颜色会使它们变黑

list - 动态范围表中的唯一列表,可能有空白

php - Excel工作表导入数据库时​​如何转换日期?

excel - 根据单元格中的十六进制值设置自动颜色背景?

vba - 遍历表格中的每一行

excel - 根据标题名称移动列

javascript - VBA 抓取 JavaScript 生成的内容

python - 通过python3将带有制表符分隔的.txt文件转换为xlsx

arrays - 将非常大的一维数组写入工作表