1

私はVBAが初めてです。フォームを作成してExcelに入力することができました。一意の ID が見つかった場合に情報を取得する新しいボタンを作成する方法があるかどうかを知りたいです。

例えば：

Unique ID   Name     Place
1         John Doe   X
2         Jane Doe   Y
3         Tim Doe    Z

たとえば、フォームの [追加] (ワークシートにデータを取得する) の横に、[検索:] を配置したいと思います。ここに一意の ID を入力し、他のすべてのセルに情報を入力します。

もっと情報を提供すべきだったら申し訳ありません。私はVBAが初めてです。必要に応じて、コードをコピーして貼り付けます。

情報を追加して「このパーツを追加」をクリックすると、Excel で行が自動補完されます (A1: 一意の ID、B1: 名前、C1: 場所)。

このアクションで「検索」のような別のボタンを追加したい：クリック>一意のIDを要求>入力されたデータを検索>何かが見つかった場合は、テキストボックスに情報を入力します（SRがA：Aにある行）

ここに画像の説明を入力

4

1 に答える 1

0

ボタンを作成し、最初のサブを書くのに十分熟練していると思いますか? また、一意のIDを持つ列が1つしかないと仮定しています.列A.

Sub Find_Id()
    Dim rng1 As Range
    Dim strSearch As String 
    strSearch = inputbox("Enter a Unique Id", "User Input")
    If strSearch =  vbNullString then exit sub

    Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole) 
    If Not rng1 Is Nothing Then
        'set text box values using rng1.offset(0, column offset).value
        TbxAddStep.value = rng1.offset(0, 1).value
    Else 
        'clear texboxes
    End if

End Sub

さらに情報が必要な場合は提供できますが、これによりセルが検出され、テキストボックスの値を変更するスペースが与えられます。

于 2013-02-25T09:41:41.210 に答える