欲哭无泪，谁能帮帮我

unsamesky

老朽，帮看下我的附件，看怎样可以不让屏幕老是闪烁？

icelan2008

原帖由 alzeng 于 2009-7-18 14:40 发表

更新了附件，主要是Sht写成了Sh。

Alzeng，我想问个问题，看了你的代码，没有发现有哪句话将客户信息中的内容填以MODEL表中，更另存为。。。
所以想不能为什么会自己填表？

与心

原帖由 alzeng 于 2009-7-18 14:11 发表
用一个工作簿做跳板，应该算是比较简单的做法了。点击“农户信息表”中的“拆分新表”按钮，即批量生成新表。
在这个应用中，其实可以充分利用原有的查询代码，遍历身份证号后将查询结果生成新工作簿。这样代码短小 ...

谢谢您！附件2可以了，但是附件1好象有点问题了，附件1中用户的身份证号码有些数字没有了，不知道为什么？
另外我该如何把您帮我设计的这个拆分功能加到我另外的一个excel表里？

[ 本帖最后由 与心 于 2009-7-18 15:11 编辑 ]

alzeng

原帖由 icelan2008 于 2009-7-18 15:01 发表


Alzeng，我想问个问题，看了你的代码，没有发现有哪句话将客户信息中的内容填以MODEL表中，更另存为。。。
所以想不能为什么会自己填表？

MODEL表是个跳板，目的是为了保证这个复杂的表单格式不被破坏。如果直接将数据粘贴到新工作簿的话，列与行的宽高都要发生变化，如要逐一修改是很麻烦的事。

alzeng

原帖由 与心 于 2009-7-18 15:09 发表



谢谢您！附件2可以了，但是附件1好象有点问题了，附件1中用户的身份证号码有些数字没有了，不知道为什么？
另外我该如何把您帮我设计的这个拆分功能加到我另外的一个excel表里？

0值未显示，将Model工作簿中表1的　工具→选项→视图→零值　打上勾选。

[ 本帖最后由 alzeng 于 2009-7-18 15:23 编辑 ]

与心

原帖由 alzeng 于 2009-7-18 15:20 发表

0值未显示，将Model工作簿中表1的　工具→选项→视图→零值　打上勾选。

谢谢您！我将零值　打上勾选，但是同时又出现了新的问题，附件里原先空白的项都出现了“0”，这样变的看起来很不好，该怎么取消掉这些原先空白的地方不显示出0这个数字来，而只需要在身份证处显示就可以？

icelan2008

就是说用的只是MODEL表的格式！
明白了，函数和VBA的结合！谢谢！

alzeng

原帖由 与心 于 2009-7-18 15:25 发表


谢谢您！我将零值　打上勾选，但是同时又出现了新的问题，附件里原先空白的项都出现了“0”，这样变的看起来很不好，该怎么取消掉这些原先空白的地方不显示出0这个数字来，而只需要在身份证处显示就可以？

这应该是你原公式设置上的问题，只是当时用不显示的方式将其隐藏掉了而已。现在要剔除，有点麻烦……
还是改原公式吧。

[ 本帖最后由 alzeng 于 2009-7-18 15:33 编辑 ]

alzeng

比方说
A12=IF(INDEX(客户信息!$K:$K,$C$4+2)="","",INDEX(客户信息!$K:$K,$C$4+2))
A13=IF(INDEX(客户信息!$Q:$Q,$C$4+2)="","",INDEX(客户信息!$Q:$Q,$C$4+2))
……
这样，查寻结果就不会是0，而是空。

与心

原帖由 alzeng 于 2009-7-18 15:32 发表

这应该是你原公式设置上的问题，只是当时用不显示的方式将其隐藏掉了而已。现在要剔除，有点麻烦……
还是改原公式吧。

可是我什么都不懂，谢谢你，好心的大哥。
还有，您帮我设计的这个我该怎么加到另外一个excel文档里去？能帮帮我吗？

[ 本帖最后由 与心 于 2009-7-18 15:43 编辑 ]