表格樣式對於製作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 ThenvArr(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