Question

晚上好

我正在为自己的代码而苦苦挣扎。主要问题是不能自动计算公式。通过VBA插入公式（向左功能）我尝试了多种解决方案，但没有用：

自动计算的公式已打开
我尝试过ActiveCell.NumberFormat =“ General”-不起作用
我已经尝试过Application.Volatile-不起作用
将文本记录到列中，并将单元格分配给“常规”（有效，但当我将代码放入脚本中时无效）

您能帮我解决问题所在吗？

Sub QualityCheck()


'załóż filtry, wyszukaj nagłowka "vendor" i posortuj

    Rows("1:1").Select
    Range("F1").Activate
    Selection.AutoFilter
    Selection.Find(What:="Vendor", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Worksheets(1).AutoFilter.Sort.SortFields.Clear
    Worksheets(1).AutoFilter.Sort.SortFields.Add Key:=Range _
        ("K1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With Worksheets(1).AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

'statystyki

    'znajdz wszystkie te same numery vendora i ostatni aktywny ROW
    i = 2
    r = 2
    koniec = Range("K" & Rows.Count).End(xlUp).Row

    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Do Until Range("K" & r) < koniec

            Do Until Range("K" & i) <> Range("K" & i + 1)

                    Range("N" & i).Select
                    Formula = "=left(M" & i & ";1)"
                    Range("N" & i).Formula = Formula  'OFFSET DODAC ALBO COS

                    ActiveCell.NumberFormat = "General"

                i = i + 1 'i to bedzie nasz ostatni row
            Loop

        r = r + 1
    Loop

    Selection.TextToColumns Destination:=Range("N1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True


End Sub

Answer 1

尝试更改

Range("N" & i).Select
Formula = "=left(M" & i & ";1)"
Range("N" & i).Formula = Formula

收件人

Range("N" & i).Formula = "=left(M" & i & ",1)"

我怀疑问题在于您在分离;函数的参数时使用了,而不是left。

值得注意的是，您将绕过设置公式的方式，方法是将其设置为变量变量，然后将其设置为公式（未通过方式声明）。将Option Explicit添加到顶部有助于捕获很多错误，例如变量名拼写错误，并且从没有真正造成伤害。

另一方面，学习如何避免选择本身会带来问题，这绝不是一个坏主意。请参阅How to avoid using Select in VBA

Excel VBA-代码插入的公式未计算

1 个答案: