当前位置: 代码迷 >> Office >> 步骤“Range”作用于对象“_Worksheet”时失败
  详细解决方案

步骤“Range”作用于对象“_Worksheet”时失败

热度:5329   发布时间:2013-02-26 00:00:00.0
方法“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))
  相关解决方案