esayexcel自定义样式 excel如何自定义表格样式

表格样式对于制作Excel表格非常有用，不仅方便表格制作，还使工作轻松了许多。

那么如何方便定制自己的表格样式呢？

有想法就会有解决的办法，下面介绍一下制作表格样式。

首先，看一下效果

新建样式

下图黄色部分是新建样式的效果，浅蓝色部分是定制各参数的选项，制作的时候，首先在文本框内输入样式名，然后分别选择定制参数，单击新建样式按钮，样式就建成功了。

接下来在右边的选择框内找到样式名，选择一个单元格，然后单击应用样式就看到效果了。

以后，就不用制作样式了。

样式管理给了我们更加方便的表格操作方法，如果经常用到一些同类的单元格样式，这个方法真的再好不过了。

不要做重复性劳动，对于做重复性劳动的人，真的是一种无法言语的表达。

在没有量变到质变的可能性之前，还是推荐做一些事半功倍的事情比较合理，至少，看起来不那么傻瓜。

下图应用了不同样式效果，还是比较理想的。

参数设置表

下图费了一些时间来总结，感觉不是很理想，也算是一个开始。完成了想要实现的某些功能，给自己点个赞。

代码是必不可少的，如果没有vba，所有自动化的可能都将是不可想象的事情。

代码运用的比较委婉，一些参数进行了表格位移操作，还运用了数组赋值等等方法。

总之，在经过一番折腾后，实现了这个无比简单的效果。

新建样式代码

Private Sub CommandButton1_Click()Dim styleName As StringstyleName = Me.OLEObjects("TextBox1").Object.ValueIf VBA.Len(styleName) = 0 Then Exit SubCall DelStyleName(styleName) '''删除样式Dim newsty As Integernewsty = MsgBox("是否新建样式？", vbYesNo, "提示")If newsty <> 6 Then Exit SubDim vArr(), i As IntegerDim R As Range, Rvx As RangeSet R = Me.Range("C3:j3")ReDim vArr(1 To R.Count)i = 1For Each Rvx In RIf Rvx.Column = 3 Or Rvx.Column = 5 Then    vArr(i) = Rvx.ValueElse   If getRvalue(Rvx.Value) <> "" Then        vArr(i) = getRvalue(Rvx.Value)    Else        vArr(i) = Rvx.Value   End IfEnd Ifi = i + 1Next RvxDim st As StyleSet st = ThisWorkbook.Styles.Add(styleName)With st    .Interior.ColorIndex = vArr(1)    With st.Borders        .LineStyle = vArr(2)        .ColorIndex = vArr(3)        .Weight = vArr(4)    End With    .Borders(xlDiagonalUp).LineStyle = vArr(5)    .Borders(xlDiagonalDown).LineStyle = vArr(6)    .HorizontalAlignment = vArr(7)    .VerticalAlignment = vArr(8)End WithMsgBox styleName & "样式新建成功！"getStyleEnd Sub