再次表示十三亿分感谢

慢慢地学习中……

你是不是想要类似下面这样的东西？

*** XlLineStyle枚举 -- 指定边框的线条样式
* 实线
#DEFINE xlContinuous       1
* 虚线
#DEFINE xlDash             -4115
* 点划相间线
#DEFINE xlDashDot          4
* 划线后跟两个点
#DEFINE xlDashDotDot       5
* 点式线
#DEFINE xlDot              -4118
* 双线
#DEFINE xlDouble           -4119
* 无线条
#DEFINE xlLineStyleNone    -4142
* 倾斜的划线
#DEFINE xlSlantDashDot     13
***

#INCLUDE "Const.h"

*--------------------
* Borders集合：由四个border对象组成的集合，他们分别代表Range或Style对象的四个边框
* 说明：使用Borders属性可返回包含所有四个边框的Borders集合。只能对Range和Style对象的各个边框分别设置
*       边框属性。其他带边框的对象（如误差线和系列线）不论边框有几个边，都将边框视为一个实体。对于这
*       些对象，在返回边框和设置边框属性时必须将其作为一个整体处理。
*
* 使用Borders(index)可返回单个Border对象，其中index指定边框。
* index常量列表：
*    xlDiagonalDown = 5         从区域中每个单元格的左上角至右下角的边框
*    xlDiagonalUp = 6           从区域中每个单元格的左下角至右上角的边框
*    xlEdgeTop = 7              区域左边的边框
*    xlEdgeTop = 8              区域顶部的边框
*    xlEdgeBottom = 9           区域底部的边框
*    xlEdgeRight = 10           区域右边的边框
*    xlInsideVertical = 11      区域中所有单元格的垂直边框（区域以外的边框除外）
*    xlInsideHorizontal = 12    区域中所有单元格的水平边框（区域以外的边框除外）
*
* Borders.LineStyle属性：返回或设置边框的线型。
* LineStyle取值常量列表：
*     xlContinuous = 1           实线
*     xlDash = -4115             虚线
*     xlDashDot = 4              点划相间线
*     xlDashDotDot = 5           划线后跟两个点
*     xlDot = -4118              点式线
*     xlDouble = -4119           双线
*     xlLineStyleNone = -4142    无线条
*     xlSlantDashDot = 13        倾斜的划线
*
* Borders.Weight属性：返回或设置一个xlBorderWeight值，它代表边框的粗细。
* Weight常量列表：
*     xlHairline = 1             细线（最细的边框）
*     xlMedium = -4138           中等
*     xlThick = 4                粗（最宽的边框）
*     xlThin = 2                 细
*
* XlColorIndex枚举：指定所选功能（如边框、字体或填充）的颜色。
* 常量列表：
*    xlColorIndexAutomatic = -4105    自动配色
*    xlColorIndexNone = -4142         无色
*--------------------

*---------------------
* 画 Excel 表的框格
* 参数：
*   o_Excel       -- Excel 表对象
*   c_LeftTop     -- 左上角单元
*   c_RightBottom -- 右下角单元
*---------------------
PROCEDURE DrawTableBorder(oExcel AS Object, cLeftTop AS Character, cRightBottom AS Character)

    WITH oExcel.ActiveSheet.Range(cLeftTop + ":" + cRightBottom)    && 激活指定的单元区域
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        WITH .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .BorderS(xlEdgeTop)
            .Linestyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        WITH .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
        WITH .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH
    ENDWITH 

ENDPROC

[ 本帖最后由 TonyDeng 于 2012-5-25 01:53 编辑 ]

再次谢谢TONGDENG版主的无私奉献

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 双线
出生年月  身份证号  .....................................
───────────────────────────── 单细线
表头下面的这条“单细线”如何画，不是表中内容下的水平线

        WITH .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        ENDWITH

这个就是底部单细线：线型是连续实线，粗细为细，颜色自动。视情形可以去掉颜色设置的代码，它默认就是自动。

其实，我上面那个代码，就是分别对区域的外框顶、左、下、右、中横、中竖分别设置线条，令外框是粗线，里面细线。代码是从Excel宏中黏贴过来的（即在Excel手工操作时它就是按这个代码执行），这样写看起来效率不高（有些地方是重复的），但我在没有仔细研究Excel指令体系的时候，一直没有对它动手术，就让它这样了，因为首先保证它是不会错的。你可以对它进行修改、测试，摸索出效率更高的代码，总之，基础就是上面那一大堆注释。

[ 本帖最后由 TonyDeng 于 2012-5-25 00:07 编辑 ]

THANK YOU
xlEdgeBotton＝＝xlEdgeBottom?
那个写法是正确的
xlEdgeBotton = 9
xlEdgeBottom = ?

[ 本帖最后由 sdta 于 2012-5-25 00:13 编辑 ]

总之，上面注释所写的三种属性，对每一条边线都可以组合使用，得到各种不同的效果，所以集中写在一起。也可以不对整个borders操作，分别对单个单元格设置，想怎么样都行。

xlEdgeBotton＝＝xlEdgeBottom?
那个写法是正确的
xlEdgeBotton = 9
xlEdgeBottom = ?