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

質問

• ExcelのVBAコード編集に関して相談です。データベースをExcelで作成する際に、オートフィルタを使うとID番号が飛び飛びになるため、それに合わせて移動するコードを教えてください。
• ExcelのVBAコード編集についての相談です。データベースをExcelで作成する際に、ID番号を入力し、それに合わせてデータを表示させるシートを作成しています。しかし、オートフィルタを使うとID番号が飛び飛びになるため、移動するコードを知りたいです。
• ExcelのVBAコード編集についてのアドバイスをお願いします。データベースをExcelで作成していますが、オートフィルタを使用する場合にID番号が飛び飛びになる問題があります。ID番号に合わせて移動するVBAコードを教えていただけないでしょうか。

回答No.1

nayuta_lot

こんにちは

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

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

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

あと、Tenki()のところも

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

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

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

補足

nayuta_lot様
いつもご指導・ご指摘ありがとうございます。

ご指摘の通り、データベース作成の一連作業を進めていく上で、つまづいてしまう所が多々あり、その都度お世話になっております。sheet名等は作業の都合上変更させていただきました。

ここの質問では、私の理解不足で、必要なコードを省略してしまいました。
ここに改めて、必要なコードを盛り込んで記載させていただきます。

■やりたいこと
オフセットで前後のレコードを選択するのではなく、フィルタで表示されていないレコードを飛ばして前後のレコードが選べるようなコードをつくりたいと思います。

'■以下標準モジュールに記載したモジュールです。
Public trg As Range
Sub Saisyo()
Set trg = Worksheets("data").Range("A2")
Call Tenki
End Sub

Sub Saigo()
Set trg = Worksheets("data").Range("A60000").End(xlUp)
Call Tenki
End Sub

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

'■This Workbook に記載したモジュールです。
Private Sub Worksheet_Activate()
Call Saisyo
End Sub