excel VBA 2003版不能设置类boders的weight属性

枫的大拿加

irow_Title =3irow_APageData=26
Set SHrng = Range(.Cells(irow_Title + 1, 1), .Cells(irow_Title + count_page * irow_APageData, 20))
      SHrng.Borders.Weight = xlThin ‘@@@运行到此处出错！
      SHrng.Borders(xlEdgeLeft).LineStyle = xlNone       '边框左边线——无
      SHrng.Borders(xlEdgeRight).LineStyle = xlNone

2003版excel运行会出错，但是2010不会。
是版本的问题么？怎么让兼容啊？？？

请各位帮帮忙吧！

hwc2ycy

出错什么提示？
你看看03下BORDERS对象。

hwc2ycy

换成xlMedium试试呢。

zjdh

我这运行正常啊。

hwc2ycy

是不是工作表设置保护了？

枫的大拿加

hwc2ycy 发表于 2014-1-5 17:59
是不是工作表设置保护了？

版主，是不是跟表的标题被冻结有关系啊？标题是3行，如果我改成从第五行开始设置单元格边框，就能运行。

怎么回事啊，糊涂了

hwc2ycy

枫的大拿加 发表于 2014-1-5 20:06
版主，是不是跟表的标题被冻结有关系啊？标题是3行，如果我改成从第五行开始设置单元格边框，就能运行。
...

你可以把你有问题的工作簿压缩上传。
这样比较好找问题。

枫的大拿加

hwc2ycy 发表于 2014-1-5 20:46
你可以把你有问题的工作簿压缩上传。
这样比较好找问题。

做的项目还真不好发。我也没办法

但是我发现了个问题。就是假如我先将所有的单元格边框设置为无边框，那么就可以运行了。

我稀里糊涂的搞定了。不知道什么原因。

根据这个发现，我怀疑：

是不是以前有xlmedium边框的时候，就不可以设置了？

hwc2ycy

枫的大拿加 发表于 2014-1-5 21:51
做的项目还真不好发。我也没办法

但是我发现了个问题。就是假如我先将所有的单元格边框设置为无边框， ...

好像不会吧。这个不好说。