求助 wps数据透视表

zhufu2015 · 发表于 2020-1-14 15:37

本帖最后由 zhufu2015 于 2020-1-14 15:42 编辑

52的各路大神，麻烦帮小弟解决下WPS数据透视表相关问题，谢谢！为节省时间，我直接说想实现的效果吧
1.这张表格是不断更新的，数据源更新，透视表也需自动更新
2.表格是流水账，已经基本做好数据透视，请大神们指点。
3.重点：本人根据数据源的数据，在透视表中，订单交期与今天的日期进行对比，今天-订单交期≤1天以上，该行显示红色（规则我设置过，可以实现，但是不能保存）https://www.lanzouj.com/i8ntbij

查仿书 · 发表于 2020-1-14 16:08

本帖最后由查仿书于 2020-1-14 16:14 编辑

WPS没有用过，正常的OFFICE数据透视表是不自动更新数据的。想更新的话数据源范围另想办法吧。数据不多的话直接把范围选大一些。

查仿书 · 发表于 2020-1-14 16:18

数据透视表选项数据打开文件时候刷新勾上

3131210 · 发表于 2020-1-14 18:43

本帖最后由 3131210 于 2020-1-14 18:46 编辑

!2020年外协进出跟踪单 - 副本.7z (27.77 KB, 下载次数: 5)

这样吗？
数据源更新后，右键透视表区域---刷新即可已经自动适应数据源的范围

zhufu2015 · 发表于 2020-1-14 20:27

3131210 发表于 2020-1-14 18:43
这样吗？
数据源更新后，右键透视表区域---刷新即可已经自动适应数据源的范围

嗯谢谢！效果是这样，但是我在数据源更改数据后，然后透视表刷新数据，发现之前设下的规则没有了，规则不能保存吗？

wuai992 · 发表于 2020-1-15 08:18

[Visual Basic] 纯文本查看 复制代码

Sub targetcolor()

Cells.Interior.Pattern = xlPatternNone

For i = 2 To ActiveSheet.Cells(Rows.Count, 5).End(3).Row
    If DateDiff("d", Format(Now, "yyyy-mm-dd"), Cells(i, 5)) <= 1 Then
        With Range(Cells(i, 1), Cells(i, 27)).Interior
            .Pattern = xlPatternSolid
            .Color = 255
            .TintAndShade = 0
        End With
    End If
Next

End Sub

在表里面加个按钮，指向这段代码，，如果日期不对，改一下 <=1这里调整一下？

52lqf · 发表于 2020-1-15 08:48

本帖最后由 52lqf 于 2020-1-15 08:51 编辑

这个？

帐号		自动登录	找回密码
密码			注册[Register]

[求助] 求助 wps数据透视表