jgdk.net
当前位置:首页 >> vBA 设置边框 >>

vBA 设置边框

Range("A4:C100").Select With Selection.Font .Name = "Arial" .FontStyle = "常规" .Size = 12 .Underline = xlUnderlineStyleNone End With

比如你要给A1:B11单元格加边框,可以使用以下代码Range("A1:B11").Borders.LineStyle=1 取消边框线 Range("A1:B11").Borders.LineStyle=0

最好的办法,自己录制宏,然后自己分析,这样才能在学习中进步。纸上得来终觉浅啊

Borders.Weight 属性 - 它代表边框的粗细 xlHairline - 细线(最细的边框) xlMedium - 中等 xlThick - 粗(最宽的边框) xlThin - 细 Borders.LineStyle 属性 - 返回或设置边框的线型 xlContinuous -实线 xlDash -虚线 xlDashDot -点划相间线 xlDas...

估计你是问Excel中选择区域的内外边框的颜色设置吧。 1、具体方法 Excel中对于区域(range)有一个属性叫Borders是操作边框的,该属性具有子属性colorindex是用于边框颜色定义的。 2、如下语句: sub try() Selection.Borders.ColorIndex = 3 en...

range().Borders.Weight = xlMedium range().Borders.LineStyle = xlNone

Private Sub CommandButton1_Click() Dim I, L,J, M Set SH1 = Sheet1 On Error GoTo QQ M = InputBox("输入行数!") If M = "" Then Exit Sub With SH1 L = .[A1000].End(xlUp).Row For I = 1 To M .Cells(I + L, 1) = .Cells(L, 1) + I For J ...

最好的办法(或者说类似功能的学习方法),录制宏,再进行修改。

Sub 加边框() Range("a1").CurrentRegion.Borders.LineStyle = 1End Sub

只要一句代码?那就给你一句参考一下吧:picCount = ActiveDocument.InlineShapes.Count '计算文件中图片数目在Word中,插入的图片已被转化为 InlineShape 对象。之后用For循环语句,给所有图片加黑色边框。单个图片加边框的语句,你自己可以录...

网站首页 | 网站地图
All rights reserved Powered by www.jgdk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com