=DCOUNT(指数化!D1:K16,指数化!D1,指数属性計算!A1:B2)

のような計算式を Application.WorksheetFunction.dcount で書くにはどうするといいのでしょうか、range(cells,cells)みたいなので代用できるのでしょうか?

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2009/06/29 09:19:09
  • 終了:2009/07/06 09:20:02

回答(2件)

id:HALSPECIAL No.1

HALSPECIAL回答回数407ベストアンサー獲得回数862009/06/29 11:04:18

ポイント35pt

こんな感じでいかがでしょうか


Option Explicit

Public Sub hoge()
    Dim arg1 As Range
    Dim arg2 As Range
    Dim arg3 As Range

    Set arg1 = Sheets("指数化").Range("D1:K16")
    Set arg2 = Sheets("指数化").Range("D1")
    Set arg3 = Sheets("指数化").Range("A1:B2")

    Debug.Print Application.WorksheetFunction.DCount(arg1, arg2, arg3)

End Sub


id:SALINGER No.2

SALINGER回答回数3454ベストアンサー獲得回数9692009/06/29 11:08:13

ポイント35pt

これでいいです。

Application.WorksheetFunction.DCount(Worksheets("指数化").Range("D1:K16"), Worksheets("指数化").Range("D1"), Worksheets("指数属性計算").Range("A1:B2"))

http://q.hatena.ne.jp/

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません