vba 中怎样设置date格式

直接用下面代码就可以实现：

=Format("3/31/09", "mm-dd-yyyy")

关于此例中用到的Format函数的相关知识：

Format函数

根据有效的命名表达式来对指定的表达式进行格式化。

Format(expression[, format[, firstdayofweek[, firstweekofyear]]])

Format 函数具有下面几个参数：

expression必要参数。任何有效的表达式。

format可选参数。有效的命名表达式或用户自定义格式表达式。

firstdayofweek可选参数。常数，表示一星期的第一天。

firstweekofyear可选参数。常数，表示一年的第一周。

给你一个子程序

给出了三个条件，1、将光标处的行高设置为60

2、设置字体为楷体

3、经字体加粗

Sub

Macro1()

'

Selection.RowHeight

=

60

'设置行高

With

Selection.Font

.Name

=

"楷体_GB2312"

'设置字体

.Size

=

12

End

With

Selection.Font.Bold

=

True

'将字体加粗

End

Sub

①将格式应用于选定内容

下列示例使用Selection属性将字符和段落格式应用于选定文本。使用Font属性获得字体格式的属性和方法，使用ParagraphFormat属性获得段落格式的属性和方法。

Sub

FormatSelection()

With

Selection.Font

.Name

=

"Times

New

Roman"

.Size

=

14

.AllCaps

=

True

End

With

With

Selection.ParagraphFormat

.LeftIndent

=

InchesToPoints(0.5)

.Space1

End

With

End

Sub

②将格式应用于某一区域

下列示例定义了一个Range对象，它引用了活动文档的前三个段落。通过应用Font

和ParagraphFormat对象的属性来设置

Range对象的格式。

Sub

FormatRange()

Dim

rngFormat

As

Range

Set

rngFormat

=

ActiveDocument.Range(

_

Start:=ActiveDocument.Paragraphs(1).Range.Start,

_

End:=ActiveDocument.Paragraphs(3).Range.End)

With

rngFormat

.Font.Name

=

"Arial"

.ParagraphFormat.Alignment

=

wdAlignParagraphJustify

End

With

End

Sub

③插入文字并应用字符和段落格式

下列示例在当前文档的上部添加单词

Title。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词

Title

的格式设为

24

磅

Arial

字体。

Sub

InsertFormatText()

Dim

rngFormat

As

Range

Set

rngFormat

=

ActiveDocument.Range(Start:=0,

End:=0)

With

rngFormat

.InsertAfter

Text:="Title"

.InsertParagraphAfter

With

.Font

.Name

=

"Tahoma"

.Size

=

24

.Bold

=

True

End

With

End

With

With

ActiveDocument.Paragraphs(1)

.Alignment

=

wdAlignParagraphCenter

.SpaceAfter

=

InchesToPoints(0.5)

End

With

End

Sub

④在

12

磅和无之间切换段前间距

下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值，如果该值为

12

磅，则删除段前间距格式(将SpaceBefore属性设为零)。如果段前间距的值为除

12

外的其它数值，则将

SpaceBefore属性设为

12

磅。

Sub

ToggleParagraphSpace()

With

Selection.Paragraphs(1)

If

.SpaceBefore

<>

0

Then

.SpaceBefore

=

0

Else

.SpaceBefore

=

6

End

If

End

With

End

Sub

⑤切换加粗格式

下列示例切换选定文本的加粗格式。

Sub

ToggleBold()

Selection.Font.Bold

=

wdToggle

End

Sub

⑥将左边距增加

0.5

英寸

下列示例将左边距和右边距增加

0.5

英寸。PageSetup对象包含文档的所有的页面设置属性(左边距、下边距、纸张大小等)。LeftMargin属性用于返回和设置左边距设置。RightMargin属性用于返回和设置右边距设置。

Sub

FormatMargins()

With

ActiveDocument.PageSetup

.LeftMargin

=

.LeftMargin

+

InchesToPoints(0.5)

.RightMargin

=

.RightMargin

+

InchesToPoints(0.5)

End

With

End

Sub

---