查看: 6508|回复: 7
[已解决]为什么提示类型不匹配
运行到如下代码，则提示类型不匹配错误：If Sheets(Sheet1).Range(&a1&).velua = && Then
& && && && && && && && && && && && && && && && && && && && && && && && && & Range(&a1&).velua = thisComputer
thiscomputer是字符型
爱疯发布于
velua这是。。。。。？
应该是value
&&&本楼为最佳答案&&&
velua这是。。。。。？
应该是value
Sheets(Sheet1)——Sheets(“Sheet1”)
thisComputer——“ thisComputer&
velua——value
还是050细心
If Sheets(Sheet1).Range(&a1&).velua&&如果首字母没变成大写，说明你输入的代码有拼写错误。
本帖最后由 wenchduan 于
12:14 编辑
这个应该属于VBA的关键字错误，在输入后关键字不变色就能看得到吧！？
建议楼主别像我一样急，多看下，收获会更多。
以上的回复，对于楼主问题都有帮助。
爱疯 发表于
建议楼主别像我一样急，多看下，收获会更多。
以上的回复，对于楼主问题都有帮助。
谢谢您的建议，多谢
Powered by查看: 739|回复: 2
麻烦帮我看一下代码，执行时提示类型不匹配
阅读权限20
在线时间 小时
麻烦帮我看一下转文本带撇号的代码，执行时提示类型不匹配
21:42 上传
点击文件名下载附件
8.32 KB, 下载次数: 17
阅读权限100
在线时间 小时
Why so complex ??
Sub test()
For Each c In ActiveSheet.UsedRange
&&If c && && Then
& &&&c.Offset(0, 0) = &'& & c
阅读权限20
在线时间 小时
嗯，楼上的代码很简单，不过我要的是指定哪几个列（如这16列：C D E H I J K L M N O P Q R S X)变为文本前面加撇，其他的列为数值
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel样式乱码修复方法(批量删除excel样式)
作者：佚名
字体：[ ] 来源：互联网 时间：01-22 21:01:32
这篇文章主要介绍了Excel样式乱码修复方法(批量删除excel样式),需要的朋友可以参考下
过节的时候遇到一个求救，一个很小的问题，但是却让客服觉得是天大的事情，本着助人为乐的想法，我还是按照约定的时间前往，纵然我要做奶爸，纵然老天不给力下起了雨。 症状：一个包含N多个工作簿N多条数据的Excel突然间样式全部乱码了（类似这个），导致之前的一些格式起不了作用（主要是时间，变成了数字），虽然之前我让客户通过选择性粘贴的方法解决，当时当数据换到其他电脑的时候还是不行，于是找了一下方法，还真有。 方法：1.按Alt+F11打开VBA编辑器，在代码窗口中输入下列代码：
Sub&DelCustomStyles() &&
&&&Dim&st&As&Style &&
&&&For&Each&st&In&ActiveWorkbook.Styles &&
&&&&&If&Not&st.BuiltIn&Then&st.Delete &&
&&&End&Sub&&
2.关闭VBA编辑器，返回Excel界面。按Alt+F8，打开&宏&对话框，执行&DelCustomStyles&宏即可一次删除所有自定义单元格样式，而内置的单元格样式会保留。 就这么简单，我运行了一下，删除了将近上千个样式，估计是表格在转换的过程中出了问题。
大家感兴趣的内容
12345678910
最近更新的内容}