2020-08-20 00:42发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）尊敬的专家， 我的任务是基于E... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
尊敬的专家，
我的任务是基于Excel 2.4的分析在工作簿上设置自定义样式。
我需要设置一种格式，该格式适用于除叶子之外的所有层次结构节点的成员和数据，如下图所示：
我希望这种格式是动态的，以便一旦应用后，层次结构中所有当前和将来的节点都将获得这种格式。
预先感谢您，弗朗切斯科
这是在Sub Callback_AfterRedisplay（）上使用少量VBA代码的解决方案
在必须为每种层次结构级别样式（SAPHierarchyCellX）创建关键人物的样式之前
根据命名约定，关键人物的样式命名为" SAPHierarchyCellX KF"
VBA代码：
公共子Callback_AfterRedisplay（）
将LastCol屏蔽为长
昏暗的最后一刻
LastCol = Sheets（2）.Cells（3，Columns.Count）.End（xlToLeft）.Column
lastrow = Sheets（2）.Cells（Rows.Count，2）.End（xlUp）.Row
对于I = 3持续
对于J = 3到LastCol
如果Sheets（2）.Cells（I，J）.Style <>" Empty"和Sheets（2）.Cells（I，J）.Style <>" Empty2"然后
如果Sheets（2）.Cells（I，1）.Style =" SAPHierarchyCell1"或Sheets（2）.Cells（I，1）.Style =" SAPHierarchyCell2"然后
Sheets（2）.Cells（I，J）.Style = Sheets（2）.Cells（I，1）.Style＆" KF"
如果结束
下一个J
接下来我
结束子
最多设置5个标签!
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 大圣 的问题《Analysis for Excel 2.4-为层次结构节点和数据设置自定义样式》','https://www.easysap.com/answer/17953/50378.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
这是在Sub Callback_AfterRedisplay（）上使用少量VBA代码的解决方案
在必须为每种层次结构级别样式（SAPHierarchyCellX）创建关键人物的样式之前
根据命名约定，关键人物的样式命名为" SAPHierarchyCellX KF"
VBA代码：
公共子Callback_AfterRedisplay（）
将LastCol屏蔽为长
昏暗的最后一刻
LastCol = Sheets（2）.Cells（3，Columns.Count）.End（xlToLeft）.Column
lastrow = Sheets（2）.Cells（Rows.Count，2）.End（xlUp）.Row
对于I = 3持续
对于J = 3到LastCol
如果Sheets（2）.Cells（I，J）.Style <>" Empty"和Sheets（2）.Cells（I，J）.Style <>" Empty2"然后
如果Sheets（2）.Cells（I，1）.Style =" SAPHierarchyCell1"或Sheets（2）.Cells（I，1）.Style =" SAPHierarchyCell2"然后
Sheets（2）.Cells（I，J）.Style = Sheets（2）.Cells（I，1）.Style＆" KF"
如果结束
如果结束
下一个J
接下来我
结束子
一周热门 更多>