问： 5 一个不认识的女的，因为一次醉酒，发生了性关系，她月经是每月12号左右，我是7.6号发生_百度宝宝知道查看: 1213|回复: 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(&&?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
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师问： 上次月经5.5，很准时的我，5.16 17 22 26 29 30 同房 5.31—6._百度宝宝知道问： 我喜欢一个女孩子 那天晚上她和一个男生合照了然后发到QQ空间 被我看到了 然后我吃醋了 到_百度宝宝知道}