No.1
工作中用到很多纸张表格，其中最普通的有信纸表格，有方格和横条纹格式，还有田字格。
大概由于手机应用和电子化发展，用笔写字的时候越来越少，但还是要用到。
那么信纸格式的表格如何来制作呢？
相信很多人会说，这还不简单打开Excel分分钟钟做出来。
的确可以，但本节介绍的方法，使用vba代码一键完成，而且可以任意选择文字和边框颜色，任意调节表格间距高度。
办公当中，随意打一份，方便实用。
No.2
下图为生成表格操作页面
条纹信纸效果图
通常使用黑色就可以，毕竟彩色打印成本还是比较大。
方框信纸效果图
No.3
上图为真实生成的表格，似乎像信纸，也许现在成年人几乎不再写信了，对于学生学习还是应用较多。
使用方法很简单，三个按钮，一个生成方格，一个生成条纹，还有一个打印。
生成之前要选择下拉框颜色，预设了12种，也可以自己添加其它颜色，颜色使用了一个数组。
如下代码所示：
Dim ColorID
ColorID = Array(&H0, &H2200FF, &HFF0088, &H129908, _
vbRed, vbBlack, vbBlue, vbGreen, vbYellow, vbMagenta, vbCyan, vbWhite)
Me.ComboBox1.List = ColorID
No.4
生成条纹信纸代码
Private Sub CommandButton2_Click() '绘制条纹
ColorX = Me.ComboBox1.Value
Application.ScreenUpdating = False
Dim s As Worksheet, cell As Range, xcell As Range
Set s = ActiveSheet
s.UsedRange.Delete
Dim iR As Integer, iC As Integer, r As Integer, c As Integer
iR = 22 '行数要单数
iC = 20 '列数
Set xcell = s.Range(s.Cells(1, 1), s.Cells(1, iC))
With xcell
.Merge
.VerticalAlignment = xlTop
.HorizontalAlignment = xlCenter
.RowHeight = 75
.Value = "江觅信笺用纸"
With .Font
.Size = 22
.Name = "微软雅黑"
.Bold = True
.Color = ColorX
End With
End With
Set cell = s.Range(s.Cells(2, 1), s.Cells(iR, iC))
For r = 1 To iR
With cell.Rows(r)
.RowHeight = 30
.Borders.LineStyle = 0
.Borders(xlEdgeTop).LineStyle = 1
.Borders(xlEdgeBottom).LineStyle = 1
.Borders(xlEdgeTop).Color = ColorX
.Borders(xlEdgeBottom).Color = ColorX
End With
Next r
cell.ColumnWidth = 3
Set cell = cell.Offset(iR, 0).Resize(1, iC)
With cell
.Merge
.VerticalAlignment = xlCenter
.HorizontalAlignment = xlRight
.RowHeight = 30
With .Font
.Size = 12
.Name = "微软雅黑"
.Bold = False
.Color = ColorX
End With
End With
Set s = Nothing
Set cell = Nothing
Set xcell = Nothing
Application.ScreenUpdating = True
End Sub
田字格没有做出，有机会继续做，一点小技巧可能解决某些大问题。
欢迎关注、收藏
---END---
