[已解决]跨工作表实现下拉框的数据的自动更新同时没有空白

去11111

，大神，你看一下

去11111

zjdh 发表于 2016-12-26 15:08

大神你看一下，是真的

zjdh

手机市场问卷调查设计与数据分析.rar (191.2 KB, 下载次数: 18)

2016-12-27 08:04 上传

点击文件名下载附件

去11111

zjdh 发表于 2016-12-26 16:32

大神，就是数据保护那，不能第二次提交，能保护的同时不影响第二次提交吗

去11111

zjdh 发表于 2016-12-26 16:32

大神，非常感谢，真的太贴心了，谢谢!

zjdh

手机市场问卷调查设计与数据分析.rar (191.2 KB, 下载次数: 17)

2016-12-27 08:05 上传

点击文件名下载附件

zjdh

解除统计表第3行锁定就可以啦，13、16楼附件已更新。

去11111

zjdh 发表于 2016-12-26 22:49
解除统计表第3行锁定就可以啦，13、16楼附件已更新。

太感谢了大神，谢谢，非常感谢！！！！！！！！！！！！！！！！！！！！！！！
这对我来说太重要了！！！！！！！！！！！！！！！！！！！！！

去11111

zjdh 发表于 2016-12-26 16:32

大神，能解释一下代码什么意思吗？
    （1）Private Sub Worksheet_Change(ByVal Target As Range)
                  Dim CL
                If Target.Column < 7 Then
                   CL = Target.Column
                DropList CL
               End If
           End Sub
     （2）Sub DropList(C)
          With Sheet1.DrawingObjects("下拉框 " & C)
        .ListFillRange = "'数据源 '!" & Cells(2, C).Resize(Cells(1, C).End(4).Row - 1, 1).Address
        .DropDownLines = 8
        End With
     End Sub
       （3）Sub 提交()
                 With Sheets("统计表")
                 .Unprotect Password:="123"
                 If .Range("A65536").End(3).Row < 5 Then P = 5 Else P = 2
                 .Rows(3).Copy .Range("A65536").End(3)(P)
                 .Range("A65536").End(3)(P) = "=ROW()-4"  '序号
                 .Rows(3).ClearContents
这个p是什么意思啊

zjdh

去11111 发表于 2016-12-28 12:58
大神，能解释一下代码什么意思吗？
    （1）Private Sub Worksheet_Change(ByVal Target As Range)
   ...

P 为变量 在Range("A65536").End(3)(P) 中表示偏移量，P=2 则偏移1行，以此类推。