运行excel出现时出现错误438如何解决

来源：蜘蛛抓取(WebSpider) 时间：2012-05-17 23:29 标签： excel出现
查看: 379|回复: 17
帮忙调式一下，提示错误438
阅读权限20
在线时间 小时
怎么也调不好，
(21.95 KB, 下载次数: 2)
19:01 上传
19:00 上传
点击文件名下载附件
28.26 KB, 下载次数: 5
阅读权限20
在线时间 小时
本帖最后由 心的启点 于
19:06 编辑
cells前面的点去掉，后面B不应该是“”加B应该是2。我也不知道对与不对，如果用Range的话应该可以用“B+行号”，用cells的话应该是绝对数字！
阅读权限95
在线时间 小时
本帖最后由 maditate 于
19:37 编辑
我只知道 Range()括号里面应该有&&：&&冒号 ，&&Cells()&&括号里面用 ,&&逗号。
.Range(&B8&, Sht.Cells(myRo, &F&))&&这种用法我没用过。
阅读权限20
在线时间 小时
& & & & & & & &
cells前面的点去掉，后面B不应该是“”加B应该是2。我也不知道对与不对，如果用Range的话应该可以用“B+行 ...
改了还是不对呢
阅读权限20
在线时间 小时
我只知道 Range()括号里面应该有&&：&&冒号 ，&&Cells()&&括号里面用 ,&&逗号。
.Range(&B8&, Sht.Cells ...
是啊，有人用过，都没问题的
可是我这就用不了，不知道哪出问题了
阅读权限20
在线时间 小时
我只知道 Range()括号里面应该有&&：&&冒号 ，&&Cells()&&括号里面用 ,&&逗号。
.Range(&B8&, Sht.Cells ...
是啊，有人用过，都没问题的
不知道哪出问题了
阅读权限20
在线时间 小时
& & & & & & & &
我帮你看看吧，本人也是刚学不久不知道能不能帮你解决问题呢！
阅读权限20
在线时间 小时
& & & & & & & &
我帮你看看吧，本人也是刚学不久不知道能不能帮你解决问题呢！
非常感谢，我是一点也不通，就是以前用过的，拿出来抄的
阅读权限20
在线时间 小时
非常感谢，我是一点也不通，就是以前用过的，拿出来抄的
我说呢里边的逻辑关系很乱，并且记录表里的单元格还有密码保护！你这个要好好的理一下怎么也得要点时间！
阅读权限95
在线时间 小时
用一个数组在中间过渡一下，不建议把两个单元格区域直接用等号相等，另外.value属性该加的时候就加，不该加的时候，不要加，建议写成这样.Cells(Ro, &B&).Resize(myRo - 7, 12) = Sht.Range(&B8&, Sht.Cells(myRo, &F&)).Value
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 2595|回复: 8
[已解决]提示错误代码438，对象不支持该属性或方式
Private Sub Workbook_Open()
'定义变量存放输入的用户名
Dim myName As String
Dim myCode As String
myName = InputBox(&请输入您的用户名:&, &用户名&)
Dim Sht As Worksheet
Set Sht = Worksheets(&用户名和密码&)
Dim num As Integer
num = Sht.Range(&A1&).CurrentRagion.Rows.Count
Dim GeiGuo As Boolean
GeiGuo = True
'检查输入的用户名是否存在
For i = 2 To num
If Sht.Cells(i, 1) = Trim(myName) Then
'用户名存在，请输入密码
myCode = InputBox(&请输入您的密码：&, &密码&)
'检测密码是否正确
& & If Sht.Cells(i, 2) = Trim(myCode) Then
& & '密码正确解除工作薄的保护
& && & MsgBox myName & &,欢迎您使用本系统&, vbOKOnly, &欢迎&
& && & ActiveWorkbook.Protect Password:=&mima&, structure:=True, Windows:=False
& && & Sheets(&主界面&).Select
& && & Exit For
& && & '密码错误提示并关闭本系统
& && && & MsgBox &密码错误，将自动关闭本系统&, vbOKOnly, &密码错误&
& && && & ActiveWorkbook.Close
& && && & Exit For
& && &&&End If
& &GeiGuo = False
& &&&'用户名错误，关闭本系统
&&If GeiGuo = False Then
& && &MsgBox &对不起，你无权使用本系统&, vbOKOnly, &用户名错误&
& && &ActiveWorkbook.Close
su45发布于
CurrentRagion
应该是：CurrentRegion
可能是下面这句错了：
num = Sht.Range(&A1&).CurrentRagion.Rows.Count
&&&本楼为最佳答案&&&
CurrentRagion
应该是：CurrentRegion
su45 发表于
可能是下面这句错了：
num = Sht.Range(&A1&).CurrentRagion.Rows.Count
是的是的，光标是指在这，可是我不知道怎么错了
就是一个字母错了！
su45 发表于
CurrentRagion
应该是：CurrentRegion
谢谢，真是粗心！
可以给最佳了吧？
你退出后，用回你的QQ进来，就能给最佳了！
su45 发表于
你退出后，用回你的QQ进来，就能给最佳了！
试了，找不到那个设置
Powered byEXCEL 宏指令 运行时错误438，对象不支持该属性或方法_百度知道

我要回帖

更多关于 excel出现 的文章

 

随机推荐