|
▼猛虎襲来 さん:
こんばんは。
>しかし、今度はその数値を他のワークシートで表示させようとするとなぜかできません。
>何か、初歩的なミスのような気がするのですが…
>そのコードは、
>Sub 人数記入()
> Dim ti As String
> Dim seiza As String
> Dim nm As Integer
ti = "データ!" & Range("a2:a152").Address
seiza = "データ!" & Range("b2:b152").Address
'としてみて下さい。
> nm = Application.Evaluate("=SUMPRODUCT((" & ti & "=""A"")*(" & seiza & "=""てんびん""))")
> worksheets(“人数”).range(“b2”) = nm
>End Sub
尚、もし仮にブックが二つ以上開いていて、シート名「データ」の存在しないブックが
アクティブだったりすると、又正しい値が入ってきません。
その場合はブック名も指定しなければなりません。
Evaluateメソッドの()の中の文字列は、数式ですから、
セルに実際に同様の数式を入力して確認しながらコードを記述されると
よいですよ(と言ってもtiやseizaまでそのまま入力しないでね)。
確認してみて下さい。
|
|