如何通过VBA让用公式提取的多个姓名按规定排列和换行

tptopy

既然用自定义函数，就尽量不用工作表函数了，将你的contxt函数作了修改，供参考。单元格内排版问题比较复杂，可简单处理，将单元设置成自动换行就行了。只是三个字名字和两个字名字分两行显示。还有，困为不同项目的表格格式不一样，所以不同单元格里contxt的参数有区别

cherga

tptopy 发表于 2018-12-11 18:47
既然用自定义函数，就尽量不用工作表函数了，将你的contxt函数作了修改，供参考。单元格内排版问题比较复杂 ...

太感谢了  原本还想只能用最土的办法来解决。实在是解决我一大难题 原谅我东拼西凑集成的Excel
只是最后一句  因为不同项目的表格格式不一样，所以不同单元格里contxt的参数有区别
是什么意思。可否通俗简单的跟我讲下

tptopy

cherga 发表于 2018-12-11 20:03
太感谢了  原本还想只能用最土的办法来解决。实在是解决我一大难题 原谅我东拼西凑集成的Excel
只是最 ...

你注意一下模块里contxt的四个参数。contxt(Class,Sex,Subject,Level),即这个函数需要给它传递班级，性别，项目，程度这四个参数，其中项目在原表中的标题中。你的统计表格里面“视力不良”属于项目，但“超重”是程度而不是项目，它的项目是“肥胖”，“龋齿”是项目，它的程度是用0，1表示的。肝功能那一项在原表中是28列，但这一列没有标题（你原表中这一的标题是合并单元格，它是算第27列），所以在程序中加一个
if j = 0 then
j = 28
end if
如果在标题中找不到项目，那就是肝功能了，
你再注意一下统计表格中每个单元格里contxt的参数，就能理解了

cherga

tptopy 发表于 2018-12-11 20:22
你注意一下模块里contxt的四个参数。contxt(Class,Sex,Subject,Level),即这个函数需要给它传递班级，性别 ...

你这么一说，就明白了。
换行那个也很好用，但是好像会顶出单元格？只能通过增加行高了？！

tptopy

cherga 发表于 2018-12-11 20:30
你这么一说，就明白了。
换行那个也很好用，但是好像会顶出单元格？只能通过增加行高了？！

是地，行高不好控制，如果那样精确排版就太复杂了

cherga

tptopy 发表于 2018-12-11 20:33
是地，行高不好控制，如果那样精确排版就太复杂了

嗯嗯，这个还是可以操作的，很是感谢，以后有的代码还望帮忙指点下。

cherga

tptopy 发表于 2018-12-11 18:47
既然用自定义函数，就尽量不用工作表函数了，将你的contxt函数作了修改，供参考。单元格内排版问题比较复杂 ...

您好：
还有两个问题，一旦我把数据替换成别的学校，班级会变动，这就导致我保存后再打开就会出现有不可读取的数据，这如何解决。代码在打印工作表内。感觉可能是代码包含不重复下拉菜单和提取相应班级信息导致冲突，保存后再打开就会提示，班级那边就没有下拉菜单。要再点一下，再重新出现。保存还要覆盖。

另外一个问题是，之前有几个公式填进去VBA进行运算（也是您提供的），但是如果只有一行数据，他会一直运算。如何控制如果下一行都是空白就会停止运算。代码在模块2

tptopy

1.如果将体检数据里的数据换成另一个学校，点击“打印”表的O2单元格，“打印”表里M2单元格和记录表里的F2单元内容就全改变了。
2.填充公式修改了一下，确保不空转
3.记录表单元格里的姓名排版改进了一下，事先必须先将单元的宽度调整为正好能放6个3个字名字的宽度，至于单元格高度，记得好像有自动行高，我也不知道在哪儿设置了，你可以自己查找一下。

cherga

tptopy 发表于 2018-12-12 15:54
1.如果将体检数据里的数据换成另一个学校，点击“打印”表的O2单元格，“打印”表里M2单元格和记录表里的F2 ...

对于第一条 我都有照做，就是把所有数据换掉后，保存再点进去就会出现这样情况。打印下拉菜单消失，再点宏可以刷出来，但是保存后再打开又是提示这个内容。提示这个其实也没啥的，就是每次关闭要再覆盖保存。

tptopy

为什么会出现这种提示，我真的不会解释。我思考了一下，可以把班级列表的重新设置和打印表里的数据提取分开执行，也就是省去了点击“打印”的O2，如能做好，再发给你