返回列表 发帖

[AU3基础] EXCEL 单元格式问题

下面VB语句,可以把指定单元格式定义为数值,如果我想改成指定的日期格式,列如20170815000000转换为8/15或8月15日,下面VB语句该如何改?



Func ge($xls)
   With $xls.activesheet
                $xls.ActiveSheet.Columns(1).ColumnWidth = 16
                $xls.ActiveSheet.Columns(2).ColumnWidth = 46
                $xls.ActiveSheet.Columns(3).ColumnWidth = 20
                $xls.ActiveSheet.Columns(4).ColumnWidth = 6
                $xls.ActiveSheet.Columns(5).ColumnWidth = 5
                $xls.ActiveSheet.Columns(6).ColumnWidth = 12
                $xls.ActiveSheet.Columns(7).ColumnWidth = 6;1208gai
                $xls.ActiveSheet.Columns(8).ColumnWidth = 0
                $xls.ActiveSheet.Columns(9).ColumnWidth = 5
                $xls.ActiveSheet.Columns(1).NumberFormatLocal = "0"
       $xls.ActiveSheet.Columns(4).NumberFormatLocal = "0"

        EndWith
        EndFunc

"m/d" 或者 "m月d日"
淡泊以明志,宁静以致远

TOP

返回列表