Selection.NumberFormatLocal = “dddd, mmmm dd, yyyy“或者Selection.NumberFormatLocal = “yyyy年m月d日“自己录一下就出来了

用VBA设置单元格的格式类型步骤如下：

1、首先我们打开一个工作样表作为例子；

2、单元格的格式类型解释起来就是excel中对单元格中的字体，字体颜色和背景颜色等进行格式设置，来达到突出显示的效果，比如图例中以红色显眼标错，蓝色突出对比等等都属于条件格式设置。

3、单元格的格式属于FormatConditions属性，format即格式。这里我们设置的是所选区域，也就是Selection对象，用鼠标框取的这一部分作为对象。

4、我们使用alt+f11组合快捷键进入vbe器，插入一个新的模块，并在模块中输入以下代码：

Sub FormatConditions() 

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, Formula1:=“10“ 

Selection.FormatConditions(1).Font.ColorIndex = 3 

End Sub

输入以上代码后就用VBA设置完成单元格格式类型了。

单元格前面加一个’符号,内容直接就会变成文本的了.

如果你要单元格变成文本格式那可以像下面

.NumberFormatLocal = “@“ ’设置A1单元格为文本格式

Range(“A1:A65536“).NumberFormatLocal = “@“ 

Excel Interior.ColorIndex色彩列表

1、 数字(Range.NumberFormatlocal 属性) 常规： Range.NumberFormatlocal = “G/通用格式“ 数值： Range.NumberFormatlocal = “0.000_“ --保留小 数位数为3 (此处“_”表示：留下一个与下一个字符同等宽度的空格) Range.NumberFormatlocal = “0“ --不要小数 Range.NumberFormatlo cal = “#,##0.000“ --保留小数位数为3，并使用千位分隔符 货币： Range.NumberFormatlocal = “ RMB]G/通用格式“---人民币大写

2、 对齐 水平对齐：Range.HorizontalAlignment = etHAlignCenter ---居中 垂 直对齐：Range.VerticalAlignment = etVAlignCenter---居中 是否自动换行：Range.WrapText = True 是否缩小字体填充：Range.ShrinkToFit = True 是否合并单元格：Range.MergeCells = False 文字竖排：Range.Orientation = etVertical 文字倾斜度数：Range.Orientation = 45 -----倾斜45度 字体（Font对象） 字体名称：Font.Name = “华文行楷“ 字形： Font.FontStyle = “常规“ 字号：Font.Size = “10“ 下划线：Font.Strikethrough = True; Font.Underline = etUnderlineStyleDouble ---双下划线 上标：Font.Superscript = True 下 标：Font.SubScript = True 删除线：Font.OutlineFont = True

3、 边框（Borders对象） Borders.Item(etEdgeTop)：上边框 Borders.Item(etEdgeLeft)：左边框 Borders.Item (etEdgeRight)：右边框 Borders.Item(etEdgeBottom)：下边框 Borders.Item(etDiagonalDown) ：左上--右下边框 Borders.Item(etDiagonalUp)：左下--右上边框 Border.LineStyle = etContinuous 线条样式

参考：

两种方法：一、weekday函数返回一个variant(integer)，包含一个整数，代表某个日期是星期几例子：cells(1,1)=weekday(cells(1,2))二、用numberformatlocal属性设置单元格格式例子：cells(1,1).numberformatlocal=“aaaa;@“cells(1,1).numberformatlocal=“aaa;@“上面两行命令稍有差别。不过都是返回的周几当然还有第三种方法，不过就有些脱裤子放屁的感觉了，我想不会有人有这么傻的办法的，但它的确也是另外一种方法。就是利用worksheetfunction对象引用excel内置的weekday函数：例子：cells(1,1)=worksheetfunction.weekday(cells(1,2))

excel.get_Range(“A1“, excel.Cells).Value2 = dataArray; 这个的前面或者后面加入：excel.Cells.Select()excel.Selection.NumberFormatLocal = “@“下面是我的xlSheet = xlApp.Worksheets(“sheet1“);//打开sheet1那页xlApp.Cells.Select();//选择EXCLE所有单元格xlApp.Selection.NumberFormatLocal = “@“;//设置所有格式为文本格式DataSet a = new DataSet();System.Data.DataTable table = new System.Data.DataTable();table = DataGridView2.DataSource;//填充表DataRow row;//定义row为表格的行DataColumn col;//定义col为表格的列//把表格的每一列写到EXCEL去foreach ( col in table.Columns) {colindex = colindex + 1;xlApp.Cells(1, colindex) = col.ColumnName;}

在VBA中可以利用下面的代码来控制当前单元格“显示”的小数位数：Selection.NumberFormatLocal=“0.00_“’这里显示为2位小数关于此处的numberformatlocal属性：应用于CellFormat、DataLabel、DataLabels、Range和TickLabels对象的NumberFormatLocal属性。以用户语言字符串返回或设置对象的格式代码。Variant类型，可读写。expression.NumberFormatLocalexpression必需。该表达式返回上面的对象之一。说明：Format函数使用与NumberFormat和NumberFormatLocal属性不同的格式代码字符串。

Range(“a1“).Select ’选定单元格 Selection.NumberFormatLocal = “0.00_ “ ’这是设成2位小数 Selection.NumberFormatLocal = “0.00% “ ’这是设成2位百分比 Selection.NumberFormatLocal = “0%“ ’这是设成整百分百小数

Sub s() .NumberFormatLocal = “@“ ’设置A1单元格为文本格式 .NumberFormatLocal = “yyyy/m/d“ ’设置B1单元格为日期格式 h:mm:ss AM/PM“ ’设置C1单元格为时间格式 .NumberFormatLocal = “0.00%“ ’设置D1单元格为百分比格式 .NumberFormatLocal = “0.00E+00“ ’设置E1单元格为科学记数法格式 .NumberFormatLocal = “G/通用格式“ ’设置F1单元格为常规格式End Sub