0

私はExcelを初めて使用し、このCountif式をしばらく機能させようとしています。列 AN p の 12 行目から最後に使用された行までカウントしたい。私は今非常に近いですが、マクロを実行すると REF エラーが発生します。

Sub Date1()
'
' Enter Date
'

Range("B15") = InputBox("Enter Date")


Dim LR As Long
LR = Sheets("Design Risk Scoring Sheet").Range("AN" & Rows.count).End(xlUp).Row

Range("B16").FormulaR1C1 = _
"=COUNTIF('Design Risk Scoring Sheet'!R[-4]C[38]:RC[38](" & LR & "), ""<"" & R[-1]C )"

End Sub

これは、マクロを実行したときに数式セルに表示されるものです

=COUNTIF('Design Risk Scoring Sheet'!AN12:AN16(163), "<" & B15 )

理想的には 16 ではなく AN163 である必要があります。RC[38] を削除して代わりに AN を配置しようとしましたが、#NAME エラーが発生する AN(163) が表示され、(" & LR & ") の括弧を削除すると、式で一重引用符を取得します :

=COUNTIF('Design Risk Scoring Sheet'!AN12:'AN163', "<" & B15 )

この問題を解決する方法がわかりませんか？

4

2 に答える 2

0

これを試して..

Range("B16").FormulaR1C1 = _
"=COUNTIF('Design Risk Scoring Sheet'!R[-4]C[38]:RC[38](" & LR & "), < & R[-1]C )"
于 2013-08-21T15:04:55.013 に答える
0

代わりの：

Sub Date1()

    Dim sDate As String

    sDate = InputBox("Enter Date", "Date Entry", Format(Now, "m/d/yyyy"))
    If Len(sDate) = 0 Then Exit Sub 'Pressed cancel

    If Not IsDate(sDate) Then
        MsgBox "[" & sDate & "] is not a valid date.", , "Exiting Macro"
        Exit Sub
    End If

    Range("B15").Value2 = DateValue(sDate)
    Range("B16").Formula = "=COUNTIF(AN12:AN" & Cells(Rows.Count, "AN").End(xlUp).Row & ",""<""&B15)"

End Sub
于 2013-08-21T15:59:42.417 に答える