vba+code+collection(包括语句集200句).docVIP

下载本文档

76
0
约23.34万字
约 186页
2017-12-28 发布于河北
举报
版权申诉

vba+code+collection(包括语句集200句).doc

1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

vbacodecollection(包括语句集200句)

如何将打开的工作簿单元格从未打开的表中取数1、Sub GETVALUE() Dim myData As Object Set myData = GetObject(C:\Documents and Settings\xyf\桌面\book1.xls) Workbooks(book2).Sheets(sheet1).Range(A1:A6).Value _ = myData.Sheets(sheet1).Range(A1:A6).Value End Sub 2、Sub getvlaue() Dim myData As Object Dim myfile As String myfile = C:\Documents and Settings\xyf\桌面\book1.xls Set myData = GetObject(myfile) Sheets(sheet2).Range(A1:A6).Value _ = myData.Sheets(sheet1).Range(A1:A6).Value End Sub 用命令打开一个工作簿Sub openfile() Workbooks.Open (C:\Documents and Settings\JinYiFeng\桌面\book1) End Sub 取得工作表内有数据的最后一行行数我们经常用到代码 UsedRange.Rows.Count 或 SpecialCells 方法 Dim iRow As Integer, iCol As Integer Sub UsedRow1() With ActiveSheet ? ?? iRow = .UsedRange.Rows.Count ? ?? iCol = .UsedRange.Columns.Count ? ???MsgBox LastRow:= iRow.Cells(iRow, iCol).SelectEnd With End Sub Sub UsedRow2() With ActiveSheet ??? iRow = .Cells.SpecialCells(xlCellTypeLastCell).Row ? iCol = .Cells.SpecialCells(xlCellTypeLastCell).Column MsgBox LastRow:= iRow.Cells(iRow, iCol).Select End With End Sub 2、但有时候却得到错误的行数这是因为，我们可能的某些操作，比如，格式刷，使我们得到不是想要的答案，我们换End(xlup)试试，缺点是，得指明第几列 Sub UsedRow3() With ActiveSheet ?iRow = .[a65536].End(xlUp).Row ?? iCol = .[iv1].End(xlToLeft).Column ? MsgBox LastRow:= iRow.Cells(iRow, iCol).Select End With 3、使用另外一个方法： Sub UsedRow4() Dim irow as integer Dim icol as integer ???iRow = sheets(“sheet1”).[A1].currentregion.Rows.count ? ? iCol = sheets(“sheet1”).[A1].currentregion.columns.count End sub 4、相关问题：如何得到工作表内有数据的行数和列数？ Sub UsedRow4()Dim myRange As Range Dim RowCount As Integer, ColumnCount As Integer Dim FirstRow As Integer, LastRow As Integer ? ? Set myRange = Sheet1.UsedRange ? ? FirstRow = myRange.Cells(1, 1).Row ? ? LastRow = myRange.Rows(myRange.Rows.Count).Row ? ? FirstColumn = myRange.Cells(1, 1).Column ? ? LastColumn = myRange.Columns(myRange.Columns.Count).Column 取非空白列总数? For i = FirstRow To LastRow ? ?? ???If Application.Cou