検索と再登録

Question

お世話になります。
今、エクセルシートにあるデータの空欄列を呼出し後日入力を行う為のユーザフォームを作成しました。テキストボックス2つと検索用、再登録用のコマンドボタンを用意し、TB1でIndexナンバーを入力し検索し、TB2でシートのG列空白セルに入力して再登録したいと思っています。
　Findメソッドとかやってはみてるのですが・・・

何卒、ご指南ください。

tatsu99 · Accepted Answer

以下の用にしてください。
CommandButton1が検索用
CommandButton２が再登録用です。
Dim Grow As Longは選択されたG列の行を記憶します。
マクロの上部に記述してください。（このフォーム内での共有変数にします）
-----------------------------------
Option Explicit
Dim Grow As Long
Private Sub CommandButton1_Click()
    Dim row, rowmax As Long
    Worksheets("Sheet1").Activate
    rowmax = Cells(Rows.Count, "A").End(xlUp).row
    Grow = 0
    For row = 2 To rowmax
        If Cells(row, "A").Value = TextBox1.Text Then
            Cells(row, "G").Select
            Grow = row
            Exit For
        End If
    Next
    If Grow = 0 Then
        Cells(1, "G").Select
        MsgBox ("該当Indexなし:" & TextBox1.Text)
    End If
End Sub

Private Sub CommandButton2_Click()
    If Grow = 0 Then
        MsgBox ("G列は選択されていません")
        Exit Sub
    End If
    Worksheets("Sheet1").Activate
    Cells(Grow, "G").Value = TextBox2.Text
    MsgBox ("更新完了")
End Sub
-----------------------------------------

めぐみん_ · Answer

シートの状況がわかりかねますが。

重複しないIDで単純に１から始まる普通の数字をある列に並べれば、そのIDから『何行目のデータが欲しい』って
わかると思いますよ。
編集し再度登録する際にもFindで検索なんて面倒な事しなくて済みますし。

tatsu99 · Answer

シートのイメージがよくわかりません。
添付のような画像を提示していただけますか。
G5、G7の箇所を検索したいのでしょうか。（赤線で囲んだ箇所）
それなら、G列の2行目から、空白セルを検索すれば良いだけです。
Indexナンバーで検索したいなら、A列の2行目からIndexナンバーで検索すれば良いだけです。

tatsu99 · Answer

>甘えてもよろしければ、INDEXナンバーで検索とはどのようにすれば？
>現在はオートフィルタを利用しているのですが、あまり使い勝手が良くないもので。
A2から最後の行（図ではA8）まで、テキストボックスのINDEXナンバーと同じか比較します。

いずれにしろ、何をなさりたいのかが、よくわかりません。
１．1行目は見出し行であり、データ行は２行目から始まる。
２．IndexナンバーはA列、データはG列にある。
ということまでは、わかったのですが、
①テキストボックス１にIndexナンバーを入力し、検索用ボタンをクリックした時、どうしたいのか不明。
②テキストボックス１にIndexナンバーを入力し、再登録用ボタンをクリックした時、どうしたいのか不明。
③テキストボックス２にデータを入力し、検索用ボタンをクリックした時、どうしたいのか不明。
④テキストボックス２にデータを入力し、再登録用ボタンをクリックした時、どうしたいのか不明。
何をどうしたいのか、もっと具体的に提示してください。

tatsu99 · Answer

No4です。
シート名が不明だったので、とりあえず、Sheet1にしました。
シート名が異なる場合は、シート名を適切に変更してください。

めぐみん_ · Answer

＞Findメソッドとかやってはみてるのですが

そこまでご存じで上手くいかないのなら、いっそコードを載せて修正やアドバイスを受けられては？

私個人の考えで言うなら

＞①A列に固有の番号（INDEXナンバー）がふってあり

これを右にシフトしてB列とし、改めてA列に単純な１から始まる普通の連番を入れては？と考えましたが、
その固有番号で検索したいのなら、Findメソッドで検索可能な物であるのか否か実態がわからない事には・・・・

めぐみん_ · Answer

FindメソッドとOffsetが使えて、あとはActiveやSelectをしないコードが書ければ良いのでは？

検索と再登録

シートの状況がわかりかねますが。

シートのイメージがよくわかりません。

>甘えてもよろしければ、INDEXナンバーで検索とはどのようにすれば？

以下の用にしてください。

No4です。

＞Findメソッドとかやってはみてるのですが

FindメソッドとOffsetが使えて、あとはActiveやSelectをしないコードが書ければ良いのでは？

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

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

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

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