- ベストアンサー
VBA 指定の列の最終行を取得
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- VBA 最終行の値を取得
Excel2007です。 印刷用シートに、用紙を4分割して、4件分のカードを印刷できるようにしてあります。 A1, F1, A10, F10の入力セルに、それぞれデータシートのNo.を入れると、vlookupで連動されるようになっています。 No.の入力セルは、4ずつ加算されるようにVBAを書きました。 さらに、データシートの最終No.を超えた場合に、メッセージボックスを出したいのですが、うまくいきません。 例えば、データシートが200件まで入力されているとして、印刷シートのNo.に「201」を入力すると、「これ以上データがありません」というメッセージを表示させたいです。 Sub 次データ() Dim 最終行 As Long, 最終値 As Long Dim my As String 最終行 = Worksheets("データ").Range("A1048576").End(xlUp).Row 最終値 = Cells(最終行, 1) Worksheets("印刷用").Select Range("A1").Value = Range("A1") + 4 Range("F1").Value = Range("F1") + 4 Range("A10").Value = Range("A10") + 4 Range("F10").Value = Range("F10") + 4 If Range("A1") > 最終値 Or Range("F1") > 最終値 Or Range("A10") > 最終値 Or Range("F10") > 最終値 Then my = MsgBox("これ以上データがありません", vbOKOnly + vbExclamation, "注意!") End If End Sub このように書いてみましたが、これだと「次データ」を実行する度にメッセージボックスが出てしまいます。 どこを直せばいいのでしょうか。 分かりづらい文章ですみません。 なにぶん、VBAをかじりかけたばかりで、ド素人ですのでよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 最終行に合計(最終行が列によって異なる場合)
エクセルVBAに於いて質問させて頂きます。 タイトルにも書かせていただきましたが、 A列に行数可変のデータ(文字列)があり、 B列に行数可変のデータ(数字)があり、 A列の行数>=B列の行数の条件とき、 A列の最終行+2の位置のA列に文字で合計 A列の最終行+2の位置のB列にsumを表示する場合、 どのようにすれば出来ますでしょうか。 A列の最終行+2の位置のA列に文字で合計は With Range("A3") .End(xlDown).Offset(2, 0).Formula = "合計" End With でいけると思うのですが、 A列の最終行+2の位置のB列にsumを表示する場合どのようにすればいいのかわかりません。 ご教授のほどお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBA データのある最終行の取得
エクセルVBAで最終行を取得する良い方法を教えて下さい。 VBA初心者でいきづまっていまして、、、 内容はボタンを押した時にF列に対して最終行を取得して、 その最終行の下のセルにボタンの内容が繁栄させるようにしたくて Private Sub CommandButton202_Click() Dim lastRow As Long lastRow = Cells(Rows.Count, 6).End(xlUp).Row + 1 Cells(lastRow, 6).Value = CommandButton202.Caption End Sub と作ってみたのですが、F17より下に文字がはいっているため、 検索範囲を「F列」ではなく、「F2:F16」のように範囲を指定したいのですがどうしたらよいでしょうか、、、。 結構色々調べてはみたのですができなくて、、、
- 締切済み
- その他(プログラミング・開発)
- EXCEL VBAでオートフィルタ後の最終行を取得したい
いつもお世話になります。 WIN98-EXCEL2000での作業です。 VBAでオートフィルタをかけるところまでは出来たのですが、A列:Q列までの表のうち、A2~K列の最終行までをコピーしたい場合のコマンドを教えてください。 また、オートフィルタで検索されなかった場合はコピーはしない場合、どうしたらよいのでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクティブセルから、A列最終行までフィルダウン
今いるセルの位置から、A列のデータのある最終行までフィルダウンするコードを教えていただけないでしょうか。 下記のようにF列ときまっていればいいのですが、毎回ちがうので、できれば ActiveCellをつかってつくることが できないでしょうか。 Range("F3:F3").AutoFill Destination:=Range("F3:F" & Range("A3").End(xlDown).Row()) ExcelのVBAでわかる方おしえてください。
- ベストアンサー
- Excel(エクセル)
- エクセルVBAで最終行取得方法
エクセルVBAで最終行を取得する良い方法を教えて下さい。 VBA初心者でいきづまっていまして、、、 内容はボタンを押した時にF列に対して最終行を取得して、 その最終行の下のセルにボタンの内容が繁栄させるようにしたくて Private Sub CommandButton202_Click() Dim lastRow As Long lastRow = Cells(Rows.Count, 6).End(xlUp).Row + 1 Cells(lastRow, 6).Value = CommandButton202.Caption End Sub と作ってみたのですが、F17より下に文字がはいっているため、 検索範囲を「F列」ではなく、「F2:F16」のように範囲を指定したいのですがどうしたらよいでしょうか、、、。 結構色々調べてはみたのですができなくて、、、
- 締切済み
- 財務・会計・経理
- VBA Excel 背景色の最終行取得~
Excelのシート上に背景色が変更になった箇所のH3から 背景色の最終行を取得し その最終行のB列の値を取得したいのですが宜しくお願いします。 取得した値をMsgBoxで表示できる様に作成したいのですが、 背景色の最終行って、どの様に作成したら良いのでしょうか? UserForm上で操作ができたら良いのですが。 画像の様な事をしたいです。 お手数おかけしますが教えて頂けますでしょうか?
- ベストアンサー
- Visual Basic
- EXCELで最終行への簡単な移動
EXCEL2000を使用して、列15x行5000くらいのデータを操作しています。 1.列Cの最終行に簡単に移動できるキーボード操作がわかったら教えてください 2.列Cの最終行を検索するVBAを教えてください 3.列Cの第1行から最終行までのうち、「あ」という文字を検索するVBAを作りたいのですが、簡単な作り方を教えてください。
- ベストアンサー
- オフィス系ソフト
- 最終行を取得して、別の列にコピーするマクロ
最終行を取得して、別の列にコピーするVBAマクロを教えてください。 (Excel2003です) 具体的には、次の通りです。 (1)A2から下方に項目NOが入っています。可変です。 A2から項目NOの最終行までの行数をカウントします。 (2)B3:D3には数式が入っています。 B4:D4以下に数式を(1)で取得した行数分だけコピーします。 かなり緊急で困っています。 教えていただけると助かります。
- ベストアンサー
- その他MS Office製品
お礼
回答ありがとうございます。 希望した通り、最終行が異なった時に、その列の位置をMsgBoxにて表示する事が来ました。 それプラス各列の位置もMsgBoxで表示できたのが良かったです。 助かりました。 今後ともよろしくお願いします。