e800，国内最具活力的IT门户网站。HYPERLINK"http://www.e800.com.cn"http://www.e800.com.cn【e800编译】本示例提到了ListObject对象，诸如TableStyles属性，TableStyles属性，TableStyleElements属性，以及TableStyleElement属性。此代码段是Office2010的101项VBA代码示例中的一部分。与其它示例一样，这些将可以直接写入您的代码中。每块示例代码包含约5至50行的代码，分别演示了一个独特的功能或功能集，在VBA或VB以及C＃中（在VisualStudio2010中创建）。每个示例之中都会包含代码以及相应注释，这样您就可以直接运行获取预期的结果，或者是根据代码注释提示来调整环境，运行示例代码。MicrosoftOffice2010提供了你所需要的工具来创建功能强大的应用程序。MicrosoftVisualBasicApplication（VBA）代码示例可以帮助你创建自己的应用程序，以执行特定功能或者以此为出发点实现更为复杂的功能。实例代码在Excel2010中新建工作簿，将代码复制到Sheet1类模块。将光标置于ListObjectStyleDemo内，按F8执行调试，然后按住Shift+F8单步执行代码。并列放置VBA和Excel窗口，这样你就可以边运行边查看结果。SubListObjectStyleDemo()'Stepoverthisprocedure.It'snotterriblyinteresting.FillRandomDataDimloAsListObjectSetlo=ListObjects.Add(_SourceType:=xlSrcRange,_Source:=Range("A1:F13"),_XlListObjectHasHeaders:=xlYes)lo.Name="SampleData"'Thiscodeisonlyinterestingifyousingle-stepthroughit.DimiAsIntegerFori=1To20lo.TableStyle=ActiveWorkbook.TableStyles(i)Nexti'Useanamedtablestyle:lo.TableStyle="TableStyleMedium9"DimtsAsTableStyleSetts=lo.TableStyleWithts.TableStyleElements(xlHeaderRow).Font.Bold=FalseEndWithCopyStyleElementts.TableStyleElements(xlRowStripe1),Range("H2"),"xlRowStripe1"CopyStyleElementts.TableStyleElements(xlHeaderRow),Range("H3"),"xlHeaderRow"'Withmorecomplextablestyles,couldcopymorestylestotheoutputcells.'Deletethetable,soyoucanre-runthecode.lo.DeleteEndSubSubCopyStyleElement(tseAsTableStyleElement,rngAsRange,titleAsString)OnErrorResumeNextWithrngWith.Interior.ThemeColor=tse.Interior.ThemeColor.TintAndShade=tse.Interior.TintAndShadeEndWithWith.Font.Color=tse.Font.Color.Name=tse.Font.Name.Size=tse.Font.Size.Bold=tse.Font.Bold.Italic=tse.Font.ItalicEndWith.Value=titleEndWithEndSubSubFillRandomData()'Noneedtostopthroughthisprocedure.Range("A1","F1").Value=Array("Month","North","South","East","West","Total")'Fillintwelverowswithrandomdata.DimiAsIntegerDimjAsIntegerFori=1To12Cells(i+1,1).Value=MonthName(i,True)Fo