Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2461 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【67965】EXCELマクロの質問 TA 11/1/19(水) 16:55 質問[未読]
【67966】Re:EXCELマクロの質問 はーばー 11/1/19(水) 16:58 回答[未読]
【67967】Re:EXCELマクロの質問 Jaka 11/1/19(水) 17:22 発言[未読]
【67968】Re:EXCELマクロの質問 TA 11/1/19(水) 18:38 お礼[未読]
【67965】EXCELマクロの質問
質問  TA  - 11/1/19(水) 16:55 -
引用なし
パスワード
   マクロの初心者です。
B列の値の件数を『D1』取得したく以下の記述をしましたが
実行結果が『1』となり数式バーにも
『=COUNTA("B2:B" & lastRow)』と表示されてしまいます。
どなたか正しいソースを教えて頂けないでしょうか。
お手数お掛け致しますが宜しくお願い致します。

Sub Macro1()

'最終行の取得
With ActiveSheet.UsedRange
lastRow = Range("A1").End(xlDown).Row
End With

'件数
Range("D1").Formula = "=COUNTA(""B2:B"" & lastRow)"

End Sub
【67966】Re:EXCELマクロの質問
回答  はーばー  - 11/1/19(水) 16:58 -
引用なし
パスワード
   こんにちは。
ちゃんと検証していませんが、

>Range("D1").Formula = "=COUNTA(""B2:B"" & lastRow)"

Range("D1").Formula = "=COUNTA(""B2:B""" & lastRow)
こうじゃないでしょうか。
【67967】Re:EXCELマクロの質問
発言  Jaka  - 11/1/19(水) 17:22 -
引用なし
パスワード
   >Range("D1").Formula = "=COUNTA(B2:B" & lastRow & ")"
【67968】Re:EXCELマクロの質問
お礼  TA  - 11/1/19(水) 18:38 -
引用なし
パスワード
   はーばー様
Jaka様

早速のご回答ありがとうございました。

Jaka様の回答で正しい値を取得出来ました。

今後『"』や『&』の使用方法を学習したと思います。

この度は本当に助かりました。
誠にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2461 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free