vbaオブジェクトが必要です。のエラーが出ます

Question

下記内容で足りない情報、不明な点あればおしえてください。
プログラムはじめて3か月目です。

前提・実現したいこと

####プログラムの目的
Excelのvbaを使って、idを活用した工程管理をするシステムを作っています。

####前提

idが入力されると
lookat xlwhole でidをexcel内で検索、
もしみつからなければ userform1 で新規のid登録とデータを入力します。
もしみつかればuserform2にそのデータが各入力エリアに入力された状態でuserformがでてきます。
userform2で入力されたものが最新情報としてexcel内のデータに更新されます。

####実現したいこと
入力フォームにすでにある情報は入力されたままで表示したい。
更新された情報として際で抽出してきた先にデータを登録したい。

発生している問題・エラーメッセージ

ecel内にあるデータをtmpdataに'$'でsplitしたものを代入して、
tmpdataをuserform2の対応する各入力フォームに文字列をいれる過程と、
各入力フォームに入力されたデータを再び対応するexcel内にあるデータに入力していく過程で"オブジェクトが必要です"のエラーがおきます。

実行時エラー'427':
オブジェクトが必要です。

該当のソースコード

module1

tmpData = Split(UserForm2.updateData(id, bnum, bname, cus, dlv, inspection, status, pinc, order1, srsts1, srorder1, inorder1, order2, srsts2, srorder2, inorder2, order3, srsts3, srorder3, inorder3, last), "$")
    

###モジュールと入力フォームのソースコード

Module1　の一部

'==========
'工程更新
'==========

Sub update(id As String)

    Dim findData As Object
    Dim bnum As String
    Dim bname As String
    Dim cus As String
    Dim dlv As String
    Dim status As String
    Dim inspection As String
    Dim pinc As String
    Dim order1 As String
    Dim srsts1 As String
    Dim srorder1 As String
    Dim inorder1 As String
    Dim order2 As String
    Dim srsts2 As String
    Dim srorder2 As String
    Dim inorder2 As String
    Dim order3 As String
    Dim srsts3 As String
    Dim srorder3 As String
    Dim inorder3 As String
    Dim last As String
    Dim tmpData As Variant
    
    
 
    With ThisWorkbook.Worksheets(SHT_List)
    
        Set findData = Nothing
        Set findData = .Columns(???X?g.IDl_).Find(id, LookAt:=xlWhole)
        
        bnum = .Cells(findData.row, ???X?g.bnuml_).Value
        bname = .Cells(findData.row, ???X?g.bnamel_).Value
        cus = .Cells(findData.row, ???X?g.cusl_).Value
        dlv = .Cells(findData.row, ???X?g.dlvl_).Value
        inspection = .Cells(findData.row, ???X?g.insl_).Value
        status = .Cells(findData.row, ???X?g.stsl_).Value
        pinc = .Cells(findData.row, ???X?g.pincl_).Value
        order1 = .Cells(findData.row, ???X?g.ord1l_).Value
        srsts1 = .Cells(findData.row, ???X?g.srsts1l_).Value
        srorder1 = .Cells(findData.row, ???X?g.srorder1l_).Value
        inorder1 = .Cells(findData.row, ???X?g.inorder1l_).Value
        order2 = .Cells(findData.row, ???X?g.ord2l_).Value
        srsts2 = .Cells(findData.row, ???X?g.srsts2l_).Value
        srorder2 = .Cells(findData.row, ???X?g.srorder2l_).Value
        inorder2 = .Cells(findData.row, ???X?g.inorder2l_).Value
        order3 = .Cells(findData.row, ???X?g.ord3l_).Value
        srsts3 = .Cells(findData.row, ???X?g.srsts3l_).Value
        srorder3 = .Cells(findData.row, ???X?g.srorder3l_).Value
        inorder3 = .Cells(findData.row, ???X?g.inorder3l_).Value
        last = .Cells(findData.row, ???X?g.lastl_).Value

    
        tmpData = Split(UserForm2.updateData(id, bnum, bname, cus, dlv, inspection, status, pinc, order1, srsts1, srorder1, inorder1, order2, srsts2, srorder2, inorder2, order3, srsts3, srorder3, inorder3, last), "$")
    
        
        .Cells(findData.row, ???X?g.bnuml_).Value = tmpData(0)
        .Cells(findData.row, ???X?g.bnamel_).Value = tmpData(1)
        .Cells(findData.row, ???X?g.cusl_).Value = tmpData(2)
        .Cells(findData.row, ???X?g.dlvl_).Value = tmpData(3)
        .Cells(findData.row, ???X?g.insl_).Value = tmpData(4)
        .Cells(findData.row, ???X?g.stsl_).Value = tmpData(5)
        .Cells(findData.row, ???X?g.pincl_).Value = tmpData(6)
        .Cells(findData.row, ???X?g.ord1l_).Value = tmpData(7)
        .Cells(findData.row, ???X?g.srsts1l_).Value = tmpData(8)
        .Cells(findData.row, ???X?g.srorder1l_).Value = tmpData(9)
        .Cells(findData.row, ???X?g.inorder1l_).Value = tmpData(10)
        .Cells(findData.row, ???X?g.ord2l_).Value = tmpData(11)
        .Cells(findData.row, ???X?g.srsts2l_).Value = tmpData(12)
        .Cells(findData.row, ???X?g.srorder2l_).Value = tmpData(13)
        .Cells(findData.row, ???X?g.inorder2l_).Value = tmpData(14)
        .Cells(findData.row, ???X?g.ord3l_).Value = tmpData(15)
        .Cells(findData.row, ???X?g.srsts3l_).Value = tmpData(16)
        .Cells(findData.row, ???X?g.srorder3l_).Value = tmpData(17)
        .Cells(findData.row, ???X?g.inorder3l_).Value = tmpData(18)
        .Cells(findData.row, ???X?g.lastl_).Value = tmpData(19)
    
    
    End With
 
