hananeko_0回答ポイント 60pt

ExcelVBAです。

[数量]の列にある数字を、上から順に足していき、その合計が
指定した数（4000等）になる行を選択状態にしたいのです。
（列数が数千ある大きなデータの為、分割する行がすぐにわかる
ようにするため）

A列 B列 C列 D列

↓　１行目･･･ブランク行
↓　２行目･･･ブランク行
↓　３行目･･･ブランク行
商品単価数量備考
★

★のC5セルから順に下へ数量を足していき、指定した数4000に
になったら、その対象セルがある行を選択状態にしたい。

丁度4000にならない場合は、プラスマイナスで4000に近い行を選択。

タイトル行（４行目）にウィンドウ枠の固定をしていますので
選択された行を後からスクロールで下へ探すのではなく、見える範囲に
選択された行があると有難いです。

教えていただくと大変助かります。
宜しくお願い致します。

ベストアンサー

SALINGER2008/08/09 23:50:48
満足60pt

こんな感じでどうでしょうか。

Option Explicit

Sub Macro()
    Dim r As Long
    Dim count As Long
    Dim LastRow As Long
    '合計の数を指定
    Const CountMax As Long = 4000
    
    LastRow = Range("C65536").End(xlUp).Row
    For r = 5 To LastRow
        count = count + Cells(r, 3).Value
        If count >= CountMax Then
            Exit For
        End If
    Next r
    If count - CountMax > CountMax - (count - Cells(r - 1, 3).Value) Then
        r = r - 1
    End If
    Rows(r).Select
End Sub

スター

hananeko_0 2008/08/10 00:07:54

希望通りの動きをしました！

感激しておりますっ　（*^_^*）

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

この質問へのコメント

コメントはありません

ExcelVBAです。

ベストアンサー

SALINGER2008/08/09 23:50:48
満足60pt

hananeko_0 2008/08/10 00:07:54

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

ExcelVBAです。

ベストアンサー

SALINGER2008/08/09 23:50:48 満足60pt

hananeko_0 2008/08/10 00:07:54

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

SALINGER2008/08/09 23:50:48
満足60pt