查看: 3761|回复: 14|
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
&&&在&&&&&$A$1&&&&& $A$2&&& $A$3&&&&&&&&&&&&&&&& 自定义了名称 "abc"&&& &"bcd"&&&&& "cde"&& range("abc").Address=$A$1range("bcd").Address=$A$2range("cde").Address=$A$3已定义一批名称怎样通过 循环 把以上单元格的名称循环到变量中也就是说，已知单元格 怎样获得单元格的自定义名称？ActiveCell&.select&&&&if& ActiveCell.Address=$A$1&&选择一个单元格&后&& msgbox&&会弹出侧单元格所定义的名称&&"abc"select abc,bcd,cde from hetong 谢谢！
[此贴子已经被作者于 9:33:52编辑过]
猜你喜欢看
降低素质，提高品质
在线时间34 小时经验3356 威望1 性别女最后登录注册时间阅读权限90UID200659积分3456帖子精华0分享0
EH能手, 积分 3456, 距离下一级还需 1244 积分
积分排行281帖子精华0微积分0
建议上传附件好处理。
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
大家对EXCEL 连接 access 有兴趣吗？我把 access的字段 与 EXCEL 的单元格名称相对应，所以需要任意调出EXCEL 的单元格名称再用 select 进行连接,以前我用单个字段连接，代码麻烦，反应速度慢。现希望改进，望高手帮忙.
[此贴子已经被作者于 10:00:37编辑过]
降低素质，提高品质
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
Public cnn1 As ADODB.ConnectionPublic sqlstr As StringPublic rs1 As ADODB.RecordsetSub 调用()Dim tsts = 0Set cnn1 = New ADODB.Connectioncnn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\123.MDB;"cnn1.ConnectionTimeout = 5cnn1.Opensqlstr = "SELECT *&"Set rs1 = New ADODB.Recordsetrs1.Open sqlstr, cnn1, adOpenKeyset, adLockOptimisticIf rs1.RecordCount & 0 Thenrs1.MoveFirstCells(2 + ts, Range("abc").Column) = rs1.Fields("abc")Cells(2 + ts, Range("bcd").Column) = rs1.Fields("bcd")Cells(2 + ts, Range("cde").Column) = rs1.Fields("cde")rs1.MoveNextts = ts + 1LoopEnd Sub'这样调用，数据量大时，反用应速度极慢。'i=abc,bcd,cde ....'我想用sqlstr = "SELECT "& i &""& 这样的语句，然后用& CopyFromRecordset。'但如果字段很多，& i 得值怎样确定呢？。'怎样用循环获得 i& 的值？？。由于用户可能要调整 abc,bcd,cde .... 的前后顺序，每次调用时，都须重新循环以下 i& 的值，所以必须要通过循环EXCEL表格中的单元格名称，对 i& 重新附值。
[此贴子已经被作者于 10:39:19编辑过]
降低素质，提高品质
在线时间106 小时经验2448 威望1 性别男最后登录注册时间阅读权限70UID146619积分2498帖子精华0分享0
EH铁杆, 积分 2498, 距离下一级还需 702 积分
积分排行395帖子精华0微积分0
把你上面的直接向单元格写改为向数组写,你看还慢不慢
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
我需要写入单元格的TGB 老师 是否能举个例子！感谢！
降低素质，提高品质
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
我可以实现我说的第一种功能，不敢独享！Private Sub Worksheet_SelectionChange(ByVal Target As Range)For Each nm In ActiveWorkbook.NamesIf "=" & ActiveSheet.Name & "!" & ActiveCell.AddressLocal(ReferenceStyle:=xlR1C1) = nm.RefersToR1C1 ThenMsgBox nm.NameExit ForEnd IfNextEnd Sub
&不错，学习！&
降低素质，提高品质
在线时间106 小时经验2448 威望1 性别男最后登录注册时间阅读权限70UID146619积分2498帖子精华0分享0
EH铁杆, 积分 2498, 距离下一级还需 702 积分
积分排行395帖子精华0微积分0
我的意思是先向数组写,然后再将数组的值赋给单元格,这样比循环赋值给单元格肯定要快很多的.可以取得rs1.RecordCount 的值来声明数组.最有效的还是查询时只返回自己想要的．就没这么麻烦．也就是说不是返回全部字段的话就不要用"select * from XXX"这一类你搜索一下爱歌版主的贴,徨环组合SQL语句也能找到答案.
我以为我颓废，其实我已报废！
在线时间455 小时经验2096 威望1 最后登录注册时间阅读权限70UID150229积分2096帖子精华0分享0
EH铁杆, 积分 2096, 距离下一级还需 1104 积分
积分排行491帖子精华0微积分0
谢谢TGB 多向你学习！我已解决我的问题，公开代码For t = 1 To Range("dz1").End(xlToLeft).ColumnFor Each nm In ActiveWorkbook.NamesIf "=" & ActiveSheet.Name & "!" & Cells(1, t).AddressLocal(ReferenceStyle:=xlR1C1) = nm.RefersToR1C1 Thenr = nm.Name & "," & rExit ForEnd IfNextNexti = Left(r, Len(r) - 1)MsgBox i
[此贴子已经被作者于 13:15:27编辑过]
降低素质，提高品质
在线时间5381 小时经验12705 威望10 性别女最后登录注册时间阅读权限95UID218774积分14605帖子精华2分享0
积分排行29帖子精华2微积分0
都是傻瓜，当你选择的单元格已定义名称时，这个名称会自动出现在Excel的地址栏中让你确认，何必要通过宏来判断、调用，最后只不过是放在Msgbox中看看而已呢，傻哦。
优秀会员奖章No.1
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.3
金牌优秀会员
金牌优秀会员奖章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.4
优秀会员奖章No.3
优秀会员奖章No.2
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&推荐到广播
280999 人聚集在这个小组
(心凉如水)
手机扫描二维码，把小组装进口袋
第三方登录：查看: 2347|回复: 9|
在线时间73 小时经验1086 威望20 性别男最后登录注册时间阅读权限95UID69873积分2986帖子精华0分享0
积分排行328帖子精华0微积分0
本附件表格中有插入的名称,但怎么也删不掉,请大家帮我看看是怎么回事,请看附件:
(34.51 KB, 下载次数: 9)
14:24 上传
下载次数: 9
[求助]为什么插入的名称删不掉
猜你喜欢看
WE ARE DUST IN THE COSMOS!
在线时间6173 小时经验48655 威望30 性别男最后登录注册时间阅读权限150UID151593积分49055帖子精华3分享2
管理以下版块
142943财富
积分排行1帖子精华3微积分0
名称中包含非法字符。
在线时间1223 小时经验3728 威望8 性别男最后登录注册时间阅读权限100UID1960积分6928帖子精华2分享0
管理以下版块
积分排行118帖子精华2微积分0
察看时发现名字的引用位置出错# ref通过宏表函数names()可以看到一般（显性）名字17个，隐性名字12个
拉动内需：多生孩子，少种树
歌者哼哈，咏者默然。
在线时间73 小时经验1086 威望20 性别男最后登录注册时间阅读权限95UID69873积分2986帖子精华0分享0
积分排行328帖子精华0微积分0
谢谢两位的指点,可是如何将这些垃圾名称彻底删除呢?
在线时间1532 小时经验5686 威望18 性别男最后登录注册时间阅读权限100UID174063积分15286帖子精华4分享0
管理以下版块
积分排行25帖子精华4微积分0
第一步:运行下面这段程序,将定义名称改名:Private Sub CommandButton1_Click()Dim slR1C1 As LongslR1C1 = Application.ReferenceStyleApplication.ReferenceStyle = xlR1C1Application.ReferenceStyle = xlA1Application.ReferenceStyle = slR1C1'For Each oName In ActiveWorkbook.Names'&&& oName.Delete'NextEnd Sub注意红色代码不要用,否则EXCEL会死.也可以不用上面的代码,直接在工具/选项中选相反的引用式样两次来改掉全部的非法名称名.PS:名称随便一些英文字母就可以了.第二步:然后保存文件(直接保存,不要用"保存为").第三步:退出EXCEL,此时EXCEL会有死的提示.继续好了.第四步:打开刚才保存的文件.删除名称. OK
[此贴子已经被作者于 8:03:30编辑过]
各人时间有限,欢迎大家积极参与讨论,巩固知识,帮助他人.如果你还有其他奇思妙想,请到发表,即有得分机会.
在线时间1223 小时经验3728 威望8 性别男最后登录注册时间阅读权限100UID1960积分6928帖子精华2分享0
管理以下版块
积分排行118帖子精华2微积分0
如果改名称的引用范围呢?
在线时间1532 小时经验5686 威望18 性别男最后登录注册时间阅读权限100UID174063积分15286帖子精华4分享0
管理以下版块
积分排行25帖子精华4微积分0
回复：（goons）如果改名称的引用范围呢?
以下是引用goons在 22:39:14的发言：如果改名称的引用范围呢?当定义名称的名字为非法时,不能改引用范围,得先改名后再作其他操作.
各人时间有限,欢迎大家积极参与讨论,巩固知识,帮助他人.如果你还有其他奇思妙想,请到发表,即有得分机会.
在线时间1949 小时经验9532 威望21 性别男最后登录注册时间阅读权限100UID72550积分10232帖子精华0分享0
管理以下版块
积分排行72帖子精华0微积分0
为什么文件这么大呢：334KB (342,016 字节)？如何减肥啊？
在线时间1532 小时经验5686 威望18 性别男最后登录注册时间阅读权限100UID174063积分15286帖子精华4分享0
管理以下版块
积分排行25帖子精华4微积分0
以下是引用aichong在 23:51:40的发言：为什么文件这么大呢：334KB (342,016 字节)？如何减肥啊？终级绝招: 将改成后的文件保存为 xml格式的文件, 比如d.xml ,关掉它,再打开d.xml,保存为c.xls aichong可以用这个改好名的文件试试: &
(37.47 KB, 下载次数: 4)
00:30 上传
下载次数: 4
[求助]为什么插入的名称删不掉
各人时间有限,欢迎大家积极参与讨论,巩固知识,帮助他人.如果你还有其他奇思妙想,请到发表,即有得分机会.
在线时间1223 小时经验3728 威望8 性别男最后登录注册时间阅读权限100UID1960积分6928帖子精华2分享0
管理以下版块
积分排行118帖子精华2微积分0
积分≥4700即可申请
最佳管理者
最佳管理者奖章No.1
金牌优秀管理者
金牌优秀管理者勋章No.1
金牌优秀管理者
金牌优秀管理者勋章No.2
优秀管理者
优秀管理者勋章No.1
优秀管理者
优秀管理者勋章No.2
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.1
优秀会员奖章No.2
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&