EXCEL2003版本表格转成2010启用宏的工作部，出现大量名称错误，请大神指导下怎么改_百度知道
提问者采纳
加QQ.......
提问者评价
万分感谢，谢谢
其他类似问题
excel2003的相关知识
按默认排序
其他2条回答
发过来。我研究下。
这种情况，多半是由于ActiveX控件未注册造成的，，03和10版直接的差距还是有的~~ 没有文件，不好直接判断，你不妨这样一试：先将03版的表达开后，另存为10版（你电脑上当然得安装2010版本）。然后打开工作表，查看VBA资源管理器，，查看引用的地方，，如果合适，再保存为带宏的EXCEL。。 你试试吧，，问题只能一个一个的排除。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在EXCEL2003 中，下面说法正确的是？谢谢了，大神帮忙啊_百度知道
在EXCEL2003 中，下面说法正确的是？谢谢了，大神帮忙啊
A ＆是字符运算符 B ，（逗号）是引用运算符 C ！＝是比较运算符 D ％是算术运算符
提问者采纳
A B D 都是正确的 C是错误的 excel 的不等于用&&表示
其他类似问题
excel2003的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁查看: 740|回复: 10|
在线时间0 小时经验5 威望0 性别男最后登录注册时间阅读权限10UID2172792积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
本帖最后由 、谁愿颠沛流离 于
19:08 编辑
问题描述：
一张表中存在某一列的连续多行是类似23.1524345这样的小数，需要将这些数统一改成23.00的格式，因为工作量相当大，所以用公式和函数避免不了复制粘贴的话，依然会相当麻烦，所以希望能用VBA编程实现如下功能。
运行宏后，鼠标点击这列数的第一项，则自动将包括这个数在内的后面的数全部改成两位为0小数的格式。
跪求大神帮助啊，苦逼的我不学BASIC好多年了，因为事情很急，所以才请大家帮忙。
在线时间16 小时经验11 威望0 性别保密最后登录注册时间阅读权限10UID2159535积分11帖子精华0分享0
EH新人, 积分 11, 距离下一级还需 9 积分
积分排行3000+帖子精华0微积分0
格式刷啊……
在线时间15 小时经验12 威望0 性别保密最后登录注册时间阅读权限10UID2145458积分12帖子精华0分享0
EH新人, 积分 12, 距离下一级还需 8 积分
积分排行3000+帖子精华0微积分0
=TEXT(INT(A1),&0.00&)
在线时间0 小时经验5 威望0 性别男最后登录注册时间阅读权限10UID2172792积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
(^.べ)睫毛弯弯 发表于
=TEXT(INT(A1),&0.00&)
这个公式貌似不能在原来的格子上用吧....那就意味着要复制粘贴一次&&工作量实在太大
在线时间0 小时经验5 威望0 性别男最后登录注册时间阅读权限10UID2172792积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
sevarsti 发表于
格式刷啊……
格式刷怎么弄....真心求教 因为我要在改格式的同时还要改变数值&&后面只保留两位小数且都是0
在线时间11747 小时经验6665 威望2 性别男最后登录注册时间阅读权限95UID200718积分6865帖子精华0分享0
积分排行121帖子精华0微积分0
Private Sub CommandButton1_Click()
& &[A:A].Replace &.*&, &&
& &[A:A].NumberFormatLocal = &#0.00&
在线时间5005 小时经验13163 威望7 性别男最后登录注册时间阅读权限95UID443526积分13413帖子精华0分享0
积分排行42帖子精华0微积分0
这样…………
19:30 上传
下载次数: 8
7.03 KB, 下载次数: 8
在线时间11747 小时经验6665 威望2 性别男最后登录注册时间阅读权限95UID200718积分6865帖子精华0分享0
积分排行121帖子精华0微积分0
任选某列时
Private Sub CommandButton1_Click()
& &n = InputBox(&请输入列号:&, , 1)
& &If n && && Then
& && &Columns(Val(n)).Replace &.*&, &&
& && &Columns(Val(n)).NumberFormatLocal = &#0.00&
在线时间0 小时经验5 威望0 性别男最后登录注册时间阅读权限10UID2172792积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
dsmch 发表于
这样…………
感谢，但是还是有点瑕疵，能不能只修改指定鼠标所在单元格所在列的值，并且如果表头有汉字会出错...
&模拟附件上传，方便调试代码&
在线时间0 小时经验5 威望0 性别男最后登录注册时间阅读权限10UID2172792积分5帖子精华0分享0
EH新人, 积分 5, 距离下一级还需 15 积分
积分排行3000+帖子精华0微积分0
本帖最后由 、谁愿颠沛流离 于
19:44 编辑
yaozong 发表于
Private Sub CommandButton1_Click()
& &[A:A].Replace &.*&, &&
& &[A:A].NumberFormatLocal = &#0.00&
感谢，但是我这里貌似用不了 也不知道是为什么，包括我自己写的宏也是各种有问题。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox &所选单元格在& & Chr(10) & &第 & & Target.Column & & 行& & Chr(10) & &第 & & Target.Row & & 列&, vbInformation
Dim Col As Integer
Dim ro As Integer
Col = Target.Column
ro = Target.Row
Dim i As Integer
Dim s As String
Dim t As Integer
While (cell(ro + i, Col).Value Like &*.*&) = -1
t = find(&.&, cell(ro + i, Col).Value)
s = Left(cell(ro + i, Col).Value, t) & &00&
cell(ro + i, Col).Value = s
这是我自己写的宏，但是提示是“子过程或函数未定义”
优秀会员奖章No.2
优秀会员奖章No.1
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
优秀会员奖章No.3
优秀会员奖章No.4
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&查看: 74|回复: 5|
在线时间3 小时经验2 威望0 性别保密最后登录注册时间阅读权限10UID2971137积分2帖子精华0分享0
EH新人, 积分 2, 距离下一级还需 18 积分
积分排行3000+帖子精华0微积分0
本帖最后由 不叫阿蒙 于
14:41 编辑
根据明细表，自动分别转换成要求的TXT文件？？求大神帮忙解决大问题。
(125.43 KB, 下载次数: 4)
14:41 上传
下载次数: 4
在线时间3 小时经验2 威望0 性别保密最后登录注册时间阅读权限10UID2971137积分2帖子精华0分享0
EH新人, 积分 2, 距离下一级还需 18 积分
积分排行3000+帖子精华0微积分0
求大神来帮帮忙咯
在线时间2838 小时经验2575 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2825帖子精华0分享0
EH铁杆, 积分 2825, 距离下一级还需 375 积分
积分排行342帖子精华0微积分0
Sub test()
& & Dim d, arr, k, i&, s$, s1$
& & arr = Sheets(&明细表&).Range(&a1&).CurrentRegion
& & Set d = CreateObject(&scripting.dictionary&)
& & For i = 2 To UBound(arr)
& && &&&If Not d.exists(arr(i, 8)) Then
& && && && &s = &ATNU:& & arr(i, 9) & vbCrLf & _
& && && && &&MICN:& & arr(i, 10) & vbCrLf & _
& && && && &&CUNM:& & arr(i, 8) & vbCrLf & _
& && && && &&MIAC:& & arr(i, 11) & vbCrLf & _
& && && && &&EYMD:& & arr(i, 12) & vbCrLf
& && && && &s1 = arr(i, 11) & &|& & arr(i, 4) & &|& & arr(i, 2) & vbCrLf
& && && && &d(arr(i, 8)) = Array(arr(i, 4), 1, s1, s)
& && &&&Else
& && && && &s1 = arr(i, 11) & &|& & arr(i, 4) & &|& & arr(i, 2) & vbCrLf
& && && && &d(arr(i, 8)) = Array(d(arr(i, 8))(0) + arr(i, 4), d(arr(i, 8))(1) + 1, d(arr(i, 8))(2) & s1, d(arr(i, 8))(3))
& && &&&End If
& & Next
& & For Each k In d.keys
& && &&&s = d(k)(3) & &TOAM:& & d(k)(0) & vbCrLf & &COUT:& & d(k)(1)
& && &&&s = s & vbCrLf & &---------------------------&
& && &&&s = s & vbCrLf & d(k)(2)
& && &&&Open ThisWorkbook.Path & &\& & k & &.txt& For Output As #1
& && &&&Print #1, s
& && &&&Close #1
& & Next
& & MsgBox &完成!生成文本在当前目录下.&
End Sub复制代码
在线时间2838 小时经验2575 威望1 性别保密最后登录注册时间阅读权限70UID2259283积分2825帖子精华0分享0
EH铁杆, 积分 2825, 距离下一级还需 375 积分
积分排行342帖子精华0微积分0
(132.86 KB, 下载次数: 8)
15:45 上传
下载次数: 8
在线时间4886 小时经验7672 威望3 性别男最后登录注册时间阅读权限95UID290599积分7872帖子精华0分享0
积分排行104帖子精华0微积分0
..............................
16:10 上传
下载次数: 9
103.03 KB, 下载次数: 9
在线时间2172 小时经验1368 威望0 性别保密最后登录注册时间阅读权限50UID837201积分1418帖子精华0分享0
EH高级, 积分 1418, 距离下一级还需 582 积分
积分排行741帖子精华0微积分0
优秀会员奖章No.1
积分≥4700即可申请
金牌优秀会员
金牌优秀会员奖章No.1
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&求ＰＳ大神帮忙安装photoshop　ＸＰ系统　如有会的人联系我跪求啊
求ＰＳ大神帮忙安装photoshop　ＸＰ系统　如有会的人联系我跪求啊
不区分大小写匿名
去百度啊去下400多mb的
photoshop cs3
还是不会啊
原版安装需要注册帐号，建议你安装绿色版。
双击，然后一路下一步，最后完成。
台式电脑的？你那
我这有个免费的photoshop的，带序列号生成器，断网就可以使用生成器，不知是否适合你...
你那360是干什么吃的？？
现在没空给你，我忙完给你
CS6免安装版要不
可以帮一下
相关知识等待您来回答
多媒体领域专家