[已解决]求优化生产销售数据表

枫的大拿加

mxg825 发表于 2012-7-24 11:49
建议再加一列 分隔列！  这样会好了！

版主，我的目的本身是想隐藏掉存储表，可是隐藏后不能编辑，难道每次编辑前都要再次显示存储表？？？

有没有别的方法？

枫的大拿加

mxg825 发表于 2012-7-24 11:31
3、6、9、12月份的表和其他表不一样！！！多两列数据！！！

改一致，其他月份 在 【原始数据存储】 都多 ...

上边的表头，标题都是合并单元格，下边数据区的两列显示和隐藏起来会不会很麻烦，新手，求版主指导！

枫的大拿加

枫的大拿加 发表于 2012-7-24 12:00
版主，我的目的本身是想隐藏掉存储表，可是隐藏后不能编辑，难道每次编辑前都要再次显示存储表？？？

...

哦，明白。

在代码里，我发现如果不加sheets("XXX").select，就会出问题，不应该啊，这是为什么呢?

例如里面的部分代码：

Sheets(Cbook).Range(CYue1).Resize(Cirow, icol).Copy

Sheets(Pbook).Range(PYue1).Resize(Cirow, icol).Insert Shift:=xlDown

按理说可以不加啊，但不加就出错，为什么？

mxg825

像这句
Sheets(SheetName).Select
Sheets(SheetName).[a1].Select
Sheets(SheetName).Range(yue1).Resize(irow, icol).Clear

隐藏 工作表时 用最后一旬就可以了！
Sheets(SheetName).Range(yue1).Resize(irow, icol).Clear

mxg825

枫的大拿加 发表于 2012-7-24 12:13
哦，明白。

在代码里，我发现如果不加sheets("XXX").select，就会出问题，不应该啊，这是为什么呢?

简化为一句！如下
Sheets(Cbook).Range(CYue1).Resize(Cirow, icol).Copy Sheets(Pbook).Range(PYue1）

枫的大拿加

mxg825 发表于 2012-7-24 12:18
简化为一句！如下
Sheets(Cbook).Range(CYue1).Resize(Cirow, icol).Copy Sheets(Pbook).Range(PYue1）

感谢版主在休息时间还阅帖！

版主有空的话，再帮我改改您说的：
将【原始数据存储】各月份表同一列数，用的时候，隐藏或显示那两列。由于有合并单元格，我不知咋办，劳烦版主帮我改改？？？

mxg825

枫的大拿加 发表于 2012-7-24 12:30
感谢版主在休息时间还阅帖！

版主有空的话，再帮我改改您说的：

帮你设置一下样式 （暂时无代码）

枫的大拿加

mxg825 发表于 2012-7-24 12:18
简化为一句！如下
Sheets(Cbook).Range(CYue1).Resize(Cirow, icol).Copy Sheets(Pbook).Range(PYue1）

版主，果然好用！！！

枫的大拿加

mxg825 发表于 2012-7-24 13:04
帮你设置一下样式 （暂时无代码）

哇塞！！！版主厉害啊，绝了！

枫的大拿加

mxg825 发表于 2012-7-24 13:04
帮你设置一下样式 （暂时无代码）

版主帮忙改改代码吧