使用listcolumnork处理databodyrange和total属性

《使用listcolumnork处理databodyrange和total属性》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、e800，国内最具活力的IT门户网站。http://www.e800.com.cn【e800编译】此示例演示在MicrosoftExcel2010中如何使用ListColum对象的DataBodyRange和Total属性。此代码段是Office2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在VisualStudio2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，

2、运行示例代码。MicrosoftOffice2010提供了你所需要的工具来创建功能强大的应用程序。MicrosoftVisualBasicApplication（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码在Excel2010中新建一个工作簿，将下列代码复制到Sheet1类模块，并将光标放在ListColumnDemo，然后按F8执行调试，然后按住Shift+F8单步执行代码。并列放置VBA和Excel窗口，这样你就可以边运行边查看结果。SubListColumnDemo()'Stepoverthisprocedure

3、.It'snotterriblyinteresting.FillRandomData'Setupthelistobject.DimloAsListObjectSetlo=ListObjects.Add(_SourceType:=xlSrcRange,_Source:=Range("A1:F13"),_XlListObjectHasHeaders:=xlYes)lo.Name="SampleData"lo.ShowTotals=True'RetrieveareferencetothesecondcolumnintheListObject:DimlcAsListColumnSetl

4、c=lo.ListColumns(2)'RetrieveareferencetotheListColumn'sdata,excludinge800，国内最具活力的IT门户网站。http://www.e800.com.cn'headersandfooters.DimrngAsRangeSetrng=lc.DataBodyRange'Dosomethingswiththedatabodyrange:rng.Borders.Color=vbRedrng.FormatConditions.AddDatabar'Retrievethetotalforthecolumnand'displa

5、yitinthetotalsrow.'Obviously,thereareotherwaystodothis:DimtotalValueAsLongtotalValue=WorksheetFunction.Sum(rng)'YoushouldverifythattheTotalpropertyisn't'Nothing--itwillbe,ifthelistobjectisn't'displayingitstotalsrow.Inthiscase,thetotals'rowisdefinitelyvisible,sothischeckisextraneous.IfNotlc.T

6、otalIsNothingThenlc.Total.Value=totalValueEndIfEndSubSubFillRandomData()'Noneedtostopthroughthisprocedure.Range("A1","F1").Value=Array("Month","North","South","East","West","Total")'Fillintwelverowswithrandomdata.e800，国内最具活力的IT门户网站。http://www.e800.com.cnDimiAsIntegerDimjAsIntegerFori=1To12Ce

7、lls(i+1,1).Value=MonthName(i,True)Forj=2To5Cells(i+1,j)=Round(Rnd*100)NextjNextiRange("F2","F13").Formula="=SUM(B2:E2)"EndSub