vb会自动识别,默认为月日年,年月日,日月年的顺序,如#10/11/12#vb识别为2012年10月12日;如果第一个数超过12,如#13/11/12#vb则识别为2013年11月12日;如果第一个数超过12,且最后一位超过31,如#13-11-32#vb则识别为1932年11月13日.其他值则为错误
两个问题:1、range(＂a40＂).value = format(＂2012/4/12＂, ＂yyyy-mm-dd＂),“0000-00-00”不是合法的日期格式.2、必须先把这个格子弄成文本显示,否则excel会自做聪明改成excel标准的日期类型“yyyy/m/d” 完成代码如下:sub kk() range(＂a40＂).numberformatlocal = ＂@＂ range(＂a40＂).value = format(＂2012/4/12＂, ＂yyyy-mm-dd＂) end sub
vba 中怎样设置date格式直接用下面代码就可以实现:=Format(＂3/31/09＂, ＂mm-dd-yyyy＂) 关于此例中用到的Format函数的相关知识:Format函数 根据有效的命名表达式来对指定的表达式进行格式化.Format(expression[, format[, firstdayofweek[, firstweekofyear]]]) Format 函数具有下面几个参数:expression 必要参数.任何有效的表达式.format 可选参数.有效的命名表达式或用户自定义格式表达式.firstdayofweek 可选参数.常数,表示一星期的第一天.firstweekofyear 可选参数.常数,表示一年的第一周.
求助!关于使用vba进行日期格式转换的请教虽然你已解决格式问题,不过我还是想说一下,用FORMAT最简单,语法:文本框=Format(日期变量,＂YYYYMMDD＂)或文本框=Format(日期变量,＂YYYY-MM-DD.
VBA中当前时间的格式VBA中使用Time来表示当前的时间.具体处理如下:'1、程序开始 Sub NowTime()'2、弹窗显示当前的时间 MsgBox Time'3、程序结束 End Sub
vba date格式假设10/11/08 am在一个cell里面,cell为cell(X行,Y列)那么程序开始了:sub datechange()dim str1,myyear,mymonth,myday,str2str1=cell(x,y)myday=left(str1,2) '取str1字符串的左边两位为日,10mymonth=mid(str1,4,2) '月-11myyear=mid(str1,7,2) '年-08str2=＂20＂ & myyear ＂-＂ & ＂mymonth＂ & ＂-＂ & ＂myday＂cell(X,Y)=str2 '将原来的格子的日期格式替换end sub
excel vba 日期格式判断if TypeName(cells(i,1).value)=＂Date＂ then
如何通过VBA把EXCEL单元格的日期格式设定为“年月日时分星期”格式?Range(＂A1＂).Select Selection.NumberFormatLocal = ＂e/m/d h:mm aaaa＂
急:vba单元格文本格式转化为日期格式怎么转?如果在一列 直接 按照日期分列:选中这一列 --数据--分列 --下一步---下一步 --列数据格式 选择 日期 ,点完成 即可=============== 代码:sub xxx() for i = 1 to [a65536].end(xlup).row cells(i, 1) = cdate(format(cells(i, 1), ＂0000-00-00＂)) next end sub
vba怎么设置某一列的单元格为日期格式?选择你想要显示那个数据的一列,单击右键选单元格格式设置的那一项,然后选择日期,挑你想要的日期格式然后确定.之后数据写到单元格会自动转化成日期格式.用代码的话, 选择单元格范围,例如: Range(＂A1:A9＂).Select 指定范围的格式 Selection.NumberFormatLocal = ＂yyyy/m/d;@＂