查看: 1456|回复: 19
添加超链接问题？到达65532行就出错了！
阅读权限10
在线时间 小时
各位大侠好，小弟，最近碰到一个问题，已经困扰好长时间。问题如下：
本工作簿有10多个sheet，本人写了一个宏，为每个sheet的第二列name创建一个导航页sheet，名为index页，在程序运行到65532时，程序出错，错误码未：1004
& & --------------------------------------------------------------------------------& &&&超链接的代码如下
& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &Next
& && &End With
------------------------------------------------------------------------------------
阅读权限10
在线时间 小时
excel表见附件，代码在模块1中，请各位大侠多多指点。
22:20 上传
点击文件名下载附件
695.77 KB, 下载次数: 15
22:20 上传
点击文件名下载附件
781.25 KB, 下载次数: 12
阅读权限10
在线时间 小时
为啥没高手解答勒！版主！求救呀！
阅读权限10
在线时间 小时
& & & & & & & &
本帖最后由 tanpingabcd_1 于
18:58 编辑
我将代码粘出来吧，请各位指导下。
----------------------------------------
本段代码用于添加导航页index，实现在index中点击一个单元格，即跳转到对应页的链接位置【INDEX单元格指向的位置】。
----------------------------------
Dim Sheet_Nb As Integer
Dim Position1 As Long
Dim Type_Nb, NAME_NB As Integer
Dim select_type() As Variant
Dim CLM(100) As Integer& && & '新增字段修改区
Sub insert_sheet()& && &'用于在原工作薄中插入名为index的sheet页
& & ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
& & Sheets(1).Select
& & Sheets.Add
& & Sheets(1).Name = &Index&
Public Sub indexsheet()
& & select_type = Array(&NAME&) '新增字段修改区
& & insert_sheet&&'在工作簿中插入一个sheet；
& & For i = 0 To UBound(select_type)
& && &&&Sheets(1).Cells(1, i + 1) = select_type(i)
& && &&&If select_type(i) = &NAME& Then NAME_NB = i + 1&&'NAME_NB代表关键字NAME所在列号
'----------------------------------------------------------------------------------------------------------
'此段用于复制其他页含有“NAME”关键字的列，将其copy到index中
& & For Sheet_Nb = 2 To Sheets.Count
& && && &Sheets(Sheet_Nb).Select
& && && &sum_clm = ActiveSheet.UsedRange.Columns.Count
& && && &sum_row = ActiveSheet.UsedRange.Rows.Count
& && && &CL_NO = 0
& && && &Position1 = Sheets(1).UsedRange.Rows.Count
& && && &For Type_Nb = 0 To UBound(select_type)
& && && && && & For x = 1 To sum_clm
& && && && && &
& && && && && && &&&If InStr(Sheets(Sheet_Nb).Cells(1, x), select_type(Type_Nb)) && 0 Then
& && && && && && &&&
& && && && && && && &&&CLM(CL_NO) = x
& && && && && && && &&&CL_NO = CL_NO + 1
& && && && && && && &&&Exit For
& && && && && && && &&&
& && && && && && &&&End If
& && && && && && &&&
& && && && && && &&&
& && && && && && &&&If x = sum_clm Then CL_NO = CL_NO + 1: GoTo next_type
& && && && && && &&&
& && && && && & Next
& && && && && && && && &
& && && && && & Sheets(Sheet_Nb).Select
& && && && && & Sheets(Sheet_Nb).Range(Cells(2, CLM(Type_Nb)), Cells(sum_row, CLM(Type_Nb))).Select
& && && && && && && &
& && && && && & Selection.Copy
& && && && && & Sheets(1).Select
& && && && && & row = Position1
& && && && && & Cells(row + 1, Type_Nb + 1).Select
& && && && && & Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
& && && && && && &&&:=False, Transpose:=False
& && && && && &
next_type:
& && && & Next
'--------------------------------------------------------------------------------------------------------------------------------------------
'此段用于添加链接信息。已点击index中的单元格，即跳转至对应页的位置【index链接指向的位置】
& && && &sheet_name = Sheets(Sheet_Nb).Name
& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &Next
& && &End With
-----------------------------------
阅读权限10
在线时间 小时
& & & & & & & &
debug时，问题就是出现在Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
阅读权限10
在线时间 小时
跪求高手出招！
阅读权限10
在线时间 小时
真无人能解么？:L
阅读权限30
在线时间 小时
& & & & & & & &
版本是2003? 其实我看不太懂你的代码，不过整体感觉是不断的将某sheet的资料贴到sheet index中，我是用2003的出错在Row数超出65536，也帮不了你
还有一些怪怪的代码
Dim CLM(100) As Integer&&这个变数你如何保证不超出index?
看起来效能都卡在这段代码，应该要找一下有没有更快的加超连结的代码& && &With Sheets(&index&)
& && && &For Hyper_Nb = 1 To sum_row - 1
& && && &
& && &&&'& &&&Sheets(&Index&).Activate
& && && && & .Cells(Position1 + Hyper_Nb, NAME_NB).Select
& && && && & CBL_name = .Cells(Position1 + Hyper_Nb, NAME_NB)
& && && && &
& && && && & Hyper = CStr(Hyper_Nb + 1)
& && && && &Sheets(&index&).Hyperlinks.Add Anchor:=Selection, Address:=&&, SubAddress:=sheet_name & &!B& & Hyper, TextToDisplay:=CBL_name
& && && && &&&
& && && &
& && && &Next
& && &End With
& && &&&
& & Next复制代码
阅读权限30
在线时间 小时
找到快速加超连结的资料，不过是英文版的
关键代码，利用excel function hyperlink,这个参数好像也可以设定为range，我是看MS的说明(还说明是2010适用…2003不能设定range,我已测试过)Sub test_simple_diffurl()
& & Dim r As Range
& & Set r = Range(&C1:C60000&)
& & r.Formula = &=HYPERLINK(&&http://www.url.com?address=&& & ADDRESS(ROW(),COLUMN()),&&Test with && & ADDRESS(ROW(),COLUMN()))&
End Sub复制代码
阅读权限10
在线时间 小时
lolmuta 发表于
版本是2003? 其实我看不太懂你的代码，不过整体感觉是不断的将某sheet的资料贴到sheet index中，我是用2003 ...
谢谢！我用的是2010，应该不受65535限制。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师奥伦AE65532( AARON AE65532 )
奥伦AE65532
参考价格：￥4800
商家报价：￥4800至￥4800
类型：智能防护型室外机柜
容量（U）：32
标准：19"国际标准
门及门锁：机柜除了配备有常用的机械锁以外，还配备了电子密码锁，拥有操作权限的用户凭密码打开柜门
产品简介：
奥伦AE65532机柜具有灵活性，多样性，完善性，整合性等特点，可以根据不同的应用需求，量身定制各种类型的机柜系统和解决方案，是各类机房的最理想选择。能为设备提供规范、宽敞的使用空间、良好的恒温环境和拓展性，使柜内设备可以在最佳的环境中运行。奥伦AE65532保障设备的运行稳定性和数据的安全性，有效的延长设备的使用寿命。相关尺寸符合国际标准，通用性强。可提供各种附件来满足不同的应用需要。
奥伦AE65532热门行情行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17行情|11-17
关注奥伦AE65532的网友还喜欢
精彩提问标题作者回复天极网友1天极网友3天极网友1天极网友5
同品牌最热产品
热门链接：
接下来您可以
机柜新品推荐
机柜品牌排行
　　北京奥伦兴达科技有限公司专业从事各类室内外机柜、机柜配套产品、机柜动环监控产品等产品的开发，主要经营的产品有：标准网络机柜、服务器机柜、智能机柜、户... []
客服电话：010-21084
官方网站：
商家促销信息
免责声明：此页面（本网站）所显示的维修商主体资格、经营资质、报价、售后服务等承诺、以及所发布的商务信息等内容的真实性、准确性和合法性由发布维修商负责，不代表天极网观点，天极网亦对此不作任何承诺与保证，天极网所提供（本站显示）的信息资料仅作为市场资讯供用户参考。页面上带有”官方授权”图标的为官方授权维修点，维修商提交了官方授权书，带有“官网认证”图标的为官网认证维修点。天极网建议您选择同城具有相当资质的维修商当面交易，不要先直接打款给维修商，以降低自身风险。网络用户依其意志自主选择维修主体、维修物品，并自行承担后续风险，本站不承担任何法律责任。
|||||||||Copyright (C)
Yesky.com, All Rights Reserved 版权所有 天极网络&#6款别克君威1.5T和阿特兹2.5哪个好，动力谁更好，… - 问答 - 牛车网
& &#6款别克君威1.5T和阿特兹2.5哪个好，动力谁更好，…
&#6款别克君威1.5T和阿特兹2.5哪个好，动力谁更好，…
? 20 17款别克君威1.5T和阿特兹2.5哪个好，动力谁更好，油耗方面呢？分别每公里多少钱? 20 17款别克君威1.5T和阿特兹2.5哪个好，动力谁更好，油耗方面呢？分别每公里多少钱180的速度稳吗
微信扫一扫
登录牛车网
第三方登录:1a18a2c28fcc39b87dee9
该会员图片(2)
(C) dianping.com, All Rights Reserved. 本站发布的所有内容，未经许可，不得转载，详见 。}