首页 新闻 论坛 群组 Blog 文档 下载 读书 Tag 网摘 搜索 .NET Java 游戏 视频 人才 外包 培训 数据库 书店 程序员
中国软件网
欢迎您:游客 | 登录 注册 帮助
    • vb画线的问题,在线等,高手指教 [已结贴,结贴人:shazibanzhu]
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 11:12:16 楼主
    我在vb中给excel画线,程序如下
    If introw > 2 Then    'introw是总行数,总行数是162行
            MsgBox xlsSheet.HPageBreaks(1).Location.row - 1
          .Borders(xlInsideHorizontal).LineStyle = xlContinuous
          .Borders(xlInsideHorizontal).Weight = xlThin
          .Borders(xlInsideHorizontal).ColorIndex = xlAutomatic
        End If
          .Borders(xlEdgeLeft).LineStyle = xlContinuous
          .Borders(xlEdgeLeft).Weight = xlThin
          .Borders(xlEdgeTop).LineStyle = xlContinuous
         
          .Borders(xlEdgeTop).Weight = xlThin
          .Borders(xlEdgeBottom).LineStyle = xlContinuous
          .Borders(xlEdgeBottom).Weight = xlThin
          .Borders(xlEdgeRight).LineStyle = xlContinuous
          .Borders(xlEdgeRight).Weight = xlThin
          .Borders(xlInsideVertical).LineStyle = xlContinuous
          .Borders(xlInsideVertical).Weight = xlThin
      End With
    我想在第55行和56行不画线,该怎么处理
    20  修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 12:16:021楼 得分:0
    引用楼主 shazibanzhu 的帖子:
    我在vb中给excel画线,程序如下
    If introw > 2 Then    'introw是总行数,总行数是162行
            MsgBox xlsSheet.HPageBreaks(1).Location.row - 1
          .Borders(xlInsideHorizontal).LineStyle = xlContinuous
          .Borders(xlInsideHorizontal).Weight = xlThin
          .Borders(xlInsideHorizontal).ColorIndex = xlAutomatic
        End If
          .Borders(xlEdgeLeft).LineStyle = xlContinuous
          .Bord…

    怎么把线设置透明的呢,高手帮忙
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 14:37:312楼 得分:20
    发那么多的贴子干什么！！！！

    这里看答案：
    http://topic.csdn.net/u/20080509/12/aa7ca2e7-52e0-448b-83c9-037947bcd474.html
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:22:493楼 得分:0
    朋友再问以下,我想把55行的第12列的线还留下该怎么做
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:40:534楼 得分:0
    顶
    修改 删除 举报 引用 回复
    进入用户个人空间
    加为好友
    发送私信
    在线聊天
    发表于：2008-05-09 15:45:315楼 得分:0
    我想在第55行和56行不画线,该怎么处理
    .Rows(i & ":" & i).Borders(xlEdgeBottom).LineStyle = xlNone
    修改 删除 举报 引用 回复
    网站简介－广告服务－网站地图－帮助－联系方式－诚聘英才－English－ 问题报告
    世纪乐知（北京）网络技术有限公司 版权所有 京 ICP 证 020026 号
    Copyright © 2000-2007, CSDN.NET, All Rights Reserved