End Sub

userform2のデータ受け渡し部分

Public Function updateData(id As String, bnum As String, bname As String, cus As String, dlv As String, inspection As String, status As String, pinc As String, order1 As String, srsts1 As String, srorder1 As String, inorder1 As String, order2 As String, srsts2 As String, srorder2 As String, inorder2 As String, order3 As String, srsts3 As String, srorder3 As String, inorder3 As String, last As String)
    Dim result As String
    
    
    idlabel.Caption = id
    bnumbox.Value = bnum
    bnamebox.Value = bname
    cusbox.Value = cus
    dlvbox.Value = dlv
    stsbox.Value = status
    pincbox.Value = pinc
    insbox.Value = inspection
    orderbox1.Value = order1
    srstsbox1.Value = srsts1
    srorderbox1.Value = srorder1
    inorderbox1.Value = inoreder1
    orderbox2.Value = order2
    srstsbox2.Value = srsts2
    srorderbox2.Value = srorder2
    inorderbox2.Value = inorder2
    orderbox3.Value = order3
    srstsbox3.Value = srsts3
    srorderbox3.Value = srorder3
    inorderbox3.Value = inorder3
    lastbox.Value = last
    
    
    
    
    Me.Show
    
    result = bnumbox.Value & "$" & bnamebox.Value & "$" & cusbox.Value & "$" & dlvbox.Value & "$" & stsbox.Value & "$" & pincbox.Value & "$" & insbox.Value & "$" & orderbox1.Value & "$" & srstsbox1.Value & "$" & srorderbox1.Value & "$" & inorderbox1.Value & "$" & orderbox2.Value & "$" & srstsbox2.Value & "$" & srorderbox2.Value & "$" & inorderbox2.Value & "$" & orderbox3.Value & "$" & srstsbox3.Value & "$" & srorderbox3.Value & "$" & inorderbox3.Value & "$" & lastbox.Value
    updateData = result
    
    
    
    
End Function

