Sub 设置单元格格式()
Range("B2").Select
Selection.NumberFormatLocal = "@"
Cells(2, 2).NumberFormat = "General"
Cells(2, 2).NumberFormat = "@"
Cells(2, 2).NumberFormat = "0.00_ ;[Red]-0.00 "
Cells(2, 2).NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
Cells(2, 2).NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* " - "??_);_(@_)"
Cells(2, 2).NumberFormat = "m/d/yyyy"
Cells(2, 2).NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
Cells(2, 2).NumberFormat = "[$-F400]h:mm:ss AM/PM"
Cells(2, 2).NumberFormat = "0.00%"
Cells(2, 2).NumberFormat = "# ?/?"
Cells(2, 2).NumberFormat = "0.00E+00"
End Sub
需要设置成哪种单元格格式，直接复制到你自己的代码处，并修改一下行号和列号就可以了。如有不知道如何使用或有其他问题请在评论区留言。
纲举目张说明代码code使用方法说明单元格格式设置的不恰当会引发灾难的，估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置单元格格式时，虽然我们可以使用录制宏的方法得知如何设置，但是录制得到的代码比较啰嗦，对象不是很清晰，在此我总结了一下常用的设置单元格格式的代码，方便小伙伴们随时取用。代码codeSub 设置单元格格式() '首先为大家展示使用录制宏的方式得到的设置单元格格式的代码 Range("B2").Select Selection.NumberFormatLo
前面PDF转出的数据在原有EXCEL文件里。结合成品表样式设置在转完数据后直接新建一个表格将数据搬过去；并设置好格式
用到的代码与注释（部分注释为查OFFICE官网解释)
Sub a1()
Dim wb1 As Workbook '定义一个工作本
Dim ws1 As Worksheet, ws2 As Worksheet '定义2个表
Dim wb1name As String '定义文本名
Set wb1 = ...
数字(Range.NumberFormatlocal 属性)
常规：Range.NumberFormatlocal = "G/通用格式"
数值：Range.NumberFormatlocal = "0.000_ " --保留小数位数为3
Range.NumberFormatlocal = "0" --不要小数
Range.NumberForm
单元格水平 竖向居中
Sheet.Range(“A6”).HorizontalAlignment = = xlCenter ‘= 3单元格水平居中 Sheet.Range(“A6”).VerticalAlignment = xlCenter ‘=2 单元格竖向居中 此属性的值可设为以下常量之一： xlCenterxlDistributedxlJustifyxlLeft
设置单元格边框
Set xRange = Range("A1:A10")
Set yRange = Range("B1:B10")
Set chartRange = Union(xRange, yRange)
'创建图表对象
Set chartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=400, Top:=100, Height:=300)
Set chart = chartObj.Chart
'设置图表类型
chart.ChartType = xlXYScatter
'设置数据源
chart.SetSourceData chartRange
'设置坐标轴
chart.Axes(xlCategory).HasTitle = True
chart.Axes(xlCategory).AxisTitle.Text = "X轴"
chart.Axes(xlValue).HasTitle = True
chart.Axes(xlValue).AxisTitle.Text = "Y轴"
End Sub
end if
系数arr（）=array（7，9，10，5，8，4，2，1，6，3，7，9，10，5，8，4）
校验码arr（）=array（0，1，2，3，4，5，6，7，8，9，10）
返回值arr（）=array（1，0，10，9，8，7，6，5，4，3，2）
redim 身份证arr（0to16）
for i=1 to16
身份证arr（i）=mid（range（“a2”），i+1，1）
next i
for i=1 to16
k=k+（身份证arr（i）*系数arr（i））
next i
z=k mod 11
for i =0 to 9
if 校验码arr（i）=z then
z=返回值arr（i）
exit for
end if
next i
if mid（range（“a2”）），18，1）=“X” or mid（range（“a2”）），18，1）=“x”then
jg=10
jg=mid（range（“a2”），18，1）*1
end if
if jg=z then
msgbox（“校验通过”）
msgbox（“校验失败、请检查数据”）
end if
end sub
