?? vbexcel2000.txt
字號:
<P> Sheets集合表示工作簿中所有的工作表。可以通過Sheets集合來訪問、激活、增加、更名和刪除工作表。一個Worksheet對象代表一個工作表。</P>
<P> 常用的屬性、方法有：</P>
<P>屬性、方法 意義 <BR>Worksheets屬性 返回Sheets集合。 <BR>Name屬性 工作表更名。 <BR>Add方法 創建新工作表并將其添加到工作簿中。 <BR>Select方法 選擇工作表。 <BR>Copy方法 復制工作表。 <BR>Move方法 將指定工作表移到工作簿的另一位置。 <BR>Delete方法 刪除指定工作表。 <BR>PrintOut方法 打印工作表。 </P>
<P> 示例3：將C盤工作簿中的工作表復制到A盤工作簿中：</P>
<P>Dim VBExcel As Excel.Application<BR>Set VBExcel=CreateObject("Excel.Application")<BR>With VBExcel<BR> .Workbooks.Open "C：\Temp\OUTPUT.XLS"<BR> .Workbooks.Open"A：\OUTPUT1.XLS"<BR> .Workbooks("OUTPUT.XLS").Sheets ("Sales").Copy<BR> .Workbooks("OUTPUT1.XLS)<BR> .Workbooks("OUTPUT1.XLS").Save<BR> .Workbooks("OUTPUT.XLS").Close<BR> .Workbooks("OUTPUTI.XLS").Close<BR> .Quit<BR>End With </P>
<P> 3、使用單元范圍</P>
<P> Range對象代表工作表的某一單元格、某一行、某一列、某一選定區域或者某一三維區域。</P>
<P> 常用的屬性、方法有：</P>
<P>屬性、方法 意義 <BR>Range屬性 Range (arg)其中arg為A1--樣式符號，表示單個單元格或單元格區域。 <BR>Cells屬性 Cells (row, col )(其中row為行號，col為列號)表示單個單元格。 <BR>ColumnWidth屬性 指定區域中所有列的列寬。 <BR>Rowl3eight屬性 指定區域中所有行的行寬。 <BR>Value屬性 指定區域中所有單元格的值(缺省屬性)。 <BR>Formula屬性 指定單元格的公式，由A1--樣式引用。 <BR>Select方法 選擇范圍。 <BR>Copy方法 將范圍的內容復制到剪貼板。 <BR>C1earContents方法 清除范圍的內容。 <BR>Delete方法 刪除指定單元范圍。 </P>
<P> 4、使用圖表</P>
<P> Chart對象代表工作簿中的圖表。該圖表既可為嵌人式圖表(包含于ChartObject對象中)也可為分立的圖表工作表。</P>
<P> 常用方法有：</P>
<P>方法 意義<BR> <BR>Add方法 新建圖表工作表。返回Chart對象。 <BR>PrineOut方法 打印圖表。 <BR>ChartWizard方法 修改給定圖表的屬性，其語法為：<BR> <BR>ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels,<BR>SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)</P>
<P> 其中：</P>
<P> Source：包含新圖表的源數據的區域。如省略，將修改活動圖表工作表或活動工作表中處于選定狀態的嵌人式圖表。</P>
<P> Gallery：圖表類型。其值可為下列常量之一：xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13DBar、x13DColumn, x13DLine, x13DPie、x13 DSurface、xlDoughnut或xlDefaultAutoFormat。</P>
<P> Format：內置自動套用格式的編號。如省略，將選擇默認值。</P>
<P> P1otBy：指定系列中的數據是來自行(xlRows)還是列(xlColumns)。</P>
<P> CategoryLabels：表示包含分類標志的源區域內行數或列數的整數。</P>
<P> SeriesLabels：表示包含系列標志的源區域內行數或列數的整數。</P>
<P> HasLegend：若指定True，則圖表將具有圖例。</P>
<P> Title：圖表標題文字。</P>
<P> CategoryTitle：分類軸標題文字。</P>
<P> ValueTitle：數值軸標題文字。</P>
<P> ExtraTitle：三維圖表的系列軸標題，或二維圖表的第二數值軸標題。 </P>
<P> 可組合使用Add方法和ChartWizard方法，以創建包含工作表中數據的圖表工作表。下例基于工作表“Sheetl”中單元格區域“A1：A20”中的數據生成新的折線圖并打印。</P>
<P>With Charts.Add<BR> .ChartWizard source：=Worksheets ("sheet1").Range ("a1：a20"),gallery：=xlLine, title：=“折線圖表”<BR> .Printout<BR>End With </P>
<P><BR> 5、使用Excel工作表函數</P>
<P> 在VB語句中可使用大部分的Excel工作表函數，可通過WorksheetFunction對象調用Excel工作表函數。下面的Sub過程用Min工作表函數求出指定區域中單元格的最小值，并通過消息框顯示結果值。</P>
<P>Sub UseFunction()<BR>Dim myRange As Range<BR>Set myRange=Worksheets ("Sheet1").Range("B2：F10")<BR>answer=Application.WorksheetFunction.Min(myRange)<BR>MsgBox answer<BR>End Sub </P>
<P> 如果使用以區域引用為參數的工作表函數，必須指定一個Range對象。如可用Match工作表函數對A1：A10區域的所有單元格進行搜索。</P>
<P>Sub FindFirst()<BR>my Var=Application.WorksheetFunction.Match (9, Worksheets( 1).Range("A1：A10")，0)<BR>MsgBox myVar<BR>End Sub </P>
<P> 要在單元格中插人工作表函數，可將該函數指定為對應于Range對象的Formula屬性值。在以下示例中，將當前工作簿Sheetl內A1：B3區域的Formula屬性指定為RAND工作表函數(此函數產生二個隨機數)。</P>
<P>Sub InsertFormula()<BR>Worksheets ("Sheet1" ).Range("A1：B3").Formula="RAND()"<BR>End Sub </P>
<P> 以上簡要介紹了Excel對象模型中部分對象及其屬性和方法，更詳細的信息可參閱Excel 2000幫助中的“Microsoft Excel Visual Basic參考”一節的內容。實際上，Microsoft Office家族的Word,PowerPoint, Access和Project等應用程序都可以在VB應用程序中調用，其原理和步驟完全相同，只是其對象模型有所不同而已。（CCW）<BR> <BR></P>
<br>
</font></td>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" height="25"> <div align="center">
</div></td>
</tr>
<tr>
<td width=100% height="16" > <hr size=1></td>
</tr>
<tr>
<td height=64> 版權申明： 1.本站文章版權歸思達（staredu.net)與作者共同所有,思達有權授權第三方使用,其他媒體如需采用,需與本站聯系.<br>
2.本站有少量文章收集于網上,如果侵犯了您的版權,請來信告之,我們立即刪除<b>.<br>
</b>3.歡迎來稿,可以是原創,也可以是編譯.>>>><a href="http://www.staredu.net/college/news/copyright.htm">版權說明</a><br>
<hr size=1> </td>
</tr>
<tr>
<td width=100% height=18>
</td>
</tr>
<tr>
<td width=100% height=18><B>專題信息:</b></td>
</tr>
<tr>
<td height=8></td>
</tr>
<tr><td width=100% height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7448&vnet=1'>軟考網絡管理員招生簡章</a><font color=#666666>(2006-7-6 17:18:30)[<font color=#ff0000>284</font>]</font></td></tr><tr><td width=100% height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7447&vnet=1'>軟考程序員招生簡章·輔導方案</a><font color=#666666>(2006-7-6 17:16:32)[<font color=#ff0000>239</font>]</font></td></tr><tr><td width=100% height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7060&vnet=1'>秋季軟考復習沖刺發布</a><font color=#666666>(2005-10-10 15:56:48)[<font color=#ff0000>820</font>]</font></td></tr><tr><td width=100% height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=6962&vnet=1'>信息系統工程監理工程師資格管理辦法</a><font color=#666666>(2005-9-5 16:53:00)[<font color=#ff0000>1638</font>]</font></td></tr><tr><td width=100% height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=6933&vnet=1'>為交互式計算機程序制作音頻</a><font color=#666666>(2005-8-28 19:46:50)[<font color=#ff0000>905</font>]</font></td></tr><tr><td width=98% align=right height=18><a class=lift href='Special_News.asp?SpecialID=23'><img src='images/more.gif' border='0'></a></td></tr><tr><td width=100% ><hr size=1></td></tr><tr><td height=8></td></tr><tr><td width=100% height=18><B>相關信息:</b></td></tr><tr><td height=8></td></tr>
<tr>
<td height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7081&vnet=1'>思達網校2006年春季軟考全程啟航</a>(11月25日)[9203]</td>
</tr>
<tr>
<td height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7064&vnet=1'>15/10/2005 軟考開發類：多媒體、產權知識（劉啟濱主講）[錄音]</a>(11月25日)[587]</td>
</tr>
<tr>
<td height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7057&vnet=1'>22/09/2005 軟考開發類：計算機英語[錄音]</a>(11月25日)[753]</td>
</tr>
<tr>
<td height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7044&vnet=1'>網絡安全工程師現狀及其供職需求</a>(11月25日)[2612]</td>
</tr>
<tr>
<td height=18> <img src=images/goxp.gif> <a target=_top href='gdview.asp?NewsID=7018&vnet=1'>14/09/2005 軟考開發類-數據結構[預習文檔]</a>(11月25日)[668]</td>
</tr>
<tr><td width=98% align=right height=18><a class=lift href='Result.asp?keyword=SOFT'><img src='images/more.gif' border='0'></a></td></tr><tr><td width=100% ><hr size=1></td></tr><tr><td height=8></td></tr><tr><td width=100% ><B>相關評論:</b></td></tr><tr><td height=8></td></tr>
<tr>
<td width="100%" height="18"> 沒有相關評論 </td>
</tr>
<tr>
<td width="100%" height="55"> <table width="100%" height="23" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
<tr>
<td width="85"> </td>
<td width="194" height="21">
<a href=review.asp?NewsID=3705&vnet=1 target="_blank" class=bottom>
<img src="image/inboxnonew.gif" width="16" height="16" border="0">
發表/查看評論</a> </td>
<td width="338" height="21"> <div align="center">
<a href=send.asp?NewsID=3705 target=_blank class=bottom><img src="images/EMILL.GIF" width="33" height="11" border="0">
發送此信息給朋友</a>
</div></td>
<td width="49"></td>
<td width="94"> <input type="button" name="close" value="關閉" onClick="window.close();return false;">
</td>
</tr>
<tr valign="top">
<td width="85" height="2" bgcolor="#C1C1C1"></td>
<td height="2" colspan="2" bgcolor="#C1C1C1"></td>
<td height="2" colspan="2" bgcolor="#C1C1C1"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16">
<div align="center">
<iframe name="footer" src="http://a1.gd.chinavnet.com/end/end.html" frameborder="0" width="778" height="86" marginwidth=0 marginheight=0 scrolling=no vspace=0></iframe>
</div>
</td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -