Tag: 枢轴图

数据透视表（Excel）无法以我想要的方式呈现数据: 我正在创build一段Java代码来将数据填充到一个excel文件中。该文件是预先创build的，包括一个数据透视表和一些vba代码。虽然Java代码工作，我有一些问题让透视图本身工作。我已经包含了一些demodata截图。有几个问题我想解决：虽然X-Achis被格式化为date轴，但似乎performance得像一个类别轴。症状： date不是自动sorting的，但只有当我在数据透视表中按相应的列所有的date都有相同的距离，尽pipe数据有1.5年的差距 cathy的chartline有一个缺口。但是我确实想要渲染线条，即使有没有数据的datecathy 我是否使用了错误的图表，是否错过了图表选项中的一个重要的checkbox，或者是否真的需要在填写表格之前以编程方式插入数据？最后一个选项不仅令人失望，而且还会扭曲图表，因为我想让数据点标有符号（如截图上的方块和菱形）任何帮助表示赞赏。编辑现在这是我的解决scheme：首先：数据透视表是伟大的，除非你想要可视化随机sorting的date 我将通过vba将透视数据复制到另一个表单中，并使用常规图表通过使用点图（X / Y数据）并在“数据源>隐藏和空单元格”（粗略地从德语区域设置翻译）中的对话框中select“使用线连接数据点” vba代码将被扩展，以便根据我的需要设置图表（调整input数据的范围等）我仍然有点失望。我原以为这是一个通常的用例。

创build数据透视表和图表在用于Autohotkey的Excel COM中: 我试图创build一个数据透视表，然后从ahk的透视图embedded到电子邮件。我是一个小菜鸟，所以请原谅我的代码质量。我无法让我的数据透视表正确设置，并且无法为我的生活出现一个图表。我已经提到了我一直在工作的post，以及在这篇文章底部的最终结果。我的数据是两列，与（可以使它没有）时间的标题，并警告我希望能够创build一个图表，显示数量和警告的types随着时间的推移，从那里得到一个对象的句柄和把它放在一个Outlook电子邮件，甚至只是一个副本粘贴会为我工作。请告诉如何做到这一点，我想我是如此接近。编辑我更新了下面的代码，得到它的点（马虎确定）图表创build，我唯一缺less的东西是向数据透视表中的图例字段添加“警告”，并将Axis（目录）从“时间“到”小时“，这将按小时分组，而不是单独的时间戳。如果我手动这样做，我似乎得到了我想要的结果。之后，我只想删除图表标题，然后将图表分配给要embedded的对象，或者将其放到剪贴板上。感谢您的任何帮助。 f1::Reload Pause::Pause f2::ListVars Pause !`:: function() return function() { when:=[] what:=[] Nothing:="Nothing to report, have a wonderful day." TMP:="" RMRKS:="" Date1:="" Date2:="" EMOUT:="" EMIN := Clipboard ; Email text var Loop, Parse, EMIN,`n,`r ; parse email by line { tmp := StrSplit(A_LoopField, ";") ; for […]

Excel VBA筛选前一天的数据透视表和数据透视表 – 透视筛选字段: 我已经search到谷歌（和这里）到处都尝试过各种来源的代码的各种组合，包括本网站，Excelguru，excelexperts，ozgrid，dedicatedtedexcel，excelcampus，spreadsheetguru等…..等等向前… 这是我的问题，每一个代码，每一个改变，每一个types，都不起作用。我在我的工作站点（最新）使用Office 360，所以它是Excel 2016和VBA 7.1。我正在做的是自动化我们的轮class报告结束。过程如下：我们每小时input一个Excel表格（Log）的数据。在一天结束的时候，上午5:00，我们保存并closures日志，打开另一个Excel表格，将数据导入到功率数据中，并将数据显示在数据透视表上（为我们的老板打印格式），然后select使用filter的前一个date的filter下拉，并打印它。我们用三（3）个报告做这个：2个数据透视表和1个数据透视图。 Power Pivot从日志表中导入所有数据以重新格式化以进行打印。我已经成功设法获取和重写代码（初学者在这里）的自动化过程：自动保存日志，closures日志，打开报告工作簿，刷新数据和打印数据，然后closures报告。现在唯一缺less的部分是自动过滤。我试过的代码是广泛的，但这里是我最近试过的一个例子（我已经擦除并重新复制了这么多的代码…） Sub Filter_PivotField（） '说明：筛选数据透视表或切片器的特定date或时间段 '来源：excelcampus.com/vba/filter-pivot-table-slicer-recent-date-period Dim sSheetName As String Dim sPivotName As String 昏暗的sFieldName作为string Dim sFilterCrit As String Dim pi As PivotFields '设置variables sSheetName =“EOS报告” sPivotName =“PivotTable1” sFieldName =“Date” sFilterCrit =“xlDateYesterday” 'sFilterCrit = ThisWorkbook.Worksheets（“EOS Report”）。Range（“O1”）。Value With ThisWorkbook.Worksheets（sSheetName）.PivotTables（sPivotName）.PivotFields（sFieldName） '清除pivotfield的所有filter .ClearAllFilters '通过枢轴字段的枢轴项循环 […]