写信用纸表格的制作方法,教你用VBA编程,一键生成蓝染动漫次元

No.1

工作中用到很多纸张表格，其中最普通的有信纸表格，有方格和横条纹格式，还有田字格。

大概由于手机应用和电子化发展，用笔写字的时候越来越少，但还是要用到。

那么信纸格式的表格如何来制作呢？

相信很多人会说，这还不简单打开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

No.4

生成条纹信纸代码

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 = ColorXEnd WithEnd WithSet cell = s.Range(s.Cells(2, 1), s.Cells(iR, iC))For r = 1 To iRWith cell.Rows(r).RowHeight = 30.Borders.LineStyle = 0.Borders(xlEdgeTop).LineStyle = 1.Borders(xlEdgeBottom).LineStyle = 1.Borders(xlEdgeTop).Color = ColorX.Borders(xlEdgeBottom).Color = ColorXEnd WithNext rcell.ColumnWidth = 3Set cell = cell.Offset(iR, 0).Resize(1, iC)With cell.Merge.VerticalAlignment = xlCenter.HorizontalAlignment = xlRight.RowHeight = 30With .Font.Size = 12.Name = "微软雅黑".Bold = False.Color = ColorXEnd WithEnd WithSet s = NothingSet cell = NothingSet xcell = NothingApplication.ScreenUpdating = TrueEnd Sub

田字格没有做出，有机会继续做，一点小技巧可能解决某些大问题。