access vba 常量数组赋值_如何利用VBA代码进行复制粘贴以及字体的设置

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，第NO.118-NO.120则，内容是：在复制单元格区域时，如何仅复制单元格区域的数值、使用直接赋值的方法选择性粘贴数值、在单元格区操作时，如何对字体格式进行设置等内容。

VBA过程代码118：在复制单元格区域时，如何仅复制单元格区域的数值

Sub mynz()

Sheets("6").Range("A1").CurrentRegion.Copy

Sheets("11").Range("A1").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

End Sub

代码的解析说明：上述过程复制工作表Sheets("6")中A1单元格的当前区域的数值到工作表Sheets("11").的A1单元格所在区域中。

VBA过程代码119：使用直接赋值的方法选择性粘贴数值

Sub mynz()

With Sheets("6").Range("A1").CurrentRegion

Sheets("11").Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value

End With

End Sub

代码的解析说明：上述过程复制工作表Sheets("6")中A1单元格的当前区域的数值到工作表Sheets("11").的A1单元格所在区域中。

在对单元格区域直接赋值时，应保证源区域大小与目标区域的大小一致，如果源区域为动态的单元格区域，可使用Resize方法确定目标区域。

VBA过程代码120：在单元格区操作时，如何对字体格式进行设置

Sub mynz()

Sheets("12").Select

With Range("A1").Font

.Name = "华文彩云"

.FontStyle = "Bold"

.Size = 28

.ColorIndex = 3

.Underline = 2

End With

End Sub

代码的解析说明：上面过程可以实现对单元格A1的字体格式进行设置。其中代码.Name设置字体为“华文彩云”，应用于Font对象的Name属性返回或设置对象的名称。

代码.FontStyle设置字体为加粗，FontStyle属性返回或设置字体样式。设置为“Bold” 加粗字体，设置为“Italic”倾斜字体，也可以设置成“Bold Italic”。代码.Size设置字体的大小为18磅，Size属性返回或设置字体大小。代码.ColorIndex设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号.看下面的编码方案：

代码.Underline设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为下面的XlUnderlineStyle常量之一。

xlUnderlineStyleNone -4142 无

xlUnderlineStyleSingle 2 单下划线

xlUnderlineStyleDouble -4119 双下划线

xlUnderlineStyleSingleAccounting 4 会计用单下划线

xlUnderlineStyleDoubleAccounting 5 会计用双下划线

越简单的事物往往越容易理解，简单的过程组合起来就是一个复杂的过程，我们要先认真掌握这些简单的过程，才能在可以为我们复杂的工程服务。

下面是我根据自己20多年的VBA实际利用经验，编写的四部教程，这些是较大块的“积木”，可以独立的完成某些或者某类系统的过程，欢迎有需要的朋友联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。这些教程供有志于提高自己能力的朋友选择。

第一套：《VBA代码解决方案》PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备的资料。

第二套：《VBA数据库解决方案》PDF教程。数据库是数据处理的利器，对于中级人员应该掌握这个内容了。

第三套：《VBA数组与字典解决方案》PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备资料。

第四套：《VBA代码解决方案》视频教程。目前正在录制，现在推出“每天20分钟，半年精进VBA”活动，越早参与，回馈越多。现在第一册48讲内容已经录制完成。录制到第二册71讲的课程，第二级阶段的优惠期开始。