VBA代码非常诱人，学习有用的知识是自己的事情

对于初学者来说，多掌握一些VBA例行语句，对自己的代码水平提高会有很大的帮助，视野开拓了，才不会拘泥于一处。给很多朋友的建议中，我总是说，在学习VBA代码解决方案的时候，要学习数组与字典的应用，这样才不会让自己的思路故步自封，比如用代码排重是非常困难的，但是采用了数组会让你豁然开朗，而用了字典，真的让你如沐晨风。

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' 在当前工作表中建立一个水平文本框并输入内容。

任何时候，学习有用的知识是自己的事情，这个世界上除了父母，就是现实的娑婆去强迫令你学习新的知识。有位朋友在今年的7月份就在联络要学习VBA，到了11月还在联络我问：VBA好学吗？呜呼，如果在7月份开始能静下心好好学习，3个月时间应该有小成了。或许这位朋友真的没有时间吧。