方法“Range”作用于对象“_Worksheet”时失败
本帖最后由 longzhu0623 于 2011-08-29 13:23:26 编辑 哪位老师帮忙看一下这段VBA代码如何修改？谢谢！！！
补充说明：这是一段设置权限管理的代码。
Public 行号 As Integer
Private Sub Frame1_Click()
End Sub
Private Sub UserForm_initialize()
Dim intRowsCount As Integer, i As Integer
Application.EnableEvents = False
intRowsCount = 用户管理.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To intRowsCount
用户列表.AddItem 用户管理.Range("A" & i)
Next
用户列表.ListIndex = 0
Application.EnableEvents = True
End Sub
Private Sub 关闭_Click()
Unload Me
End Sub
Private Sub 确定_Click()
With 用户管理
.Range("C" & 行号) = 供货商资料建立.Value----此处报错：方法“Range”作用于对象“_Worksheet”时失败
.Range("D" & 行号) = 供货商资料查询.Value
.Range("E" & 行号) = 商品资料建立.Value
.Range("F" & 行号) = 商品资料查询.Value
.Range("G" & 行号) = 入库.Value
.Range("H" & 行号) = 入库查询.Value
.Range("I" & 行号) = 出库.Value
.Range("J" & 行号) = 出库查询.Value
.Range("K" & 行号) = 出库分析.Value
.Range("L" & 行号) = 库存.Value
.Range("M" & 行号) = 库存查询.Value
.Range("N" & 行号) = 管理用户.Value
End With
Unload Me
End Sub
Private Sub 用户列表_change()
Dim intRowsCount As Integer, i As Integer
intRowsCount = 用户管理.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To intRowsCount
If 用户管理.Range("A" & i) = 用户列表.Text Then
With 用户管理
供货商资料建立.Value = CBool(.Range("C" & i))
供货商资料查询.Value = CBool(.Range("D" & i))
商品资料建立.Value = CBool(.Range("E" & i))
商品资料查询.Value = CBool(.Range("F" & i))
入库.Value = CBool(.Range("G" & i))
入库查询.Value = CBool(.Range("H" & i))
出库.Value = CBool(.Range("I" & i))
出库查询.Value = CBool(.Range("J" & i))
出库分析.Value = CBool(.Range("K" & i))
库存.Value = CBool(.Range("L" & i))
库存查询.Value = CBool(.Range("M" & i))
管理用户.Value = CBool(.Range("N" & i))
End With
Exit Sub
End If
供货商资料建立.Value = False
供货商资料查询.Value = False
商品资料建立.Value = False
商品资料查询.Value = False
入库.Value = False
入库查询.Value = False
出库.Value = False
出库查询.Value = False
出库分析.Value = False
库存.Value = False
库存查询.Value = False
管理用户.Value = False
Next
End Sub
[解决办法]
供货商资料建立.Value
sheet.range.value 你把range忘记了
[解决办法]
供货商资料建立
是名称还是sheet名？
[解决办法]
你那一堆中文名称是如何 set 的。看样子应该是 Range 对象。
[解决办法]
只是用VBA插入的用户窗体
[解决办法]
难道此帖就这么沉了，还是各位太忙了？顺便问一下：如何上传附件啊？
[解决办法]
