{"id":81,"date":"2020-11-19T09:56:24","date_gmt":"2020-11-19T01:56:24","guid":{"rendered":"http:\/\/www.shiyest.cn\/?p=81"},"modified":"2020-12-17T11:17:42","modified_gmt":"2020-12-17T03:17:42","slug":"office-vba","status":"publish","type":"post","link":"https:\/\/www.shiyest.cn\/?p=81","title":{"rendered":"Office VBA"},"content":{"rendered":"<h1>1.\u5e38\u7528\u5b8f<\/h1>\n<p>Sub \u5de5\u4f5c\u7c3f\u5408\u5e76()<br \/>\nFor Each st In Worksheets<br \/>\nIf st.Name &lt;&gt; ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)<br \/>\nNext<br \/>\nEnd Sub<\/p>\n<p>Sub \u6e05\u9664\u5355\u5143\u683c()<br \/>\nRows(&quot;1:65536&quot;).Clear<br \/>\nEnd Sub<\/p>\n<p>Sub \u6e05\u9664\u6570\u636e\u6709\u6548\u6027()<br \/>\nCells.Validation.Delete<br \/>\nEnd Sub<\/p>\n<p>Sub \u6e05\u7a7a0\u503c()<br \/>\nFor Each sh In Sheets<br \/>\nsh.UsedRange.Replace 0, Null, xlWhole<br \/>\nNext<br \/>\nMsgBox &quot;\u6e05\u9664\u5b8c\u6bd5&quot;, 0, &quot;\u6211\u7684\u4e13\u5c5e\u7a97\u53e3&quot;<br \/>\nEnd Sub<\/p>\n<h1>2.\u5e38\u7528\u5b8f\u51fd\u6570\u7ec4\u5408<\/h1>\n<h2>\u5b9a\u5236\u6a21\u5757\u884c\u4e3a<\/h2>\n<p>(1) Option Explicit '\u5f3a\u5236\u5bf9\u6a21\u5757\u5185\u6240\u6709\u53d8\u91cf\u8fdb\u884c\u58f0\u660e<br \/>\nOption Private Module '\u6807\u8bb0\u6a21\u5757\u4e3a\u79c1\u6709\uff0c\u4ec5\u5bf9\u540c\u4e00\u5de5\u7a0b\u4e2d\u5176\u5b83\u6a21\u5757\u6709\u7528\uff0c\u5728\u5b8f\u5bf9\u8bdd\u6846\u4e2d\u4e0d\u663e\u793a<br \/>\nOption Compare Text '\u5b57\u7b26\u4e32\u4e0d\u533a\u5206\u5927\u5c0f\u5199<br \/>\nOption Base 1 '\u6307\u5b9a\u6570\u7ec4\u7684\u7b2c\u4e00\u4e2a\u4e0b\u6807\u4e3a1<br \/>\n(2) On Error Resume Next '\u5ffd\u7565\u9519\u8bef\u7ee7\u7eed\u6267\u884cVBA\u4ee3\u7801,\u907f\u514d\u51fa\u73b0\u9519\u8bef\u6d88\u606f<br \/>\n(3) On Error GoTo ErrorHandler '\u5f53\u9519\u8bef\u53d1\u751f\u65f6\u8df3\u8f6c\u5230\u8fc7\u7a0b\u4e2d\u7684\u67d0\u4e2a\u4f4d\u7f6e<br \/>\n(4) On Error GoTo 0 '\u6062\u590d\u6b63\u5e38\u7684\u9519\u8bef\u63d0\u793a<br \/>\n(5) Application.DisplayAlerts=False '\u5728\u7a0b\u5e8f\u6267\u884c\u8fc7\u7a0b\u4e2d\u4f7f\u51fa\u73b0\u7684\u8b66\u544a\u6846\u4e0d\u663e\u793a<br \/>\n(6) Application.ScreenUpdating=False '\u5173\u95ed\u5c4f\u5e55\u5237\u65b0 Application.ScreenUpdating=True '\u6253\u5f00\u5c4f\u5e55\u5237\u65b0<br \/>\n(7) Application.Enable.CancelKey=xlDisabled '\u7981\u7528Ctrl+Break\u4e2d\u6b62\u5b8f\u8fd0\u884c\u7684\u529f\u80fd<\/p>\n<h2>\u5de5\u4f5c\u7c3f<\/h2>\n<p>(8) Workbooks.Add() '\u521b\u5efa\u4e00\u4e2a\u65b0\u7684\u5de5\u4f5c\u7c3f<br \/>\n(9) Workbooks(\u201cbook1.xls\u201d).Activate '\u6fc0\u6d3b\u540d\u4e3abook1\u7684\u5de5\u4f5c\u7c3f<br \/>\n(10) ThisWorkbook.Save '\u4fdd\u5b58\u5de5\u4f5c\u7c3f<br \/>\n(11) ThisWorkbook.close '\u5173\u95ed\u5f53\u524d\u5de5\u4f5c\u7c3f<br \/>\n(12) ActiveWorkbook.Sheets.Count '\u83b7\u53d6\u6d3b\u52a8\u5de5\u4f5c\u8584\u4e2d\u5de5\u4f5c\u8868\u6570<br \/>\n(13) ActiveWorkbook.name '\u8fd4\u56de\u6d3b\u52a8\u5de5\u4f5c\u8584\u7684\u540d\u79f0<br \/>\n(14) ThisWorkbook.Name '\u8fd4\u56de\u5f53\u524d\u5de5\u4f5c\u7c3f\u540d\u79f0<br \/>\nThisWorkbook.FullName '\u8fd4\u56de\u5f53\u524d\u5de5\u4f5c\u7c3f\u8def\u5f84\u548c\u540d\u79f0<br \/>\n(15) ActiveWindow.EnableResize=False '\u7981\u6b62\u8c03\u6574\u6d3b\u52a8\u5de5\u4f5c\u7c3f\u7684\u5927\u5c0f<br \/>\n(16) Application.Window.Arrange xlArrangeStyleTiled '\u5c06\u5de5\u4f5c\u7c3f\u4ee5\u5e73\u94fa\u65b9\u5f0f\u6392\u5217<br \/>\n(17) ActiveWorkbook.WindowState=xlMaximized '\u5c06\u5f53\u524d\u5de5\u4f5c\u7c3f\u6700\u5927\u5316<\/p>\n<h2>\u5de5\u4f5c\u8868<\/h2>\n<p>(18) ActiveSheet.UsedRange.Rows.Count '\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u5df2\u4f7f\u7528\u7684\u884c\u6570<br \/>\n(19) Rows.Count '\u83b7\u53d6\u5de5\u4f5c\u8868\u7684\u884c\u6570(\u6ce8\uff1a\u8003\u8651\u5411\u524d\u517c\u5bb9\u6027)<br \/>\n(20) Sheets(Sheet1).Name= \u201cSum\u201d '\u5c06Sheet1\u547d\u540d\u4e3aSum<br \/>\n(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '\u6dfb\u52a0\u4e00\u4e2a\u65b0\u5de5\u4f5c\u8868\u5728\u7b2c\u4e00\u5de5\u4f5c\u8868\u524d<br \/>\n(22) ActiveSheet.Move After:=ActiveWorkbook. _Sheets(ActiveWorkbook.Sheets.Count) '\u5c06\u5f53\u524d\u5de5\u4f5c\u8868\u79fb\u81f3\u5de5\u4f5c\u8868\u7684\u6700\u540e<br \/>\n(23) Worksheets(Array(\u201csheet1\u201d,\u201dsheet2\u201d)).Select '\u540c\u65f6\u9009\u62e9\u5de5\u4f5c\u88681\u548c\u5de5\u4f5c\u88682<br \/>\n(24) Sheets(\u201csheet1\u201d).Delete\u6216 Sheets(1).Delete '\u5220\u9664\u5de5\u4f5c\u88681<br \/>\n(25) ActiveWorkbook.Sheets(i).Name '\u83b7\u53d6\u5de5\u4f5c\u8868i\u7684\u540d\u79f0<br \/>\n(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '\u5207\u6362\u5de5\u4f5c\u8868\u4e2d\u7684\u7f51\u683c\u7ebf\u663e\u793a\uff0c\u8fd9\u79cd\u65b9\u6cd5\u4e5f\u53ef\u4ee5\u7528\u5728\u5176\u5b83\u65b9\u9762\u8fdb\u884c\u76f8\u4e92\u5207\u6362\uff0c\u5373\u76f8\u5f53\u4e8e\u5f00\u5173\u6309\u94ae<br \/>\n(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings '\u5207\u6362\u5de5\u4f5c\u8868\u4e2d\u7684\u884c\u5217\u8fb9\u6846\u663e\u793a<br \/>\n(28) ActiveSheet.UsedRange.FormatConditions.Delete '\u5220\u9664\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u6240\u6709\u7684\u6761\u4ef6\u683c\u5f0f<br \/>\n(29) Cells.Hyperlinks.Delete '\u53d6\u6d88\u5f53\u524d\u5de5\u4f5c\u8868\u6240\u6709\u8d85\u94fe\u63a5<br \/>\n(30) ActiveSheet.PageSetup.Orientation=xlLandscape\u6216ActiveSheet.PageSetup.Orientation=2 '\u5c06\u9875\u9762\u8bbe\u7f6e\u66f4\u6539\u4e3a\u6a2a\u5411<br \/>\n(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName '\u5728\u9875\u9762\u8bbe\u7f6e\u7684\u8868\u5c3e\u4e2d\u8f93\u5165\u6587\u4ef6\u8def\u5f84<br \/>\nActiveSheet.PageSetup.LeftFooter=Application.UserName '\u5c06\u7528\u6237\u540d\u653e\u7f6e\u5728\u6d3b\u52a8\u5de5\u4f5c\u8868\u7684\u9875\u811a<\/p>\n<h2>\u5355\u5143\u683c\/\u5355\u5143\u683c\u533a\u57df<\/h2>\n<p>(32) ActiveCell.CurrentRegion.Select\u6216Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select'\u9009\u62e9\u5f53\u524d\u6d3b\u52a8\u5355\u5143\u683c\u6240\u5305\u542b\u7684\u8303\u56f4\uff0c\u4e0a\u4e0b\u5de6\u53f3\u65e0\u7a7a\u884c<br \/>\n(33) Cells.Select '\u9009\u5b9a\u5f53\u524d\u5de5\u4f5c\u8868\u7684\u6240\u6709\u5355\u5143\u683c<br \/>\n(34) Range(\u201cA1\u201d).ClearContents '\u6e05\u9664\u6d3b\u52a8\u5de5\u4f5c\u8868\u4e0a\u5355\u5143\u683cA1\u4e2d\u7684\u5185\u5bb9Selection.ClearContents '\u6e05\u9664\u9009\u5b9a\u533a\u57df\u5185\u5bb9<br \/>\nRange(\u201cA1:D4\u201d).Clear '\u5f7b\u5e95\u6e05\u9664A1\u81f3D4\u5355\u5143\u683c\u533a\u57df\u7684\u5185\u5bb9\uff0c\u5305\u62ec\u683c\u5f0f<br \/>\n(35) Cells.Clear '\u6e05\u9664\u5de5\u4f5c\u8868\u4e2d\u6240\u6709\u5355\u5143\u683c\u7684\u5185\u5bb9<br \/>\n(36) ActiveCell.Offset(1,0).Select '\u6d3b\u52a8\u5355\u5143\u683c\u4e0b\u79fb\u4e00\u884c\uff0c\u540c\u7406\uff0c\u53ef\u4e0b\u79fb\u4e00\u5217<br \/>\n(37) Range(\u201cA1\u201d).Offset(ColumnOffset:=1)\u6216Range(\u201cA1\u201d).Offset(,1) '\u504f\u79fb\u4e00\u5217<br \/>\nRange(\u201cA1\u201d).Offset(Rowoffset:=-1)\u6216Range(\u201cA1\u201d).Offset(-1) '\u5411\u4e0a\u504f\u79fb\u4e00\u884c<br \/>\n(38) Range(\u201cA1\u201d).Copy Range(\u201cB1\u201d) '\u590d\u5236\u5355\u5143\u683cA1\uff0c\u7c98\u8d34\u5230\u5355\u5143\u683cB1\u4e2d<br \/>\nRange(\u201cA1:D8\u201d).Copy Range(\u201cF1\u201d) '\u5c06\u5355\u5143\u683c\u533a\u57df\u590d\u5236\u5230\u5355\u5143\u683cF1\u5f00\u59cb\u7684\u533a\u57df\u4e2d<br \/>\nRange(\u201cA1:D8\u201d).Cut Range(\u201cF1\u201d) '\u526a\u5207\u5355\u5143\u683c\u533a\u57dfA1\u81f3D8\uff0c\u590d\u5236\u5230\u5355\u5143\u683cF1\u5f00\u59cb\u7684\u533a\u57df\u4e2d<br \/>\nRange(\u201cA1\u201d).CurrentRegion.Copy Sheets(\u201cSheet2\u201d).Range(\u201cA1\u201d) '\u590d\u5236\u5305\u542bA1\u7684\u5355\u5143\u683c\u533a\u57df\u5230\u5de5\u4f5c\u88682\u4e2d\u4ee5A1\u8d77\u59cb\u7684\u5355\u5143\u683c\u533a\u57df\u4e2d<br \/>\n\u6ce8\uff1aCurrentRegion\u5c5e\u6027\u7b49\u4ef7\u4e8e\u5b9a\u4f4d\u547d\u4ee4\uff0c\u7531\u4e00\u4e2a\u77e9\u5f62\u5355\u5143\u683c\u5757\u7ec4\u6210\uff0c\u5468\u56f4\u662f\u4e00\u4e2a\u6216\u591a\u4e2a\u7a7a\u884c\u6216\u5217<br \/>\n(39) ActiveWindow.RangeSelection.Value=XX '\u5c06\u503cXX\u8f93\u5165\u5230\u6240\u9009\u5355\u5143\u683c\u533a\u57df\u4e2d<br \/>\n(40) ActiveWindow.RangeSelection.Count '\u6d3b\u52a8\u7a97\u53e3\u4e2d\u9009\u62e9\u7684\u5355\u5143\u683c\u6570<br \/>\n(41) Selection.Count '\u5f53\u524d\u9009\u4e2d\u533a\u57df\u7684\u5355\u5143\u683c\u6570<br \/>\n(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,\u201d\u201d) '\u8fd4\u56de\u5355\u5143\u683c\u4e2d\u8d85\u7ea7\u94fe\u63a5\u7684\u5730\u5740\u5e76\u8d4b\u503c<br \/>\n(43) TextColor=Range(\u201cA1\u201d).Font.ColorIndex '\u68c0\u67e5\u5355\u5143\u683cA1\u7684\u6587\u672c\u989c\u8272\u5e76\u8fd4\u56de\u989c\u8272\u7d22\u5f15<br \/>\nRange(\u201cA1\u201d).Interior.ColorIndex '\u83b7\u53d6\u5355\u5143\u683cA1\u80cc\u666f\u8272<br \/>\nActiveCell.Row\u8fd4\u56de\u5f53\u524d\u884c\u6570<br \/>\nActiveCell.Column\u8fd4\u56de\u5f53\u524d\u5217\u6570<br \/>\n(44) cells.count '\u8fd4\u56de\u5f53\u524d\u5de5\u4f5c\u8868\u7684\u5355\u5143\u683c\u6570<br \/>\n(45) Selection.Range(\u201cE4\u201d).Select '\u6fc0\u6d3b\u5f53\u524d\u6d3b\u52a8\u5355\u5143\u683c\u4e0b\u65b93\u884c\uff0c\u5411\u53f34\u5217\u7684\u5355\u5143\u683c<br \/>\n(46) Cells.Item(5,\u201dC\u201d) '\u5f15\u5355\u5143\u683cC5<br \/>\nCells.Item(5,3) '\u5f15\u5355\u5143\u683cC5<br \/>\n(47) Range(\u201cA1\u201d).Offset(RowOffset:=4,ColumnOffset:=5)<br \/>\n\u6216 Range(\u201cA1\u201d).Offset(4,5) '\u6307\u5b9a\u5355\u5143\u683cF5<br \/>\n(48) Range(\u201cB3\u201d).Resize(RowSize:=11,ColumnSize:=3)<br \/>\nRnage(\u201cB3\u201d).Resize(11,3) '\u521b\u5efaB3\uff1aD13\u533a\u57df<br \/>\n(49) Range(\u201cData\u201d).Resize(,2) '\u5c06Data\u533a\u57df\u6269\u51452\u5217<br \/>\n(50) Union(Range(\u201cData1\u201d),Range(\u201cData2\u201d)) '\u5c06Data1\u548cData2\u533a\u57df\u8fde\u63a5<br \/>\n(51) Intersect(Range(\u201cData1\u201d),Range(\u201cData2\u201d)) '\u8fd4\u56deData1\u548cData2\u533a\u57df\u7684\u4ea4\u53c9\u533a\u57df<br \/>\n(52) Range(\u201cData\u201d).Count '\u5355\u5143\u683c\u533a\u57dfData\u4e2d\u7684\u5355\u5143\u683c\u6570<br \/>\nRange(\u201cData\u201d). Columns.Count '\u5355\u5143\u683c\u533a\u57dfData\u4e2d\u7684\u5217\u6570<br \/>\nRange(\u201cData\u201d). Rows.Count '\u5355\u5143\u683c\u533a\u57dfData\u4e2d\u7684\u884c\u6570<br \/>\n(53) Selection.Columns.Count '\u5f53\u524d\u9009\u4e2d\u7684\u5355\u5143\u683c\u533a\u57df\u4e2d\u7684\u5217\u6570<br \/>\nSelection.Rows.Count '\u5f53\u524d\u9009\u4e2d\u7684\u5355\u5143\u683c\u533a\u57df\u4e2d\u7684\u884c\u6570<br \/>\n(54) Selection.Areas.Count '\u9009\u4e2d\u7684\u5355\u5143\u683c\u533a\u57df\u6240\u5305\u542b\u7684\u533a\u57df\u6570<br \/>\n(55) ActiveSheet.UsedRange.Row '\u83b7\u53d6\u5355\u5143\u683c\u533a\u57df\u4e2d\u4f7f\u7528\u7684\u7b2c\u4e00\u884c\u7684\u884c\u53f7<br \/>\n(56) Rng.Column '\u83b7\u53d6\u5355\u5143\u683c\u533a\u57dfRng\u5de6\u4e0a\u89d2\u5355\u5143\u683c\u6240\u5728\u5217\u7f16\u53f7<br \/>\n(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) '\u5728\u6d3b\u52a8\u5de5\u4f5c\u8868\u4e2d\u8fd4\u56de\u6240\u6709\u7b26\u5408\u6761\u4ef6\u683c\u5f0f\u8bbe\u7f6e\u7684\u533a\u57df<br \/>\n(58) Range(\u201cA1\u201d).AutoFilter Field:=3,VisibleDropDown:=False '\u5173\u95ed\u7531\u4e8e\u6267\u884c\u81ea\u52a8\u7b5b\u9009\u547d\u4ee4\u4ea7\u751f\u7684\u7b2c3\u4e2a\u5b57\u6bb5\u7684\u4e0b\u62c9\u5217\u8868<\/p>\n<h2>\u540d\u79f0<\/h2>\n<p>(59) Range(\u201cA1\uff1aC3\u201d).Name=\u201ccomputer\u201d '\u547d\u540dA1\uff1aC3\u533a\u57df\u4e3acomputer<br \/>\n\u6216Range(\u201cD1\uff1aE6\u201d).Name=\u201cSheet1!book\u201d '\u547d\u540d\u5c40\u90e8\u53d8\u91cf\uff0c\u5373Sheet1\u4e0a\u533a\u57dfD1\uff1aE6\u4e3abook<br \/>\n\u6216 Names(\u201ccomputer\u201d).Name=\u201crobot\u201d '\u5c06\u533a\u57dfcomputer\u91cd\u547d\u540d\u4e3arobot<br \/>\n(60) Names(\u201cbook\u201d).Delete '\u5220\u9664\u540d\u79f0<br \/>\n(61) Names.Add Name:=\u201cContentList\u201d\uff0c_<br \/>\nRefersTo:=\u201c=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))\u201d '\u52a8\u6001\u547d\u540d\u5217<br \/>\n(62) Names.Add Name:=\u201cCompany\u201d,RefersTo:=\u201cCompanyCar\u201d '\u547d\u540d\u5b57\u7b26\u4e32CompanyCar<br \/>\n(63) Names.Add Name:=\u201cTotal\u201d,RefersTo:=123456 '\u5c06\u6570\u5b57123456\u547d\u540d\u4e3aTotal\u3002\u6ce8\u610f\u6570\u5b57\u4e0d\u80fd\u52a0\u5f15\u53f7\uff0c\u5426\u5219\u5c31\u662f\u547d\u540d\u5b57\u7b26\u4e32\u4e86\u3002<br \/>\n(64) Names.Add Name:=\u201cMyArray\u201d,RefersTo:=ArrayNum '\u5c06\u6570\u7ec4ArrayNum\u547d\u540d\u4e3aMyArray\u3002<br \/>\n(65) Names.Add Name:=\u201cProduceNum\u201d,RefersTo:=\u201c=$B$1\u201d,Visible:=False '\u5c06\u540d\u79f0\u9690\u85cf<br \/>\n(66) ActiveWorkbook.Names(\u201cCom\u201d).Name '\u8fd4\u56de\u540d\u79f0\u5b57\u7b26\u4e32<\/p>\n<h2>\u516c\u5f0f\u4e0e\u51fd\u6570<\/h2>\n<p>(67) Application.WorksheetFunction.IsNumber(\u201cA1\u201d) '\u4f7f\u7528\u5de5\u4f5c\u8868\u51fd\u6570\u68c0\u67e5A1\u5355\u5143\u683c\u4e2d\u7684\u6570\u636e\u662f\u5426\u4e3a\u6570\u5b57<br \/>\n(68) Range(\u201cA:A\u201d).Find(Application.WorksheetFunction.Max(Range(\u201cA:A\u201d))).Activate '\u6fc0\u6d3b\u5355\u5143\u683c\u533a\u57dfA\u5217\u4e2d\u6700\u5927\u503c\u7684\u5355\u5143\u683c<br \/>\n(69) Cells(8,8).FormulaArray=\u201c=SUM(R2C[-1]:R[-1]C[-1]R2C:R[-1]C)\u201d '\u5728\u5355\u5143\u683c\u4e2d\u8f93\u5165\u6570\u7ec4\u516c\u5f0f\u3002\u6ce8\u610f\u5fc5\u987b\u4f7f\u7528R1C1\u6837\u5f0f\u7684\u8868\u8fbe\u5f0f<\/p>\n<h2>\u56fe\u8868<\/h2>\n<p>(70) ActiveSheet.ChartObjects.Count '\u83b7\u53d6\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u56fe\u8868\u7684\u4e2a\u6570<br \/>\n(71) ActiveSheet.ChartObjects(\u201cChart1\u201d).Select '\u9009\u4e2d\u5f53\u524d\u5de5\u4f5c\u8868\u4e2d\u56fe\u8868Chart1<br \/>\n(72) ActiveSheet.ChartObjects(\u201cChart1\u201d).Activate<br \/>\nActiveChart.ChartArea.Select '\u9009\u4e2d\u5f53\u524d\u56fe\u8868\u533a\u57df<br \/>\n(73) WorkSheets(\u201cSheet1\u201d).ChartObjects(\u201cChart2\u201d).Chart. <em><br \/>\nChartArea.Interior.ColorIndex=2 '\u66f4\u6539\u5de5\u4f5c\u8868\u4e2d\u56fe\u8868\u7684\u56fe\u8868\u533a\u7684\u989c\u8272<br \/>\n(74) Sheets(\u201cChart2\u201d).ChartArea.Interior.ColorIndex=2 '\u66f4\u6539\u56fe\u8868\u5de5\u4f5c\u8868\u4e2d\u56fe\u8868\u533a\u7684\u989c\u8272<br \/>\n(75) Charts.Add '\u6dfb\u52a0\u65b0\u7684\u56fe\u8868\u5de5\u4f5c\u8868<br \/>\n(76) ActiveChart.SetSourceData Source:=Sheets(\u201cSheet1\u201d).Range(\u201cA1:D5\u201d), <\/em><br \/>\nPlotBy:=xlColumns '\u6307\u5b9a\u56fe\u8868\u6570\u636e\u6e90\u5e76\u6309\u5217\u6392\u5217<br \/>\n(77) ActiveChart.Location Where:=xlLocationAsNewSheet '\u65b0\u56fe\u8868\u4f5c\u4e3a\u65b0\u56fe\u8868\u5de5\u4f5c\u8868<br \/>\n(78) ActiveChart.PlotArea.Interior.ColorIndex=xlNone '\u5c06\u7ed8\u56fe\u533a\u989c\u8272\u53d8\u4e3a\u767d\u8272<br \/>\n(79) WorkSheets(\u201cSheet1\u201d).ChartObjects(1).Chart. _<br \/>\nExport FileName:=\u201cC\uff1aMyChart.gif\u201d,FilterName:=\u201cGIF\u201d '\u5c06\u56fe\u88681\u5bfc\u51fa\u5230C\u76d8\u4e0a\u5e76\u547d\u540d\u4e3aMyChart.gif<\/p>\n<h2>\u7a97\u4f53<\/h2>\n<p>(80) MsgBox \u201cHello!\u201d '\u6d88\u606f\u6846\u4e2d\u663e\u793a\u6d88\u606fHello<br \/>\n(81) Ans=MsgBox(\u201cContinue?\u201d,vbYesNo) '\u5728\u6d88\u606f\u6846\u4e2d\u70b9\u51fb\u201c\u662f\u201d\u6309\u94ae\uff0c\u5219Ans\u503c\u4e3avbYes\uff1b\u70b9\u51fb\u201c\u5426\u201d\u6309\u94ae\uff0c\u5219Ans\u503c\u4e3avbNo\u3002<br \/>\nIf MsgBox(\u201cContinue?\u201d,vbYesNo)&lt;&gt;vbYes Then Exit Sub '\u8fd4\u56de\u503c\u4e0d\u4e3a\u201c\u662f\u201d\uff0c\u5219\u9000\u51fa<br \/>\n(82) Config=vbYesNo+vbQuestion+vbDefaultButton2 '\u4f7f\u7528\u5e38\u91cf\u7684\u7ec4\u5408\uff0c\u8d4b\u503c\u7ec4Config\u53d8\u91cf\uff0c\u5e76\u8bbe\u7f6e\u7b2c\u4e8c\u4e2a\u6309\u94ae\u4e3a\u7f3a\u7701\u6309\u94ae<br \/>\n(83) MsgBox \u201cThis is the first line.\u201d &amp; vbNewLine &amp; \u201cSecond line.\u201d '\u5728\u6d88\u606f\u6846\u4e2d\u5f3a\u5236\u6362\u884c\uff0c\u53ef\u7528vbCrLf\u4ee3\u66ffvbNewLine\u3002<br \/>\n(84) MsgBox &quot;the average is :&quot;&amp;Format(Application.WorksheetFunction.Average(Selection),&quot;#,##0.00&quot;),vbInformation, &quot;selection count average&quot; &amp; Chr(13) '\u5e94\u7528\u5de5\u4f5c\u8868\u51fd\u6570\u8fd4\u56de\u6240\u9009\u533a\u57df\u7684\u5e73\u5747\u503c\u5e76\u6309\u6307\u5b9a\u683c\u5f0f\u663e\u793a<br \/>\n(85) Userform1.Show '\u663e\u793a\u7528\u6237\u7a97\u4f53<br \/>\n(86) Load Userform1 '\u52a0\u8f7d\u4e00\u4e2a\u7528\u6237\u7a97\u4f53,\u4f46\u8be5\u7a97\u4f53\u5904\u4e8e\u9690\u85cf\u72b6\u6001<br \/>\n(87) Userform1.Hide '\u9690\u85cf\u7528\u6237\u7a97\u4f53<br \/>\n(88) Unload Userform1 \u6216 Unload Me '\u5378\u8f7d\u7528\u6237\u7a97\u4f53<br \/>\n(89) (\u56fe\u50cf\u63a7\u4ef6).Picture=LoadPicture(\u201c\u56fe\u50cf\u8def\u5f84\u201d) '\u5728\u7528\u6237\u7a97\u4f53\u4e2d\u663e\u793a\u56fe\u5f62<br \/>\n(90) UserForm1.Show 0 \u6216 UserForm1.Show vbModeless '\u5c06\u7a97\u4f53\u8bbe\u7f6e\u4e3a\u65e0\u6a21\u5f0f\u72b6\u6001<br \/>\n(91) Me.Height=Int(0.88ActiveWindow.Height) '\u7a97\u4f53\u9ad8\u5ea6\u4e3a\u5f53\u524d\u6d3b\u52a8\u7a97\u53e3\u9ad8\u5ea6\u76840.88<br \/>\nMe.Width=Int(0.88ActiveWindow.Width) '\u7a97\u4f53\u5bbd\u5ea6\u4e3a\u5f53\u524d\u6d3b\u52a8\u7a97\u53e3\u9ad8\u5ea6\u76840.88\u4e8b\u4ef6<br \/>\n(92) Application.EnableEvents=False '\u7981\u7528\u6240\u6709\u4e8b\u4ef6<br \/>\nApplication.EnableEvents=True '\u542f\u7528\u6240\u6709\u4e8b\u4ef6<br \/>\n\u6ce8\uff1a\u4e0d\u9002\u7528\u4e8e\u7528\u6237\u7a97\u4f53\u63a7\u4ef6\u89e6\u53d1\u7684\u4e8b\u4ef6<\/p>\n<h2>\u5bf9\u8c61<\/h2>\n<p>(93) Set ExcelSheet = CreateObject(&quot;Excel.Sheet&quot;) '\u521b\u5efa\u4e00\u4e2aExcel\u5de5\u4f5c\u8868\u5bf9\u8c61<br \/>\nExcelSheet.Application.Visible = True '\u8bbe\u7f6e Application \u5bf9\u8c61\u4f7f Excel \u53ef\u89c1<br \/>\nExcelSheet.Application.Cells(1, 1).Value = &quot;Data&quot; '\u5728\u8868\u683c\u7684\u7b2c\u4e00\u4e2a\u5355\u5143\u4e2d\u8f93\u5165\u6587\u672c<br \/>\nExcelSheet.SaveAs &quot;C:TEST.XLS&quot; '\u5c06\u8be5\u8868\u683c\u4fdd\u5b58\u5230C:test.xls \u76ee\u5f55<br \/>\nExcelSheet.Application.Quit '\u5173\u95ed Excel<br \/>\nSet ExcelSheet = Nothing '\u91ca\u653e\u8be5\u5bf9\u8c61\u53d8\u91cf<br \/>\n(94) '\u58f0\u660e\u5e76\u521b\u5efa\u4e00\u4e2aExcel\u5bf9\u8c61\u5f15\u7528<br \/>\nDim xlApp As Excel.Application<br \/>\nDim xlBook As Excel.Workbook<br \/>\nDim xlSheet As Excel.WorkSheet<br \/>\nSet xlApp = CreateObject(&quot;Excel.Application&quot;)<br \/>\nSet xlBook = xlApp.Workbooks.Add<br \/>\nSet xlSheet = xlBook.Worksheets(1)<br \/>\n(95) '\u521b\u5efa\u5e76\u4f20\u9012\u4e00\u4e2a Excel.Application \u5bf9\u8c61\u7684\u5f15\u7528<br \/>\nCall MySub (CreateObject(&quot;Excel.Application&quot;))<br \/>\n(96) Set d = CreateObject(Scripting.Dictionary) '\u521b\u5efa\u4e00\u4e2a Dictionary \u5bf9\u8c61\u53d8\u91cf<br \/>\n(97) d.Add &quot;a&quot;, &quot;Athens&quot; '\u4e3a\u5bf9\u8c61\u53d8\u91cf\u6dfb\u52a0\u5173\u952e\u5b57\u548c\u6761\u76ee<\/p>\n<h2>\u5176\u4ed6<\/h2>\n<p>(98) Application.OnKey \u201c^I\u201d,\u201dmacro\u201d '\u8bbe\u7f6eCtrl+I\u952e\u4e3amacro\u8fc7\u7a0b\u7684\u5feb\u6377\u952e<br \/>\n(99) Application.CutCopyMode=False '\u9000\u51fa\u526a\u5207\/\u590d\u5236\u6a21\u5f0f<br \/>\n(100) Application.Volatile True '\u65e0\u8bba\u4f55\u65f6\u5de5\u4f5c\u8868\u4e2d\u4efb\u610f\u5355\u5143\u683c\u91cd\u65b0\u8ba1\u7b97\uff0c\u90fd\u4f1a\u5f3a\u5236\u8ba1\u7b97\u8be5\u51fd\u6570<br \/>\nApplication.Volatile False '\u53ea\u6709\u5728\u8be5\u51fd\u6570\u7684\u4e00\u4e2a\u6216\u591a\u4e2a\u53c2\u6570\u53d1\u751f\u6539\u53d8\u65f6\uff0c\u624d\u4f1a\u91cd\u65b0\u8ba1\u7b97\u8be5\u51fd<\/p>\n<h1>3.\u5e38\u7528\u5b8f\u51fd\u6570<\/h1>\n<h2>\u7b2c1.1\u4f8b ASC\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u884c\u540e\u5f97\u5230\u5b57\u7b26\u4e32\u201dExcel\u201d\u7684\u9996\u5b57\u6bcd\u548c\u201de\u201d\u7684ASCII\u503c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_01()<\/p>\n<p>Dim myNum1%, myNum2%<\/p>\n<p>myNum1 = Asc(&quot;Excel&quot;)  '\u8fd4\u56de69<\/p>\n<p>myNum2 = Asc(&quot;e&quot;)  '\u8fd4\u56de101<\/p>\n<p>[a1] = &quot;myNum1= &quot;: [b1] = myNum1<\/p>\n<p>[a2] = &quot;myNum2= &quot;: [b2] = myNum2 <\/p>\n<p>End Sub    <\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_01()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002<\/p>\n<p>2\u3001Dim myNum1%, myNum2%\uff1a\u53d8\u91cfmyNum1\u548cmyNum2\u58f0\u660e\u4e3a\u6574\u578b\u53d8\u91cf\u3002<\/p>\n<p>\u4e5f\u53ef\u4ee5\u5199\u4e3a Dim myNum1 As Integer \u3002Integer \u53d8\u91cf\u5b58\u50a8\u4e3a 16\u4f4d\uff082 \u4e2a\u5b57\u8282\uff09\u7684\u6570\u503c\u5f62\u5f0f\uff0c\u5176\u8303\u56f4\u4e3a -32,768 \u5230 32,767 \u4e4b\u95f4\u3002Integer \u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u662f\u767e\u5206\u6bd4\u7b26\u53f7 (%)\u3002<\/p>\n<p>3\u3001myNum1 = Asc(&quot;Excel&quot;)\uff1a\u628aAsc\u51fd\u6570\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfmyNum1\u3002<\/p>\n<p>Asc\u51fd\u6570\u8fd4\u56de\u4e00\u4e2a Integer\uff0c\u4ee3\u8868\u5b57\u7b26\u4e32\u4e2d\u9996\u5b57\u6bcd\u7684\u5b57\u7b26\u7684ASCII\u4ee3\u7801\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Asc(string) <\/p>\n<p>\u5fc5\u8981\u7684 string\uff08\u5b57\u7b26\u4e32\uff09 \u53c2\u6570\u53ef\u4ee5\u662f\u4efb\u4f55\u6709\u6548\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c string \u4e2d\u6ca1\u6709\u5305\u542b\u4efb\u4f55\u5b57\u7b26\uff0c\u5219\u4f1a\u4ea7\u751f\u8fd0\u884c\u65f6\u9519\u8bef\u3002<\/p>\n<p>4\u3001myNum2 = Asc(&quot;e&quot;)\uff1a\u628aAsc\u51fd\u6570\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfmyNum2\u3002\u8fd9\u91cc\u8fd4\u56de\u5c0f\u5199\u5b57\u6bcde\u7684ASCII\u4ee3\u7801101\u3002<\/p>\n<p>5\u3001[a1] = &quot;myNum1= &quot;: [b1] = myNum1\uff1a\u628a\u5b57\u7b26\u4e32\u201cmyNum1=  \u201c\u8d4b\u7ed9A1\u5355\u5143\u683c\uff0c\u628a\u53d8\u91cfmyNum1\u7684\u503c\u8d4b\u7ed9B1\u5355\u5143\u683c\u3002<\/p>\n<p>6\u3001[a2] = &quot;myNum2= &quot;: [b2] = myNum2\uff1a\u628a\u5b57\u7b26\u4e32\u201cmyNum2=  \u201c\u8d4b\u7ed9A2\u5355\u5143\u683c\uff0c\u628a\u53d8\u91cfmyNum2\u7684\u503c\u8d4b\u7ed9B2\u5355\u5143\u683c\u3002<\/p>\n<p>7\u3001End Sub\uff1a\u7a0b\u5e8f\u7684\u7ed3\u675f\u8bed\u53e5\uff0c\u548c\u201cSub\u793a\u4f8b_1_01\uff08\uff09\u201d\u76f8\u5bf9\u5e94\u3002<\/p>\n<h2>\u7b2c1.2\u4f8b Chr\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee&quot;&quot;\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Chr\u51fd\u6570\u5c06ASCII\u503c\u8f6c\u6362\u4e3a\u5bf9\u5e94\u7684\u5b57\u7b26\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_02()<\/p>\n<p>Dim myChar1$, myChar2$<\/p>\n<p>myChar1 = Chr(69)   ' \u8fd4\u56de E\u3002<\/p>\n<p>myChar2 = Chr(101)   ' \u8fd4\u56de e\u3002<\/p>\n<p>[a1] = &quot;myChar1= &quot;: [b1] = myChar1<\/p>\n<p>[a2] = &quot;myChar2= &quot;: [b2] = myChar2 <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_02()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002<\/p>\n<p>2\u3001Dim myChar1$, myChar2$\uff1a\u53d8\u91cfmyChar1\u548cmyChar2\u58f0\u660e\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\u3002<\/p>\n<p>\u4e5f\u53ef\u4ee5\u5199\u4e3a Dim myChar1 As String \u3002String  \u4e4b\u5b57\u7b26\u7801\u7684\u8303\u56f4\u662f 0 \u5230 255\u3002\u5b57\u7b26\u96c6\u7684\u524d 128 \u4e2a\u5b57\u7b26\uff080 \u5230 127\uff09\u5bf9\u5e94\u4e8e\u6807\u51c6\u7684 U.S. \u952e\u76d8\u4e0a\u7684\u5b57\u7b26\u4e0e\u7b26\u53f7\u3002\u8fd9\u524d 128 \u4e2a\u5b57\u7b26\u4e0e ASCII \u5b57\u7b26\u96c6\u4e2d\u6240\u5b9a\u4e49\u7684\u76f8\u540c\u3002\u540e 128 \u4e2a\u5b57\u7b26\uff08128 \u5230 255\uff09\u5219\u4ee3\u8868\u7279\u6b8a\u5b57\u7b26\uff0c\u4f8b\u5982\u56fd\u9645\u5b57\u7b26\uff0c\u91cd\u97f3\u7b26\u53f7\uff0c\u8d27\u5e01\u7b26\u53f7\u53ca\u5206\u6570\u3002String \u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u4e3a\u7f8e\u5143\u53f7 ($)\u3002<\/p>\n<p>3\u3001myChar1 = Chr(69)\uff1a\u628aChr(69)\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfmyChar1\u3002\u8fd9\u91cc\u8fd4\u56de\u5927\u5199\u5b57\u6bcdE\u3002<\/p>\n<p>Chr\u51fd\u6570\u6839\u636e\u5b57\u7b26\u4ee3\u7801\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Chr(charcode) <\/p>\n<p>\u5fc5\u8981\u7684 charcode\uff08\u5b57\u7b26\u4ee3\u7801\uff09 \u53c2\u6570\u662f\u7528\u6765\u8bc6\u522b\u67d0\u5b57\u7b26\u7684\u3002<\/p>\n<p>4\u3001myChar2 = Chr(101)\uff1a\u628aChr \u51fd\u6570\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfmyChar2\u3002\u8fd9\u91cc\u8fd4\u56de\u5c0f\u5199\u5b57\u6bcde\u3002<\/p>\n<p>5\u3001[a1] = &quot;myChar1= &quot;: [b1] = myChar1\uff1a\u628a\u5b57\u7b26\u4e32\u201cmyChar1=  \u201c\u8d4b\u7ed9A1\u5355\u5143\u683c\uff0c\u628a\u53d8\u91cfmyChar1\u7684\u503c\u8d4b\u7ed9B1\u5355\u5143\u683c\u3002<\/p>\n<p>6\u3001[a2] = &quot;myChar2= &quot;: [b2] = myChar2\uff1a\u628a\u5b57\u7b26\u4e32\u201cmyChar2=  \u201c\u8d4b\u7ed9A2\u5355\u5143\u683c\uff0c\u628a\u53d8\u91cfmyChar2\u7684\u503c\u8d4b\u7ed9B2\u5355\u5143\u683c\u3002<\/p>\n<p>7\u3001End Sub\uff1a\u7a0b\u5e8f\u7684\u7ed3\u675f\u8bed\u53e5\uff0c\u548c\u201cSub\u793a\u4f8b_1_02\uff08\uff09\u201d\u76f8\u5bf9\u5e94\u3002<\/p>\n<h2>\u7b2c1.3\u4f8b Choose\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Choose\u51fd\u6570\u6839\u636e\u6307\u5b9a\u6570\u5b57\u9009\u62e9\u5bf9\u5e94\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_03()<\/p>\n<pre><code class=\"prettyprint\" >Dim Num%\n\nNum=2\n\nMsgBox  Choose(Num, &quot;\u4e00\u6708&quot;, &quot;\u4e8c\u6708&quot;, &quot;\u4e09\u6708&quot;)<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_03()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_03\u3002<\/p>\n<p>2\u3001Dim Num% \uff1a\u53d8\u91cfNum\u58f0\u660e\u4e3a\u6574\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Num=2 \uff1a\u628a2\u8d4b\u7ed9\u53d8\u91cfNum\u3002<\/p>\n<p>4\u3001MsgBox  Choose(Num, &quot;\u4e00\u6708&quot;, &quot;\u4e8c\u6708&quot;, &quot;\u4e09\u6708&quot;) \uff1a<\/p>\n<p>Choose\u51fd\u6570\u4ece\u53c2\u6570\u5217\u8868\u4e2d\u9009\u62e9\u5e76\u8fd4\u56de\u4e00\u4e2a\u503c\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Choose(index, choice-1[, choice-2, ... [, choice-n]])<\/p>\n<p>Choose \u4f1a\u6839\u636e index \u7684\u503c\u6765\u8fd4\u56de\u9009\u62e9\u9879\u5217\u8868\u4e2d\u7684\u67d0\u4e2a\u503c\u3002\u5982\u679c index \u662f 1\uff0c\u5219 Choose \u4f1a\u8fd4\u56de\u5217\u8868\u4e2d\u7684\u7b2c 1 \u4e2a\u9009\u62e9\u9879\u3002\u5982\u679c index \u662f 2\uff0c\u5219\u4f1a\u8fd4\u56de\u5217\u8868\u4e2d\u7684\u7b2c 2 \u4e2a\u9009\u62e9\u9879\uff0c\u4ee5\u6b64\u7c7b\u63a8\u3002<\/p>\n<p>Index\u662f\u5fc5\u8981\u53c2\u6570\uff0c\u6570\u503c\u8868\u8fbe\u5f0f\u6216\u5b57\u6bb5\uff0c\u5b83\u7684\u8fd0\u7b97\u7ed3\u679c\u662f\u4e00\u4e2a\u6570\u503c\uff0c\u4e14\u754c\u4e8e 1 \u548c\u53ef\u9009\u62e9\u7684\u9879\u76ee\u6570\u4e4b\u95f4\u3002\u5f53 index\u5c0f\u4e8e 1 \u6216\u5927\u4e8e\u5217\u51fa\u7684\u9009\u62e9\u9879\u6570\u76ee\u65f6\uff0cChoose \u51fd\u6570\u8fd4\u56de Null\u3002\u5982\u679c index \u4e0d\u662f\u6574\u6570\uff0c\u5219\u4f1a\u5148\u56db\u820d\u4e94\u5165\u4e3a\u4e0e\u5176\u6700\u63a5\u8fd1\u7684\u6574\u6570\u3002<\/p>\n<h2>\u7b2c1.4\u4f8b Cos\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Cos\u51fd\u6570\u6839\u636e\u6307\u5b9a\u89d2\u5ea6\u7684\u4f59\u5f26\u8ba1\u7b97\u5176\u6b63\u5272\u7684\u503c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_04()<\/p>\n<pre><code class=\"prettyprint\" >Dim jiaodu, zenge\n\njiaodu = 1.3   \n\nzenge = 1 \/ Cos(jiaodu)   \n\nMsgBox  \u201c\u89d2\u5ea6\u4e3a \u201d &amp; jiaodu &amp; \u201c\u7684\u6b63\u5272\u7684\u503c\uff1d \u201d &amp; zenge<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_04()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_04\u3002<\/p>\n<p>2\u3001Dim jiaodu, zenge \uff1a\u4e24\u4e2a\u53d8\u91cf\u90fd\u88ab\u6307\u5b9a\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002\u5f53\u58f0\u660e\u5e38\u6570\u3001\u53d8\u91cf\u6216\u53c2\u6570\u65f6\uff0c\u82e5\u65e0\u6307\u5b9a\u6570\u636e\u7c7b\u578b\u5219\u4f1a\u81ea\u52a8\u7684\u6307\u5b9a\u6210 Variant\uff08\u53ef\u53d8\u578b\uff09 \u6570\u636e\u7c7b\u578b\u3002\u58f0\u660e\u6210 Variant \u6570\u636e\u7c7b\u578b\u7684\u53d8\u91cf\u53ef\u4ee5\u4e3a\u5b57\u7b26\u4e32\u3001\u65e5\u671f\u3001\u65f6\u95f4\u3001Boolean\u6216\u6570\u503c\u3002<\/p>\n<p>3\u3001jiaodu = 1.3 \uff1a\u628a\u4ee5\u201c\u5f27\u5ea6\u201d\u4e3a\u5355\u4f4d\u7684\u89d2\u5ea61.3\u8d4b\u7ed9\u53d8\u91cfjiaodu\u3002<\/p>\n<p>4\u3001zenge = 1 \/ Cos(jiaodu) \uff1a\u5229\u75281\/\u4f59\u5f26\u7b97\u5f97\u6b63\u5272\uff08sec()\uff09\u7684\u503c\uff0c\u8d4b\u7ed9\u53d8\u91cfzenge\u3002<\/p>\n<p>Cos\u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u89d2\u7684\u4f59\u5f26\u503c\u3002\u5176\u53c2\u6570\u662f\u8868\u793a\u4e00\u4e2a\u4ee5\u5f27\u5ea6\u4e3a\u5355\u4f4d\u7684\u89d2\u3002<\/p>\n<p>5\u3001MsgBox  \u201c\u89d2\u5ea6\u4e3a \u201d &amp; jiaodu &amp; \u201c\u7684\u6b63\u5272\u7684\u503c\uff1d \u201d &amp; zenge  \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793a\u7b97\u5f97\u7684\u6b63\u5272\uff08sec()\uff09\u7684\u503c\u3002<\/p>\n<h2>\u7b2c1.5\u4f8b Date\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Date\u51fd\u6570\u663e\u793a\u7cfb\u7edf\u65e5\u671f\u7684\u503c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_05()<\/p>\n<pre><code class=\"prettyprint\" >Dim myDate\n\nmyDate = Date<\/code><\/pre>\n<p>MsgBox  \u201c\u7cfb\u7edf\u65e5\u671f\u4e3a \u201d &amp; myDate<\/p>\n<p>End Sub <\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_05()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_05\u3002<\/p>\n<p>2\u3001Dim myDate \uff1a\u53d8\u91cfmyDate\u88ab\u6307\u5b9a\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001myDate = Date \uff1a\u628a\u7cfb\u7edf\u65e5\u671f\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfmyDate\u3002<\/p>\n<p>Date\u51fd\u6570\u8fd4\u56de\u7cfb\u7edf\u5f53\u524d\u7684\u65e5\u671f\u3002<\/p>\n<p>4\u3001MsgBox  \u201c\u7cfb\u7edf\u65e5\u671f\u4e3a \u201d &amp; myDate \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793a\u7cfb\u7edf\u65e5\u671f\u7684\u503c\u3002<\/p>\n<h2>\u7b2c1.6\u4f8b DateAdd\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528DateAdd\u51fd\u6570\u663e\u793a\u8fd4\u56de\u4e00\u5b9a\u95f4\u9694\u540e\u7684\u65e5\u671f\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_06()<\/p>\n<pre><code class=\"prettyprint\" >Dim dyrq As Date   \n\nDim jglx As String\n\nDim n As Integer\n\nDim Msg\n\njglx = &quot;m&quot;   \n\ndyrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f&quot;)\n\nn = InputBox(&quot;\u8f93\u5165\u589e\u52a0\u6708\u7684\u6570\u76ee\uff1a&quot;)\n\nMsg = &quot;\u65b0\u65e5\u671f: &quot; &amp; DateAdd(jglx, n, dyrq)\n\nMsgBox Msg<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_06()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_06\u3002<\/p>\n<p>2\u3001Dim dyrq As Date \uff1a\u53d8\u91cfdyrq\u58f0\u660e\u4e3a\u65e5\u671f\u5bf9\u8c61\u578b\u6570\u636e\u7c7b\u578b\u3002\u5176\u4f59\u51e0\u4e2a\u53d8\u91cf\u5206\u522b\u662f\u5b57\u7b26\u4e32\u578b\u3001\u6574\u578b\u548c\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001jglx = &quot;m&quot; \uff1a\u7528\u5b57\u7b26m\u6765\u6307\u5b9a\u4ee5\u201c\u6708\u4efd\u201d\u4f5c\u4e3a\u95f4\u9694\u3002<\/p>\n<p>4\u3001dyrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f&quot;) \uff1a\u7528InputBox\u51fd\u6570\u6765\u8ba9\u7528\u6237\u8f93\u5165\u4e00\u4e2a\u65e5\u671f\uff0c\u5e76\u628a\u7528\u6237\u8f93\u5165\u7684\u65e5\u671f\u8d4b\u7ed9\u53d8\u91cfdyrq\u3002<\/p>\n<p>5\u3001n = InputBox(&quot;\u8f93\u5165\u589e\u52a0\u6708\u7684\u6570\u76ee\uff1a&quot;) \uff1a\u7528InputBox\u51fd\u6570\u6765\u8ba9\u7528\u6237\u8f93\u5165\u95f4\u9694\u6708\u7684\u6570\u76ee\uff0c\u5e76\u628a\u7528\u6237\u8f93\u5165\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfn\u3002<\/p>\n<p>6\u3001Msg = &quot;\u65b0\u65e5\u671f: &quot; &amp; DateAdd(jglx, n, dyrq) \uff1a\u7528DateAdd\u51fd\u6570\u8ba1\u7b97\u5f97\u5230\u7684\u65b0\u7684\u65e5\u671f\u548c\u5b57\u7b26\u4e32\u201c\u65b0\u65e5\u671f\uff1a \u201d\u8fde\u63a5\u8d77\u6765\u8d4b\u7ed9\u53d8\u91cfMsg\u3002<\/p>\n<p>DateAdd\u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u65e5\u671f\uff0c\u8fd9\u4e00\u65e5\u671f\u52a0\u4e0a\u4e86\u4e00\u4e2a\u65f6\u95f4\u95f4\u9694\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>DateAdd(interval, number, date) <\/p>\n<p>DateAdd \u51fd\u6570\u8bed\u6cd5\u4e2d\u6709\u4e0b\u5217\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>interval \u5fc5\u8981\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u662f\u6240\u8981\u52a0\u4e0a\u53bb\u7684\u65f6\u95f4\u95f4\u9694\u3002\u5b83\u5177\u6709\u597d\u591a\u8bbe\u5b9a\u503c\uff0c\u6bd4\u5982\u201dm\u201d\u4e3a\u6708\uff1b\u201dd\u201d\u4e3a\u65e5\uff1b\u201dyyyy\u201d\u4e3a\u5e74\u7b49\u7b49\u3002<\/p>\n<p>number   \u5fc5\u8981\u3002\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u662f\u8981\u52a0\u4e0a\u7684\u65f6\u95f4\u95f4\u9694\u7684\u6570\u76ee\u3002\u5176\u6570\u503c\u53ef\u4ee5\u4e3a\u6b63\u6570\uff08\u5f97\u5230\u672a\u6765\u7684\u65e5\u671f\uff09\uff0c\u4e5f\u53ef\u4ee5\u4e3a\u8d1f\u6570\uff08\u5f97\u5230\u8fc7\u53bb\u7684\u65e5\u671f\uff09\u3002<\/p>\n<p>\u3000\u3000date  \u5fc5\u8981\u3002\u8868\u793a\u65e5\u671f\u7684\u6587\u5b57\u3002<\/p>\n<p>7\u3001MsgBox  Msg \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aMsg\u7684\u503c\u3002<\/p>\n<h2>\u7b2c1.7\u4f8b DateDiff\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528DateDiff\u51fd\u6570\u8fd4\u56de\u67d0\u4e2a\u6307\u5b9a\u65e5\u671f\u8ddd\u79bb\u4eca\u5929\u7684\u5929\u6570\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_07()<\/p>\n<pre><code class=\"prettyprint\" >Dim zdrq As Date   \n\nDim Msg\n\nzdrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f\uff1a&quot;)\n\nMsg = &quot;\u79bb\u5f00\u4eca\u5929\u7684\u5929\u6570: &quot; &amp; DateDiff(&quot;d&quot;, Now, zdrq)\n\nMsgBox Msg<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_07()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_07\u3002<\/p>\n<p>2\u3001Dim zdrq As Date \uff1a\u53d8\u91cfzdrq\u58f0\u660e\u4e3a\u65e5\u671f\u5bf9\u8c61\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001zdrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f&quot;) \uff1a\u7528InputBox\u51fd\u6570\u6765\u8ba9\u7528\u6237\u8f93\u5165\u4e00\u4e2a\u65e5\u671f\uff0c\u5e76\u628a\u7528\u6237\u8f93\u5165\u7684\u65e5\u671f\u8d4b\u7ed9\u53d8\u91cfzdrq\u3002<\/p>\n<p>4\u3001Msg = &quot;\u79bb\u5f00\u4eca\u5929\u7684\u5929\u6570: &quot; &amp; DateDiff(&quot;d&quot;, Now, zdrq) \uff1a\u7528DateDiff\u51fd\u6570\u8ba1\u7b97\u5f97\u5230\u7684\u7ed3\u679c\u548c\u5b57\u7b26\u4e32\u201c\u79bb\u5f00\u4eca\u5929\u7684\u5929\u6570\uff1a \u201d\u8fde\u63a5\u8d77\u6765\u8d4b\u7ed9\u53d8\u91cfMsg\u3002<\/p>\n<p>5\u3001MsgBox  Msg \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aMsg\u7684\u503c\u3002<\/p>\n<p>DateDiff \u51fd\u6570<\/p>\n<p>\u53ef\u7528\u6765\u51b3\u5b9a\u4e24\u4e2a\u65e5\u671f\u4e4b\u95f4\u6240\u6307\u5b9a\u7684\u65f6\u95f4\u95f4\u9694\u6570\u76ee\u3002\u4f8b\u5982\uff0c\u53ef\u4ee5\u4f7f\u7528 DateDiff \u6765\u8ba1\u7b97\u4e24\u4e2a\u65e5\u671f\u4e4b\u95f4\u76f8\u9694\u51e0\u65e5\uff0c\u6216\u8ba1\u7b97\u4ece\u4eca\u5929\u8d77\u5230\u5e74\u5e95\u8fd8\u6709\u591a\u5c11\u4e2a\u661f\u671f\u3002<\/p>\n<p>\u3000\u3000<\/p>\n<p>DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) <\/p>\n<p>DateDiff \u51fd\u6570\u8bed\u6cd5\u4e2d\u6709\u4e0b\u5217\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>interval   \u5fc5\u8981\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u662f\u6240\u8981\u52a0\u4e0a\u53bb\u7684\u65f6\u95f4\u95f4\u9694\u3002\u5b83\u5177\u6709\u597d\u591a\u8bbe\u5b9a\u503c\uff0c\u4e0eDateAdd\u51fd\u6570\u76f8\u540c\uff1b\u6b64\u4f8b\u4e2d\u7684&quot;d&quot;\uff0c\u8868\u793a\u5929\u6570\uff1b<\/p>\n<p>Date1\uff0cdate2    \u5fc5\u8981\uff1b\u8ba1\u7b97\u4e2d\u8981\u7528\u5230\u7684\u4e24\u4e2a\u65e5\u671f\u3002<\/p>\n<p>Firstdayofweek \u53ef\u9009\u3002\u6307\u5b9a\u4e00\u4e2a\u661f\u671f\u7684\u7b2c\u4e00\u5929\u7684\u5e38\u6570\u3002\u5982\u679c\u672a\u4e88\u6307\u5b9a\uff0c\u5219\u4ee5\u661f\u671f\u65e5\u4e3a\u7b2c\u4e00\u5929\u3002<\/p>\n<p>firstweekofyear    \u53ef\u9009\u3002\u6307\u5b9a\u4e00\u5e74\u7684\u7b2c\u4e00\u5468\u7684\u5e38\u6570\u3002\u5982\u679c\u672a\u4e88\u6307\u5b9a\uff0c\u5219\u4ee5\u5305\u542b 1 \u6708 1 \u65e5\u7684\u661f\u671f\u4e3a\u7b2c\u4e00\u5468\u3002<\/p>\n<h2>\u7b2c1.8\u4f8b DatePart\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528DatePart\u51fd\u6570\u8fd4\u56de\u67d0\u4e2a\u6307\u5b9a\u65e5\u671f\u662f\u5728\u4e00\u5e74\u7684\u54ea\u4e00\u4e2a\u5b63\u5ea6\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_08()<\/p>\n<pre><code class=\"prettyprint\" >Dim zdrq As Date   \n\nDim Msg   \n\nzdrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f:&quot;)\n\nMsg = &quot;\u5b63\u5ea6: &quot; &amp; DatePart(&quot;q&quot;, zdrq)\n\nMsgBox Msg<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_08()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_08\u3002<\/p>\n<p>2\u3001Dim zdrq As Date \uff1a\u53d8\u91cfzdrq\u58f0\u660e\u4e3a\u65e5\u671f\u5bf9\u8c61\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001zdrq = InputBox(&quot;\u8bf7\u8f93\u5165\u4e00\u4e2a\u65e5\u671f&quot;) \uff1a\u7528InputBox\u51fd\u6570\u6765\u8ba9\u7528\u6237\u8f93\u5165\u4e00\u4e2a\u65e5\u671f\uff0c\u5e76\u628a\u7528\u6237\u8f93\u5165\u7684\u65e5\u671f\u8d4b\u7ed9\u53d8\u91cfzdrq\u3002<\/p>\n<p>4\u3001Msg = &quot;\u5b63\u5ea6: &quot; &amp; DatePart(&quot;q&quot;, zdrq) \uff1a\u7528DatePart\u51fd\u6570\u8ba1\u7b97\u5f97\u5230\u7684\u7ed3\u679c\u548c\u5b57\u7b26\u4e32\u201c\u5b63\u5ea6\uff1a \u201d\u8fde\u63a5\u8d77\u6765\u8d4b\u7ed9\u53d8\u91cfMsg\u3002<\/p>\n<p>5\u3001MsgBox  Msg \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aMsg\u7684\u503c\u3002<\/p>\n<p>DatePart \u51fd\u6570<\/p>\n<p>DatePart(interval, date, [, firstdayofweek[, firstweekofyear]]) <\/p>\n<p>\u8bed\u6cd5\u4e2d\u6709\u4e0b\u5217\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>interval   \u5fc5\u8981\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u662f\u6240\u8981\u52a0\u4e0a\u53bb\u7684\u65f6\u95f4\u95f4\u9694\u3002\u5b83\u5177\u6709\u597d\u591a\u8bbe\u5b9a\u503c\uff0c\u4e0eDateAdd\u51fd\u6570\u76f8\u540c\uff1b\u6b64\u4f8b\u4e2d\u7684&quot;q&quot;\uff0c\u8868\u793a\u5b63\u5ea6\uff1b<\/p>\n<p>Date\uff0c  \u5fc5\u8981\uff1b\u8ba1\u7b97\u4e2d\u8981\u7528\u5230\u7684\u4e24\u4e2a\u65e5\u671f\u3002<\/p>\n<p>Firstdayofweek \u53ef\u9009\u3002\u6307\u5b9a\u4e00\u4e2a\u661f\u671f\u7684\u7b2c\u4e00\u5929\u7684\u5e38\u6570\u3002\u5982\u679c\u672a\u4e88\u6307\u5b9a\uff0c\u5219\u4ee5\u661f\u671f\u65e5\u4e3a\u7b2c\u4e00\u5929\u3002<\/p>\n<p>firstweekofyear    \u53ef\u9009\u3002\u6307\u5b9a\u4e00\u5e74\u7684\u7b2c\u4e00\u5468\u7684\u5e38\u6570\u3002\u5982\u679c\u672a\u4e88\u6307\u5b9a\uff0c\u5219\u4ee5\u5305\u542b 1 \u6708 1 \u65e5\u7684\u661f\u671f\u4e3a\u7b2c\u4e00\u5468\u3002<\/p>\n<h2>\u7b2c1.9\u4f8b DateSerial\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528DateSerial\u51fd\u6570\u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684Date\u7c7b\u578b\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_09()<\/p>\n<pre><code class=\"prettyprint\" >Dim zdrq\n\nzdrq = DateSerial(2008, 8, 8)   \n\nMsgBox zdrq<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_09()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_09\u3002<\/p>\n<p>2\u3001Dim zdrq \uff1a\u53d8\u91cfzdrq\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001zdrq = DateSerial(2008, 8, 8)  \uff1aDateSerial\u51fd\u6570\u8f6c\u6362\u6240\u5f97\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfzdrq\u3002<\/p>\n<p>DateSerial\u51fd\u6570\u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u5e74\u6708\u65e5\u7684\u65e5\u671f\u683c\u5f0f\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>DateSerial(year, month, day) <\/p>\n<p>DateSerial \u51fd\u6570\u8bed\u6cd5\u6709\u4e0b\u5217\u7684\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>year   \u5fc5\u8981\uff1b\u6574\u578b\u3002\u4ece 100 \u5230 9999 \u95f4\u7684\u6574\u6570\uff0c\u6216\u4e00\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>month  \u5fc5\u8981\uff1b\u6574\u578b\u3002\u4efb\u4f55\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>day    \u5fc5\u8981\uff1b\u6574\u578b\u3002\u4efb\u4f55\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>4\u3001MsgBox  zdrq \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793azdrq\u7684\u503c\u3002<\/p>\n<p>\u3000\u3000<\/p>\n<h2>\u7b2c1.10\u4f8b DateValue \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528DateValue\u51fd\u6570\u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684Date\u7c7b\u578b\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_010()<\/p>\n<p>Dim zdrq<\/p>\n<p>zdrq = DateValue(&quot;August 8, 2008&quot;)   <\/p>\n<p>MsgBox zdrq<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_010()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_010\u3002<\/p>\n<p>2\u3001Dim zdrq \uff1a\u53d8\u91cfzdrq\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001zdrq = DateValue(&quot;August 8, 2008&quot;)  \uff1aDateSerial\u51fd\u6570\u8f6c\u6362\u6240\u5f97\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfzdrq\u3002<\/p>\n<p>4\u3001MsgBox  zdrq \uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793azdrq\u7684\u503c\u3002<\/p>\n<p>DateValue\u51fd\u6570<\/p>\n<p>\u5c06\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3a\u65e5\u671f\u683c\u5f0f\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>DateValue (date) <\/p>\n<p>DateValue \u51fd\u6570\u7684\u53c2\u6570\uff1a<\/p>\n<p>date   \u5fc5\u8981\uff1b\u901a\u5e38\u662f\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u8868\u793a\u4ece 100 \u5e74 1 \u6708 1 \u65e5\u5230 9999 \u5e74 12 \u6708 31 \u65e5\u4e4b\u95f4\u7684\u4e00\u4e2a\u65e5\u671f\u3002\u4f46\u662f\uff0cdate \u4e5f\u53ef\u4ee5\u662f\u4efb\u4f55\u8868\u8fbe\u5f0f\uff0c\u5176\u6240\u4ee3\u8868\u7684\u65e5\u671f\u3001\u65f6\u95f4\u5728\u4e0a\u8ff0\u8303\u56f4\u5185\u3002<\/p>\n<h2>\u7b2c1.11\u4f8b Day\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Day\u51fd\u6570\u8fd4\u56de\u6307\u5b9a\u65e5\u671f\u7684\u65e5\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_11()<\/p>\n<pre><code class=\"prettyprint\" >Dim zdrq\n\nzdrq = #2008-12-8#   \n\nMsgBox  zdrq &amp; &quot; \u8fd9\u5929\u7684\u65e5\u4e3a: &quot; &amp; Day(zdrq)   <\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_11()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_11\u3002<\/p>\n<p>2\u3001Dim zdrq \uff1a\u53d8\u91cfzdrq\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001zdrq = #2008- 8- 8#  \uff1a\u628a\u65e5\u671f2008-8-8\u8d4b\u7ed9\u53d8\u91cfzdrq\u3002<\/p>\n<p>4\u3001MsgBox  zdrq &amp; &quot; \u8fd9\u5929\u7684\u65e5\u4e3a: &quot; &amp; Day(zdrq)\uff1a\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aDay(zdrq)\u7684\u503c\u3002<\/p>\n<p>\u3000\u3000<\/p>\n<p>Day\u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u5176\u503c\u4e3a 1 \u5230 31 \u4e4b\u95f4\u7684\u6574\u6570\uff0c\u8868\u793a\u4e00\u4e2a\u6708\u4e2d\u7684\u67d0\u4e00\u65e5\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Day (date) <\/p>\n<p>Day \u51fd\u6570\u7684\u53c2\u6570\uff1a<\/p>\n<p>date\u5fc5\u8981\u7684\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u80fd\u591f\u8868\u793a\u65e5\u671f\u7684 Variant\u3001\u6570\u503c\u8868\u8fbe\u5f0f\u3001\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u6216\u5b83\u4eec\u7684\u7ec4\u5408\u3002<\/p>\n<p>\u200b     <\/p>\n<h2>\u7b2c1.12\u4f8b Dir\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Dir\u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u6587\u4ef6\u5939\u7684\u6587\u4ef6\u5217\u8868\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_12()<\/p>\n<pre><code class=\"prettyprint\" >Dim wjm\n\nwjm = Dir(&quot;C:WINDOWSWIN.ini&quot;)   <\/code><\/pre>\n<p>MsgBox wjm<\/p>\n<pre><code class=\"prettyprint\" >wjm = Dir(&quot;C:WINDOWS.ini&quot;)\n\nwjm = Dir<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_12()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_12\u3002<\/p>\n<p>2\u3001Dim wjm \uff1a\u53d8\u91cfwjm\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001wjm = Dir(&quot;C:WINDOWSWIN.ini&quot;)  \uff1a<\/p>\n<p>\u5982\u679c\u8be5\u6587\u4ef6\u5b58\u5728\u5219\u8fd4\u56de\u201cWIN.INI\u201d(\u5728C:Windows \u6587\u4ef6\u5939\u4e2d) \uff0c\u628a\u8fd4\u56de\u7684\u6587\u4ef6\u540d\u8d4b\u7ed9\u53d8\u91cfwjm \u3002\u5982\u679c\u8be5\u6587\u4ef6\u4e0d\u5b58\u5728\u5219wjm=\u201d\u201d\u3002<\/p>\n<p>4\u3001wjm = Dir(&quot;C:WINDOWS.ini&quot;)  \uff1a<\/p>\n<p>\u8fd4\u56de\u5e26\u6307\u5b9a\u6269\u5c55\u540d\u7684\u6587\u4ef6\u540d\u3002\u5982\u679c\u8d85\u8fc7\u4e00\u4e2a .ini \u6587\u4ef6\u5b58\u5728\uff0c\u51fd\u6570\u5c06\u8fd4\u56de\u6309\u6761\u4ef6\u7b2c\u4e00\u4e2a\u627e\u5230\u7684\u6587\u4ef6\u540d\u3002<\/p>\n<p>5\u3001wjm = Dir  \uff1a<\/p>\n<p>\u82e5\u7b2c\u4e8c\u6b21\u8c03\u7528 Dir \u51fd\u6570\uff0c\u4f46\u4e0d\u5e26\u4efb\u4f55\u53c2\u6570\uff0c\u5219\u51fd\u6570\u5c06\u8fd4\u56de\u540c\u4e00\u76ee\u5f55\u4e0b\u7684\u4e0b\u4e00\u4e2a .ini \u6587\u4ef6\u3002<\/p>\n<p>\u3000\u3000Dir\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u4e32 String\uff0c\u7528\u4ee5\u8868\u793a\u4e00\u4e2a\u6587\u4ef6\u540d\u3001\u76ee\u5f55\u540d\u6216\u6587\u4ef6\u5939\u540d\u79f0\uff0c\u5b83\u5fc5\u987b\u4e0e\u6307\u5b9a\u7684\u6a21\u5f0f\u6216\u6587\u4ef6\u5c5e\u6027\u3001\u6216\u78c1\u76d8\u5377\u6807\u76f8\u5339\u914d\u3002<\/p>\n<p>Dir[(pathname[, attributes])]<\/p>\n<p>Dir \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4ee5\u4e0b\u51e0\u4e2a\u90e8\u5206\uff1a<\/p>\n<p>pathname \u53ef\u9009\u53c2\u6570\u3002\u7528\u6765\u6307\u5b9a\u6587\u4ef6\u540d\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u53ef\u80fd\u5305\u542b\u76ee\u5f55\u6216\u6587\u4ef6\u5939\u3001\u4ee5\u53ca\u9a71\u52a8\u5668\u3002\u5982\u679c\u6ca1\u6709\u627e\u5230 pathname\uff0c\u5219\u4f1a\u8fd4\u56de\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32 (&quot;&quot;)\u3002   <\/p>\n<p>attributes   \u53ef\u9009\u53c2\u6570\u3002\u5e38\u6570\u6216\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u5176\u603b\u548c\u7528\u6765\u6307\u5b9a\u6587\u4ef6\u5c5e\u6027\u3002\u5982\u679c\u7701\u7565\uff0c\u5219\u4f1a\u8fd4\u56de\u5339\u914d pathname \u4f46\u4e0d\u5305\u542b\u5c5e\u6027\u7684\u6587\u4ef6\u3002   <\/p>\n<h2>\u7b2c1.13\u4f8b Fix\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Fix\u51fd\u6570\u8fd4\u56de\u67d0\u6570\u503c\u7684\u6574\u6570\u90e8\u5206\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_13()<\/p>\n<pre><code class=\"prettyprint\" >MsgBox \u201c99.8\u7684\u6574\u6570\u90e8\u5206\u662f\uff1a \u201d &amp; Fix(99.8)   \n\nMsgBox \u201c\uff0d99.8\u7684\u6574\u6570\u90e8\u5206\u662f\uff1a \u201d &amp; Fix(-99.8)   <\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_13()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_13\u3002<\/p>\n<p>2\u3001MsgBox  \u201c99.8\u7684\u6574\u6570\u90e8\u5206\u662f\uff1a \u201d &amp; Fix(99.8)  \uff1a<\/p>\n<p>\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aFix(99.8)\u7684\u503c\u3002<\/p>\n<p>3\u3001MsgBox  \u201c-99.8\u7684\u6574\u6570\u90e8\u5206\u662f\uff1a \u201d &amp; Fix(-99.8)  \uff1a<\/p>\n<p>\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aFix(-99.8)\u7684\u503c\u3002<\/p>\n<p>Fix\u51fd\u6570\u8fd4\u56de\u53c2\u6570\u7684\u6574\u6570\u90e8\u5206\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Fix(number) <\/p>\n<p>number \u5fc5\u8981\u7684 \u662f\u4efb\u4f55\u6709\u6548\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>Int \u53ca Fix \u51fd\u6570\u5728\u8fd4\u56de\u67d0\u6570\u503c\u7684\u6574\u6570\u90e8\u5206\u65f6\u6709\u4f55\u4e0d\u540c\u3002\u5f53\u53c2\u6570\u4e3a\u8d1f\u6570\u65f6\uff0cInt \u51fd\u6570\u8fd4\u56de\u5c0f\u4e8e\u6216\u7b49\u4e8e\u8be5\u53c2\u6570\u4e4b\u6700\u5927\u6574\u6570\uff0c\u800c Fix \u51fd\u6570\u5219\u8fd4\u56de\u5927\u4e8e\u6216\u7b49\u4e8e\u8be5\u53c2\u6570\u4e4b\u6700\u5c0f\u6574\u6570\u3002<\/p>\n<h2>\u7b2c1.14\u4f8b Format\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Format\u51fd\u6570\u5bf9\u6307\u5b9a\u5b57\u7b26\u4e32\u8fd4\u56de\u6307\u5b9a\u683c\u5f0f\u7684\u8f93\u51fa\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_14()<\/p>\n<pre><code class=\"prettyprint\" >Dim sj, rq\n\nsj = \u201c19:08:43\u201d\n\nrq = \u201c2008-8-8\u201d\n\nMsgBox sj &amp; \u201c \u7684\u683c\u5f0f\u8bbe\u4e3a&quot;hh:mm:ss AMPM&quot;\uff1a \u201d &amp; Format(sj, &quot;hh:mm:ss AMPM&quot;)   &#039; \u8fd4\u56de &quot;07:08:43\u4e0b\u5348&quot;\u3002\n\nMsgBox rq &amp;  \u201c \u7684\u683c\u5f0f\u8bbe\u4e3a&quot;dddd, mmm d yyyy&quot;\uff1a \u201d &amp; Format(rq, &quot;dddd, mmm d yyyy&quot;)   <\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_14()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_14\u3002<\/p>\n<p>2\u3001Dim sj,rq   \uff1a\u53d8\u91cfsj,rq\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001sj = \u201c19:08:43\u201d  \uff1a\u628a\u5b57\u7b26\u4e32\u201d19:08:43\u201d\u8d4b\u7ed9\u53d8\u91cfsj\u3002<\/p>\n<p>4\u3001rq = \u201c2008-8-8\u201d  \uff1a\u628a\u5b57\u7b26\u4e32\u201d2008-8-8\u201d\u8d4b\u7ed9\u53d8\u91cfrq\u3002<\/p>\n<p>5\u3001MsgBox sj &amp; \u201c \u7684\u683c\u5f0f\u8bbe\u4e3a&quot;hh:mm:ss AMPM&quot;\uff1a \u201d &amp; Format(sj, &quot;hh:mm:ss AMPM&quot;)  \uff1a <\/p>\n<p>\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aFormat\u51fd\u6570\u7684\u503c\u3002\u8fd4\u56de &quot;07:08:43\u4e0b\u5348&quot;\u3002<\/p>\n<p>6\u3001MsgBox rq &amp;  \u201c \u7684\u683c\u5f0f\u8bbe\u4e3a&quot;dddd, mmm d yyyy&quot;\uff1a \u201d &amp; Format(rq, &quot;dddd, mmm d yyyy&quot;)  \uff1a <\/p>\n<p>\u3000\u3000\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aFormat\u51fd\u6570\u7684\u503c\u3002\u4ee3\u7801\u6267\u884c\u540e\u5982\u56fe5-14\u6240\u793a\u3002<\/p>\n<p>\u3000\u3000Format\u51fd\u6570<\/p>\n<p>\u6839\u636e\u6709\u6548\u7684\u547d\u540d\u8868\u8fbe\u5f0f\u6765\u5bf9\u6307\u5b9a\u7684\u8868\u8fbe\u5f0f\u8fdb\u884c\u683c\u5f0f\u5316\u3002<\/p>\n<p>Format(expression[, format[, firstdayofweek[, firstweekofyear]]])<\/p>\n<p>Format \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4e0b\u9762\u51e0\u4e2a\u90e8\u5206\uff1a<\/p>\n<p>expression \u5fc5\u8981\u53c2\u6570\u3002\u4efb\u4f55\u6709\u6548\u7684\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>format \u53ef\u9009\u53c2\u6570\u3002\u6709\u6548\u7684\u547d\u540d\u8868\u8fbe\u5f0f\u6216\u7528\u6237\u81ea\u5b9a\u4e49\u683c\u5f0f\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>firstdayofweek \u53ef\u9009\u53c2\u6570\u3002\u5e38\u6570\uff0c\u8868\u793a\u4e00\u661f\u671f\u7684\u7b2c\u4e00\u5929\u3002<\/p>\n<p>firstweekofyear    \u53ef\u9009\u53c2\u6570\u3002\u5e38\u6570\uff0c\u8868\u793a\u4e00\u5e74\u7684\u7b2c\u4e00\u5468\u3002<\/p>\n<p>\u200b     <\/p>\n<h2>\u7b2c1.15\u4f8b Hour\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Hour\u51fd\u6570\u5bf9\u6307\u5b9a\u5b57\u7b26\u4e32\u8fd4\u56de\u5c0f\u65f6\u6570\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_15()<\/p>\n<p>Dim sj<\/p>\n<p>sj = &quot;3:45:20 PM&quot;   ' \u6307\u5b9a\u4e00\u65f6\u95f4\u5b57\u7b26\u4e32\u3002<\/p>\n<p>MsgBox sj &amp; &quot; \u7684\u5c0f\u65f6\u662f\uff1a &quot; &amp; Hour(sj)  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_15()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_15\u3002<\/p>\n<p>2\u3001Dim sj   \uff1a\u53d8\u91cfsj\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001sj = \u201c3:45:20 PM\u201d  \uff1a\u628a\u5b57\u7b26\u4e32\u201d3:45:20 PM\u201d\u8d4b\u7ed9\u53d8\u91cfsj\u3002<\/p>\n<p>4\u3001MsgBox sj &amp;  &quot; \u7684\u5c0f\u65f6\u662f\uff1a &quot; &amp; Hour(sj) \uff1a <\/p>\n<p>\u5229\u7528MsgBox\u51fd\u6570\u663e\u793aHour\u51fd\u6570\u7684\u503c\u3002\u4ee3\u7801\u6267\u884c\u540e\u5982\u56fe5-15\u6240\u793a\u3002<\/p>\n<p>Hour \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5176\u503c\u4e3a 0 \u5230 23 \u4e4b\u95f4\u7684\u6574\u6570\uff0c\u8868\u793a\u4e00\u5929\u4e4b\u4e2d\u7684\u67d0\u4e00\u949f\u70b9\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Hour(time) <\/p>\n<p>Time \u5fc5\u8981\u7684\u53c2\u6570\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u80fd\u591f\u8868\u793a\u65f6\u523b\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3001\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u6216\u5b83\u4eec\u7684\u7ec4\u5408\u3002<\/p>\n<h2>\u7b2c1.16\u4f8b IIF\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528IIF\u51fd\u6570\u6839\u636e\u5224\u65ad\u6761\u4ef6\u8fd4\u56de\u7ed3\u679c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_16()<\/p>\n<pre><code class=\"prettyprint\" > Dim Cheshi As String, dx As Integer\n\n dx = 560\n\n Cheshi = IIF(dx &gt; 1000, &quot;\u5927&quot;, &quot;\u5c0f&quot;)\n\n MsgBox dx &amp; &quot; \u6bd41000\u8981&quot; &amp; Cheshi &amp; &quot; &quot; &amp; Abs(1000 - dx)<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_16()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_16\u3002<\/p>\n<p>2\u3001Dim Cheshi As String, dx As Integer   \uff1a\u53d8\u91cfCheshi\u58f0\u660e\u4e3a\u5b57\u7b26\u4e32\u6570\u636e\u7c7b\u578b\uff0cdx\u58f0\u660e\u4e3a\u6574\u578b\u3002<\/p>\n<p>3\u3001dx= 560  \uff1a\u628a\u6570\u5b57560\u8d4b\u7ed9\u53d8\u91cfdx\u3002<\/p>\n<p>4\u3001Cheshi = IIF(dx &gt; 1000, &quot;\u5927&quot;, &quot;\u5c0f&quot;)  \uff1a<\/p>\n<p>\u6839\u636e\u53d8\u91cfdx\u662f\u5426\u5927\u4e8e1000\u7684\u6761\u4ef6\u6765\u5224\u65ad\uff0c\u5e76\u4e14\u628a\u8fd4\u56de\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfCheshi\u3002<\/p>\n<p>5\u3001MsgBox  dx &amp; &quot; \u6bd41000\u8981&quot; &amp; Cheshi &amp; &quot; &quot; &amp; Abs(1000 - dx) \uff1a <\/p>\n<p>\u5229\u7528MsgBox\u51fd\u6570\u663e\u793a\u6700\u540e\u7684\u503c\u3002\u5176\u4e2dAbs\u51fd\u6570\u662f\u53d6\u8868\u8fbe\u5f0f\u7684\u7edd\u5bf9\u503c\u51fd\u6570\u3002<\/p>\n<p>IIF \u51fd\u6570<\/p>\n<p>\u6839\u636e\u8868\u8fbe\u5f0f\u7684\u503c\uff0c\u6765\u8fd4\u56de\u4e24\u90e8\u5206\u4e2d\u7684\u5176\u4e2d\u4e00\u4e2a\u3002<\/p>\n<p>IIF(expr, truepart, falsepart) <\/p>\n<p>IIF \u51fd\u6570\u7684\u8bed\u6cd5\u542b\u6709\u4e0b\u9762\u8fd9\u4e9b\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>expr   \u5fc5\u8981\u53c2\u6570\u3002\u7528\u6765\u5224\u65ad\u771f\u4f2a\u7684\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>truepart   \u5fc5\u8981\u53c2\u6570\u3002\u5982\u679c expr \u4e3a True\uff0c\u5219\u8fd4\u56de\u8fd9\u90e8\u5206\u7684\u503c\u6216\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>falsepart  \u5fc5\u8981\u53c2\u6570\u3002\u5982\u679c expr \u4e3a False\uff0c\u5219\u8fd4\u56de\u8fd9\u90e8\u5206\u7684\u503c\u6216\u8868\u8fbe\u5f0f\u3002<\/p>\n<h2>\u7b2c1.17\u4f8b InputBox\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528InputBox\u51fd\u6570\uff0c\u7528\u6237\u8f93\u5165\u4e00\u5b9a\u8303\u56f4\u7684\u6570\u503c\u5e76\u8fd4\u56de\u7ed3\u679c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub Sub \u793a\u4f8b_1_17()<\/p>\n<pre><code class=\"prettyprint\" >Dim Msg$, bt$, Default$, MyValue,aa\n\nMsg = &quot;\u8f93\u5165\u4e00\u4e2a10\u523025\u4e4b\u95f4\u7684\u6570\u503c\uff1a&quot;   \n\nbt = &quot;InputBox \u51fd\u6570\u793a\u4f8b&quot; \n\nDefault = &quot;10&quot;   &#039; \u8bbe\u7f6e\u7f3a\u7701\u503c\u3002<\/code><\/pre>\n<p>100\uff1a<\/p>\n<p>\u3000\u3000\u3000\u3000MyValue = InputBox(Msg,bt, Default)<\/p>\n<p>\u3000\u3000\u3000\u3000If MyValue &lt; 10 Or MyValue &gt; 25 Then<\/p>\n<pre><code class=\"prettyprint\" >  aa = MsgBox(&quot;\u8f93\u5165\u6570\u503c\u8d85\u51fa\u8303\u56f4\uff0c\u8bf7\u91cd\u65b0\u8f93\u5165\u6216\u8005\u9000\u51fa\u3002&quot;, 1)\n\n  If aa &lt;&gt; vbOK Then Exit Sub\n\n  GoTo 100<\/code><\/pre>\n<p>\u3000\u3000\u3000Else<\/p>\n<pre><code class=\"prettyprint\" >  MsgBox &quot;\u4f60\u8f93\u5165\u7684\u662f &quot; &amp; MyValue<\/code><\/pre>\n<p>\u3000End If<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_17()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_17\u3002<\/p>\n<p>2\u3001Dim Msg$, bt$, Default, MyValue,aa   \uff1a\u53d8\u91cfMsg\u3001Default\u548cbt\u58f0\u660e\u4e3a\u5b57\u7b26\u4e32\u6570\u636e\u7c7b\u578b\uff0c\u5176\u5b83\u7684\u6ca1\u6709\u663e\u5f0f\u58f0\u660e\uff0c\u90fd\u4e3a\u53ef\u53d8\u578b\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>3\u3001Msg = &quot;\u8f93\u5165\u4e00\u4e2a10\u523025\u4e4b\u95f4\u7684\u6570\u503c\uff1a&quot;   \uff1a\u8bbe\u7f6e\u63d0\u793a\u4fe1\u606f\uff0c\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfMsg\u3002<\/p>\n<p>4\u3001bt = &quot;InputBox \u51fd\u6570\u793a\u4f8b&quot;   \uff1a\u8bbe\u7f6e\u6807\u9898\uff0c\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfbt\u3002<\/p>\n<p>5\u3001Default = &quot;10&quot;   \uff1a\u8bbe\u7f6e\u7f3a\u7701\u503c\uff0c\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfDefault\u3002<\/p>\n<p>6\u3001MyValue = InputBox(Msg,bt, Default)   \uff1a\u901a\u8fc7InputBox\u51fd\u6570\u663e\u793a\u4fe1\u606f\u3001\u6807\u9898\u53ca\u7f3a\u7701\u503c\uff0c\u628a\u51fd\u6570\u8fd4\u56de\u503c\u8d4b\u7ed9\u53d8\u91cfMyValue\u3002<\/p>\n<p>7\u3001If MyValue &lt; 10 Or MyValue &gt; 25 Then  \uff1a\u5982\u679cInputBox\u51fd\u6570\u8fd4\u56de\u7684\u6570\u503c\u5c0f\u4e8e10\u6216\u8005\u5927\u4e8e25\uff0c\u90a3\u4e48\u6267\u884c\u4e0b\u9762\u7684\u8bed\u53e5\u3002<\/p>\n<p>8\u3001aa = MsgBox(&quot;\u8f93\u5165\u6570\u503c\u8d85\u51fa\u8303\u56f4\uff0c\u8bf7\u91cd\u65b0\u8f93\u5165\u6216\u8005\u9000\u51fa\u3002&quot;, 1)  \uff1a\u5982\u679cInputBox\u51fd\u6570\u8fd4\u56de\u7684\u6570\u503c\u8d85\u51fa\u4e86\u8303\u56f4\uff0c\u663e\u793a\u4e00\u4e2a\u6d88\u606f\u6846\uff0c\u6d88\u606f\u6846\u91cc\u9762\u7684\u7b2c2\u4e2a\u53c2\u6570\u662f1\uff0c\u8868\u793a\u6d88\u606f\u6846\u4e0a\u6709\u4e24\u4e2a\u6309\u94ae\uff1a\u201c\u786e\u5b9a\u201d\u548c\u201c\u53d6\u6d88\u201d\u6309\u94ae\u3002\u5e76\u628a\u6d88\u606f\u6846\u8fd4\u56de\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfaa\u3002<\/p>\n<p>9\u3001If aa &lt;&gt; vbOK Then Exit Sub  \uff1a\u5982\u679c\u7528\u6237\u6309\u4e86\u6d88\u606f\u6846\u4e0a\u7684\u201c\u53d6\u6d88\u201d\u6309\u94ae\uff0c\u5c31\u9000\u51fa\u672c\u7a0b\u5e8f\u3002<\/p>\n<p>10\u3001GoTo 100  \uff1a\u5982\u679c\u7528\u6237\u6309\u4e86\u6d88\u606f\u6846\u4e0a\u7684\u201c\u786e\u5b9a\u201d\u6309\u94ae\uff0c\u5c31\u8f6c\u800c\u4ece\u884c\u53f7100\u5f00\u59cb\u6267\u884c\u4ee3\u7801\u3002<\/p>\n<p>11\u3001MsgBox &quot;\u4f60\u8f93\u5165\u7684\u662f &quot; &amp; MyValue  \uff1a\u5982\u679c\u7528\u6237\u8f93\u5165\u4e86\u7b26\u5408\u8981\u6c42\u7684\u6570\u503c\uff0c\u6309\u4e86\u56de\u8f66\u952e\u6216\u8005\u201c\u786e\u5b9a\u201d\u6309\u94ae\uff0c\u6d88\u606f\u6846\u663e\u793a\u7528\u6237\u8f93\u5165\u7684\u503c\u3002<\/p>\n<p>InputBox \u51fd\u6570<\/p>\n<p>\u5728\u4e00\u5bf9\u8bdd\u6846\u6765\u4e2d\u663e\u793a\u63d0\u793a\uff0c\u7b49\u5f85\u7528\u6237\u8f93\u5165\u6b63\u6587\u6216\u6309\u4e0b\u6309\u94ae\uff0c\u5e76\u8fd4\u56de\u5305\u542b\u6587\u672c\u6846\u5185\u5bb9\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) <\/p>\n<p>InputBox \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4ee5\u4e0b\u51e0\u4e2a\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>Prompt  \u5fc5\u9700\u7684\u3002\u4f5c\u4e3a\u5bf9\u8bdd\u6846\u6d88\u606f\u51fa\u73b0\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002Prompt \u7684\u6700\u5927\u957f\u5ea6\u5927\u7ea6\u662f 1024 \u4e2a\u5b57\u7b26\uff0c\u7531\u6240\u7528\u5b57\u7b26\u7684\u5bbd\u5ea6\u51b3\u5b9a\u3002\u5982\u679c Prompt \u5305\u542b\u591a\u4e2a\u884c\uff0c\u5219\u53ef\u5728\u5404\u884c\u4e4b\u95f4\u7528\u56de\u8f66\u7b26 (Chr(13))\u3001\u6362\u884c\u7b26 (Chr(10)) \u6216\u56de\u8f66\u6362\u884c\u7b26\u7684\u7ec4\u5408 (Chr(13) &amp; Chr(10)) \u6765\u5206\u9694\u3002<\/p>\n<p>Title   \u53ef\u9009\u7684\u3002\u663e\u793a\u5bf9\u8bdd\u6846\u6807\u9898\u680f\u4e2d\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c\u7701\u7565 Title\uff0c\u5219\u628a\u5e94\u7528\u7a0b\u5e8f\u540d\u653e\u5165\u6807\u9898\u680f\u4e2d\u3002<\/p>\n<p>Default \u53ef\u9009\u7684\u3002\u663e\u793a\u6587\u672c\u6846\u4e2d\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u5728\u6ca1\u6709\u5176\u5b83\u8f93\u5165\u65f6\u4f5c\u4e3a\u7f3a\u7701\u503c\u3002\u5982\u679c\u7701\u7565 Default\uff0c\u5219\u6587\u672c\u6846\u4e3a\u7a7a\u3002<\/p>\n<pre><code class=\"prettyprint\" > \u5176\u5b83\u53c2\u6570\u7701\u7565\uff0c\u8bf7\u53c2\u89c1Excel\u5e2e\u52a9\u6587\u4ef6\u3002<\/code><\/pre>\n<h2>\u7b2c1.18\u4f8b Instr\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Instr\u51fd\u6570\uff0c\u5728\u4e00\u5b57\u7b26\u4e32\u4e2d\u67e5\u627e\u53e6\u4e00\u5b57\u7b26\u4e32\u5e76\u8fd4\u56de\u7ed3\u679c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_18()<\/p>\n<pre><code class=\"prettyprint\" >    Dim bssString, yczChar, wz\n\n    bssString =&quot;ABpAApCDPBBP&quot;   \n\n    yczChar = &quot;P&quot;  <\/code><\/pre>\n<p>\u200b       <\/p>\n<pre><code class=\"prettyprint\" >    MsgBox &quot;bssString = &quot;&quot; ABpAApCDPBBP &quot;&quot;&quot; &amp; Chr(10) &amp; _<\/code><\/pre>\n<p>&quot;yczChar= &quot;&quot;P&quot;&quot; \u65f6\uff1a &quot; &amp; Chr(10) &amp; Chr(10) &amp; _<\/p>\n<p>&quot;InStr(4, bssString, yczChar, 1) \u8fd4\u56de\u503c\u4e3a &quot; &amp; _<\/p>\n<p>InStr(4, bssString, yczChar, 1)<\/p>\n<pre><code class=\"prettyprint\" >    wz = Instr(1, bssString, yczChar, 0)\n\n    wz = Instr(bssString,yczChar)   &#039; \u8fd4\u56de 9\u3002\n\n    wz = Instr(1, bssString, &quot;W&quot;)   &#039; \u8fd4\u56de 0\u3002<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_18()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_18\u3002<\/p>\n<p>2\u3001Dim bssString, yczChar, wz   \uff1a\u53d8\u91cfbssString\u3001yczChar\u548cws\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001bssString =&quot;ABpAApCDXPBBP&quot;  \uff1a \u628a\u88ab\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfbssString\u3002<\/p>\n<p>4\u3001yczChar = &quot;P&quot;  \uff1a \u628a\u8981\u67e5\u627e\u7684\u5b57\u7b26P\u8d4b\u7ed9\u53d8\u91cfyczChar\u3002<\/p>\n<p>5\u3001MsgBox &quot;bssString = &quot;&quot; ABpAApCDPBBP &quot;&quot;&quot; &amp; Chr(10) &amp; _<\/p>\n<p>&quot;yczChar= &quot;&quot;P&quot;&quot; \u65f6\uff1a &quot; &amp; Chr(10) &amp; Chr(10) &amp; _<\/p>\n<p>&quot;InStr(4, bssString, yczChar, 1) \u8fd4\u56de\u503c\u4e3a &quot; &amp; _<\/p>\n<p>InStr(4, bssString, yczChar, 1)\uff1a \u7528\u6d88\u606f\u6846\u663e\u793a\u4ece\u7b2c\u56db\u4e2a\u5b57\u7b26\u5f00\u59cb\uff0c\u4ee5\u6587\u672c\u6bd4\u8f83\u7684\u65b9\u5f0f\u627e\u5b57\u7b26P\uff0c\u8fd4\u56de\u503c\u4e3a 6\uff08\u5c0f\u5199 p\u7684\u4f4d\u7f6e\uff09\u3002\u5c0f\u5199 p \u548c\u5927\u5199 P \u5728\u6587\u672c\u6bd4\u8f83\u4e0b\u662f\u4e00\u6837\u7684\uff0c\u4e5f\u5c31\u662f\u5f53\u51fd\u6570\u7684\u6700\u540e\u4e00\u4e2a\u53c2\u6570\u4e3a1\u65f6\uff0c\u67e5\u627e\u4e0d\u5206\u5927\u5c0f\u5199\u3002\u628a\u8981\u67e5\u627e\u7684\u5b57\u7b26P\u7684\u4f4d\u7f6e\u8d4b\u7ed9\u53d8\u91cfyczChar\u3002\u5f0f\u4e2dChr(10)\u662f\u6362\u884c\u7b26\u3002<\/p>\n<p>6\u3001wz = Instr(1, bssString, yczChar, 0)  \uff1a\u4ece\u7b2c\u4e00\u4e2a\u5b57\u7b26\u5f00\u59cb\uff0c\u4ee5\u4e8c\u8fdb\u5236\u6bd4\u8f83\u7684\u65b9\u5f0f\u67e5\u627e\uff0c\u8fd4\u56de\u503c\u4e3a 9\uff08\u5927\u5199 P\u7684\u4f4d\u7f6e\uff09\u3002\u5c0f\u5199 p \u548c\u5927\u5199 P \u5728\u4e8c\u8fdb\u5236\u6bd4\u8f83\u4e0b\u662f\u4e0d\u4e00\u6837\u7684\uff0c\u4e5f\u5c31\u662f\u5f53\u51fd\u6570\u7684\u6700\u540e\u4e00\u4e2a\u53c2\u6570\u4e3a0\u65f6\uff0c\u67e5\u627e\u5206\u5927\u5c0f\u5199\u3002\u628a\u67e5\u627e\u5230\u7684\u5b57\u7b26P\u7684\u4f4d\u7f6e\u8d4b\u7ed9\u53d8\u91cfwz\u3002<\/p>\n<p>7\u3001wz = Instr(bssString, yczChar)  \uff1a\u4e0a\u4e00\u53e5\u4e5f\u53ef\u5199\u6210\u8fd9\u6837\u7684\uff0c\u56e0\u4e3a\u7f3a\u7701\u7684\u6bd4\u5bf9\u65b9\u5f0f\u4e3a\u4e8c\u8fdb\u5236\u6bd4\u8f83\uff08\u6700\u540e\u4e00\u4e2a\u53c2\u6570\u53ef\u7701\u7565\uff09\u3002\u7b2c\u4e00\u4e2a\u53c2\u6570\u7701\u7565\u9ed8\u8ba4\u4ece\u7b2c\u4e00\u4e2a\u5b57\u7b26\u5f00\u59cb\u67e5\u627e\u3002\u8fd4\u56de\u503c\u4e3a 9\u3002<\/p>\n<p>8\u3001wz = Instr(1,bssString, \u201dW\u201d)  \uff1a\u5728\u88ab\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u4e2d\u67e5\u627e\u5b57\u7b26W\uff0c\u7531\u4e8e\u6ca1\u627e\u5230\u8fd4\u56de\u503c\u4e3a0\u3002<\/p>\n<p>InStr \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (Long)\uff0c\u6307\u5b9a\u4e00\u5b57\u7b26\u4e32\u5728\u53e6\u4e00\u5b57\u7b26\u4e32\u4e2d\u6700\u5148\u51fa\u73b0\u7684\u4f4d\u7f6e\u3002<\/p>\n<p>\u8bed\u6cd5 <\/p>\n<p>InStr([start, ]string1, string2[, compare])<\/p>\n<p>InStr \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4e0b\u9762\u7684\u53c2\u6570\uff1a<\/p>\n<p>start   \u53ef\u9009\u53c2\u6570\u3002\u4e3a\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u8bbe\u7f6e\u6bcf\u6b21\u641c\u7d22\u7684\u8d77\u70b9\u3002\u5982\u679c\u7701\u7565\uff0c\u5c06\u4ece\u7b2c\u4e00\u4e2a\u5b57\u7b26\u7684\u4f4d\u7f6e\u5f00\u59cb\u3002\u5982\u679c\u6307\u5b9a\u4e86 compare \u53c2\u6570\uff0c\u5219\u4e00\u5b9a\u8981\u6709 start \u53c2\u6570\u3002<\/p>\n<p>string1 \u5fc5\u8981\u53c2\u6570\u3002\u63a5\u53d7\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>string2 \u5fc5\u8981\u53c2\u6570\u3002\u88ab\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>Compare\u53ef\u9009\u53c2\u6570\u3002\u6307\u5b9a\u5b57\u7b26\u4e32\u6bd4\u8f83\u3002\u5982\u679c\u7701\u7565 compare\uff0cOption Compare \u7684\u8bbe\u7f6e\u5c06\u51b3\u5b9a\u6bd4\u8f83\u7684\u7c7b\u578b\u3002<\/p>\n<p>compare \u53c2\u6570\u8bbe\u7f6e\u4e3a\uff1a<\/p>\n<p>\u5e38\u6570              \u503c   \u63cf\u8ff0<\/p>\n<p>vbUseCompareOption  -1  \u4f7f\u7528Option Compare \u8bed\u53e5\u8bbe\u7f6e\u6267\u884c\u4e00\u4e2a\u6bd4\u8f83\u3002<\/p>\n<p>vbBinaryCompare     0   \u6267\u884c\u4e00\u4e2a\u4e8c\u8fdb\u5236\u6bd4\u8f83\u3002<\/p>\n<p>vbTextCompare       1   \u6267\u884c\u4e00\u4e2a\u6309\u7167\u539f\u6587\u7684\u6bd4\u8f83\u3002<\/p>\n<p>vbDatabaseCompare       2   \u4ec5\u9002\u7528\u4e8eMicrosoft Access\uff0c\u6267\u884c\u4e00\u4e2a\u57fa\u4e8e\u6570\u636e\u5e93\u4e2d\u4fe1\u606f\u7684\u6bd4\u8f83\u3002<\/p>\n<h2>\u7b2c1.19\u4f8b InstrRev\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528InstrRev\u51fd\u6570\uff0c\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u4e32\u5728\u53e6\u4e00\u4e2a\u5b57\u7b26\u4e32\u4e2d\u51fa\u73b0\u7684\u4f4d\u7f6e\uff0c\u4ece\u5b57\u7b26\u4e32\u7684\u672b\u5c3e\u7b97\u8d77\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_19()<\/p>\n<pre><code class=\"prettyprint\" >    Dim bssString, yczChar, wz\n\n    bssString =&quot;ABpAApCDPBBP&quot;   \n\n    yczChar = &quot;p&quot;  \n\n    ws = InstrRev(bssString, yczChar, 4,1)   \n\n    MsgBox ws   <\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_19()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_19\u3002<\/p>\n<p>2\u3001Dim bssString, yczChar, wz   \uff1a\u53d8\u91cfbssString\u3001yczChar\u548cws\u58f0\u660e\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001bssString =&quot;ABpAApCDXPBBP&quot;  \uff1a \u628a\u88ab\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfbssString\u3002<\/p>\n<p>4\u3001yczChar = &quot;p&quot;  \uff1a \u628a\u8981\u67e5\u627e\u7684\u5b57\u7b26P\u8d4b\u7ed9\u53d8\u91cfyczChar\u3002<\/p>\n<p>5\u3001wz = InstrRev( bssString, yczChar,4,1)  \uff1a\u4ece\u7b2c4\u4e2a\u5b57\u7b26\u5f00\u59cb\uff0c\u6309\u539f\u6587\u6bd4\u8f83\u7684\u65b9\u5f0f\u4ece\u672b\u5c3e\u5f80\u524d\u67e5\u627e\u5b57\u7b26p\uff0c\u8fd4\u56de\u503c\u4e3a3\u3002<\/p>\n<p>InStrRev\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u4e32\u5728\u53e6\u4e00\u4e2a\u5b57\u7b26\u4e32\u4e2d\u51fa\u73b0\u7684\u4f4d\u7f6e\uff0c\u4ece\u5b57\u7b26\u4e32\u7684\u672b\u5c3e\u7b97\u8d77\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>InstrRev(stringcheck, stringmatch[, start[, compare]]) <\/p>\n<p>InstrRev\u51fd\u6570\u8bed\u6cd5\u6709\u5982\u4e0b\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>stringcheck \u5fc5\u9700\u7684\u3002\u8981\u6267\u884c\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>stringmatch \u5fc5\u9700\u7684\u3002\u8981\u641c\u7d22\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>start   \u53ef\u9009\u7684\u3002\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u8bbe\u7f6e\u6bcf\u6b21\u641c\u7d22\u7684\u5f00\u59cb\u4f4d\u7f6e\u3002\u5982\u679c\u5ffd\u7565\uff0c\u5219\u8868\u793a\u4ece\u5b57\u7b26\u4e32\u672b\u5c3e\u4f4d\u7f6e\u5f00\u59cb\u641c\u7d22\u3002<\/p>\n<p>compare \u53ef\u9009\u7684\u3002\u6570\u5b57\u503c\uff0c\u6307\u51fa\u5728\u5224\u65ad\u5b50\u5b57\u7b26\u4e32\u65f6\u6240\u4f7f\u7528\u7684\u6bd4\u8f83\u65b9\u6cd5\u3002\u5982\u679c\u5ffd\u7565\uff0c\u5219\u6267\u884c\u4e8c\u8fdb\u5236\u6bd4\u8f83\u3002<\/p>\n<p>compare\u53c2\u6570\u503c\u5982\u4e0b\uff1a<\/p>\n<p>\u5e38\u6570              \u503c   \u63cf\u8ff0<\/p>\n<p>vbUseCompareOption  \u20131  \u7528Option Compare\u8bed\u53e5\u7684\u8bbe\u7f6e\u503c\u6765\u6267\u884c\u6bd4\u8f83\u3002<\/p>\n<p>vbBinaryCompare  0  \u6267\u884c\u4e8c\u8fdb\u5236\u6bd4\u8f83\u3002\u533a\u5206\u5927\u5c0f\u5199\u3002<\/p>\n<p>vbTextCompare    1  \u6267\u884c\u6587\u5b57\u6bd4\u8f83\u3002\u4e0d\u533a\u5206\u5927\u5c0f\u5199\u3002<\/p>\n<p>vbDatabaseCompare    2  \u53ea\u7528\u4e8eMicrosoft Access\u3002\u57fa\u4e8e\u60a8\u7684\u6570\u636e\u5e93\u4fe1\u606f\u6267\u884c\u6bd4\u8f83\u3002<\/p>\n<p>6\u3001MsgBox ws  \uff1a \u7528\u6d88\u606f\u6846\u663e\u793a\u67e5\u627e\u8fd4\u56de\u7684\u503c 3\u3002<\/p>\n<h2>\u7b2c1.20\u4f8b IsArray\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528IsArray\u51fd\u6570\uff0c\u8fd4\u56de\u4e00\u4e2a\u53d8\u91cf\u662f\u5426\u4e3a\u4e00\u4e2a\u6570\u7ec4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_20()<\/p>\n<p>Dim Arr1(1 To 8,1 to 3) As Integer, Arr2  <\/p>\n<pre><code class=\"prettyprint\" >    Arr2 = Array(1, 2, 3,4,5)  \n\n    MsgBox \u201cArr1 \u662f\u5426\u4e3a\u6570\u7ec4\uff1a \u201d &amp; IsArray(Arr1)   &#039; \u8fd4\u56de True\u3002\n\n    MsgBox \u201cArr2 \u662f\u5426\u4e3a\u6570\u7ec4\uff1a \u201d &amp; IsArray(Arr2)   &#039; \u8fd4\u56de True\u3002<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_20()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_20\u3002<\/p>\n<p>2\u3001Dim Arr1(1 To 8,1 to 3) As Integer, Arr2   \uff1a\u58f0\u660e\u53d8\u91cfArr1\u4e3a\u6574\u578b\u6570\u7ec4\u3001Arr2\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Arr2 = Array(1, 2, 3,4,5)  \uff1a\u7528Array\u51fd\u6570\u8d4b\u503c\u7ed9Arr2\u3002<\/p>\n<p>Array \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5305\u542b\u6570\u7ec4\u7684 Variant\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>Array(arglist) <\/p>\n<p>\u6240\u9700\u7684 arglist \u53c2\u6570\u662f\u4e00\u4e2a\u7528\u9017\u53f7\u9694\u5f00\u7684\u503c\u8868\uff0c\u8fd9\u4e9b\u503c\u7528\u4e8e\u7ed9 Variant \u6240\u5305\u542b\u7684\u6570\u7ec4\u7684\u5404\u5143\u7d20\u8d4b\u503c\u3002\u5982\u679c\u4e0d\u63d0\u4f9b\u53c2\u6570\uff0c\u5219\u521b\u5efa\u4e00\u4e2a\u957f\u5ea6\u4e3a 0 \u7684\u6570\u7ec4\u3002<\/p>\n<p>\u4f7f\u7528 Array \u51fd\u6570\u521b\u5efa\u7684\u6570\u7ec4\u7684\u4e0b\u754c\u53d7 Option Base \u8bed\u53e5\u6307\u5b9a\u7684\u4e0b\u754c\u7684\u51b3\u5b9a\uff0c\u9ed8\u8ba4\u4e3a0\u3002<\/p>\n<p>IsArray \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Boolean \u503c\uff0c\u6307\u51fa\u53d8\u91cf\u662f\u5426\u4e3a\u4e00\u4e2a\u6570\u7ec4\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>IsArray(varname) <\/p>\n<p>\u5fc5\u8981\u7684 varname \u53c2\u6570\u662f\u4e00\u4e2a\u6307\u5b9a\u53d8\u91cf\u7684\u6807\u8bc6\u7b26\u3002<\/p>\n<p>\u5982\u679c\u53d8\u91cf\u662f\u6570\u7ec4\uff0c\u5219 IsArray \u8fd4\u56de True\uff1b\u5426\u5219\u8fd4\u56de False\u3002\u5bf9\u4e8e\u5305\u542b\u6570\u7ec4\u7684 variant \u8868\u8fbe\u5f0f\u6765\u8bf4\uff0cIsArray \u5c24\u4e3a\u6709\u7528\u3002<\/p>\n<p>4\u3001MsgBox \u201cArr1 \u662f\u5426\u4e3a\u6570\u7ec4\uff1a \u201d &amp; IsArray(Arr1)  \uff1a\u7528\u6d88\u606f\u6846\u663e\u793aArr1\u662f\u5426\u4e3a\u6570\u7ec4\u3002<\/p>\n<h2>\u7b2c1.21\u4f8b IsNumeric\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528IsNumeric\u51fd\u6570\uff0c\u8fd4\u56de\u4e00\u4e2a\u53d8\u91cf\u662f\u5426\u4e3a\u4e00\u4e2a\u6570\u503c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_21()<\/p>\n<p>Dim bl,bl1<\/p>\n<p>bl = 530.25   <\/p>\n<p>MsgBox &quot;\u53d8\u91cf bl  \u662f\u5426\u4e3a\u6570\u503c\uff1a &quot; &amp;  IsNumeric(bl)   <\/p>\n<p>bl1 = &quot;4500 Cm&quot;  <\/p>\n<p>MsgBox &quot;\u53d8\u91cfbl1  \u662f\u5426\u4e3a\u6570\u503c\uff1a &quot; &amp;  IsNumeric(bl1)  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_21()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_21\u3002<\/p>\n<p>2\u3001Dim bl , bl1   \uff1a\u58f0\u660e\u53d8\u91cfbl\uff0cbl1\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001bl = 530.25 \uff1a\u628a\u6570\u503c530.25\u8d4b\u7ed9\u53d8\u91cfbl\u3002<\/p>\n<p>4\u3001MsgBox  &quot;\u53d8\u91cf bl  \u662f\u5426\u4e3a\u6570\u503c\uff1a &quot; &amp;  IsNumeric(bl)  \uff1a\u7528\u6d88\u606f\u6846\u663e\u793aIsNumeric\u51fd\u6570\u5224\u65ad\u7684\u53d8\u91cfbl\u662f\u5426\u4e3a\u6570\u503c\uff0c\u8fd4\u56deTrue\u3002<\/p>\n<p>5\u3001bl1 = &quot;4500 Cm&quot; \uff1a\u628a\u5b57\u7b26\u4e32\u201c4500 Cm\u201d\u8d4b\u7ed9\u53d8\u91cfbl1\u3002<\/p>\n<p>4\u3001MsgBox  &quot;\u53d8\u91cf bl1  \u662f\u5426\u4e3a\u6570\u503c\uff1a &quot; &amp;  IsNumeric(bl1)  \uff1a\u7528\u6d88\u606f\u6846\u663e\u793aIsNumeric\u51fd\u6570\u5224\u65ad\u7684\u53d8\u91cfbl1\u662f\u5426\u4e3a\u6570\u503c\uff0c\u8fd4\u56deFalse\u3002<\/p>\n<p>IsNumeric \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Boolean \u503c\uff0c\u8fd4\u56de\u53d8\u91cf\u662f\u5426\u4e3a\u4e00\u4e2a\u6570\u503c\u3002<\/p>\n<p>IsNumeric(expression) <\/p>\n<p>\u5fc5\u8981\u7684 expression \u53c2\u6570\u662f\u4e00\u4e2a Variant\uff0c\u5305\u542b\u6570\u503c\u8868\u8fbe\u5f0f\u6216\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002<\/p>\n<h2>\u7b2c1.22\u4f8b Join\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Join\u51fd\u6570\uff0c\u901a\u8fc7\u8fde\u63a5\u67d0\u4e2a\u6570\u7ec4\u4e2d\u7684\u591a\u4e2a\u5b50\u5b57\u7b26\u4e32\u800c\u521b\u5efa\u7684\u4e00\u4e2a\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_022()<\/p>\n<p>Dim ss<\/p>\n<p>ss=Array(&quot;\u4e00\u6708&quot;, &quot;\u4e8c\u6708&quot;, &quot;\u4e09\u6708&quot;)<\/p>\n<p>[A1]=Join(ss,\u201d,\u201d)<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_022()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_022\u3002<\/p>\n<p>2\u3001Dim ss   \uff1a\u58f0\u660e\u53d8\u91cfss\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001ss=Array(&quot;\u4e00\u6708&quot;, &quot;\u4e8c\u6708&quot;, &quot;\u4e09\u6708&quot;) \uff1a\u628aArray\u51fd\u6570\u5f97\u5230\u7684\u4e00\u7ef4\u6570\u7ec4\u8d4b\u7ed9\u53d8\u91cfss\u3002<\/p>\n<p>4\u3001[A1]=Join(ss,\u201d,\u201d)  \uff1a\u628a\u6570\u7ec4ss\u7684\u5404\u4e2a\u5143\u7d20\u7528\u9017\u53f7\u8fde\u63a5\u8d77\u6765\u8d4b\u7ed9A1\u5355\u5143\u683c\u3002\u8fd4\u56de\u201d\u4e00\u6708,\u4e8c\u6708,\u4e09\u6708\u201d\uff1b<\/p>\n<p>\u5982\u679c\u7701\u7565\u5206\u9694\u7b26 [A1]=Join(ss)  \u5219\u7528\u7a7a\u683c\u6765\u5206\u9694\uff0c\u8fd4\u56de\u201d\u4e00\u6708 \u4e8c\u6708 \u4e09\u6708\u201d\uff1b<\/p>\n<p>\u5982\u679c\u5206\u9694\u7b26\u662f\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32(&quot;&quot;) [A1]=Join(ss,\u201d\u201d) \u5219\u6ca1\u6709\u5206\u9694\u7b26\u4e86\uff0c\u8fd4\u56de\u201d\u4e00\u6708\u4e8c\u6708\u4e09\u6708\u201d\u3002<\/p>\n<p>Join\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u4e32\uff0c\u8be5\u5b57\u7b26\u4e32\u662f\u901a\u8fc7\u8fde\u63a5\u67d0\u4e2a\u6570\u7ec4\u4e2d\u7684\u591a\u4e2a\u5b50\u5b57\u7b26\u4e32\u800c\u521b\u5efa\u7684\u3002<\/p>\n<p>Join(sourcearray[, delimiter]) <\/p>\n<p>Join\u51fd\u6570\u8bed\u6cd5\u6709\u5982\u4e0b\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>sourcearray \u5fc5\u9700\u7684\u3002\u5305\u542b\u88ab\u8fde\u63a5\u5b50\u5b57\u7b26\u4e32\u7684\u4e00\u7ef4\u6570\u7ec4\u3002<\/p>\n<p>delimiter   \u53ef\u9009\u7684\u3002\u5728\u8fd4\u56de\u5b57\u7b26\u4e32\u4e2d\u7528\u4e8e\u5206\u9694\u5b50\u5b57\u7b26\u4e32\u7684\u5b57\u7b26\u3002\u5982\u679c\u5ffd\u7565\u8be5\u9879\uff0c\u5219\u4f7f\u7528\u7a7a\u683c(&quot; &quot;)\u6765\u5206\u9694\u5b50\u5b57\u7b26\u4e32\u3002\u5982\u679cdelimiter\u662f\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32(&quot;&quot;)\uff0c\u5219\u5217\u8868\u4e2d\u7684\u6240\u6709\u9879\u76ee\u90fd\u8fde\u63a5\u5728\u4e00\u8d77\uff0c\u4e2d\u95f4\u6ca1\u6709\u5206\u9694\u7b26\u3002<\/p>\n<h2>\u7b2c1.23\u4f8b LBound\u548c UBound\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528LBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4\u7684\u6307\u5b9a\u7ef4\u6570\u7684\u6700\u5c0f\u53ef\u7528\u4e0b\u754c\uff1b\u8fd0\u7528UBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4\u7684\u6307\u5b9a\u7ef4\u6570\u7684\u6700\u5927\u53ef\u7528\u4e0a\u754c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_023()<\/p>\n<p>Dim Arr(1 To 10, 5 To 15, 10 To 20)   <\/p>\n<p>Dim Arr1(10)<\/p>\n<p>[a1] = &quot;\u6570\u7ec4\u53d8\u91cf\uff1aArr(1 To 10, 5 To 15, 10 To 20) &quot;<\/p>\n<p>[a2] = &quot;\u6570\u7ec4\u53d8\u91cf\uff1aArr1(10) &quot;<\/p>\n<p>[a3] = &quot;LBound(Arr, 1)  \u8fd4\u56de &quot;: [b3] = LBound(Arr, 1)<\/p>\n<p>[c3] = &quot;UBound(Arr, 1)  \u8fd4\u56de &quot;: [d3] = UBound(Arr, 1)<\/p>\n<p>[a4] = &quot;LBound(Arr, 3)  \u8fd4\u56de &quot;: [b4] = LBound(Arr, 3)<\/p>\n<p>[c4] = &quot;UBound(Arr, 3)  \u8fd4\u56de &quot;: [d4] = UBound(Arr, 3)<\/p>\n<p>[a5] = &quot;LBound(Arr1)   \u8fd4\u56de &quot;: [b5] = LBound(Arr1)   <\/p>\n<p>[c5] = &quot;UBound(Arr1)  \u8fd4\u56de &quot;: [d5] = UBound(Arr1)<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_023()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_023\u3002<\/p>\n<p>2\u3001Dim Arr(1 To 10, 5 To 15, 10 To 20)  \uff1a\u58f0\u660eArr\u4e3a3\u7ef4\u6570\u7ec4\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Dim Arr1(10)  \uff1a\u58f0\u660eArr1\u4e3a1\u7ef4\u6570\u7ec4\u53d8\u91cf\u3002<\/p>\n<p>4\u3001[a1] = &quot;\u6570\u7ec4\u53d8\u91cf\uff1aArr(1 To 10, 5 To 15, 10 To 20) &quot;  \uff1a\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5355\u5143\u683cA1\u3002<\/p>\n<p>5\u3001[a2] = &quot;\u6570\u7ec4\u53d8\u91cf\uff1aArr1(10) &quot;  \uff1a\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5355\u5143\u683cA2\u3002<\/p>\n<p>6\u3001[b3] = LBound(Arr,1)  \uff1a\u8fd0\u7528LBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Arr\u7684\u7b2c1\u7ef4\u7684\u6700\u5c0f\u53ef\u7528\u4e0b<\/p>\n<p>\u754c\uff0c\u8fd4\u56de1\uff0c\u8d4b\u7ed9\u5355\u5143\u683cB3\u3002<\/p>\n<p>7\u3001[d3] = UBound(Arr,1)  \uff1a\u8fd0\u7528UBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Arr\u7684\u7b2c1\u7ef4\u7684\u6700\u5927\u53ef\u7528\u4e0a<\/p>\n<p>\u754c\uff0c\u8fd4\u56de10\uff0c\u8d4b\u7ed9\u5355\u5143\u683cD3\u3002<\/p>\n<p>8\u3001[b4] = LBound(Arr,3)  \uff1a\u8fd0\u7528LBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Arr\u7684\u7b2c3\u7ef4\u7684\u6700\u5c0f\u53ef\u7528\u4e0b<\/p>\n<p>\u754c\uff0c\u8fd4\u56de10\uff0c\u8d4b\u7ed9\u5355\u5143\u683cB4\u3002<\/p>\n<p>9\u3001[d4] = UBound(Arr,3)  \uff1a\u8fd0\u7528UBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Arr\u7684\u7b2c3\u7ef4\u7684\u6700\u5927\u53ef\u7528\u4e0a<\/p>\n<p>\u754c\uff0c\u8fd4\u56de20\uff0c\u8d4b\u7ed9\u5355\u5143\u683cD4\u3002<\/p>\n<p>10\u3001[b5] = LBound(Arr1)  \uff1a\u8fd0\u7528LBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Arr1\u7684\u6700\u5c0f\u53ef\u7528\u4e0b\u754c\uff0c\u8fd4\u56de0\u6216\u80051\uff0c\u8981\u53d6\u51b3\u4e8eOption Base\u7684\u8bbe\u7f6e\uff0c\u9ed8\u8ba4\u4e3a0\u3002<\/p>\n<p>11\u3001[d5] = UBound(Arr1)  \uff1a\u8fd0\u7528UBound\u51fd\u6570\uff0c\u8fd4\u56de\u6570\u7ec4Ar1r\u7684\u6700\u5927\u53ef\u7528\u4e0a\u754c\uff0c\u8fd4\u56de10\uff0c\u8d4b\u7ed9\u5355\u5143\u683cD5\u3002<\/p>\n<p>LBound \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Long \u578b\u6570\u636e\uff0c\u5176\u503c\u4e3a\u6570\u7ec4\u6307\u5b9a\u7ef4\u53ef\u7528\u7684\u6700\u5c0f\u4e0b\u754c\u3002<\/p>\n<p>LBound(arrayname[, dimension]) <\/p>\n<p>LBound \u51fd\u6570\u7684\u53c2\u6570\uff1a<\/p>\n<p>arrayname   \u5fc5\u9700\u7684\u3002\u6570\u7ec4\u53d8\u91cf\u7684\u540d\u79f0\uff0c\u9075\u5faa\u6807\u51c6\u7684\u53d8\u91cf\u547d\u540d\u7ea6\u5b9a\u3002<\/p>\n<p>dimension   \u53ef\u9009\u7684\uff1bVariant (Long)\u3002\u6307\u5b9a\u8fd4\u56de\u54ea\u4e00\u7ef4\u7684\u4e0b\u754c\u30021 \u8868\u793a\u7b2c\u4e00\u7ef4\uff0c2 \u8868\u793a\u7b2c\u4e8c\u7ef4\uff0c\u5982\u6b64\u7c7b\u63a8\u3002\u5982\u679c\u7701\u7565 dimension\uff0c\u5c31\u8ba4\u4e3a\u662f 1\u3002<\/p>\n<p>UBound \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Long \u578b\u6570\u636e\uff0c\u5176\u503c\u4e3a\u6307\u5b9a\u7684\u6570\u7ec4\u7ef4\u53ef\u7528\u7684\u6700\u5927\u4e0a\u754c\u3002<\/p>\n<p>UBound(arrayname[, dimension]) <\/p>\n<p>UBound \u51fd\u6570\u7684\u8bed\u6cd5\u5305\u542b\u4e0b\u9762\u90e8\u5206\uff1a<\/p>\n<p>arrayname   \u5fc5\u9700\u7684\u3002\u6570\u7ec4\u53d8\u91cf\u7684\u540d\u79f0\uff0c\u9075\u5faa\u6807\u51c6\u53d8\u91cf\u547d\u540d\u7ea6\u5b9a\u3002<\/p>\n<p>dimension   \u53ef\u9009\u7684\uff1bVariant (Long)\u3002\u6307\u5b9a\u8fd4\u56de\u54ea\u4e00\u7ef4\u7684\u4e0a\u754c\u30021 \u8868\u793a\u7b2c\u4e00\u7ef4\uff0c2 \u8868\u793a\u7b2c\u4e8c\u7ef4\uff0c\u5982\u6b64\u7b49\u7b49\u3002\u5982\u679c\u7701\u7565 dimension\uff0c\u5c31\u8ba4\u4e3a\u662f 1\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>UBound \u51fd\u6570\u4e0e LBound \u51fd\u6570\u4e00\u8d77\u4f7f\u7528\uff0c\u7528\u6765\u786e\u5b9a\u4e00\u4e2a\u6570\u7ec4\u7684\u5927\u5c0f\u3002LBound \u7528\u6765\u786e\u5b9a\u6570\u7ec4\u67d0\u4e00\u7ef4\u7684\u4e0a\u754c\u3002<\/p>\n<h2>\u7b2c1.24\u4f8b LCase\u548cUCase \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528LCase \u51fd\u6570\u6765\u5c06\u67d0\u5b57\u7b26\u4e32\u8f6c\u6210\u5168\u90e8\u5c0f\u5199\uff0c\u5e76\u8fd0\u7528UCase \u51fd\u6570\u518d\u5c06\u5b83\u8f6c\u6210\u5168\u90e8\u5927\u5199\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a <\/p>\n<p>Sub \u793a\u4f8b_1_024()<\/p>\n<p>Dim Dxzfc$, XXzfc$<\/p>\n<p>DXzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;   ' \u5927\u5199\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>XXzfc = Lcase(DXzfc)   ' \u8fd4\u56de &quot;hello shanghai expo 2010&quot;\u3002<\/p>\n<p>DXzfc = Ucase(XXzfc)   ' \u8fd4\u56de &quot;HELLO SHANGHAI EXPO 2010&quot;\u3002<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_024()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_024\u3002<\/p>\n<p>2\u3001Dim  Dxzfc$, XXzfc$  \uff1a\u58f0\u660e Dxzfc, XXzfc\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\u3002<\/p>\n<p>$\u662fString\u5b57\u7b26\u4e32\u6570\u636e\u7c7b\u578b\u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\uff0c\u5176\u5b83\u6709\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u7684\u6570\u636e\u7c7b\u578b\u8fd8\u6709\uff1a<\/p>\n<p>\u6574\u578b      Integer   %<\/p>\n<p>\u957f\u6574\u578b     Long    &amp;<\/p>\n<p>\u5355\u7cbe\u5ea6\u6d6e\u70b9\u578b  Single   !<\/p>\n<p>\u53cc\u7cbe\u5ea6\u6d6e\u70b9\u578b  Double   #<\/p>\n<p>\u53d8\u6bd4\u6574\u578b    Currency  @<\/p>\n<p>3\u3001DXzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;  \uff1a\u628a\u5927\u5199\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfDXzfc\u3002<\/p>\n<p>4\u3001XXzfc = Lcase(DXzfc)  \uff1a\u8fd0\u7528LCase \u51fd\u6570\u628a\u5927\u5199\u5b57\u7b26\u4e32\u5168\u90e8\u8f6c\u6210\u5c0f\u5199\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfXXzfc\u3002<\/p>\n<p>5\u3001DXzfc = Ucase(XXzfc)  \uff1a\u8fd0\u7528UCase \u51fd\u6570\u628a\u5c0f\u5199\u5b57\u7b26\u4e32\u5168\u90e8\u8f6c\u6210\u5927\u5199\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfDXzfc\u3002<\/p>\n<p>LCase \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u8f6c\u6210\u5c0f\u5199\u7684 String\u3002<\/p>\n<p>LCase(string)<\/p>\n<p>\u5fc5\u8981\u7684 string \u53c2\u6570\u53ef\u4ee5\u662f\u4efb\u4f55\u6709\u6548\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u53ea\u6709\u5927\u5199\u7684\u5b57\u6bcd\u4f1a\u8f6c\u6210\u5c0f\u5199\uff1b\u6240\u6709\u5c0f\u5199\u5b57\u6bcd\u548c\u975e\u5b57\u6bcd\u5b57\u7b26\u4fdd\u6301\u4e0d\u53d8\u3002<\/p>\n<p>UCase \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u8f6c\u6210\u5927\u5199\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>UCase(string)<\/p>\n<p>\u5fc5\u8981\u7684 string \u53c2\u6570\u4e3a\u4efb\u4f55\u6709\u6548\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002 <\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u53ea\u6709\u5c0f\u5199\u7684\u5b57\u6bcd\u4f1a\u8f6c\u6210\u5927\u5199\uff1b\u539f\u672c\u5927\u5199\u6216\u975e\u5b57\u6bcd\u4e4b\u5b57\u7b26\u4fdd\u6301\u4e0d\u53d8\u3002<\/p>\n<h2>\u7b2c1.25\u4f8b Left \u548c Right \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Left \u51fd\u6570\u6765\u5f97\u5230\u67d0\u5b57\u7b26\u4e32\u6700\u5de6\u8fb9\u7684\u51e0\u4e2a\u5b57\u7b26\uff0c\u8fd0\u7528Right \u51fd\u6570\u6765\u5f97\u5230\u67d0\u5b57\u7b26\u4e32\u6700\u53f3\u8fb9\u7684\u51e0\u4e2a\u5b57\u7b26\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_025()<\/p>\n<p>Dim RYzfc$, Myzfc$<\/p>\n<p>RYzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;   <\/p>\n<p>Myzfc = Left(RYzfc, 5)   <\/p>\n<p>Myzfc = Left(RYzfc, 14)   <\/p>\n<p>Myzfc = Right(RYzfc, 4)   ' <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_025()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_025\u3002<\/p>\n<p>2\u3001Dim  RYzfc$, Myzfc$  \uff1a\u58f0\u660e RYzfc, Myzfc\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\u3002<\/p>\n<p>3\u3001RYzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;  \uff1a\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfRYzfc\u3002<\/p>\n<p>4\u3001Myzfc = Left(RYzfc, 5) \uff1a\u8fd0\u7528Left \u51fd\u6570\u4eceRYzfc\u53d6\u6700\u5de6\u8fb9\u76845\u4e2a\u5b57\u7b26\u5e76\u8d4b\u7ed9Myzfc\u53d8\u91cf\uff0c\u8fd4\u56de &quot;HELLO&quot;\u3002<\/p>\n<p>5\u3001Myzfc = Left(RYzfc, 14) \uff1a\u4eceRYzfc\u53d6\u6700\u5de6\u8fb9\u768414\u4e2a\u5b57\u7b26\u5e76\u8d4b\u7ed9Myzfc\u53d8\u91cf\uff0c\u8fd4\u56de &quot;HELLO SHANGHAI&quot;\u3002<\/p>\n<p>6\u3001Myzfc = Right(RYzfc, 4) \uff1a\u4eceRYzfc\u53d6\u6700\u53f3\u8fb9\u76844\u4e2a\u5b57\u7b26\u5e76\u8d4b\u7ed9Myzfc\u53d8\u91cf\uff0c\u8fd4\u56de &quot;2010&quot;\u3002   <\/p>\n<p>Left \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u4ece\u5b57\u7b26\u4e32\u5de6\u8fb9\u7b97\u8d77\u6307\u5b9a\u6570\u91cf\u7684\u5b57\u7b26\u3002<\/p>\n<p>Left(string, length)<\/p>\n<p>Left \u51fd\u6570\u7684\u8bed\u6cd5\u6709\u4e0b\u9762\u7684\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>string  \u5fc5\u8981\u53c2\u6570\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u5176\u4e2d\u6700\u5de6\u8fb9\u7684\u90a3\u4e9b\u5b57\u7b26\u5c06\u88ab\u8fd4\u56de\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002<\/p>\n<p>length  \u5fc5\u8981\u53c2\u6570\uff1b\u4e3a Variant (Long)\u3002\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u6307\u51fa\u5c06\u8fd4\u56de\u591a\u5c11\u4e2a\u5b57\u7b26\u3002\u5982\u679c\u4e3a 0\uff0c\u8fd4\u56de\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32 (&quot;&quot;)\u3002\u5982\u679c\u5927\u4e8e\u6216\u7b49\u4e8e string \u7684\u5b57\u7b26\u6570\uff0c\u5219\u8fd4\u56de\u6574\u4e2a\u5b57\u7b26\u4e32\u3002<\/p>\n<p>Right \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u4ece\u5b57\u7b26\u4e32\u53f3\u8fb9\u53d6\u51fa\u7684\u6307\u5b9a\u6570\u91cf\u7684\u5b57\u7b26\u3002<\/p>\n<p>Right(string, length)<\/p>\n<p>Right \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4e0b\u9762\u7684\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>string  \u5fc5\u8981\u53c2\u6570\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u4ece\u4e2d\u6700\u53f3\u8fb9\u7684\u5b57\u7b26\u5c06\u88ab\u8fd4\u56de\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002<\/p>\n<p>length  \u5fc5\u8981\u53c2\u6570\uff1b\u4e3a Variant (Long)\u3002\u4e3a\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u6307\u51fa\u60f3\u8fd4\u56de\u591a\u5c11\u5b57\u7b26\u3002\u5982\u679c\u4e3a 0\uff0c\u8fd4\u56de\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32 (&quot;&quot;)\u3002\u5982\u679c\u5927\u4e8e\u6216\u7b49\u4e8e string \u7684\u5b57\u7b26\u6570\uff0c\u5219\u8fd4\u56de\u6574\u4e2a\u5b57\u7b26\u4e32\u3002<\/p>\n<h2>\u7b2c1.26\u4f8b Len \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528Len \u51fd\u6570\u6765\u5f97\u5230\u6307\u5b9a\u5b57\u7b26\u4e32\u7684\u957f\u5ea6\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_026()<\/p>\n<p>Dim Ryzfc$, Mycdu<\/p>\n<p>RYzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;   <\/p>\n<p>Mycdu = Len(RYzfc)   <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_026()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_026\u3002<\/p>\n<p>2\u3001Dim  RYzfc$, Mycdu  \uff1a\u58f0\u660e RYzfc\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\uff0cMycdu\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001RYzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;  \uff1a\u628a\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfRYzfc\u3002<\/p>\n<p>4\u3001Mycdu = Len(RYzfc) \uff1a\u8fd0\u7528Len \u51fd\u6570\u6765\u5f97\u5230\u5b57\u7b26\u4e32RYzfc\u7684\u957f\u5ea6\uff0c\u8fd4\u56de 24\u3002    <\/p>\n<p>Len \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Long\uff0c\u5176\u4e2d\u5305\u542b\u5b57\u7b26\u4e32\u5185\u5b57\u7b26\u7684\u6570\u76ee\uff0c\u6216\u662f\u5b58\u50a8\u4e00\u53d8\u91cf\u6240\u9700\u7684\u5b57\u8282\u6570\u3002<\/p>\n<p>Len(string | varname)<\/p>\n<p>Len \u51fd\u6570\u7684\u8bed\u6cd5\u6709\u4e0b\u9762\u8fd9\u4e9b\u53c2\u6570\uff1a<\/p>\n<p>string  \u4efb\u4f55\u6709\u6548\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u4f1a\u8fd4\u56de Null\u3002<\/p>\n<p>Varname \u4efb\u4f55\u6709\u6548\u7684\u53d8\u91cf\u540d\u79f0\u3002\u5982\u679c varname \u5305\u542b Null\uff0c\u4f1a\u8fd4\u56de Null\u3002\u5982\u679c varname \u662f Variant\uff0cLen \u4f1a\u89c6\u5176\u4e3a String \u5e76\u4e14\u603b\u662f\u8fd4\u56de\u5176\u5305\u542b\u7684\u5b57\u7b26\u6570\u3002<\/p>\n<h2>\u7b2c1.27\u4f8b LTrim\u3001RTrim\u4e0e Trim \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u5206\u522b\u8fd0\u7528\u8fd9\u4e09\u4e2a\u51fd\u6570\u6765\u8fd4\u56de\u6ca1\u6709\u524d\u5bfc\u7a7a\u767d (LTrim)\u3001\u5c3e\u968f\u7a7a\u767d (RTrim) \u6216\u524d\u5bfc\u548c\u5c3e\u968f\u7a7a\u767d (Trim)\u7684\u6307\u5b9a\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_027()<\/p>\n<p>Dim ZDzfc$, CJzfc$<\/p>\n<p>ZDzfc = &quot;  &lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;  &quot;   ' \u8bbe\u7f6e\u5b57\u7b26\u4e32\u521d\u503c\u3002<\/p>\n<p>CJzfc = LTrim(ZDzfc)   '\u8fd4\u56de &quot;&lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt; &quot;\u3002<\/p>\n<p>CJzfc = RTrim(ZDzfc)   '\u8fd4\u56de &quot; &lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;&quot;\u3002<\/p>\n<p>CJzfc = Trim(ZDzfc)   '\u8fd4\u56de &quot;&lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;&quot;\u3002<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_027()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_027\u3002<\/p>\n<p>2\u3001Dim  ZDzfc$, CJzfc$  \uff1a\u58f0\u660e RYzfc\u3001CJzfc\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\u3002<\/p>\n<p>3\u3001ZDzfc = &quot;  &lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;  &quot;   \uff1a\u628a\u6307\u5b9a\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfZDzfc\u3002<\/p>\n<p>4\u3001CJzfc = LTrim(ZDzfc) \uff1a  \u8fd0\u7528LTrim \u51fd\u6570\u88c1\u53bb\u5de6\u8fb9\u7684\u7a7a\u767d\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfCJzfc,\u8fd4\u56de &quot;&lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt; &quot;\u3002<\/p>\n<p>5\u3001CJzfc = RTrim(ZDzfc) \uff1a  \u8fd0\u7528RTrim \u51fd\u6570\u88c1\u53bb\u53f3\u8fb9\u7684\u7a7a\u767d\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfCJzfc,\u8fd4\u56de &quot; &lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;&quot;\u3002<\/p>\n<p>6\u3001CJzfc = Trim(ZDzfc) \uff1a  \u8fd0\u7528Trim \u51fd\u6570\u88c1\u53bb\u5de6\u53f3\u4e24\u8fb9\u7684\u7a7a\u767d\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfCJzfc,\u8fd4\u56de &quot;&lt;-\u88c1\u526a\u5b57\u7b26\u4e32-&gt;&quot;\u3002<\/p>\n<p>LTrim\u3001RTrim\u4e0e Trim \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u6307\u5b9a\u5b57\u7b26\u4e32\u7684\u62f7\u8d1d\uff0c\u6ca1\u6709\u524d\u5bfc\u7a7a\u767d (LTrim)\u3001\u5c3e\u968f\u7a7a\u767d (RTrim) \u6216\u524d\u5bfc\u548c\u5c3e\u968f\u7a7a\u767d (Trim)\u3002<\/p>\n<p>LTrim(string)<\/p>\n<p>RTrim(string)<\/p>\n<p>Trim(string)<\/p>\n<p>\u5fc5\u8981\u7684 string \u53c2\u6570\u53ef\u4ee5\u662f\u4efb\u4f55\u6709\u6548\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002 <\/p>\n<h2>\u7b2c1.28\u4f8b Mid \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u7528Mid \u51fd\u6570\u6765\u8fd4\u56de\u67d0\u4e2a\u5b57\u7b26\u4e32\u4e2d\u7684\u51e0\u4e2a\u5b57\u7b26\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_028()<\/p>\n<p>Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$<\/p>\n<p>Myzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;   <\/p>\n<p>qmzfc = Mid(Myzfc, 1, 5)   ' \u8fd4\u56de &quot;HELLO&quot;\u3002<\/p>\n<p>mwzfc = Mid(Myzfc, 21, 4)   ' \u8fd4\u56de &quot;2010&quot;\u3002<\/p>\n<p>zjzfc = Mid(Myzfc, 7)   ' \u8fd4\u56de &quot;SHANGHAI EXPO 2010&quot;\u3002<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_028()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_028\u3002<\/p>\n<p>2\u3001Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$  \uff1a\u58f0\u660e\u53d8\u91cf\u5747\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Myzfc = &quot;HELLO SHANGHAI EXPO 2010&quot;   \uff1a\u628a\u6307\u5b9a\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u5b57\u7b26\u4e32\u53d8\u91cfMyzfc\u3002<\/p>\n<p>4\u3001qmzfc = Mid(Myzfc, 1, 5)  \uff1a  \u8fd0\u7528Mid \u51fd\u6570\u4ece\u5de6\u8fb9\u7b2c\u4e00\u4e2a\u5b57\u7b26\u5f00\u59cb\u53d65\u4e2a\u5b57\u7b26\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfqmzfc,\u8fd4\u56de &quot;HELLO&quot;\u3002\u5982\u679c\u51fd\u6570\u7b2c2\u4e2a\u53c2\u6570\u8d85\u8fc7\u7b2c\u4e00\u4e2a\u53c2\u6570\u7684\u5b57\u7b26\u6570\uff0cMid \u5c06\u8fd4\u56de\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32 (&quot;&quot;)\u3002<\/p>\n<p>5\u3001mwzfc = Mid(Myzfc, 21, 4)  \uff1a  \u8fd0\u7528Mid \u51fd\u6570\u4ece\u5de6\u8fb9\u7b2c21\u4e2a\u5b57\u7b26\u5f00\u59cb\u53d64\u4e2a\u5b57\u7b26\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfmwzfc,\u8fd4\u56de &quot;2010&quot;\u3002<\/p>\n<p>6\u3001zjzfc = Mid(Myzfc, 7)  \uff1a  \u8fd0\u7528Mid \u51fd\u6570\u4ece\u5de6\u8fb9\u7b2c7\u4e2a\u5b57\u7b26\u5f00\u59cb\u53d6\u76f4\u5230\u6700\u540e\u7684\u6240\u6709\u7684\u5b57\u7b26\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfzjzfc,\u8fd4\u56de &quot;SHANGHAI EXPO 2010&quot;\u3002\u8fd9\u91cc\u51fd\u6570\u7b2c3\u4e2a\u53c2\u6570\u7701\u7565\u4e86\uff0c\u8868\u793a\u4ece\u7b2c2\u4e2a\u53c2\u6570\u5f00\u59cb\u76f4\u5230\u6700\u540e\u6240\u6709\u7684\u5b57\u7b26\u3002<\/p>\n<p>Mid \u51fd\u6570<\/p>\n<p>\u8fd4\u56de Variant (String)\uff0c\u5176\u4e2d\u5305\u542b\u5b57\u7b26\u4e32\u4e2d\u6307\u5b9a\u6570\u91cf\u7684\u5b57\u7b26\u3002<\/p>\n<p>Mid(string, start[, length])<\/p>\n<p>Mid \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4e0b\u9762\u7684\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>string  \u5fc5\u8981\u53c2\u6570\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u4ece\u4e2d\u8fd4\u56de\u5b57\u7b26\u3002\u5982\u679c string \u5305\u542b Null\uff0c\u5c06\u8fd4\u56de Null\u3002<\/p>\n<p>start   \u5fc5\u8981\u53c2\u6570\u3002\u4e3a Long\u3002string \u4e2d\u88ab\u53d6\u51fa\u90e8\u5206\u7684\u5b57\u7b26\u4f4d\u7f6e\u3002\u5982\u679c start \u8d85\u8fc7 string \u7684\u5b57\u7b26\u6570\uff0cMid \u8fd4\u56de\u96f6\u957f\u5ea6\u5b57\u7b26\u4e32 (&quot;&quot;)\u3002<\/p>\n<p>length  \u53ef\u9009\u53c2\u6570\uff1b\u4e3a Variant (Long)\u3002\u8981\u8fd4\u56de\u7684\u5b57\u7b26\u6570\u3002\u5982\u679c\u7701\u7565\u6216 length \u8d85\u8fc7\u6587\u672c\u7684\u5b57\u7b26\u6570\uff08\u5305\u62ec start \u5904\u7684\u5b57\u7b26\uff09\uff0c\u5c06\u8fd4\u56de\u5b57\u7b26\u4e32\u4e2d\u4ece start \u5230\u5c3e\u7aef\u7684\u6240\u6709\u5b57\u7b26\u3002<\/p>\n<h2>\u7b2c1.29\u4f8b Month \u548c MonthName\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u7528Month \u51fd\u6570\u6765\u8fd4\u56de\u67d0\u4e2a\u65e5\u671f\u7684\u6708\u4efd\u6570\uff0c\u7528MonthName\u51fd\u6570\u8fd4\u56de\u8fd9\u4e2a\u6708\u4efd\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_029()<\/p>\n<p>Dim rq, Yuef<\/p>\n<p>rq = #2008-8-12#   <\/p>\n<p>Yuef = Month(rq)   <\/p>\n<p>MsgBox MonthName(yuef)  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_029()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_029\u3002<\/p>\n<p>2\u3001Dim rq, Yuef  \uff1a\u58f0\u660e\u53d8\u91cf\u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001rq = #2008-8-12#    \uff1a\u628a\u6307\u5b9a\u7684\u65e5\u671f\u8d4b\u7ed9\u53d8\u91cfrq\u3002<\/p>\n<p>4\u3001Yuef = Month(rq)  \uff1a  \u8fd0\u7528Month \u51fd\u6570\u5f97\u5230\u6307\u5b9a\u65e5\u671f\u7684\u6708\u4efd\uff0c\u628a\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfYuef,\u8fd4\u56de\u6708\u4efd\u7684\u503c\u4e3a 8\u3002<\/p>\n<p>5\u3001MsgBox MonthName(yuef) \uff1a\u7528\u6d88\u606f\u6846\u8fd4\u56deMonthName\u51fd\u6570\u5f97\u5230\u7684\u8fd9\u4e2a\u6708\u4efd\u7684\u5b57\u7b26\u4e32\u201c\u516b\u6708\u201d\u3002<\/p>\n<p>Month \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Variant (Integer)\uff0c\u5176\u503c\u4e3a 1 \u5230 12 \u4e4b\u95f4\u7684\u6574\u6570\uff0c\u8868\u793a\u4e00\u5e74\u4e2d\u7684\u67d0\u6708\u3002<\/p>\n<p>Month(date) <\/p>\n<p>\u5fc5\u8981\u7684 date \u53c2\u6570\uff0c\u53ef\u4ee5\u662f\u4efb\u4f55\u80fd\u591f\u8868\u793a\u65e5\u671f\u7684 Variant\u3001\u6570\u503c\u8868\u8fbe\u5f0f\u3001\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u6216\u5b83\u4eec\u7684\u7ec4\u5408\u3002\u5982\u679c date \u5305\u542b Null\uff0c\u5219\u8fd4\u56de Null\u3002<\/p>\n<p>MonthName\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u8868\u793a\u6307\u5b9a\u6708\u4efd\u7684\u5b57\u7b26\u4e32\u3002<\/p>\n<p>MonthName(month[, abbreviate]) <\/p>\n<p>MonthName\u51fd\u6570\u8bed\u6cd5\u6709\u5982\u4e0b\u51e0\u90e8\u5206\uff1a<\/p>\n<p>month   \u5fc5\u9700\u7684\u3002\u6708\u4efd\u7684\u6570\u503c\u8868\u793a\u3002\u4f8b\u5982\u4e00\u6708\u662f1\uff0c\u4e8c\u6708\u662f2\uff0c\u7b49\u7b49\u3002<\/p>\n<p>abbreviate  \u53ef\u9009\u7684\u3002Boolean\u503c\uff0c\u8868\u793a\u6708\u4efd\u540d\u662f\u5426\u7f29\u5199\u3002\u5982\u679c\u5ffd\u7565\uff0c\u7f3a\u7701\u503c\u4e3aFalse\uff0c\u8868\u660e\u6708\u4efd\u540d\u4e0d\u80fd\u88ab\u7f29\u5199\u3002<\/p>\n<h2>\u7b2c1.30\u4f8b MsgBox \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u7528MsgBox \u51fd\u6570\u6765\u663e\u793a\u4e00\u4e2a\u5177\u6709\u201c\u662f\u201d\u53ca\u201c\u5426\u201d\u6309\u94ae\u7684\u5bf9\u8bdd\u6846\uff0c\u5e76\u6839\u636e\u7528\u6237\u5bf9\u4e8e\u6d88\u606f\u6846\u7684\u4e0d\u540c\u9009\u62e9\u8fdb\u884c\u76f8\u5173\u7684\u64cd\u4f5c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_030()<\/p>\n<p>Dim Msg, An, Bt, Yhhy<\/p>\n<p>Msg = &quot;\u4f60\u8981\u7ee7\u7eed\u5417 ?&quot;   <\/p>\n<p>An = vbYesNo + vbCritical + vbDefaultButton1   <\/p>\n<p>Bt = &quot;MsgBox \u793a\u4f8b&quot;   ' \u5b9a\u4e49\u6807\u9898\u3002<\/p>\n<p>Yhhy = MsgBox(Msg, An, Bt)<\/p>\n<p>If Yhhy = vbYes Then   ' \u7528\u6237\u6309\u4e0b\u201c\u662f\u201d\u3002<\/p>\n<p>MsgBox &quot;\u4f60\u6309\u4e0b\u7684\u662f\u201c\u662f\u201d\u6309\u94ae\u3002&quot;   ' \u5b8c\u6210\u67d0\u64cd\u4f5c\u3002<\/p>\n<p>Else   ' \u7528\u6237\u6309\u4e0b\u201c\u5426\u201d\u3002<\/p>\n<pre><code class=\"prettyprint\" >MsgBox &quot;\u4f60\u6309\u4e0b\u7684\u662f\u201c\u5426\u201d\u6309\u94ae\u3002&quot;   &#039; \u5b8c\u6210\u67d0\u64cd\u4f5c\u3002<\/code><\/pre>\n<p>End If<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_030()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_030\u3002<\/p>\n<p>2\u3001Dim Msg, An, Bt, Yhhy  \uff1a\u58f0\u660e\u53d8\u91cf\u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Msg = &quot;\u4f60\u8981\u7ee7\u7eed\u5417 ?&quot;    \uff1a\u628a\u6307\u5b9a\u7684\u4fe1\u606f\u8d4b\u7ed9\u53d8\u91cfMsg\u3002     <\/p>\n<p>4\u3001An = vbYesNo + vbCritical + vbDefaultButton1    \uff1a\u628a\u6307\u5b9a\u7684\u6309\u94ae\u8d4b\u7ed9\u53d8\u91cfAn\u3002\u8fd9\u53e5\u4e5f\u53ef\u5199\u4e3aAn =4+16\uff0c\u7b2c3\u4e2a\u53c2\u6570\u662f\u9ed8\u8ba4\u7684\uff0c\u4e3a0\uff0c\u53ef\u7701\u7565\u3002<\/p>\n<p>5\u3001Bt = &quot;MsgBox \u793a\u4f8b&quot;  \uff1a\u628a\u6d88\u606f\u6846\u7684\u6807\u9898\u8d4b\u7ed9\u53d8\u91cfBt\u3002<\/p>\n<p>6\u3001Yhhy = MsgBox(Msg, An, Bt) \uff1a\u628aMsgBox\u51fd\u6570\u7684\u8fd4\u56de\u503c\uff08\u5373\u7528\u6237\u6309\u4e86\u54ea\u4e2a\u6309\u94ae\uff09\u8d4b\u7ed9\u53d8\u91cfYhhy\u3002<\/p>\n<p>7\u3001If Yhhy = vbYes Then  \uff1a  \u5982\u679c\u7528\u6237\u6309\u4e0b\u201c\u662f\u201d\uff0c\u90a3\u4e48\u6267\u884c\u4e0b\u9762\u7684\u8bed\u53e5\uff1b<\/p>\n<p>8\u3001MsgBox &quot;\u4f60\u6309\u4e0b\u7684\u662f\u201c\u662f\u201d\u6309\u94ae\u3002&quot;   \u7528MsgBox\u51fd\u6570\u8fd4\u56de\u4fe1\u606f\uff0c\u56e0\u4e3a\u4e0d\u9700\u8981\u51fd\u6570\u7684\u8fd4\u56de\u503c\uff0c\u6240\u4ee5\u53ef\u4ee5\u53bb\u6389\u51fd\u6570\u53c2\u6570\u7684\u62ec\u53f7\u3002<\/p>\n<p>MsgBox \u51fd\u6570<\/p>\n<p>\u5728\u5bf9\u8bdd\u6846\u4e2d\u663e\u793a\u6d88\u606f\uff0c\u7b49\u5f85\u7528\u6237\u5355\u51fb\u6309\u94ae\uff0c\u5e76\u8fd4\u56de\u4e00\u4e2a Integer \uff0c\u8bf4\u660e\u7528\u6237\u5355\u51fb\u4e86\u54ea\u4e00\u4e2a\u6309\u94ae\u3002<\/p>\n<p>MsgBox(prompt[, buttons] [, title] [, helpfile, context]) <\/p>\n<p>MsgBox \u51fd\u6570\u7684\u8bed\u6cd5\u5177\u6709\u4ee5\u4e0b\u51e0\u4e2a\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>Prompt  \u5fc5\u9700\u7684\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u4f5c\u4e3a\u663e\u793a\u5728\u5bf9\u8bdd\u6846\u4e2d\u7684\u6d88\u606f\u3002prompt \u7684\u6700\u5927\u957f\u5ea6\u5927\u7ea6\u4e3a 1024 \u4e2a\u5b57\u7b26\uff0c\u7531\u6240\u7528\u5b57\u7b26\u7684\u5bbd\u5ea6\u51b3\u5b9a\u3002\u5982\u679c prompt \u7684\u5185\u5bb9\u8d85\u8fc7\u4e00\u884c\uff0c\u5219\u53ef\u4ee5\u5728\u6bcf\u4e00\u884c\u4e4b\u95f4\u7528\u56de\u8f66\u7b26 (Chr(13))\u3001\u6362\u884c\u7b26 (Chr(10)) \u6216\u662f\u56de\u8f66\u4e0e\u6362\u884c\u7b26\u7684\u7ec4\u5408 (Chr(13) &amp; Chr(10)) \u5c06\u5404\u884c\u5206\u9694\u5f00\u6765\u3002<\/p>\n<p>Buttons \u53ef\u9009\u7684\u3002\u6570\u503c\u8868\u8fbe\u5f0f\u662f\u503c\u7684\u603b\u548c\uff0c\u6307\u5b9a\u663e\u793a\u6309\u94ae\u7684\u6570\u76ee\u53ca\u5f62\u5f0f\uff0c\u4f7f\u7528\u7684\u56fe\u6807\u6837\u5f0f\uff0c\u7f3a\u7701\u6309\u94ae\u662f\u4ec0\u4e48\u4ee5\u53ca\u6d88\u606f\u6846\u7684\u5f3a\u5236\u56de\u5e94\u7b49\u3002\u5982\u679c\u7701\u7565\uff0c\u5219 buttons \u7684\u7f3a\u7701\u503c\u4e3a 0\u3002<\/p>\n<p>Title   \u53ef\u9009\u7684\u3002\u5728\u5bf9\u8bdd\u6846\u6807\u9898\u680f\u4e2d\u663e\u793a\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u3002\u5982\u679c\u7701\u7565 title\uff0c\u5219\u5c06\u5e94\u7528\u7a0b\u5e8f\u540d\u653e\u5728\u6807\u9898\u680f\u4e2d\u3002<\/p>\n<p>Helpfile\u53ef\u9009\u7684\u3002\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u8bc6\u522b\u7528\u6765\u5411\u5bf9\u8bdd\u6846\u63d0\u4f9b\u4e0a\u4e0b\u6587\u76f8\u5173\u5e2e\u52a9\u7684\u5e2e\u52a9\u6587\u4ef6\u3002\u5982\u679c\u63d0\u4f9b\u4e86 helpfile\uff0c\u5219\u4e5f\u5fc5\u987b\u63d0\u4f9b context\u3002<\/p>\n<p>Context \u53ef\u9009\u7684\u3002\u6570\u503c\u8868\u8fbe\u5f0f\uff0c\u7531\u5e2e\u52a9\u6587\u4ef6\u7684\u4f5c\u8005\u6307\u5b9a\u7ed9\u9002\u5f53\u7684\u5e2e\u52a9\u4e3b\u9898\u7684\u5e2e\u52a9\u4e0a\u4e0b\u6587\u7f16\u53f7\u3002\u5982\u679c\u63d0\u4f9b\u4e86 context\uff0c\u5219\u4e5f\u5fc5\u987b\u63d0\u4f9b helpfile\u3002<\/p>\n<p>\u8bbe\u7f6e\u503c<\/p>\n<p>buttons \u53c2\u6570\u6709\u4e0b\u5217\u8bbe\u7f6e\u503c\uff1a<\/p>\n<p>\u5e38\u6570          \u503c   \u63cf\u8ff0<\/p>\n<p>vbOKOnly        0   \u53ea\u663e\u793a OK \u6309\u94ae\u3002<\/p>\n<p>VbOKCancel      1   \u663e\u793a OK \u53ca Cancel \u6309\u94ae\u3002<\/p>\n<p>VbAbortRetryIgnore  2   \u663e\u793a Abort\u3001Retry \u53ca Ignore \u6309\u94ae\u3002<\/p>\n<p>VbYesNoCancel       3   \u663e\u793a Yes\u3001No \u53ca Cancel \u6309\u94ae\u3002<\/p>\n<p>VbYesNo         4    \u663e\u793a Yes \u53ca No \u6309\u94ae\u3002<\/p>\n<p>VbRetryCancel    5    \u663e\u793a Retry \u53ca Cancel \u6309\u94ae\u3002<\/p>\n<p>VbCritical      16    \u663e\u793a Critical Message \u56fe\u6807\u3002<\/p>\n<p>VbQuestion   32    \u663e\u793a Warning Query \u56fe\u6807\u3002<\/p>\n<p>VbExclamation    48    \u663e\u793a Warning Message \u56fe\u6807\u3002<\/p>\n<p>VbInformation    64    \u663e\u793a Information Message \u56fe\u6807\u3002<\/p>\n<p>vbDefaultButton1    0   \u7b2c\u4e00\u4e2a\u6309\u94ae\u662f\u7f3a\u7701\u503c\u3002<\/p>\n<p>vbDefaultButton2    256 \u7b2c\u4e8c\u4e2a\u6309\u94ae\u662f\u7f3a\u7701\u503c\u3002<\/p>\n<p>vbDefaultButton3    512 \u7b2c\u4e09\u4e2a\u6309\u94ae\u662f\u7f3a\u7701\u503c\u3002<\/p>\n<p>vbDefaultButton4    768 \u7b2c\u56db\u4e2a\u6309\u94ae\u662f\u7f3a\u7701\u503c\u3002<\/p>\n<p>vbApplicationModal  0   \u5e94\u7528\u7a0b\u5e8f\u5f3a\u5236\u8fd4\u56de\uff1b\u5e94\u7528\u7a0b\u5e8f\u4e00\u76f4\u88ab\u6302\u8d77\u76f4\u5230\u7528\u6237\u5bf9\u6d88\u606f\u6846\u4f5c\u51fa\u54cd\u5e94\u624d\u7ee7\u7eed\u5de5\u4f5c\u3002<\/p>\n<p>vbSystemModal       4096    \u7cfb\u7edf\u5f3a\u5236\u8fd4\u56de\uff1b\u5168\u90e8\u5e94\u7528\u7a0b\u5e8f\u90fd\u88ab\u6302\u8d77\uff0c\u76f4\u5230\u7528\u6237\u5bf9\u6d88\u606f\u6846\u4f5c\u51fa\u54cd\u5e94\u624d\u7ee7\u7eed\u5de5\u4f5c\u3002<\/p>\n<p>vbMsgBoxHelpButton  16384   \u5c06Help\u6309\u94ae\u6dfb\u52a0\u5230\u6d88\u606f\u6846<\/p>\n<p>VbMsgBoxSetForeground   65536   \u6307\u5b9a\u6d88\u606f\u6846\u7a97\u53e3\u4f5c\u4e3a\u524d\u666f\u7a97\u53e3<\/p>\n<p>vbMsgBoxRight       524288  \u6587\u672c\u4e3a\u53f3\u5bf9\u9f50<\/p>\n<p>vbMsgBoxRtlReading  1048576 \u6307\u5b9a\u6587\u672c\u5e94\u4e3a\u5728\u5e0c\u4f2f\u6765\u548c\u963f\u62c9\u4f2f\u8bed\u7cfb\u7edf\u4e2d\u7684\u4ece\u53f3\u5230\u5de6\u663e\u793a<\/p>\n<p>\u7b2c\u4e00\u7ec4\u503c (0\u20135) \u63cf\u8ff0\u4e86\u5bf9\u8bdd\u6846\u4e2d\u663e\u793a\u7684\u6309\u94ae\u7684\u7c7b\u578b\u4e0e\u6570\u76ee\uff1b<\/p>\n<p>\u7b2c\u4e8c\u7ec4\u503c (16, 32, 48, 64) \u63cf\u8ff0\u4e86\u56fe\u6807\u7684\u6837\u5f0f\uff1b<\/p>\n<p>\u7b2c\u4e09\u7ec4\u503c (0, 256, 512) \u8bf4\u660e\u54ea\u4e00\u4e2a\u6309\u94ae\u662f\u7f3a\u7701\u503c\uff1b<\/p>\n<p>\u7b2c\u56db\u7ec4\u503c (0, 4096) \u5219\u51b3\u5b9a\u6d88\u606f\u6846\u7684\u5f3a\u5236\u8fd4\u56de\u6027\u3002\u5c06\u8fd9\u4e9b\u6570\u5b57\u76f8\u52a0\u4ee5\u751f\u6210 buttons \u53c2\u6570\u503c\u7684\u65f6\u5019\uff0c\u53ea\u80fd\u7531\u6bcf\u7ec4\u503c\u53d6\u7528\u4e00\u4e2a\u6570\u5b57\u3002<\/p>\n<p>\u7b2c\u4e94\u7ec4\u503c (16384, 65536\uff0c524288\uff0c1048576)\u662f\u9644\u52a0\u9009\u9879\u3002<\/p>\n<p>\u6ce8\u610f \u8fd9\u4e9b\u5e38\u6570\u90fd\u662f Visual Basic for Applications (VBA) \u6307\u5b9a\u7684\u3002\u7ed3\u679c\uff0c\u53ef\u4ee5\u5728\u7a0b\u5e8f\u4ee3\u7801\u4e2d\u5230\u5904\u4f7f\u7528\u8fd9\u4e9b\u5e38\u6570\u540d\u79f0\uff0c\u800c\u4e0d\u5fc5\u4f7f\u7528\u5b9e\u9645\u6570\u503c\u3002<\/p>\n<p>\u8fd4\u56de\u503c<\/p>\n<p>\u5e38\u6570      \u503c   \u63cf\u8ff0<\/p>\n<p>vbOK        1   \u786e\u5b9a<\/p>\n<p>vbCancel    2   \u53d6\u6d88<\/p>\n<p>vbAbort     3   \u653e\u5f03<\/p>\n<p>vbRetry     4   \u91cd\u8bd5<\/p>\n<p>vbIgnore    5   \u5ffd\u7565<\/p>\n<p>vbYes       6   \u662f<\/p>\n<p>vbNo        7   \u5426<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u5728\u63d0\u4f9b\u4e86 helpfile \u4e0e context \u7684\u65f6\u5019\uff0c\u7528\u6237\u53ef\u4ee5\u6309 F1(Windows) or HELP (Macintosh) \u6765\u67e5\u770b\u4e0e context \u76f8\u5e94\u7684\u5e2e\u52a9\u4e3b\u9898\u3002\u50cf Microsoft Excel \u8fd9\u6837\u4e00\u4e9b\u4e3b\u5e94\u7528\u7a0b\u5e8f\u4e5f\u4f1a\u5728\u5bf9\u8bdd\u6846\u4e2d\u81ea\u52a8\u6dfb\u52a0\u4e00\u4e2a \u5e2e\u52a9 \u6309\u94ae\u3002<\/p>\n<p>\u5982\u679c\u5bf9\u8bdd\u6846\u663e\u793a \u53d6\u6d88 \u6309\u94ae\uff0c\u5219\u6309\u4e0b ESC \u952e\u4e0e\u5355\u51fb \u53d6\u6d88 \u6309\u94ae\u7684\u6548\u679c\u76f8\u540c\u3002\u5982\u679c\u5bf9\u8bdd\u6846\u4e2d\u6709 Help \u6309\u94ae\uff0c\u5219\u5bf9\u8bdd\u6846\u4e2d\u63d0\u4f9b\u6709\u4e0a\u4e0b\u6587\u76f8\u5173\u7684\u5e2e\u52a9\u3002\u4f46\u662f\uff0c\u76f4\u5230\u5176\u5b83\u6309\u94ae\u4e2d\u6709\u4e00\u4e2a\u88ab\u5355\u51fb\u4e4b\u524d\uff0c\u90fd\u4e0d\u4f1a\u8fd4\u56de\u4efb\u4f55\u503c\u3002<\/p>\n<p>\u6ce8\u610f \u5982\u679c\u8fd8\u8981\u6307\u5b9a\u7b2c\u4e00\u4e2a\u547d\u540d\u53c2\u6570\u4ee5\u5916\u7684\u53c2\u6570\uff0c\u5219\u5fc5\u987b\u5728\u8868\u8fbe\u5f0f\u4e2d\u4f7f\u7528 MsgBox\u3002\u4e3a\u4e86\u7701\u7565\u67d0\u4e9b\u4f4d\u7f6e\u53c2\u6570\uff0c\u5fc5\u987b\u52a0\u5165\u76f8\u5e94\u7684\u9017\u53f7\u5206\u754c\u7b26\u3002<\/p>\n<h2>\u7b2c1.31\u4f8b Now\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u4f7f\u7528 Now \u51fd\u6570\u8fd4\u56de\u7cfb\u7edf\u5f53\u524d\u7684\u65e5\u671f\u4e0e\u65f6\u95f4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_031()<\/p>\n<pre><code class=\"prettyprint\" >Dim jt<\/code><\/pre>\n<p>jt = Now  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_031()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_031\u3002<\/p>\n<p>2\u3001Dim jt  \uff1a\u58f0\u660e\u53d8\u91cfjt\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001jt = Now    \uff1a\u628a\u7cfb\u7edf\u5f53\u524d\u7684\u65e5\u671f\u4e0e\u65f6\u95f4\u8d4b\u7ed9\u53d8\u91cfjt\u3002<\/p>\n<p>\u6ce8\u610f\uff1aNow\u51fd\u6570\u91cc\u5305\u542b\u65f6\u95f4\uff0c\u5982\u679c\u53ea\u9700\u8981\u65e5\u671f\uff0c\u53ef\u7528Date\u51fd\u6570\u3002Date\u51fd\u6570\u8bf7\u89c1\u7b2c1_05\u4f8b\u3002<\/p>\n<p>Now \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Variant (Date)\uff0c\u6839\u636e\u8ba1\u7b97\u673a\u7cfb\u7edf\u8bbe\u7f6e\u7684\u65e5\u671f\u548c\u65f6\u95f4\u6765\u6307\u5b9a\u65e5\u671f\u548c\u65f6\u95f4\u3002<\/p>\n<h2>\u7b2c1.32\u4f8b RGB\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u4f7f\u7528 RGB \u51fd\u6570\u8fd4\u56deA1\u5355\u5143\u683c\u7684\u5e95\u8272\u548c\u5b57\u4f53\u7684 RGB \u8272\u5f69\u503c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_032()<\/p>\n<p>Dim hs, I, RGBValue<\/p>\n<p>hs = RGB(255, 255, 0)   <\/p>\n<p>I = 35   <\/p>\n<p>RGBValue = RGB(I, 64 + I, 128 + I)   <\/p>\n<p>Cells(5, 1).Interior.Color = RGBValue<\/p>\n<p>Cells(5, 1).Font.Color = hs<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_032()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_032\u3002<\/p>\n<p>2\u3001Dim hs, I, RGBValue  \uff1a\u58f0\u660e\u53d8\u91cf\u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001hs = RGB(255, 255, 0)  \uff1a\u628a\u7ea2\u7eff\u84dd\u8272\u5f69\u7a7a\u95f4\u7684\u8272\u5f69\u503c\u8d4b\u7ed9\u53d8\u91cfhs\uff08\u9ec4\u8272\uff09\u3002<\/p>\n<p>4\u3001I = 35  \uff1a\u628a35\u8d4b\u7ed9\u53d8\u91cfI\u3002<\/p>\n<p>5\u3001RGBValue = RGB(I, 64 + I, 128 + I) \uff1a\u628a\u4e0d\u53d8\u91cfI\u4f5c\u4e3a\u504f\u79fb\u91cf\u8ba1\u7b97\u5f97\u5230\u7684\u7ea2\u7eff\u84dd\u8272\u5f69\u7a7a\u95f4\u4e2d\u7684RGB(35, 99, 163)\u989c\u8272\u8d4b\u7ed9\u53d8\u91cfRGBValue\u3002<\/p>\n<p>6\u3001Cells(5, 1).Interior.Color = RGBValue \uff1a\u628a\u989c\u8272\u8d4b\u7ed9\u5355\u5143\u683cA5\u7684\u5e95\u8272\u3002<\/p>\n<p>7\u3001Cells(5, 1).Font.Color = hs \uff1a\u628a\u9ec4\u8272\u8d4b\u7ed9\u5355\u5143\u683cA5\u7684\u5b57\u4f53\u3002<\/p>\n<p>RGB\u51fd\u6570<\/p>\n<p>\u7528\u6765\u8868\u793a\u4e00\u4e2aRGB\u989c\u8272\u503c\u3002<\/p>\n<p>RGB(red, green, blue)<\/p>\n<p>RGB\u51fd\u6570\u7684\u53c2\u6570<\/p>\n<p>red \u5fc5\u8981\u7684\u53c2\u6570\uff0cVariant (Integer)\uff0c\u6570\u503c\u8303\u56f4\u4ece0\uff5e255\uff0c\u8868\u793a\u989c\u8272\u7684\u7ea2\u8272\u6210\u5206<\/p>\n<p>green \u5fc5\u8981\u7684\u53c2\u6570\uff0cVariant (Integer)\uff0c\u6570\u503c\u8303\u56f4\u4ece0\uff5e255\uff0c\u8868\u793a\u989c\u8272\u7684\u7eff\u8272\u6210\u5206<\/p>\n<p>Blue \u5fc5\u8981\u7684\u53c2\u6570\uff0cVariant (Integer)\uff0c\u6570\u503c\u8303\u56f4\u4ece0\uff5e255\uff0c\u8868\u793a\u989c\u8272\u7684\u84dd\u8272\u6210\u5206<\/p>\n<p>\u6ce8\u610f\uff1a\u4f7f\u7528RGB\u51fd\u6570\u8bbe\u7f6e\u989c\u8272\u53d7\u7cfb\u7edf\u9650\u5236\uff0c\u5982\u679c\u7cfb\u7edf\u53ea\u80fd\u663e\u793a16\u8272\uff0c\u90a3\u4e48RGB\u51fd\u6570\u5c31\u4e0d\u80fd\u8bbe\u7f6e\u51fa\u66f4\u591a\u7684\u989c\u8272\u3002<\/p>\n<h2>\u7b2c1.33\u4f8b Rnd\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u4f7f\u7528 Rnd \u51fd\u6570\u968f\u673a\u751f\u6210\u4e00\u4e2a 1 \u5230 100 \u7684\u968f\u673a\u6574\u6570\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_033()<\/p>\n<p>Dim x%<\/p>\n<p>For x = 1 To 10<\/p>\n<pre><code class=\"prettyprint\" >Cells(x, 2) = Int((100  Rnd) + 1)  &#039; \u751f\u6210 1 \u5230 100 \u4e4b\u95f4\u7684\u968f\u673a\u6570\u503c\u3002<\/code><\/pre>\n<p>Next x<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_033()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_033\u3002<\/p>\n<p>2\u3001Dim x%  \uff1a\u58f0\u660e\u53d8\u91cfx\u4e3a\u6574\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001For x = 1 To 10 \uff1ax\u4ece1 \u523010\u8fdb\u884c\u5faa\u73af\u3002<\/p>\n<p>4\u3001Cells(x, 2) = Int((100  Rnd) + 1) \uff1a\u628a\u4f7f\u7528Rnd \u51fd\u6570\u4ea7\u751f\u7684\u968f\u673a\u6570\u4e58100\u52a01\u4ee5\u540e\u518d\u53d6\u6574\u5f97\u5230\u7684\u6570\u503c\u4f9d\u6b21\u8d4b\u7ed9B\u5217\u5355\u5143\u683c\u3002<\/p>\n<p>Rnd \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5305\u542b\u968f\u673a\u6570\u503c\u7684 Single\u3002<\/p>\n<p>Rnd[(number)]<\/p>\n<p>\u53ef\u9009\u7684 number \u53c2\u6570\u662f Single \u6216\u4efb\u4f55\u6709\u6548\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u8fd4\u56de\u503c<\/p>\n<p>\u5982\u679c number \u7684\u503c\u662f   Rnd \u751f\u6210<\/p>\n<p>\u5c0f\u4e8e 0    \u6bcf\u6b21\u90fd\u4f7f\u7528 number \u4f5c\u4e3a\u968f\u673a\u6570\u79cd\u5b50\u5f97\u5230\u7684\u76f8\u540c\u7ed3\u679c\u3002<\/p>\n<p>\u5927\u4e8e 0    \u5e8f\u5217\u4e2d\u7684\u4e0b\u4e00\u4e2a\u968f\u673a\u6570\u3002<\/p>\n<p>\u7b49\u4e8e 0    \u6700\u8fd1\u751f\u6210\u7684\u6570\u3002<\/p>\n<p>\u7701\u7565  \u5e8f\u5217\u4e2d\u7684\u4e0b\u4e00\u4e2a\u968f\u673a\u6570\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>Rnd \u51fd\u6570\u8fd4\u56de\u5c0f\u4e8e 1 \u4f46\u5927\u4e8e\u6216\u7b49\u4e8e 0 \u7684\u503c\u3002<\/p>\n<p>number \u7684\u503c\u51b3\u5b9a\u4e86 Rnd \u751f\u6210\u968f\u673a\u6570\u7684\u65b9\u5f0f\u3002<\/p>\n<p>\u5bf9\u6700\u521d\u7ed9\u5b9a\u7684\u79cd\u5b50\u90fd\u4f1a\u751f\u6210\u76f8\u540c\u7684\u6570\u5217\uff0c\u56e0\u4e3a\u6bcf\u4e00\u6b21\u8c03\u7528 Rnd \u51fd\u6570\u90fd\u7528\u6570\u5217\u4e2d\u7684\u524d\u4e00\u4e2a\u6570\u4f5c\u4e3a\u4e0b\u4e00\u4e2a\u6570\u7684\u79cd\u5b50\u3002<\/p>\n<p>\u5728\u8c03\u7528 Rnd \u4e4b\u524d\uff0c\u5148\u4f7f\u7528\u65e0\u53c2\u6570\u7684 Randomize \u8bed\u53e5\u521d\u59cb\u5316\u968f\u673a\u6570\u751f\u6210\u5668\uff0c\u8be5\u751f\u6210\u5668\u5177\u6709\u6839\u636e\u7cfb\u7edf\u8ba1\u65f6\u5668\u5f97\u5230\u7684\u79cd\u5b50\u3002<\/p>\n<p>\u4e3a\u4e86\u751f\u6210\u67d0\u4e2a\u8303\u56f4\u5185\u7684\u968f\u673a\u6574\u6570\uff0c\u53ef\u4f7f\u7528\u4ee5\u4e0b\u516c\u5f0f\uff1a<\/p>\n<p>Int((upperbound - lowerbound + 1)  Rnd + lowerbound)<\/p>\n<p>\u8fd9\u91cc\uff0cupperbound \u662f\u968f\u673a\u6570\u8303\u56f4\u7684\u4e0a\u9650\uff0c\u800c lowerbound \u5219\u662f\u968f\u673a\u6570\u8303\u56f4\u7684\u4e0b\u9650\u3002<\/p>\n<p>\u6ce8\u610f \u82e5\u60f3\u5f97\u5230\u91cd\u590d\u7684\u968f\u673a\u6570\u5e8f\u5217\uff0c\u5728\u4f7f\u7528\u5177\u6709\u6570\u503c\u53c2\u6570\u7684 Randomize \u4e4b\u524d\u76f4\u63a5\u8c03\u7528\u5177\u6709\u8d1f\u53c2\u6570\u503c\u7684 Rnd\u3002\u4f7f\u7528\u5177\u6709\u540c\u6837 number \u503c\u7684 Randomize \u662f\u4e0d\u4f1a\u5f97\u5230\u91cd\u590d\u7684\u968f\u673a\u6570\u5e8f\u5217\u7684\u3002<\/p>\n<h2>\u7b2c1.34\u4f8b Round\u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u4f7f\u7528 Round \u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u6570\u503c\uff0c\u8be5\u6570\u503c\u662f\u6309\u7167\u6307\u5b9a\u7684\u5c0f\u6570\u4f4d\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u7ed3\u679c\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_034()<\/p>\n<pre><code class=\"prettyprint\" >Dim Zdz<\/code><\/pre>\n<p>Zdz = Round(5.235, 2)  '\u8fd4\u56de5.24<\/p>\n<p>Zdz = Round(5.225, 2)  '\u8fd4\u56de5.22<\/p>\n<p>Zdz = Round(2.5)  '\u8fd4\u56de2<\/p>\n<p>Zdz = Round(2.6)  '\u8fd4\u56de3<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_034()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_034\u3002<\/p>\n<p>2\u3001Dim Zdz!  \uff1a\u58f0\u660e\u53d8\u91cfZdz\u4e3a\u5355\u7cbe\u5ea6\u6d6e\u70b9\u578b\u53d8\u91cf\u3002!\u662f\u5355\u7cbe\u5ea6\u6d6e\u70b9\u578b\u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\uff0c\u5176\u5b83\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u8bf7\u89c1\u7b2c1_024\u4f8b\u3002<\/p>\n<p>3\u3001Zdz = Round(5.235, 2) \uff1a\u628a\u6307\u5b9a\u6570\u503c5.235\u8fd0\u7528Round \u51fd\u6570\u6309\u7167\u5c0f\u6570\u70b9\u540e\u97622\u4f4d\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfZdz\uff0c\u8fd4\u56de5.24\u3002<\/p>\n<p>4\u3001Zdz = Round(5.225, 2) \uff1a\u628a\u6307\u5b9a\u6570\u503c5.225\u8fd0\u7528Round \u51fd\u6570\u6309\u7167\u5c0f\u6570\u70b9\u540e\u97622\u4f4d\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u7ed3\u679c\u8d4b\u7ed9\u53d8\u91cfZdz\uff0c\u8fd4\u56de5.22\u3002\u8bf7\u5927\u5bb6\u6ce8\u610f\uff1a\u8fd9\u91cc\u7684\u7b54\u6848\u4e0d\u51c6\u786e\uff01\u4e0e\u6211\u4eec\u8fd0\u7528\u5de5\u4f5c\u8868Round\u51fd\u6570\u8fd0\u7b97\u7684\u7ed3\u679c\u4e0d\u4e00\u6837\u3002\u5176\u539f\u56e0\u662fVBA\u7684Round \u51fd\u6570\u91c7\u7528\u7684\u662fBanker\u820d\u5165\u6cd5\uff0c\u800c\u4e0d\u662f\u7b97\u672f\u820d\u5165\u3002\u6309\u7167Banker\u820d\u5165\u89c4\u5219\uff0c\u5982\u679c\u4fdd\u7559\u4f4d\u6570\u7684\u4e0b\u4e00\u4f4d\u6570\u5b57\u6b63\u597d\u662f5\u4e14\u5176\u540e\u6ca1\u6709\u5176\u5b83\u7684\u6709\u6548\u6570\u5b57\uff0c\u5219\u4f9d\u4fdd\u7559\u4f4d\u6700\u540e\u4e00\u4f4d\u201c\u5076\u820d\u5947\u5165\u201d\u7684\u65b9\u6cd5\u8fdb\u884c\u5904\u7406\u3002<\/p>\n<p>\u6240\u4ee5\u5e94\u8be5\u7528\u5de5\u4f5c\u8868\u51fd\u6570\u6765\u4ee3\u66ff\u8fd9\u4e2aVBA\u51fd\u6570\uff1a\u5373\u7528Application.Round(2.5)\u6765\u4ee3\u66ffRound(2.5)\u3002<\/p>\n<p>Round\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u6570\u503c\uff0c\u8be5\u6570\u503c\u662f\u6309\u7167\u6307\u5b9a\u7684\u5c0f\u6570\u4f4d\u6570\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u7ed3\u679c\u3002<\/p>\n<p>Round(expression [,numdecimalplaces]) <\/p>\n<p>Round\u51fd\u6570\u6709\u5982\u4e0b\u7684\u53c2\u6570\uff1a<\/p>\n<p>expression  \u5fc5\u9700\u7684\u3002\u8981\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>numdecimalplaces    \u53ef\u9009\u7684\u3002\u6570\u5b57\u503c\uff0c\u8868\u793a\u8fdb\u884c\u56db\u820d\u4e94\u5165\u8fd0\u7b97\u65f6\uff0c\u5c0f\u6570\u70b9\u53f3\u8fb9\u5e94\u4fdd\u7559\u7684\u4f4d\u6570\u3002\u5982\u679c\u5ffd\u7565\uff0c\u5219Round\u51fd\u6570\u8fd4\u56de\u6574\u6570\u3002<\/p>\n<h2>\u7b2c1.35\u4f8b Split \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 Split  \u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u4e00\u7ef4\u6570\u7ec4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_035()<\/p>\n<p>Dim x%,aa,Arr<\/p>\n<p>For x=1 to 5<\/p>\n<p>aa=aa &amp; x &amp; \u201c,\u201d<\/p>\n<p>Next x<\/p>\n<p>aa = Left(aa, Len(aa) - 1) <\/p>\n<p>Arr=Split(aa,\u201d,\u201d)<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_035()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_035\u3002<\/p>\n<p>2\u3001Dim x% ,aa,Arr  \uff1a\u58f0\u660e\u53d8\u91cfx\u4e3a\u6574\u578b\u53d8\u91cf\uff0c\u5176\u4f59\u4e24\u4e2a\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001For x = 1 To 5 \uff1ax\u4ece1 \u52305\u8fdb\u884c\u5faa\u73af\u3002<\/p>\n<p>4\u3001aa=aa &amp; x &amp; \u201c,\u201d \uff1a\u6839\u636e\u5faa\u73af\u4f9d\u6b21\u628a\u53d8\u91cfx\u7684\u503c\u548c\u9017\u53f7\u7ec4\u6210\u7684\u5b57\u7b26\u4e32\u8d4b\u7ed9\u53d8\u91cfaa\u3002\u8fd4\u56de\u201d1,2,3,4,5,\u201d<\/p>\n<p>5\u3001aa = Left(aa, Len(aa) - 1) \uff1a\u56e0\u4e3a\u5b57\u7b26\u4e32aa\u6700\u540e\u591a\u4e86\u4e00\u4e2a\u9017\u53f7\uff0c\u6240\u4ee5\u8fd0\u7528Left \u548cLen\u51fd\u6570\u53bb\u9664\u8fd9\u4e2a\u9017\u53f7\u4ee5\u540e\u518d\u8d4b\u7ed9\u53d8\u91cfaa\u3002\u8fd4\u56de\u201d1,2,3,4,5\u201d<\/p>\n<p>6\u3001Arr=Split(aa,\u201d,\u201d) \uff1a\u8fd0\u7528 Split  \u51fd\u6570\u8fd4\u56de\u4e00\u4e2a\u4e00\u7ef4\u6570\u7ec4\u8d4b\u7ed9\u53d8\u91cfArr(0 to 4)\u3002\u6ce8\u610f\uff1a\u8fd9\u91cc\u662f\u4ee50\u4e3a\u4e0b\u6807\u7684\u4e00\u7ef4\u6570\u7ec4\u3002<\/p>\n<p>Split\u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u4e0b\u6807\u4ece\u96f6\u5f00\u59cb\u7684\u4e00\u7ef4\u6570\u7ec4\uff0c\u5b83\u5305\u542b\u6307\u5b9a\u6570\u76ee\u7684\u5b50\u5b57\u7b26\u4e32\u3002<\/p>\n<p>Split(expression[, delimiter[, limit[, compare]]]) <\/p>\n<p>Split\u51fd\u6570\u8bed\u6cd5\u6709\u5982\u4e0b\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>expression  \u5fc5\u9700\u7684\u3002\u5305\u542b\u5b50\u5b57\u7b26\u4e32\u548c\u5206\u9694\u7b26\u7684\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f \u3002\u5982\u679cexpression\u662f\u4e00\u4e2a\u957f\u5ea6\u4e3a\u96f6\u7684\u5b57\u7b26\u4e32(&quot;&quot;)\uff0cSplit\u5219\u8fd4\u56de\u4e00\u4e2a\u7a7a\u6570\u7ec4\uff0c\u5373\u6ca1\u6709\u5143\u7d20\u548c\u6570\u636e\u7684\u6570\u7ec4\u3002<\/p>\n<p>delimiter   \u53ef\u9009\u7684\u3002\u7528\u4e8e\u6807\u8bc6\u5b50\u5b57\u7b26\u4e32\u8fb9\u754c\u7684\u5b57\u7b26\u4e32\u5b57\u7b26\u3002\u5982\u679c\u5ffd\u7565\uff0c\u5219\u4f7f\u7528\u7a7a\u683c\u5b57\u7b26(&quot; &quot;)\u4f5c\u4e3a\u5206\u9694\u7b26\u3002\u5982\u679cdelimiter\u662f\u4e00\u4e2a\u957f\u5ea6\u4e3a\u96f6\u7684\u5b57\u7b26\u4e32\uff0c\u5219\u8fd4\u56de\u7684\u6570\u7ec4\u4ec5\u5305\u542b\u4e00\u4e2a\u5143\u7d20\uff0c\u5373\u5b8c\u6574\u7684 expression\u5b57\u7b26\u4e32\u3002<\/p>\n<p>limit   \u53ef\u9009\u7684\u3002\u8981\u8fd4\u56de\u7684\u5b50\u5b57\u7b26\u4e32\u6570\uff0c\u20131\u8868\u793a\u8fd4\u56de\u6240\u6709\u7684\u5b50\u5b57\u7b26\u4e32\u3002<\/p>\n<p>compare \u53ef\u9009\u7684\u3002\u6570\u5b57\u503c\uff0c\u8868\u793a\u5224\u522b\u5b50\u5b57\u7b26\u4e32\u65f6\u4f7f\u7528\u7684\u6bd4\u8f83\u65b9\u5f0f\u3002\u5173\u4e8e\u5176\u503c\uff0c\u8bf7\u53c2\u9605\u201c\u8bbe\u7f6e\u503c\u201d\u90e8\u5206\u3002<\/p>\n<p>\u8bbe\u7f6e\u503c<\/p>\n<p>compare\u53c2\u6570\u7684\u8bbe\u7f6e\u503c\u5982\u4e0b\uff1a<\/p>\n<p>\u5e38\u6570         \u503c    \u63cf\u8ff0<\/p>\n<p>vbUseCompareOption  \u20131  \u7528Option Compare\u8bed\u53e5\u4e2d\u7684\u8bbe\u7f6e\u503c\u6267\u884c\u6bd4\u8f83\u3002<\/p>\n<p>vbBinaryCompare    0    \u6267\u884c\u4e8c\u8fdb\u5236\u6bd4\u8f83\u3002<\/p>\n<p>vbTextCompare      1    \u6267\u884c\u6587\u5b57\u6bd4\u8f83\u3002<\/p>\n<p>vbDatabaseCompare    2  \u4ec5\u7528\u4e8eMicrosoft Access\u3002\u57fa\u4e8e\u60a8\u7684\u6570\u636e\u5e93\u7684\u4fe1\u606f\u6267\u884c\u6bd4\u8f83\u3002<\/p>\n<h2>\u7b2c1.36\u4f8b Sqr \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 Sqr  \u51fd\u6570\u8fd4\u56de\u6307\u5b9a\u53c2\u6570\u7684\u5e73\u65b9\u6839\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_036()<\/p>\n<p>Dim Gou&amp;, Gu&amp;, Xian&amp;, Pfg<\/p>\n<p>Gou = 3<\/p>\n<p>Gu = 4<\/p>\n<p>Xian = Sqr(Gou  Gou + Gu  Gu)<\/p>\n<p>Pfg = Sqr(-4)  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_036()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_036\u3002<\/p>\n<p>2\u3001Dim Gou&amp;, Gu&amp;, Xian&amp;, Pfg \uff1a\u58f0\u660e\u53d8\u91cfGou\u3001Gu\u3001Xian\u4e3a\u53cc\u7cbe\u5ea6\u6d6e\u70b9\u578b\u53d8\u91cf\uff0c&amp; \u53cc\u7cbe\u5ea6\u6d6e\u70b9\u578b\u53d8\u91cfDouble\u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\uff0c\u5176\u5b83\u6709\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u7684\u6570\u636e\u7c7b\u578b\u8bf7\u89c1\u7b2c1.24\u4f8b\uff1aPfg\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Gou = 3 \uff1a\u628a3\u8d4b\u7ed9\u53d8\u91cfGou\u3002<\/p>\n<p>4\u3001Gu = 4  \uff1a\u628a4\u8d4b\u7ed9\u53d8\u91cfGu\u3002<\/p>\n<p>5\u3001Xian = Sqr(Gou  Gou + Gu  Gu) \uff1a\u8fd0\u7528Sqr\u51fd\u6570\u8ba1\u7b97\u51fa25\u7684\u5e73\u65b9\u68395\uff0c\u8d4b\u7ed9\u53d8\u91cfXian\uff1b<\/p>\n<p>6\u3001Pfg = Sqr(-4)  \uff1a\u751f\u6210\u4e00\u4e2a\u8fd0\u884c\u65f6\u9519\u8bef\uff08\u8d1f\u6570\u4e0d\u80fd\u7528\u6b64\u51fd\u6570\u5f00\u5e73\u65b9\u6839\uff09\u3002<\/p>\n<p>\u6ce8\u610f\u5de5\u4f5c\u8868\u51fd\u6570\u4e2d\u4e5f\u6709\u76f8\u540c\u7684\u51fd\u6570\uff0c\u4f46\u662f\u540d\u5b57\u662fSQRT\u3002<\/p>\n<p>Sqr \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Double\uff0c\u6307\u5b9a\u53c2\u6570\u7684\u5e73\u65b9\u6839\u3002<\/p>\n<p>Sqr(number) <\/p>\n<p>\u5fc5\u8981\u7684 number \u53c2\u6570 number \u662f Double \u6216\u4efb\u4f55\u6709\u6548\u7684\u5927\u4e8e\u6216\u7b49\u4e8e 0 \u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<h2>\u7b2c1.37\u4f8b Str \u548cCStr \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 Str  \u51fd\u6570\u6216\u8005CStr \u51fd\u6570\u6765\u5c06\u4e00\u4e2a\u6570\u5b57\u8f6c\u6210\u5b57\u7b26\u4e32\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_037()<\/p>\n<p>Dim Zfc$<\/p>\n<p>Zfc = Str(459)<\/p>\n<p>MsgBox Len(Zfc)<\/p>\n<p>Zfc = Str(-459.65)<\/p>\n<p>Zfc = CStr(459)<\/p>\n<p>MsgBox Len(Zfc)<\/p>\n<p>Zfc = CStr(-459.65)<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_037()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_037\u3002<\/p>\n<p>2\u3001Dim Zfc$  \uff1a\u58f0\u660e\u53d8\u91cfZfc \u4e3a\u5b57\u7b26\u4e32\u53d8\u91cf\uff0c$\u4e3a\u5b57\u7b26\u4e32\u53d8\u91cfString\u7684\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\uff0c\u5176\u5b83\u6709\u7c7b\u578b\u58f0\u660e\u5b57\u7b26\u7684\u6570\u636e\u7c7b\u578b\u8bf7\u89c1\u7b2c1.24\u4f8b\u3002<\/p>\n<p>3\u3001Zfc = Str(459) \uff1a\u7528Str \u51fd\u6570\u5c06\u6570\u5b57\u8f6c\u6362\u6210\u5b57\u7b26\u4e32\uff0c\u8fd4\u56de\u201d 459\u201d\uff1b\u6ce8\u610f\u6570\u5b57\u524d\u9762\u4f1a\u4fdd\u7559\u4e00\u4e2a\u7a7a\u4f4d\u6765\u8868\u793a\u6b63\u8d1f\u3002<\/p>\n<p>4\u3001MsgBox Len(Zfc) \uff1a\u7528\u6d88\u606f\u6846\u663e\u793a\u53d8\u91cfZfc\u7684\u957f\u5ea6\uff0c\u8fd4\u56de4\uff1b\u8bf4\u660e\u6570\u5b57\u524d\u9762\u6709\u4e00\u4e2a\u7a7a\u4f4d\u3002<\/p>\n<p>5\u3001Zfc = Str(-459.65) \uff1a\u7528Str \u51fd\u6570\u5c06\u6570\u5b57\u8f6c\u6362\u6210\u5b57\u7b26\u4e32\uff0c\u8fd4\u56de\u201d- 459.65\u201d\uff1b\u56e0\u4e3a\u662f\u8d1f\u6570\u6709\u4e00\u4e2a\u8d1f\u53f7\uff0c\u6240\u4ee5\u6ca1\u6709\u53e6\u5916\u7684\u7a7a\u4f4d\u4e86\u3002\u5982\u679c\u7528\u6d88\u606f\u6846\u663e\u793a\u53d8\u91cfZfc\u7684\u957f\u5ea6\uff0c\u8fd4\u56de7\u3002<\/p>\n<p>6\u3001Zfc = CStr(459) \uff1a\u7528CStr \u51fd\u6570\u5c06\u6570\u5b57\u8f6c\u6362\u6210\u5b57\u7b26\u4e32\uff0c\u8fd4\u56de\u201d459\u201d\uff1b\u6ce8\u610f\u6570\u5b57\u524d\u9762\u6ca1\u6709\u4e00\u4e2a\u7a7a\u4f4d\u3002<\/p>\n<p>7\u3001MsgBox Len(Zfc) \uff1a\u7528\u6d88\u606f\u6846\u663e\u793a\u53d8\u91cfZfc\u7684\u957f\u5ea6\uff0c\u8fd4\u56de3\uff1b\u8bf4\u660e\u6570\u5b57\u524d\u9762\u6ca1\u6709\u7a7a\u4f4d\u3002<\/p>\n<p>Str \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4ee3\u8868\u4e00\u6570\u503c\u7684\u5b57\u7b26\u4e32 Variant (String)\u3002<\/p>\n<p>Str(number)<\/p>\n<p>\u5fc5\u8981\u7684 number \u53c2\u6570\u4e3a\u4e00 Long\uff0c\u5176\u4e2d\u53ef\u5305\u542b\u4efb\u4f55\u6709\u6548\u7684\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u5f53\u4e00\u6570\u5b57\u8f6c\u6210\u5b57\u7b26\u4e32\u65f6\uff0c\u603b\u4f1a\u5728\u524d\u5934\u4fdd\u7559\u4e00\u7a7a\u4f4d\u6765\u8868\u793a\u6b63\u8d1f\u3002\u5982\u679c number \u4e3a\u6b63\uff0c\u8fd4\u56de\u7684\u5b57\u7b26\u4e32\u5305\u542b\u4e00\u524d\u5bfc\u7a7a\u683c\u6697\u793a\u6709\u4e00\u6b63\u53f7\u3002<\/p>\n<p>\u4f7f\u7528 Format \u51fd\u6570\u53ef\u5c06\u6570\u503c\u8f6c\u6210\u5fc5\u8981\u7684\u683c\u5f0f\uff0c\u5982\u65e5\u671f\u3001\u65f6\u95f4\u3001\u8d27\u5e01\u6216\u5176\u4ed6\u7528\u6237\u81ea\u5b9a\u4e49\u683c\u5f0f\u3002\u4e0e Str \u4e0d\u540c\u7684\u662f\uff0cFormat \u51fd\u6570\u4e0d\u5305\u542b\u524d\u5bfc\u7a7a\u683c\u6765\u653e\u7f6e number \u7684\u6b63\u8d1f\u53f7\u3002<\/p>\n<p>\u6ce8\u610f Str \u51fd\u6570\u53ea\u89c6\u53e5\u70b9 (.) \u4e3a\u6709\u6548\u7684\u5c0f\u6570\u70b9\u3002\u5982\u679c\u4f7f\u7528\u4e0d\u540c\u7684\u5c0f\u6570\u70b9\uff08\u4f8b\u5982\uff0c\u56fd\u9645\u6027\u7684\u5e94\u7528\u7a0b\u5e8f\uff09\uff0c\u53ef\u4f7f\u7528 CStr \u5c06\u6570\u5b57\u8f6c\u6210\u5b57\u7b26\u4e32\u3002<\/p>\n<p>CBool\u7b49\u7c7b\u578b\u8f6c\u6362\u51fd\u6570<\/p>\n<p>\u6bcf\u4e2a\u51fd\u6570\u90fd\u53ef\u4ee5\u5f3a\u5236\u5c06\u4e00\u4e2a\u8868\u8fbe\u5f0f\u8f6c\u6362\u6210\u67d0\u79cd\u7279\u5b9a\u6570\u636e\u7c7b\u578b\u3002<\/p>\n<p>\u8bed\u6cd5<\/p>\n<p>CBool(expression) CByte(expression) CCur(expression) CDate(expression) <\/p>\n<p>CDbl(expression) CDec(expression) CInt(expression) CLng(expression) <\/p>\n<p>CSng(expression) CStr(expression) CVar(expression) <\/p>\n<p>\u5fc5\u8981\u7684 expression \u53c2\u6570\u53ef\u4ee5\u662f\u4efb\u4f55\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\u6216\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>CStr \u51fd\u6570<\/p>\n<p>\u53ef\u5f3a\u5236\u5c06\u4e00\u4e2a\u8868\u8fbe\u5f0f\u8f6c\u6362\u6210\u5b57\u7b26\u4e32\uff0c\u8fd4\u56de\u4ee3\u8868\u4e00\u6570\u503c\u7684\u5b57\u7b26\u4e32 Variant (String)\u3002<\/p>\n<p>CStr(expression)<\/p>\n<p>CStr     String \u4f9d\u636e expression \u53c2\u6570\u8fd4\u56de\u4e00\u4e2a\u5b57\u7b26\u4e32\u3002<\/p>\n<h2>\u7b2c1.38\u4f8b Time \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 Time \u51fd\u6570\u6765\u8fd4\u56de\u7cfb\u7edf\u5f53\u524d\u7684\u65f6\u95f4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_038()<\/p>\n<pre><code class=\"prettyprint\" >Dim Xtdqsj,sj\n\nXtdqsj = Time   &#039;\u3002\n\nSj=#12:10:00#\n\nTime =sj<\/code><\/pre>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_038()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_038\u3002<\/p>\n<p>2\u3001Dim Xtdqsj,sj  \uff1a\u58f0\u660e\u53d8\u91cfXtdqsj,sj \u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001Xtdqsj = Time \uff1a\u7528Time \u51fd\u6570\u8fd4\u56de\u7cfb\u7edf\u5f53\u524d\u7684\u65f6\u95f4\u8d4b\u7ed9\u53d8\u91cfXtdqsj\u3002<\/p>\n<p>4\u3001sj=#12:10:00# \uff1a\u628a\u65f6\u95f4\u8d4b\u7ed9\u53d8\u91cfsj\u3002<\/p>\n<p>5\u3001Time =sj \uff1a\u6ce8\u610f\u8fd9\u91cc\u7684Time\u4e0d\u662fTime \u51fd\u6570\uff0c\u800c\u662fTime\u8bed\u53e5\uff0c\u5982\u679c\u8981\u5c06\u7cfb\u7edf\u65f6\u95f4\u8bbe\u7f6e\u4e3asj \u7684\u5185\u5bb9\u5c31\u8981\u7528Time\u8bed\u53e5\u3002<\/p>\n<p>Time \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u5f53\u524d\u7cfb\u7edf\u7684\u65f6\u95f4Variant (Date)\u3002<\/p>\n<p>Time <\/p>\n<p>\u4e3a\u4e86\u8bbe\u7f6e\u7cfb\u7edf\u65f6\u95f4\uff0c\u9700\u4f7f\u7528 Time \u8bed\u53e5\u3002<\/p>\n<h2>\u7b2c1.39\u4f8b TimeSerial \u548cTimeValue \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 TimeSerial \u51fd\u6570\u6765\u8fd4\u56de\u5df2\u77e5\u65f6\u5206\u79d2\u7684\u65f6\u95f4\uff0c\u8fd0\u7528 TimeValue \u51fd\u6570\u6765\u5c06\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3a\u65f6\u95f4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_039()<\/p>\n<pre><code class=\"prettyprint\" >Dim sj,sj1\n\nsj = TimeSerial(19, 25, 27)  <\/code><\/pre>\n<p>sj1 = TimeValue(&quot;4:35:17 PM&quot;)  <\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_039()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_039\u3002<\/p>\n<p>2\u3001Dim sj,sjs  \uff1a\u58f0\u660e\u53d8\u91cfsj,sj1 \u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001sj = TimeSerial(19, 25, 27) \uff1a\u5df2\u77e5\u5177\u4f53\u7684\u5c0f\u65f6\u3001\u5206\u3001\u79d2\uff0c\u8fd0\u7528 TimeSerial \u51fd\u6570\u6765\u5f97\u5230\u65f6\u95f4\u7684\u503c\uff0c\u8fd4\u56de#\u4e0b\u5348 07:25:27# \u7684\u65f6\u95f4\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>4\u3001sj1 = TimeValue(&quot;4:35:17 PM&quot;)\uff1a\u5df2\u77e5\u8868\u793a\u65f6\u95f4\u7684\u5b57\u7b26\u4e32\uff0c\u8fd0\u7528 TimeValue \u51fd\u6570\u6765\u5c06\u6b64\u5b57\u7b26\u4e32\u8f6c\u6362\u4e3a\u65f6\u95f4\uff0c\u8fd4\u56de#\u4e0b\u5348 04:35:17#\u3002<\/p>\n<p>TimeSerial \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Variant (Date)\uff0c\u5305\u542b\u5177\u6709\u5177\u4f53\u65f6\u3001\u5206\u3001\u79d2\u7684\u65f6\u95f4\u3002<\/p>\n<p>TimeSerial(hour, minute, second) <\/p>\n<p>TimeSerial \u51fd\u6570\u8bed\u6cd5\u6709\u4e0b\u5217\u7684\u547d\u540d\u53c2\u6570\uff1a<\/p>\n<p>hour      \u5fc5\u8981\uff1bVariant (Integer)\u3002\u5176\u503c\u4ece 0 (12:00 A.M.) \u5230 23 (11:00 P.M.)\uff0c\u6216\u4e00\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>minute  \u5fc5\u8981\uff1bVariant (Integer)\u3002\u4efb\u4f55\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>second  \u5fc5\u8981\uff1bVariant (Integer)\u3002\u4efb\u4f55\u6570\u503c\u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u4e3a\u4e86\u6307\u5b9a\u4e00\u4e2a\u65f6\u523b\uff0c\u5982 11:59:59\uff0cTimeSerial \u7684\u53c2\u6570\u53d6\u503c\u5e94\u5728\u6b63\u5e38\u8303\u56f4\u5185\uff1b\u4e5f\u5c31\u662f\u8bf4\uff0c\u949f\u70b9\u5e94\u4ecb\u4e8e 0-23 \u4e4b\u95f4\uff0c\u800c\u5206\u949f\u4e0e\u79d2\u5e94\u4ecb\u4e8e 0-59 \u4e4b\u95f4\u3002\u4f46\u662f\uff0c\u5f53\u4e00\u4e2a\u6570\u503c\u8868\u8fbe\u5f0f\u8868\u793a\u67d0\u65f6\u523b\u4e4b\u524d\u6216\u5176\u540e\u7684\u65f6\u3001\u5206\u949f\u6216\u79d2\u6570\u65f6\uff0c\u4e5f\u53ef\u4ee5\u4e3a\u6bcf\u4e2a\u4f7f\u7528\u8fd9\u4e2a\u6570\u503c\u8868\u8fbe\u5f0f\u7684\u53c2\u6570\u6307\u5b9a\u76f8\u5bf9\u65f6\u95f4\u3002\u4ee5\u4e0b\u793a\u4f8b\u4e2d\u4f7f\u7528\u4e86\u8868\u8fbe\u5f0f\u4ee3\u66ff\u7edd\u5bf9\u65f6\u95f4\u6570\u3002TimeSerial \u51fd\u6570\u8fd4\u56de\u4e2d\u5348\u4e4b\u524d\u516d\u5c0f\u65f6 (12 - 6) \u53c8\u5341\u4e94\u5206\u949f (-15) \u7684\u65f6\u95f4\uff0c\u5373 5:45:00 A.M.<\/p>\n<p>TimeSerial(12 - 6, -15, 0)<\/p>\n<p>\u5f53\u4efb\u4f55\u4e00\u4e2a\u53c2\u6570\u7684\u53d6\u503c\u8d85\u51fa\u6b63\u5e38\u8303\u56f4\u65f6\uff0c\u5b83\u4f1a\u9002\u65f6\u8fdb\u4f4d\u5230\u4e0b\u4e00\u4e2a\u8f83\u5927\u7684\u65f6\u95f4\u5355\u4f4d\u3002\u4f8b\u5982\uff0c\u5982\u679c\u6307\u5b9a\u4e86 75\uff0875 \u5206\u949f\uff09\uff0c\u5219\u8fd9\u4e2a\u65f6\u95f4\u88ab\u89e3\u91ca\u6210\u4e00\u5c0f\u65f6\u53c8\u5341\u4e94\u5206\u3002\u5982\u679c\u4e00\u4e2a\u53c2\u6570\u503c\u8d85\u51fa -32\uff0c768 \u5230 32\uff0c767 \u7684\u8303\u56f4\uff0c\u5c31\u4f1a\u5bfc\u81f4\u9519\u8bef\u53d1\u751f\u3002\u5982\u679c\u4e09\u4e2a\u53c2\u6570\u6307\u5b9a\u7684\u65f6\u95f4\u4f1a\u4f7f\u65e5\u671f\u8d85\u51fa\u53ef\u63a5\u53d7\u7684\u65e5\u671f\u8303\u56f4\uff0c\u5219\u4ea6\u4f1a\u5bfc\u81f4\u9519\u8bef\u53d1\u751f\u3002<\/p>\n<p>TimeValue \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a\u5305\u542b\u65f6\u95f4\u7684 Variant (Date)\u3002<\/p>\n<p>TimeValue(time) <\/p>\n<p>\u5fc5\u8981\u7684 time \u53c2\u6570\uff0c\u901a\u5e38\u662f\u4e00\u4e2a\u5b57\u7b26\u4e32\u8868\u8fbe\u5f0f\uff0c\u8868\u793a 0:00:00 (12:00:00 A.M.) \u5230 23:59:59 (11:59:59 P.M.) \u4e4b\u95f4\u7684\u65f6\u523b\u3002\u4f46\u662f\uff0ctime \u4e5f\u53ef\u4ee5\u662f\u8868\u793a\u5728\u540c\u4e00\u65f6\u95f4\u8303\u56f4\u53d6\u503c\u7684\u4efb\u4f55\u5176\u5b83\u8868\u8fbe\u5f0f\u3002\u5982\u679c time \u5305\u542b Null\uff0c\u5219\u8fd4\u56de Null\u3002<\/p>\n<p>\u8bf4\u660e<\/p>\n<p>\u53ef\u4ee5\u4f7f\u7528 12 \u5c0f\u65f6\u5236\u6216 24 \u5c0f\u65f6\u5236\u7684\u65f6\u95f4\u683c\u5f0f\u3002\u4f8b\u5982\uff0c\u201d2:24PM\u201d \u548c &quot;14:24&quot; \u5747\u662f\u6709\u6548\u7684 time \u8868\u8fbe\u5f0f\u3002<\/p>\n<p>\u5982\u679c time \u53c2\u6570\u5305\u542b\u65e5\u671f\u4fe1\u606f\uff0cTimeValue \u5c06\u4e0d\u4f1a\u8fd4\u56de\u5b83\u3002\u4f46\u662f\uff0c\u82e5 time \u5305\u542b\u65e0\u6548\u7684\u65e5\u671f\u4fe1\u606f\uff0c\u5219\u4f1a\u5bfc\u81f4\u9519\u8bef\u53d1\u751f\u3002<\/p>\n<h2>\u7b2c1.40\u4f8b Timer \u51fd\u6570<\/h2>\n<p>\u4e00\u3001\u9898\u76ee\uff1a<\/p>\n<p>\u3000\u3000\u8981\u6c42\u7f16\u5199\u4e00\u6bb5\u4ee3\u7801\uff0c\u8fd0\u7528 Timer \u51fd\u6570\u6765\u8ba1\u7b97\u672c\u4ee3\u7801\u8fd0\u884c\u6240\u5316\u7684\u65f6\u95f4\u3002<\/p>\n<p>\u4e8c\u3001\u4ee3\u7801\uff1a<\/p>\n<p>Sub \u793a\u4f8b_1_040()<\/p>\n<p>Dim t, i&amp;, a<\/p>\n<p>t = Timer<\/p>\n<p>For i = 1 To 1000000<\/p>\n<pre><code class=\"prettyprint\" >a = a + i<\/code><\/pre>\n<p>Next i<\/p>\n<p>MsgBox Timer - t &amp; &quot;\u79d2&quot;   \u2018\u8fd4\u56de0.046875\u79d2<\/p>\n<p>End Sub<\/p>\n<p>\u4e09\u3001\u4ee3\u7801\u8be6\u89e3<\/p>\n<p>1\u3001Sub \u793a\u4f8b_1_040()\uff1a\u5b8f\u7a0b\u5e8f\u7684\u5f00\u59cb\u8bed\u53e5\u3002\u5b8f\u540d\u4e3a\u793a\u4f8b_1_040\u3002<\/p>\n<p>2\u3001Dim t, i&amp;, a \uff1a\u58f0\u660e\u53d8\u91cft,a \u5747\u4e3a\u53ef\u53d8\u578b\u53d8\u91cf\uff0ci\u4e3a\u957f\u6574\u578b\u53d8\u91cf\u3002<\/p>\n<p>3\u3001t = Timer \uff1a\u628a\u7cfb\u7edf\u7684\u65f6\u95f4\u8d4b\u7ed9\u53d8\u91cft\u3002<\/p>\n<p>4\u3001For i = 1 To 1000000 \uff1a\u4ece1 \u5230 1000000\u5faa\u73af\u3002<\/p>\n<p>5\u3001a = a + i \uff1a\u628aa+i\u7684\u503c\u8d4b\u7ed9\u53d8\u91cfa\uff0c\u5b9e\u9645\u4e0a\u662f\u4e00\u4e2a\u7d2f\u52a0\u7684\u8fc7\u7a0b\u3002<\/p>\n<p>6\u3001MsgBox Timer - t &amp; &quot;\u79d2&quot; \uff1a\u5229\u7528\u6d88\u606f\u6846\u663e\u793a\u73b0\u5728\u7684\u65f6\u95f4\u51cf\u53bb\u524d\u9762\u8bbe\u7f6e\u7684\u65f6\u95f4\uff0c\u5f97\u5230\u8fd0\u884c\u6574\u4e2a\u4ee3\u7801\u6240\u5316\u7684\u65f6\u95f4\u3002<\/p>\n<p>Timer \u51fd\u6570<\/p>\n<p>\u8fd4\u56de\u4e00\u4e2a Single\uff0c\u4ee3\u8868\u4ece\u5348\u591c\u5f00\u59cb\u5230\u73b0\u5728\u7ecf\u8fc7\u7684\u79d2\u6570\u3002<\/p>\n<p>Timer <\/p>\n<p>\u8bf4\u660e<\/p>\n<p>Microsoft Windows\u4e2d\uff0cTimer\u51fd\u6570\u8fd4\u56de\u4e00\u79d2\u7684\u5c0f\u6570\u90e8\u5206\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>1.\u5e38\u7528\u5b8f Sub \u5de5\u4f5c\u7c3f\u5408\u5e76() For Each st In Worksheets If st.Name  [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"_links":{"self":[{"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/posts\/81"}],"collection":[{"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=81"}],"version-history":[{"count":2,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/posts\/81\/revisions"}],"predecessor-version":[{"id":83,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=\/wp\/v2\/posts\/81\/revisions\/83"}],"wp:attachment":[{"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=81"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=81"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.shiyest.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=81"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}