大概由于手机运用和电子化发展，用笔写字的时候越来越少，但还是要用到。
那么信纸格式的表格如何来制作呢？
相信很多人会说，这还不大略打开Excel分分钟钟做出来。
的确可以，但本节先容的方法，利用vba代码一键完成，而且可以任意选择笔墨和边框颜色，任意调节表格间距高度。
办公当中，随意打一份，方便实用。
No.2下图为天生表格操作页面
条纹信纸效果图
常日利用玄色就可以，毕竟彩色打印本钱还是比较大。
方框信纸效果图
No.3上图为真实天生的表格，彷佛像信纸，大概现在成年人险些不再写信了，对付学生学习还是运用较多。
利用方法很大略，三个按钮，一个天生方格，一个天生条纹，还有一个打印。
天生之前要选择下拉框颜色，预设了12种，也可以自己添加其它颜色，颜色利用了一个数组。
如下代码所示：
Dim ColorIDColorID = Array(&H0, &H2200FF, &HFF0088, &H129908, _vbRed, vbBlack, vbBlue, vbGreen, vbYellow, vbMagenta, vbCyan, vbWhite)Me.ComboBox1.List = ColorID
天生条纹信纸代码
Private Sub CommandButton2_Click() '绘制条纹ColorX = Me.ComboBox1.ValueApplication.ScreenUpdating = FalseDim s As Worksheet, cell As Range, xcell As RangeSet s = ActiveSheets.UsedRange.DeleteDim iR As Integer, iC As Integer, r As Integer, c As IntegeriR = 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 WithEnd WithSet 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 WithNext rcell.ColumnWidth = 3Set 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 WithEnd WithSet s = NothingSet cell = NothingSet xcell = NothingApplication.ScreenUpdating = TrueEnd Sub
田字格没有做出，有机会连续做，一点小技巧可能办理某些大问题。
欢迎关注、收藏
---END---
