笔记本电脑怎么样编程做表格(写信用纸表格的制作方法，教你用VBA编程，一键生成)

No.1

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

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

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

相信很多人会说，这还不简单打开Excel分分钟钟做出来。

的确可以，但本节介绍的方法，使用vba代码一键完成，而且可以任意选择文字和边框颜色，任意调节表格间距高度。

办公当中，随意打一份，方便实用。

No.2

下图为生成表格操作页面

条纹信纸效果图

通常使用黑色就可以，毕竟彩色打印成本还是比较大。

方框信纸效果图

No.3

上图为真实生成的表格，似乎像信纸，也许现在成年人几乎不再写信了，对于学生学习还是应用较多。

使用方法很简单，三个按钮，一个生成方格，一个生成条纹，还有一个打印。

生成之前要选择下拉框颜色，预设了12种，也可以自己添加其它颜色，颜色使用了一个数组。

如下代码所示：

DimColorIDColorID=Array(&H0,&H2200FF,&HFF0088,&H129908,_vbRed,vbBlack,vbBlue,vbGreen,vbYellow,vbMagenta,vbCyan,vbWhite)Me.ComboBox1.List=ColorID

No.4

生成条纹信纸代码

PrivateSubCommandButton2_Click()'绘制条纹ColorX=Me.ComboBox1.ValueApplication.ScreenUpdating=FalseDimsAsWorksheet,cellAsRange,xcellAsRangeSets=ActiveSheets.UsedRange.DeleteDimiRAsInteger,iCAsInteger,rAsInteger,cAsIntegeriR=22'行数要单数iC=20'列数Setxcell=s.Range(s.Cells(1,1),s.Cells(1,iC))Withxcell.Merge.VerticalAlignment=xlTop.HorizontalAlignment=xlCenter.RowHeight=75.Value="江觅信笺用纸"With.Font.Size=22.Name="微软雅黑".Bold=True.Color=ColorXEndWithEndWithSetcell=s.Range(s.Cells(2,1),s.Cells(iR,iC))Forr=1ToiRWithcell.Rows(r).RowHeight=30.Borders.LineStyle=0.Borders(xlEdgeTop).LineStyle=1.Borders(xlEdgeBottom).LineStyle=1.Borders(xlEdgeTop).Color=ColorX.Borders(xlEdgeBottom).Color=ColorXEndWithNextrcell.ColumnWidth=3Setcell=cell.Offset(iR,0).Resize(1,iC)Withcell.Merge.VerticalAlignment=xlCenter.HorizontalAlignment=xlRight.RowHeight=30With.Font.Size=12.Name="微软雅黑".Bold=False.Color=ColorXEndWithEndWithSets=NothingSetcell=NothingSetxcell=NothingApplication.ScreenUpdating=TrueEndSub

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

欢迎关注、收藏

---END---