小编Chr*_*ris的帖子

我编写了下面的函数来测试单元格是否根据单元格填充激活了条件格式.

Function cfTest(inputCell)

    If inputCell.DisplayFormat.Interior.Color <> 16777215 Then
        cfTest = True
    Else
       cfTest = False
    End If
End Function

但它不起作用.说,这个方法确实如此.

Sub myCFtest()
Dim R As Integer
R = 2
Do
    If Range("I" & R).DisplayFormat.Interior.Color <> 16777215 Then
        Range("K" & R).Value = True
    Else
        Range("K" & R).Value = False
    End If

    R = R + 1

Loop Until R = 20
End Sub

任何人都可以向我解释为什么功能不起作用？

干杯.

编辑:更新的功能,但不适用于条件格式

Function cfTest(inputCell)
    If inputCell.Interior.ColorIndex <> -4142 Then
        cfTest = True
    Else
       cfTest = False …

我只是清理我的工作簿,并使用以下代码来整合我的PivotCaches(在清理之前我有大约200个).

Sub changeCache()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pc As PivotCache
Dim first As Boolean
On Error Resume Next

    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate
        For Each pt In ActiveSheet.PivotTables

            If first = False Then
                Set pc = pt.PivotCache
                first = True
            End If 

            pt.CacheIndex = pc.Index

        Next pt
    Next ws

End Sub

这使我的PivotCache数量减少到33.

Sub CountCaches()
  MsgBox ActiveWorkbook.PivotCaches.Count
End Sub

它是33而不是1的原因是因为我有32个使用数据模型构建的数据透视表.

我的问题是:有谁知道如何更改使用数据模型构建的数据透视表以使用相同的PivotCache？

编辑

我的第二个问题是:多个数据透视表都建立在数据模型上

a)引用单一数据模型; 要么

b)每个都有自己的模型,因此"膨胀"Excel文件

EDIT2

在进一步探索时,似乎数据模型是 …

我的问题如下:假设我有一个数据集,我有4个字段

1. 日期
2. 类型
3. 金额(公制1)
4. 售价(公制2)

这4个字段显示在Tableau仪表板的表格中.当我点击表格中的任何项目时,我希望顶部的文字显示指标的排名和表格中指标的唯一计数以及它们的值.

例如'金额= 32,500:342中排名第4,卖出价= 2.5美元:6中排名第2' (我只有6种不同的卖价)

我也希望实现是动态的,所以当我按日期过滤时,结果将调整为适合例如'金额= 32,500:排名1中的10,卖出价= 2.5美元:排名1中的4'

我尝试过使用RANK函数,但每当我点击表格中的一行时,它就会有效地过滤掉所有其他数据,并将等级设置为1.

有没有办法做到这一点？

我正在尝试在 Excel 中创建一个 CUBESET 函数，但我不知道如何使用同一维度内的多个条件过滤它。这是我迄今为止使用一个标准所做的工作。

示例 1：

=CUBESET("ThisWorkbookDataModel","{[Facebook].[Bucket (C)].[All].[DPA]*[Facebook].[AudienceType (C)].children}","Bucket")

示例 2：在单元格 C3 中包含日期

=CUBESET("ThisWorkbookDataModel","{[Facebook].[Week End].[All].["&TEXT($C$3,"m/d/yyyy")&"]*[Facebook].[Campaign (C)].children}","Campaign Breakout - Weekly")

这就是我试图用两个标准来做的，但没有运气。

示例 1：

=CUBESET("ThisWorkbookDataModel","FILTER( [Facebook].[AudienceType (C)].children,[Facebook].[Week End].[All].["&TEXT($C$3,"m/d/yyyy")&"] && [Facebook].[Bucket (C)].[All].[DPABroadAudience])","Bucket")

示例 2：

=CUBESET("ThisWorkbookDataModel","FILTER( [Facebook].[AudienceType (C)].children,AND([Facebook].[Week End].[All].["&TEXT($C$3,"m/d/yyyy")&"],[Facebook].[Bucket (C)].[All].[DPABroadAudience]))","Bucket")

示例 3：

=CUBESET("ThisWorkbookDataModel","{[Facebook].[AudienceType (C)].children *[Facebook].[Week End].[All].["&TEXT($C$3,"m/d/yyyy")&"] * [Facebook].[Bucket (C)].[All].[DPABroadAudience]})","Bucket")

顺便说一句 - 虽然我现在只需要两个标准，但很高兴看到一个适用于 2 个以上标准的解决方案。

我想在c#中的Windows 8应用程序中画一条线.但是,当我尝试使用时

Line myLine = new Line(); 它不起作用,告诉我命名空间不存在.

使用LineGeometery myLine = new LineGeometery ();确实会创建一个新行,我可以设置起点和终点.但是,由于我无法设置中风,我真的不知道这是否是正确的方法.事实上,我不确定LineGeometery()和Line()之间的区别.

如果有人可以提供帮助,那将非常感激.

<code>using System;

using System.Collections.Generic;

using System.IO;

using System.Linq;

using Windows.Foundation;

using Windows.Foundation.Collections;

using Windows.UI.Xaml;

using Windows.UI.Xaml.Controls;

using Windows.UI.Xaml.Controls.Primitives;

using Windows.UI.Xaml.Data;

using Windows.UI.Xaml.Input;

using Windows.UI.Xaml.Media;

using Windows.UI.Xaml.Navigation;</code>

在 Power Query 中，我尝试创建一个自定义列，用该列中最后一个已知值替换任何空值。IE

M 中这个新列的代码是什么？

顺便说一句 - 虽然我相信这在 Power Pivot 中会更容易，但我已经根据列名称构建了我的数据模型（和仪表板）。更改数据模型将导致我的所有图表、表格和指标被重建。