65532小游戏,65532在线小游戏,65532小游戏大全,双人小游戏,65532单人小游戏
您的位置： &
评分：2.0人气：1683评分：3.2人气：24031评分：3.0人气：505评分：2.9人气：13350评分：暂无评分人气：90评分：3.5人气：3424评分：3.3人气：1955评分：2.3人气：1562评分：4.1人气：2635评分：3.6人气：23498评分：2.5人气：701评分：3.4人气：20548评分：3.3人气：4021评分：暂无评分人气：273评分：4.1人气：55455评分：3.6人气：9012评分：3.0人气：268评分：4.2人气：86009评分：1.0人气：458评分：3.8人气：795评分：暂无评分人气：198评分：3.3人气：8746评分：3.0人气：1327评分：3.9人气：117102评分：暂无评分人气：154评分：3.6人气：5518评分：3.4人气：26087评分：3.6人气：1435评分：3.6人气：2655评分：3.6人气：81645评分：暂无评分人气：252评分：3.3人气：22986评分：3.8人气：5852评分：4.2人气：3582评分：3.7人气：1842评分：3.6人气：58525评分：3.0人气：2416评分：3.0人气：1654评分：3.6人气：3097评分：3.0人气：262评分：3.5人气：1905评分：3.0人气：1075评分：2.5人气：582评分：2.6人气：5283评分：2.0人气：520评分：3.4人气：8866评分：3.8人气：1936评分：2.0人气：549
更多推荐专辑>> 65532;古董古玩收藏杂项明代金砖石雕石器有款直隶松江府城_价格元
65532;古董古玩收藏杂项明代金砖石雕石器有款直隶松江府城
编号：se41
品种：古砖/画像砖-古砖/画像砖
属性：文字砖，，元明清，，文字，，30厘米以下，，，，，
简介：如有事可留言或拨我手机发短信，手机18九我会尽快回复,或者可以加微信.
您好，欢迎您对本店商品进行点评、提问！如果您需进一步了解商品，请在此向店主询问！
店主 || 还未回复
商店【桃花坞古玩店】“古砖/画像砖”目录下其他商品：
滚动鼠标滚轴，图片即可轻松放大、缩小
当前位置： >>
>> 古砖/画像砖 >> 65532;古董古玩收藏杂项明代金砖石雕石器有款直隶松江府城_价格元
Copyright & 1999-.
All Rights Reserved ；建议分辨率最好为，IE5.0或以上版本浏览器
中国收藏热线版权所有；未经许可，本网图片、文字不得转载、复制、及制作镜像！客服电话：8， (白天接听：9:00-17:00)查看: 1338|回复: 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限制。
最新热点 /2
京东ExcelHome部分图书，每满100减30，可叠加使用满150减50优惠券，叠券后相当于满300减140。活动日期，即日起至9月18日。
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师65532 2的几次方 - 标签 - ZNDS智能电视网