2020-08-20 00:42发布
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
尊敬的专家,
我的任务是基于Excel 2.4的分析在工作簿上设置自定义样式。
我需要设置一种格式,该格式适用于除叶子之外的所有层次结构节点的成员和数据,如下图所示:
我希望这种格式是动态的,以便一旦应用后,层次结构中所有当前和将来的节点都将获得这种格式。
预先感谢您,弗朗切斯科
弗朗切斯科,你知道如何解决这个问题吗? 我有同样的要求。 由于只有一个SAPMemberCell,因此该格式将应用于多个节点。
这是在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个标签!
弗朗切斯科,你知道如何解决这个问题吗? 我有同样的要求。 由于只有一个SAPMemberCell,因此该格式将应用于多个节点。
这是在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
接下来我
结束子
一周热门 更多>