alter function to count vbRed

时间:2015-08-23 19:57:36

标签: excel vba function count

我一直试图改变下面的功能来计算vbRed,而不是由'标准定义的任何颜色':

$date = date('Y-m-d');
$selStat = "SELECT obqva_id, COUNT(*) as broqch FROM statist WHERE date='$date'  GROUP BY obqva_id ORDER BY COUNT(*) DESC LIMIT 8 ";
$queryStat = mysqli_query($conn, $selStat);

while ($rowStat = mysqli_fetch_array($queryStat)) {
    $count = $rowStat['broqch'];
    $id = $rowStat['obqva_id'];

    echo $id.' - '.$count.'<br>';

    $selBest = "SELECT * FROM view WHERE id='$id' GROUP BY $count ";
    $queryBest = mysqli_query($conn, $selBest);
    **$rowView = mysqli_fetch_array($queryBest);** this problem !

    $selImage = "SELECT * FROM  upload WHERE obqva_id='$id'";
    $queryImage = mysqli_query($conn, $selImage);
    $rowImage = mysqli_fetch_array($queryImage);
    ?>

下面的变化失败:

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
    If datax.Interior.ColorIndex = xcolor Then
        CountCcolor = CountCcolor + 1
    End If
Next datax
End Function 

1 个答案:

答案 0 :(得分:0)

要使您的变体发挥作用,请移除DisplayFormat

例如(这是删除了DisplayFormat的代码):

Function CountRed(range_data As Range) As Long
    Dim datax As Range
    For Each datax In range_data
        If datax.Interior.Color = vbRed Then
            CountRed = CountRed + 1
        End If
    Next datax
End Function