使用公式

时间:2017-03-06 17:45:54

标签: excel vba excel-vba

我正在试图弄清楚如何在引用连续列的同时更新一系列单元格。基本上,我将用于特定单元格公式的代码是:

Range("C10").Formula = "SUMIF('Site Data '!$CR:$CR,$B$1,'Site Data '!$CU:$CU)"

我希望这个公式从C10:C25和$ CU转到CU:DJ。如果不为每个公式创建一个新行,我似乎无法想出办法。

我会做每一个,因为它只有16,但这是我需要更新的众多范围之一。

1 个答案:

答案 0 :(得分:2)

遍历行,将迭代var添加到.Columns函数并检索地址以连接到公式。

<table id="fixturestable">
    <tbody>
        <?php $args = array( 
            'post_type' => 'fixtures', 
            'posts_per_page' => -1, 
            'orderby' => 'meta_value',
            'meta_key' => 'fixture_date',
            'order' => 'ASC',
            'meta_type' => 'DATETIME'
            );

            $fixturesloop = new WP_Query( $args ); if ($fixturesloop->have_posts() ):?>
            <?php while ( $fixturesloop->have_posts() ) : $fixturesloop->the_post();?>
                <tr>
                    <td class=""><?php the_title(); ?></td>
                    <td class=""><?php echo(get_field('fixture_date'));?></td>
                    <td class=""><?php echo(get_field('competition'));?></td>
                    <td class=""><?php echo(get_field('venue'));?></td>
                    <td class=""><?php echo(get_field('result'));?></td>
                    <td class=""><?php echo(get_field('score'));?></td>
                </tr>
            <?php endwhile;?> 
            <?php endif;?>   
    </tbody>
</table>

顺便说一句,该公式也可以写成,

Dim i As Long

With ActiveSheet
    For i = 10 To 25
        .Cells(i, "C").Formula = "=SUMIF('Site Data '!$CR:$CR, $B$1, 'Site Data '!" & _
            Worksheets("Site Data ").Columns(89 + i).Address & ")"
    Next i
End With

放入C10并填写或作为,

=SUMIF('Site Data '!$CR:$CR, $B$1, INDEX('Site Data '!$CU:$DJ, 0, ROW(1:1)))