庆年工坊
知道合伙人互联网行家 推荐于2017-10-02
|
1
2
3
4
5
6
7
8
|
Sub
s()
[a1].NumberFormatLocal =
"@"
'设置A1单元格为文本格式
[b1].NumberFormatLocal =
"yyyy/m/d"
'设置B1单元格为日期格式
[c1].NumberFormatLocal =
"[$-F400]h:mm:ss AM/PM"
'设置C1单元格为时间格式
[d1].NumberFormatLocal =
"0.00%"
'设置D1单元格为百分比格式
[e1].NumberFormatLocal =
"0.00E+00"
'设置E1单元格为科学记数法格式
[f1].NumberFormatLocal =
"G/通用格式"
'设置F1单元格为常规格式
End
Sub
|
庆年工坊知道合伙人互联网行家推荐于2017-10-02 1 2 3 4 5 6 7 8 Subs() [a1].NumberFormatLocal="@"'设置A1单元格为文本格式 [b1].NumberFormatLocal="yyyy/m/d"'设置B1单...
SUB
格式
()
Worksheets("申报表" & i).Range("A1:I6").Interior.ColorIndex = 2
Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Borders.LineStyle = xlContinuous
Worksheets("申报表" ...
1 Sub 获取
单元格
设置
数字
格式
()
2 For Each Rng In [a1:a3]
3 Cells(Rng.Row, 2) = Rng.NumberFormatLocal '获取
单元格
的
格式
代码
4 Next Rng
5 End Sub
1 Sub 给
单元格
设置
数字
格式
()
2 For E...
作者：iamlaosong
将一个系统的数据导出再导入到另一个系统，虽然都是Excel文件，但
格式
略有不同，所以需要进行转换。功能不复杂，直接引用都可以，但是还是比较麻烦，不如写个工具，进行转换。这样导入文件干干净净，比较好。
唯一要注意的是信息中有身份证号码，在赋值到
单元格
中时，变成了科学
格式
或者后面几位都变成0，所以赋值前需要将
单元格
格式
设成文本型（直接将导入模板文件中身份证列设成文本也可以），即：
Cells(row1, 2).NumberFormat = "@" '号码单元...
irow = ActiveSheet.UsedRange.Rows.Count
For i = 2 To irow
If Len(Range("E" & i).Value) = 4 And CStr(Range("E" & i).Value)
Range("F" & i).NumberFormatLocal = "@"
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
今天上班的时候需要处理一张表：
需要把里面日期一栏修改为yyyymmdd形式，表中的日期数据也就是有三种
1、2019/1/9，但是
设置
了
单元格
的日期
格式
，显示为2019年1月9日，如第1行。
2、2017年6月20日，直接就是文本的2017年6月20日，如第14行。
3、2017.2.23，如...
