Question

我有一段代码可以格式化信息标签。我从之前使用的一段代码中获取它，我正在修改它以满足我的需求。我在syntax error行上获得了.Selection Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True。

VBA并不是我的强项，因此我想找到一种方法来正确执行此操作。我知道选择是不受欢迎的，所以如果有人有办法绕过它，我不必重做一堆很棒的代码。

With ActiveSheet
.Range("A10").Select
.Range(Selection, Selection.End(xlToRight)).Select
.Range(Selection, Selection.End(xlDown)).Select
.Selection Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Outline.ShowLevels RowLevels:=2

.Range("C8").Select
End With

Answer 1

工作代码应为：

public ActionResult highlight()
{
    var statesHighlight =
        db.Jobs
            .Select(r => r.State);
    return Json(new { statesHighilght }, JsonRequestBehavior.AllowGet);
}

With ActiveSheet .Range("A10").Select .Range(Selection, Selection.End(xlToRight)).Select .Range(Selection, Selection.End(xlDown)).Select Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(8, 10), _ Replace:=True, PageBreaks:=False, SummaryBelowData:=True .Outline.ShowLevels RowLevels:=2 .Range("C8").Select End With是需要在Subtotal上调用的子资源。因此，它需要一段时间才能进行通话。

同样Selection不是Selection的属性，因此前一个句点应该放在ActiveSheet块中。

Excel VBA语法错误并使用除select之外的其他方法

1 个答案: