excel　VBA コード編集のアドバイス

Question

下記データベースをexcelで作成しようとしています。

■「data」シート
・・・データを入力するシート

■「input]シート
・・・データを入力してdataシートに格納する、またdataシートで入力した値をほしい情報を表示させるシート

■やろうとしていること、困っていること
・・・dataシートのＡ列でＩＤ番号を入力しておりますが、dataシートでオートフィルタを使う場合があり、その場合、ＩＤが飛び飛びになるのですが、下記コマンドボタンだと、それに合わせて飛んでくれません。

■相談したいこと
これを解決するために、オフセットでは、無理ということは分かるのですが、じゃぁどういったコードを組めばいいのかをアドバイスをお願いできないでしょうか。どうかよろしくお願いいたします。

'■以下コードです。
Public trg As Range
Sub Mae()
'前へのボタン
  If trg.row >= 3 Then
    Set trg = trg.Offset(-1, 0)
    Call Tenki
  Else
    MsgBox "これより前のレコードはありません"
  End If
End Sub

Sub Tsugi()
'次へのボタン
  If trg.row < Worksheets("data").Range("A60000").End(xlUp).row Then
    Set trg = trg.Offset(1, 0)
    Call Tenki
  Else
    MsgBox "これより後ろのレコードはありません"
  End If
End Sub

Sub Tenki()
  Worksheets("input").Range("c4").Value = trg.Offset(0, 0)

End Sub

nayuta_lot · Accepted Answer

こんにちは

前へのコードですが、段落つけてみましょう

'前へ移動する

Sub Mae()

If trg.Row > Worksheets("data").Range("a1") Then

Do
　　　　　　　Set trg = trg.Offset(-1, 0)
        
　　　　　　　ElseIf trg.Row = Worksheets("data").Range("a1") Then

MsgBox "これより前のレコードはありません"

Exit Sub

Else

Loop Until trg.EntireRow.Hidden = False

Call Tenki

End If

End Sub

外側からくくってみると

Sub Mae()

If ～

Do
　　　　　　～
　　　　　　ElseIf

Else

Loop

End If

End Sub

となります。　Do とLoopの間にElseIf、Elseが存在すると見なされるため、IFがないと
「コンパイルエラー　elseに対応するifがありません」となります。

基本の内容から、考え直してみましょう。

Sub Mae()

If trg.Row >= 3 Then

Do
　　　　　　Set trg = trg.Offset(-1, 0)

Loop Until trg.EntireRow.Hidden = False

Else

MsgBox "これより前のレコードはありません"
 
　　End If

End Sub

基本的にこれで、前の可視セルに移動できますが、Ａ１も可視セルであるため
タイトルも対象となります。

そこで、Loopから抜けた後に、trg.Rowがタイトル行を示していないか調べます。
調べるためには、trgの行、つまりIf trg.Row = 1　で調べられますね。

１であれば、"これより前のレコードはありません"のメッセージを表示させます。
※すでに、上記のメッセージがでない条件に入っているためです。

行き過ぎたtrgの数値を下限（つまり最初）に戻すためには、「最初」の処理をして
あげればよいですね。
そのあとは、転記する必要がないので、Exit Subで抜けます。

逆に、タイトル行まで行っていなければ、前の行をあらわしているので転記します。

これをコードに書くと次のようになります。

If trg.Row = 1 Then
            
　　　　　　　MsgBox "これより前のレコードはありません"

Call Saisyo

Exit Sub

Else

Call Tenki

End If

このコードをLoopが終わった後に入れますので、最終的には以下のようになります。

Sub Mae()
    
    If trg.Row >= 3 Then
        
        Do
            
            Set trg = trg.Offset(-1, 0)
        
        Loop Until trg.EntireRow.Hidden = False
        
        If trg.Row = 1 Then
            
            MsgBox "これより前のレコードはありません"
            
            Call Saisyo
            
            Exit Sub
        
        Else
            
            Call Tenki
            
        End If
        
    Else
        
        MsgBox "これより前のレコードはありません!"
        
    End If
    
End Sub

上記のコードは、この質問コーナーで回答を登録すると段落が付きませんが（笑）
一度、段落を付けて確認してみてください。

If　～　End Ifの中はタブで一段下げる、Do ～　Loopの中はタブで一段下げる、
というようにブロックごとに段落をつけると構文エラーも発見しやすくなります。

プログラムの視認性を向上させることも上達の秘訣のひとつです。

なにかあれば補足してください。＾＾
それでは

nayuta_lot · Answer

こんにちは

言い忘れましたが、【前】の処理で行き過ぎたtrgの値を下限に戻すために、
Exit subの前に【最初】の処理を実行することをお忘れなく・・・
それでは

nayuta_lot · Answer

こんにちは

ヒントです。

mitarashiさんのアドバイスで次と最後はできるようになったようなので、その延長で説明します。

【最初】について

最初のデータは、Ａ１つまりタイトル行から見れば、フィルターのあり、なしに関係なく、
次の可視セルですよね。

これって、どこかでみたことありますね。

つまり、Ａ１を現在位置にして、『次の可視セル』を求めればいいわけです。
うーん・・ヒントというより、答えいっちゃってますが（笑）、コードは考えてみてください。

【前】について

行き過ぎてタイトル（Ａ１）までいってしまうということは、もうTenkiの処理をしなくて
いいわけです。

ということは、trg.rowがＡ１に達していたら、そこでExit subしちゃえばいいのです。
あと、この処理をする段階では、フィルターがかかっていて最初の

"これより前のレコードはありません"

の処理に引っかからないので、Exit subする前に、もう一回

"これより前のレコードはありません"

という表示の処理を入れてあげればいいでしょう。　"もう前のレコードがありません"
とか言葉かえてみると、フィルターがかけたときの違いがわかりますよ。

んーヒントなのか答えなのかわかりませんが（笑）、健闘を祈ります。

なにかあれば補足してください。
それでは

imogasi · Answer

自分流のコードだけ書いて、やりたいことが、質問ではっきりしない。
オートフィルタでフィルタ後でも見えている（可視）行だけ処理したいということか？
ーー
文章が判りにくい。
＞・データを入力してdataシートに格納する、またdataシートで入力した値をほしい情報を表示させるシート
＞下記コマンドボタンだと、それに合わせて飛んでくれません。
非表示の行は処理をしないということか。
ーー
データ例をあげて、それに沿って、どうしたいのか、（結果はどうなってほしいのか）文章で説明してくれたほうが判りやすい。
経験して、パターン（型・タイプ）というものをとらえ、智識を整理し、表現する勉強が必要だと思う。

mitarashi · Answer

速度は保証の限りではありませんが、例えば「次へ」のケースなら、簡単には、

Do
    Set trg = trg.Offset(1, 0)
  Loop Until trg.EntireRow.Hidden = False

でいかがでしょうか。ご参考まで。

nayuta_lot · Answer

こんにちは

前回の質問の続きだと思いますが、最初、最後の部分、どうしちゃいました？
このままだと、いきなり、

『オブジェクト変数またはWithブロック変数が設定されていません』

のエラーがでちゃいますが・・
この質問だけみた人は判らないと思いますので補足をしたほうがよいです。

あと、Tenki()のところも

Worksheets("input").Range("c4").Value = trg.Offset(0, 0)

と"input"がでてきてますが、"User Sheet"の名前が変わっただけですかね＾＾；

この質問だけみた人には関係ないのですが、補足をお願いします。

excel VBA コード編集のアドバイス

こんにちは

こんにちは

こんにちは

自分流のコードだけ書いて、やりたいことが、質問ではっきりしない。

速度は保証の限りではありませんが、例えば「次へ」のケースなら、簡単には、

こんにちは

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

excel　VBA コード編集のアドバイス