我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。
如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。
VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA_3.3.11 VBA编程经典460句321-370
【分享成果，随喜正能量】43尽自己最大的努力，慢慢靠近自己想要的生活。人生不是一场赌博，哪有什么"人生赢家＂和"人生输家"，只不过是走的路不同罢了。在努力的过程中，怀揣着对生活的美好期许，并且一直努力向上，如此，便是没有辜负岁月。
3.3.11 VBA编程经典460句
321 Len(ActiveCell.Value) 获取活动单元格中字符串的个数
322 ActiveCell.Value = UCase(ActiveCell.Value) 将当前单元格中的字符转换成大写
323 ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase)将活动单元格中的字符串转换成小写
324 ActiveSheet.Range("C1").AddComment 在当前工作表的单元格C1中添加批注
325 Weekday (Date)获取今天的星期,以数值表示,1-7分别对应星期日至星期六
326 ActiveSheet.Range("A1").AutoFill Range(Cells(1, 1), Cells(10, 1)) 将单元格A1的数值填充到单元格A1至A10区域中
327 DatePart("y", Date) 获取今天在全年中的天数
328 ActiveCell.Value = DateAdd("yyyy", 2, Date) 获取两年后的今天的日期
329 MsgBox WeekdayName(Weekday(Date))获取今天的星期数
330 ActiveCell.Value = Year(Date) 在当前单元格中输入今年的年份数
331 ActiveCell.Value = Month(Date) 在当前单元格中输入今天所在的月份数
332 ActiveCell.Value = Day(Date)在当前单元格中输入今天的日期数
333 ActiveCell.Value = MonthName(1) 在当前单元格中显示月份的名称,本句为显示"一月"
334 ActiveCell.Value = Hour(Time) 在当前单元格中显示现在时间的小时数
335 ActiveCell.Value = Minute(Time) 在当前单元格中显示现在时间的分钟数
336 ActiveCell.Value = Second(Time)'在当前单元格中显示现在时间的秒数
337 ActiveSheet.Shapes(1).Delete 删除当前工作表中的第一个形状
338 ActiveSheet.Shapes.Count 获取当前工作表中形状的数量
339 ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText 改变当前工作表中第一个艺术字的方向
340 ActiveSheet.Shapes(1).TextEffect.FontItalic = True将当前工作表中第一个艺术字的字体设置为斜体
341 ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峡", _
"Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select 在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中
342 ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select 在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中
343 ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select 在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
344 ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select 在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
345 ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
346 ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) 将当前工作表中第一个形状的线条颜色变为蓝色
347 ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) 将当前工作表中第2个形状的前景色设置为红色
348 ActiveSheet.Shapes(1).Rotation = 20 将当前工作表中的第1个形状旋转20度
349 Selection.ShapeRange.Flip msoFlipHorizontal 将当前选中的形状水平翻转
350 Selection.ShapeRange.Flip msoFlipVertical将当前选中的形状垂直翻转
351 Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1将所选取的形状设置为第1种立体样式
352 ActiveSheet.Shapes(1).ThreeD.Depth = 20将当前工作表中第一个立体形状的深度设置为20
353 ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) 将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
354 ActiveSheet.Shapes(1).ThreeD.RotationX = 60将当前工作表中的第1个立体形状沿X轴旋转60度
355 ActiveSheet.Shapes(1).ThreeD.RotationY = 60 将当前工作表中的第1个立体形状沿Y轴旋转60度
356 Selection.ShapeRange.ThreeD.Visible = msoFalse 将所选择的立体形状转换为平面形状
357 Selection.ShapeRange.ConnectorFormat.BeginDisconnect 在形状中让指定的连接符起点脱离原来所连接的形状
358 ActiveSheet.Shapes(1).PickUp 复制当前工作表中形状1的格式
359 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).TextFrame.Characters.Text = "fanjy.blog.excelhome.net" 在工作簿中新建一个文本框并输入内容
360 ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200).TextFrame.Characters.Text = "fanjy.blog.excelhome.net" 在当前工作表中建立一个水平文本框并输入内容
361 ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300 在当前工作表中插入一张d盘中名为sx的图片
362 ActiveChart.ApplyCustomType xl3Darea 将当前图表类型改为三维面积图
363 Application.ActivePrinter 获取当前打印机
364 Application.Height当前应用程序文档的高度
365 Application.Width 当前应用程序文档的宽度
366 Application.Build 获取Word版本号和编译序号
367 Application.Caption 当前应用程序名
368 Application.DefaultSaveFormat 返回空字符串，表示Word文档
369 Application.DisplayRecentFiles 返回是否显示最近使用的文档的状态
370 Application.Documents.Count 返回当前打开的文档数
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
