對(duì)于初學(xué)者來(lái)說(shuō)，多掌握一些VBA例行語(yǔ)句，對(duì)自己的代碼水平提高會(huì)有很大的幫助，視野開(kāi)拓了，才不會(huì)拘泥于一處。給很多朋友的建議中，我總是說(shuō)，在學(xué)習(xí)VBA代碼解決方案的時(shí)候，要學(xué)習(xí)數(shù)組與字典的應(yīng)用，這樣才不會(huì)讓自己的思路故步自封，比如用代碼排重是非常困難的，但是采用了數(shù)組會(huì)讓你豁然開(kāi)朗，而用了字典，真的讓你如沐晨風(fēng)。

331 ActiveCell.Value = Month(Date) 在當(dāng)前單元格中輸入今天所在的月份數(shù)

332 ActiveCell.Value = Day(Date) 在當(dāng)前單元格中輸入今天的日期數(shù)

333 ActiveCell.Value = MonthName(1) 在當(dāng)前單元格中顯示月份的名稱,本句為顯示'一月'

334 ActiveCell.Value = Hour(Time) 在當(dāng)前單元格中顯示現(xiàn)在時(shí)間的小時(shí)數(shù)

335 ActiveCell.Value = Minute(Time) 在當(dāng)前單元格中顯示現(xiàn)在時(shí)間的分鐘數(shù)

336 ActiveCell.Value = Second(Time) '在當(dāng)前單元格中顯示現(xiàn)在時(shí)間的秒數(shù)

337 ActiveSheet.Shapes(1).Delete 刪除當(dāng)前工作表中的第一個(gè)形狀

338 ActiveSheet.Shapes.Count 獲取當(dāng)前工作表中形狀的數(shù)量

339 ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText 改變當(dāng)前工作表中第一個(gè)藝術(shù)字的方向

340 ActiveSheet.Shapes(1).TextEffect.FontItalic = True將當(dāng)前工作表中第一個(gè)藝術(shù)字的字體設(shè)置為斜體

341 ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, '三峽', _

'Arial Black', 22#, msoFalse, msoFalse, 66#, 80).Select 在當(dāng)前工作表中創(chuàng)建一個(gè)名為'三峽'的藝術(shù)字并對(duì)其進(jìn)行格式設(shè)置和選中

342 ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _

EndY:=100).Select 在當(dāng)前工作表中以(10,10)為起點(diǎn)(250,100)為終點(diǎn)畫一條直線并選中

343 ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _

Left:=70, Top:=40, Width:=130, Height:=72).Select 在當(dāng)前工作表中畫一個(gè)左上角在(70,40),寬為130高為72的三角形并選中

344 ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _

Left:=70, Top:=40, Width:=130, Height:=72).Select 在當(dāng)前工作表中畫一個(gè)以點(diǎn)(70,40)為起點(diǎn),寬130高72的矩形并選中

345 ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _

Left:=70, Top:=40, Width:=130, Height:=72).Select在當(dāng)前工作表中畫一個(gè)左上角在(70,40),寬為130高為72的橢圓

346 ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) 將當(dāng)前工作表中第一個(gè)形狀的線條顏色變?yōu)樗{(lán)色

347 ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) 將當(dāng)前工作表中第2個(gè)形狀的前景色設(shè)置為紅色

348 ActiveSheet.Shapes(1).Rotation = 20 將當(dāng)前工作表中的第1個(gè)形狀旋轉(zhuǎn)20度

349 Selection.ShapeRange.Flip msoFlipHorizontal 將當(dāng)前選中的形狀水平翻轉(zhuǎn)

350 Selection.ShapeRange.Flip msoFlipVertical 將當(dāng)前選中的形狀垂直翻轉(zhuǎn)

351 Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1將所選取的形狀設(shè)置為第1種立體樣式

352 ActiveSheet.Shapes(1).ThreeD.Depth = 20將當(dāng)前工作表中第一個(gè)立體形狀的深度設(shè)置為20

353 ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) 將當(dāng)前工作表中第1個(gè)立體形狀的進(jìn)深部分的顏色設(shè)為藍(lán)色

354 ActiveSheet.Shapes(1).ThreeD.RotationX = 60將當(dāng)前工作表中的第1個(gè)立體形狀沿X軸旋轉(zhuǎn)60度

355 ActiveSheet.Shapes(1).ThreeD.RotationY = 60 將當(dāng)前工作表中的第1個(gè)立體形狀沿Y軸旋轉(zhuǎn)60度

356 Selection.ShapeRange.ThreeD.Visible = msoFalse 將所選擇的立體形狀轉(zhuǎn)換為平面形狀

357 Selection.ShapeRange.ConnectorFormat.BeginDisconnect 在形狀中讓指定的連接符起點(diǎn)脫離原來(lái)所連接的形狀

358 ActiveSheet.Shapes(1).PickUp 復(fù)制當(dāng)前工作表中形狀1的格式

359 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30).TextFrame.Characters.Text = 'fanjy.blog.excelhome.net' 在工作簿中新建一個(gè)文本框并輸入內(nèi)容

360 ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200).TextFrame.Characters.Text = 'fanjy.blog.excelhome.net' 在當(dāng)前工作表中建立一個(gè)水平文本框并輸入內(nèi)容。

任何時(shí)候，學(xué)習(xí)有用的知識(shí)是自己的事情，這個(gè)世界上除了父母，就是現(xiàn)實(shí)的娑婆去強(qiáng)迫令你學(xué)習(xí)新的知識(shí)。有位朋友在今年的7月份就在聯(lián)絡(luò)要學(xué)習(xí)VBA，到了11月還在聯(lián)絡(luò)我問(wèn)：VBA好學(xué)嗎？嗚呼，如果在7月份開(kāi)始能靜下心好好學(xué)習(xí)，3個(gè)月時(shí)間應(yīng)該有小成了?；蛟S這位朋友真的沒(méi)有時(shí)間吧。