1

私はこの関数をセルに書き込もうとしています：

=CONCATENATE("Blah",ROUND(COUNTA(I26:I34)/COUNTA(I4:I24,I26:I34)*100,0),"%")

そして、これが私が今持っているものです（私はそれらを別々の行に置いているので読みやすくなっています）：

DestBook.Worksheets("Sheet1").Range("I2").Value = 
DestBook.Application.WorksheetFunction.Concatenate("Blah ", 
WorksheetFunction.Round(WorksheetFunction.CountA("I4:I24") / 
WorksheetFunction.CountA("I4:I24", "I26:I24") * 100, 0), "%")

そして、それはこのエラーを与えたのでそれを好まないようです：オブジェクトはこのプロパティまたはメソッドをサポートしていません

値を間違って設定しているのか、数式が間違って変換されているのかわかりません。誰かがそれを見て、何が悪いのかを知ることができますか？ありがとう！

4

1 に答える 1

3

これを試して：

Dim r1 As Range, r2 as Range, r3 as Range
Set r1 = DestBook.Worksheets("Sheet1").Range("I4:I24")
Set r2 = DestBook.Worksheets("Sheet1").Range("I26:I34")
Set r3 = DestBook.Worksheets("Sheet1").Range("I2")

Dim S1 as Double, S2 as Double
S1 = WorksheetFunction.CountA(r1)
S2 = WorksheetFunction.CountA(r1, r2)

r3.Value = "Blah " & Format(S1 / S2 * 100, "0") & "%"

私はそれをテストしました、そしてそれは働きます。

于 2013-02-12T22:32:02.430 に答える