[求助]关于EXCEL表格列表的问题

qzxlf · 发表于 2008-10-19 20:34

我制作了这样的一个表格：要生产N个(暂设为1000)型号为12(单元格以设置为文本格式) 的产品，所需BBB配料多少(计算公式)和CCC配料多少(计算公式)，表格全部准确制作完毕。

后来我在型号上创建了一个列表，下拉选择12，24，36的型号均与后面的公式匹配，数据都能随着型号的改变而改变。现在问题出现了：就是在下拉选择升降序排列后，数据就全乱了。配料公式和型号就对不上了，有没有什么办法解决？就是无论型号怎么变动，其所对应的配料公式都能随着型号的变动随之变动。

在下向各位达人求救，小弟不胜感激！！！

尽量详细一点，我也不是很熟悉！

NwCuG9gS.rar (2.05 KB, 下载次数: 8)

spear · 发表于 2008-10-19 21:13

可能是你在排序时没有选择“扩展选定区域”，所以出在错误。

zldccmx · 发表于 2008-10-19 22:01

Sub zldccmx()
    ActiveSheet.ListObjects("列表2").Unlist '先将列表转换成区域，
    With Range("A19:D22")　'在转换成列表之前就排序
        .Sort Key1:=Range("A20"), Order1:=xlDescending, Header:=xlGuess _
            , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
              SortMethod:=xlPinYin, DataOption1:=xlSortNormal
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$19:$A$22"), , xlYes).Name = "列表2" '排序之后再转换成列表
    End With
End Sub

qzxlf · 发表于 2008-10-19 23:13

zldccmx同志,那些是什么意思啊,能不能说得明确.具体一点!我对EXCEL不是很熟!

zldccmx · 发表于 2008-10-20 08:28

QUOTE:

以下是引用qzxlf在2008-10-19 23:13:00的发言：
zldccmx同志,那些是什么意思啊,能不能说得明确.具体一点!我对EXCEL不是很熟!

呵呵，不好意思，我当成VBA区的问题了！

老朽的意思是：在创建列表之前先排序！

至于你说的，创建列表之后再对列表排序，因为列表排序只能针对自身，不能扩展选区，这老朽目前还不知道如何应对，这是不是EXCEL　的又一个BUG？！

试试OFFICE　2007，看看这种现象是否还存在？

qzxlf · 发表于 2008-10-20 12:52

很感谢zldccmx的回答，至少你明白了我所说的意思，我在百度的分给你吧！

这个问题现在还办法解决吗？真是郁闷，那以后在选择列表的时候可要小心了，哎……

qzxlf · 发表于 2008-10-21 16:21

我已经把问题解决了，就是我用数据的自动筛选，然后在型号的选择框上，合并一个单元格，这样在按升降序排列的时候会提示，单元格不同，无法排序！哈哈，这样就不怕误操作了，而且也能达到我想要的效果！感谢各位，不过我还是自己捣鼓出来了

		自动登录	找回密码
密码			免费注册