[[20170822033117]]　『ActiveCellから最終行までのせるの数表示』（keiji）　ページの最後に飛ぶ

『ActiveCellから最終行までのせるの数表示』（keiji）

質問よろしくお願いします。
今までは以下のように関数で件数をカウントしていたのですが
=COUNTA(B1833:B1880)
VBAにてアクティブ行（B列）から最終行までのセルの数を表示させたいのですが
御教授お願いします。

Sub　最終行までの件数
ActiveCell.？？
　MsgBox　"件数は"&？？"件です。"
End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Sub test()
     With ActiveCell
         MsgBox "件数は " & .Cells(Rows.Count - .Row).End(xlUp).Row - .Row + 1 & "件です"
     End With
 End Sub
（seiya） 2017/08/22(火) 07:34

（seiya）さん
希望通りです。
ありがとうございました。
このMsgBoxに表示された値を任意にクリックしたセルに書き込むことなんて
できないですか？
申し訳ないですが、出来るようなら教えていただけますか
追加ですみません。
よろしくお願いします。
（keiji） 2017/08/22(火) 14:52

いろいろ調べてみると
MsgBoxから任意のセルに転記は難しいみたいですね。
一度テキストボックスに表示させて、転記するのが
普通でしょうか？

例えばテキストボックスのデータを最下行のR列に転記する場合
ですが

  A   B   C   D・・・R
データ行

任意の行をアクティブにします（B列）ユーザーフォームを立ち上げ
ここで最終行までの件数取得しユーザーフォームのテキストボックスに表示し
コマンドボタンをクリック最終行のR列に転記の手順なら出来そうなんですが
ユーザーフォームのマクロが解りませんでした。
お解りの方ご教授お願いします。
Private Sub UserForm_Initialize()
TextBox1.Value = ？？
End Sub

Private Sub CommandButton1_Click()
？？
End Sub

（keiji） 2017/08/23(水) 12:57

 こんな感じですか？

 Sub test()
     Dim x As Long
     With ActiveCell
         x = .Cells(Rows.Count - .Row).End(xlUp).Row - .Row + 1
         MsgBox "件数は " & x & "件です"
         If vbYes = MsgBox("書き込む?", vbYesNo) Then
            Application.InputBox("セルを選択", Type:=8).Value = x
         End If
     End With
 End Sub
（seiya） 2017/08/23(水) 13:29

（seiya）さん
ありがとうございます。

こんな感じですか？ InputBox利用ですか、なるほどです
何度もありがとうございました。
解決です。

（keiji） 2017/08/23(水) 16:07

コメント返信：

[ 一覧(最新更新順) ]

[[20170822033117]] 『ActiveCellから最終行までのせるの数表示』（keiji） ページの最後に飛ぶ

[[20170822033117]]　『ActiveCellから最終行までのせるの数表示』（keiji）　ページの最後に飛ぶ