UserFormコマンドボタンコード - エラー91：オブジェクト変数またはWithブロック変数が設定されていません

Question

エラー91をスローし続けるコマンドボタンクリックイベント用のコードがあります。コードをステップ実行すると、 'Setvalueue 'コードが実行されます。下記のコードスニペットを参照してください。私はコード自体の検査でそれを理解することはできません。

「findvalue」は範囲オブジェクトとしてディメンション化されています。 'DataSH'はレコードID（列B）の列で始まるマスターデータテーブルが存在するワークシートです。ユーザーフォーム要素は、DataSHのデータテーブルのそれぞれの列に設定されます。

Private Sub cmdEdit_Click() 
    'declare the variables 
    Dim findvalue As Range 
    Dim cNum As Integer 
    Dim DataSH As Worksheet 
    'error handling 
    On Error GoTo errHandler: 
    'hold in memory and stop screen flicker 
    Application.ScreenUpdating = False 
    Set DataSH = Sheet1 

このスニペットをから取られることがクリックイベントサブルーチンは、それらUF要素（の値に基づいてDataSHで選択したレコードID（行番号識別子）の行に適切な列データを更新するための設定であります変更または削除された値）。要点は、UF要素（テキストボックスとコンボボックス）で行った変更をDataSHのマスターデータテーブルに更新することです。

Set findvalue = DataSH.Range("B:B"). _ 
    Find(What:=Me.tbRecID.Value, LookIn:=xlValues, LookAt:=xlWhole) 
    'update the values 
    findvalue = tbRecID.Value 
    findvalue.Offset(0, 1) = tbRecDate.Value 
    findvalue.Offset(0, 2) = cmbRecLoc.Value 
    findvalue.Offset(0, 3) = cmbRecCust.Value 
    findvalue.Offset(0, 4) = tbRecAmt.Value 
    findvalue.Offset(0, 5) = cmbRecComm.Value 
    findvalue.Offset(0, 6) = cmbRecPrin.Value 
    findvalue.Offset(0, 7) = tbRecTerr.Value 
    findvalue.Offset(0, 8) = tbRecRep.Value 

Answer 1

に設定されている場合、私はDataSHがsettedされていないと思います。 "Sheet1"はシートの名前ですか、それともワークシートの変数ですか？

Set DataSH = thisworkbook.worksheets("Sheet1") 

なくSet DataSH = Sheet1

Answer 2

エラー（この状況では）91のポップアップ、あなたが設定されていないので、あなたのMe.tbRecID.ValueがDataSH.Range("B:B")に存在しないいくつかの範囲に値を代入しようとしているため。この問題を回避するには、例えば、いくつかのエラーの例外を追加することができます。

Set findvalue = DataSH.Range("B:B"). _ 
    Find(What:=Me.tbRecID.Value, LookIn:=xlValues, LookAt:=xlWhole) 
    'update the values 
On Error GoTo ErrHand: 
    findvalue = tbRecID.Value 
On Error GoTo 0 
    findvalue.Offset(0, 1) = tbRecDate.Value 
    findvalue.Offset(0, 2) = cmbRecLoc.Value 
    findvalue.Offset(0, 3) = cmbRecCust.Value 
    findvalue.Offset(0, 4) = tbRecAmt.Value 
    findvalue.Offset(0, 5) = cmbRecComm.Value 
    findvalue.Offset(0, 6) = cmbRecPrin.Value 
    findvalue.Offset(0, 7) = tbRecTerr.Value 
    findvalue.Offset(0, 8) = tbRecRep.Value 
ErrHand: 
[rest of your code] 

これは、この変数に割り当てられた範囲がない場合findvalueを使用してラインをバイパスするために、プログラムを強制します。

Answer 3

あなたのコードでは、単に「DataSH.Range（」B：B「）」で「Me.tbRecID.Value」を見つけることに失敗している

だから、実行する「場合は次に場合は終了」で、あなたのコードをラップfindvalueが実際に有効な範囲

Set findvalue = DataSH.Range("B:B"). _ 
Find(What:=Me.tbRecID.Value, LookIn:=xlValues, LookAt:=xlWhole) 
If Not findvalue Is Nothing Then 
    findvalue.Offset(0, 1) = tbRecDate.Value 
    findvalue.Offset(0, 2) = cmbRecLoc.Value 
    findvalue.Offset(0, 3) = cmbRecCust.Value 
    findvalue.Offset(0, 4) = tbRecAmt.Value 
    findvalue.Offset(0, 5) = cmbRecComm.Value 
    findvalue.Offset(0, 6) = cmbRecPrin.Value 
    findvalue.Offset(0, 7) = tbRecTerr.Value 
    findvalue.Offset(0, 8) = tbRecRep.Value 
End If