Code Snippet

摘要： Sub 批量设置行距() Dim oSlides As Slides Dim oSlide As Slide Dim oPre As Presentation Dim oShape As Shape Dim oTextFrame As TextFrame Set oPre = ActivePresentation Set oSlides = oPre.Slides '每一张幻灯 For i = 1 To oSlides.Count Set oSlide = oSlides.Item(i) '每一段文本 ... 阅读全文

摘要： '设置行合并表格的边框'@Author: kmlxk#yahoo.com.cn'@Date: 2012-05-10'@Desc: Excel支持行合并功能，但是如何为整行设置边框，并且不显示行内部横边框呢' 这段代码通过第一列来识别行，并横向选择整行，最后设置除内部横线外的边框'Sub 设置行合并表格的边框() Dim strStartCell As String Dim i As Long Dim iStart As Long Dim iEnd As Long Dim iRowStart As Long Dim iRowEnd As Long 阅读全文

摘要： '填充序号'@Author: kmlxk#yahoo.com.cn'@Date: 2012-05-10'@Desc: Excel的填充功能比较智能, 但是在合并过的单元格上填充时要求大小一致。这段代码模拟手工方式输入序号，避开了填充时的各种要求。简单粗暴的填充方式可能有点慢，慎用于上千行的序号填充。'Sub 在列上模拟手工填充序号() Dim strStartCell As String Dim i As Long Dim iStart As Long Dim iEnd As Long ' 初始化变量 ' 起始单元格 strStartC. 阅读全文