2020-09-07 06:13发布
点击此处---> 群内免费提供SAP练习系统（在群公告中）加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）大家好 同时显示键和文本成员时... 显示全部
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
大家好
同时显示键和文本成员时，AfO仅在2的第一个中显示列标题。例如，当查看0CUSTOMER的键和文本时，它仅在键的列标题中显示"客户"，而 文本的列标题为空白。
有人知道是否还可以显示"文本"列的列标题吗？
原因：由于某些功能在AfO中尚不可用，因此希望将AfO表用作枢轴或powerpivot的输入。
谢谢
巴特
如果您在工作表激活事件，当您激活工作表时，它将使用动态标题填充空白标题。 或者，您可以手动运行此宏，或使用 AfterReDisplay回调（类似于EPM的函数After_Refresh ）。
'此代码应放置在AO报告所在的WORKSHEET模块中。 '在Excel工作表中，如果右键单击该标签，您应该可以看到"查看代码" '将此粘贴进去，您应该会很好。 私人子Worksheet_Activate（） Const NM_Crosstab As String =" SAPCrosstab1"'确保您的匹配您的AO命名数据范围 Const EndTExt As String =" _NAME"'无论您要在列标题的末尾使用什么文本 昏暗的单元格作为范围，tRng的范围 设置aCell = ThisWorkbook.Names（NM_Crosstab）.RefersToRange.Cells（1，1） 直到aCell.Value2 <>""执行 设置aCell = aCell.Offset（1，0） 循环 对于相交中的每个tRng（aCell.EntireRow，ThisWorkbook.Names（NM_Crosstab）.RefersToRange）.Cells 如果tRng =""然后 '如果您不使用English excel，则可能需要修改。 查找R1C1参考 tRng.FormulaR1C1 =" = RC [-1]＆"""＆EndTExt＆"""" 万一 下一步 结束子
最多设置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', '推荐 悠然的二货 的问题《键和文本的列标题》','https://www.easysap.com/answer/61301/171620.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
如果您在工作表激活事件，当您激活工作表时，它将使用动态标题填充空白标题。 或者，您可以手动运行此宏，或使用 AfterReDisplay回调（类似于EPM的函数After_Refresh ）。
'此代码应放置在AO报告所在的WORKSHEET模块中。 '在Excel工作表中，如果右键单击该标签，您应该可以看到"查看代码" '将此粘贴进去，您应该会很好。 私人子Worksheet_Activate（） Const NM_Crosstab As String =" SAPCrosstab1"'确保您的匹配您的AO命名数据范围 Const EndTExt As String =" _NAME"'无论您要在列标题的末尾使用什么文本 昏暗的单元格作为范围，tRng的范围 设置aCell = ThisWorkbook.Names（NM_Crosstab）.RefersToRange.Cells（1，1） 直到aCell.Value2 <>""执行 设置aCell = aCell.Offset（1，0） 循环 对于相交中的每个tRng（aCell.EntireRow，ThisWorkbook.Names（NM_Crosstab）.RefersToRange）.Cells 如果tRng =""然后 '如果您不使用English excel，则可能需要修改。 查找R1C1参考 tRng.FormulaR1C1 =" = RC [-1]＆"""＆EndTExt＆"""" 万一 下一步 结束子一周热门 更多>