エクセル 変数に関数の戻り値を入れたい

質問

いろいろ検索してみたのですが、やはりわからないので質問させていただきます。

現在VBAを勉強中なのですが、変数をまず宣言し、その変数に関数の結果をいれたいのですがどのように記述すればいいのでしょうか？

例：CountA関数を使ってD1を参照(D1には適当な文字を入れておく)
この場合CountA関数でD1を見て"1"という結果が出て、それを変数aaaに入れる。そして、そのaaaをセルに表示させたいのです。
下記のように記述してみました。

Dim aaa As Integer
aaa = CountA("d1")
Cells(1,1) = aaa

勉強不足で初歩的なことを聞いているかもしれませんが、ご教授よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

値を入れるのなら
Dim aaa As Integer
aaa = Application.WorksheetFunction.Counta(Worksheets("Sheet1").Range("D1"))
Cells(1,1) = aaa

数式をセットするなら
Dim aaa As String
aaa = "=COUNTA(D1)"
Cells(1,1).Formula = aaa

お礼

早い回答ありがとうございます！！
さっそく試してみたところ、うまくいきました。
これを参考にいろいろ勉強してみようと思います。

ありがとうございました！！