[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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
例えばテキストボックスのデータを最下行の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
こんな感じですか? InputBox利用ですか、なるほどです
何度もありがとうございました。
解決です。
(keiji) 2017/08/23(水) 16:07
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.