Worsksheet表现得好像被分组,当它不是时

时间:2016-01-04 06:50:22

标签: excel vba excel-vba

  1. 工作表(1)是受保护的输入表,其中只有某些单元格被解锁。此工作表上有一个按钮,用于调用用户表单。
  2. userform有各种文本框和组合框等输入值,然后将输入的数据放入第二个工作表(2)。
  3. 工作表(2)根据输入到用户表单中的值锁定和解锁某些单元格,然后进行保护。
  4. 问题是,当上述操作完成后,使用工作表(2)中的箭头键选择在工作表(1)中解锁的单元格地址,并完全忽略它应该选择的未锁定单元格!

    有变化" Worksheet(1)中某些未锁定单元格的事件,但是当在工作表(2)中编辑这些相同的单元格时,工作表(1)事件会触发!

    好像两个工作表已被分组或合并,而工作表(1)的设置覆盖了工作表(2)的设置。

    当从工作表(2)调用userform时,一切正常!我也需要用户表单来处理Worksheet(1)。

    我已经使用Excel 2013和Excel在另一台计算机上测试了该文件。 2016年,我仍然得到这种奇怪的行为。

    按钮的命令是:

    userform.show
    

    初始化代码为:

    Private Sub UserForm_Initialize()
    Dim SYear As Long
    Dim LYear As Long
    Dim FWeek As Long
    SYear = Evaluate("SetYear")
    If (Year(Date) Mod 4) Then
        LYear = 52
    Else
        LYear = 53
    End If
    FWeek = Val(SYear & LYear)
    Sheets("Data").Range("AX1").Value = Evaluate("RetailWeek")
    Sheets("Data").Range("AX2").Value = FWeek
    WeekSel.List = Array("Week 1", "Current Week")
    Channel.List = Array("Company", "Franchise", "eComm")
    Me.Top = Application.Top + 20
    Me.Left = Application.Left + 200
    Me.WFrom.RowSource = "WeekFrom"
    Me.WTo.RowSource = "WeekTo"
    End Sub
    

1 个答案:

答案 0 :(得分:0)

我将一大堆代码从userform模块中移出并将其放入普通模块中。用户表单从Worksheet(1)读取了很多值并复制到Worksheet(2)。我将这些值转移到第三个工作表,然后在关闭用户窗体后转到Worksheet(2),现在看起来工作正常。

手指,脚趾和眼睛交叉!