試したこと

以前に同じような症状があった時、単純なスペルミスが原因だったので、コードを印刷して全てスペルチェックしました。
また、コピペで入力することで入力ミスを減らすようにしました。

result の中身や変数宣言時の順番などを入れ替えたりしました。

このコードネットに落ちてたものを流用しました。
もとのコードがちゃんと動くか確認し動くことを確認しました。
そのコードと自分のコードを並べて相違点を洗い出しできるだけ同じおうな処理になるように調整しました。

補足情報（FW/ツールのバージョンなど）

excel2010を使っています。

####よろしくお願いいたします。

Answer 1

ちょっと同じ環境を作って動作確認するのは難しいので、
コードをみて思ったことを書きます。

オブジェクトが必要です。

と言われる時は、
命令を実行できる、対象物（オブジェクト）以外に、
命令（メソッド）を実行するように書いたり、プロパティの値を変更しようとしているか、
オブジェクト（操作対象物）変数でない変数に、オブジェクトを代入するように書いるのではないかと、
想像されます。
その辺コードを書く以前に一回、「オブジェクトとは」で検索し、
「オブジェクト」という概念を理解しておく必要があると思います。

以前に同じような症状があった時、単純なスペルミスが原因だったので、

んと、、、、
変数やプロシージャの名前は、大文字を混ぜて命名しておくと、
小文字で入力しても、大文字に自動で変換されるので、
大文字に変換されない時はタイプミスしているとわかります。
そうすることで、タイプミスを発見することが容易になるので、お勧めします。

あと、

UpdateData

と打つ時に、

Upd

くらいまで、入力したら、
Ctrlキー　+　Spaceキー　押下で入力候補が出ますので、
それを利用することで、タイプミスを減らすことが可能です。

それから、
一旦文字列で繋いでさらに、一次配列に値の変換をされているようですが、

Option Explicit

Sub test()
    Dim ixRow As String

    On Error GoTo WayOyt
    ixRow = WorksheetFunction.Match(Me.idlabel.Caption, ActiveSheet.Columns(1), 0)
    On Error GoTo 0

    With ActiveSheet.Rows(ixRow)
        Me.idlabel.Caption = .Cells(1).Value    'ID
        Me.bnumbox.Value = .Cells(2).Value      '通し番号
        cusbox.Value = .Cells(3).Value          '選択した値
    End With
    
WayOut:
End Sub

こんな感じで、各コントロールとセルの位置を紐づけする感じでいいのではないでしょうか？
（必要ならコメントで補足しておく）

「いまのコードの提示だけ」だと、他人では、

???X?g.bnuml_

というものがなんなのかわからないです。

いまは列番号を構造体で定義しているのかな？
それはそれで、ありだとは思います。
あ、でも、いろいろ、人によって考えは違うと思いますので、
「こういうやり方が最善だ。」と思いこまないでください。
単なる一例でこちらが読みやすく書いているだけですので。
（一年後の自分は他人ですので、一年後に読んでも、自分で読めるようにコードを書いてください。）

それから、
他人にデバッグを頼むなら、
他人に分かるよう、そして動作確認が出来るような、
情報を提示してください。

あと、最初に
Option Explicit
と宣言してますか？
これを宣言しておくと、デバッグが少し楽になるかも？
簡単なタイプミスはこれでも発見が出来ると思います。

Comments

[lolitacon]

色々おしえていただきありがとうございます。

今回のミスはuserform2の入力フォームのオブジェクト名のミスタイプでした。

また、module1でoption explicitを適用していましたが、
userform2ではその一行が抜けており、
エラーが起こった場所が本来はuserform2でおきているはずなのにそこへ引数を渡すmodule1でのエラーとしてでてきていました。
これが今回自分のなかで混乱したひとつの原因かと思います。

コード自体あまりきれいなものでなく、
質問もちゃんとできていなかったことにつきましては反省いたします。

本当にありがとうございます。

また、なにかありましたらよろしくお願いいたします。