エクセルＶＢＡについて質問です。 ユーザーフォームのイニシャライズに次のコードを書いたところ、エラー９１（オブジェクト変数または With ブロック変数が設定されていません。）と表示されてしまいます。見直してもなかなか原因がわからず・・お詳しい方、原因と修正方法を教えてください。 Private Sub UserForm_Initialize() ThisWorkbook.Activate Application.ScreenUpdating = False Application.Visible = False Sheets("計算用").Select Sheets("入金管理").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _ Range("A8:A9"), CopyToRange:=Range("A12"), Unique:=False ss = Sheets("計算用").Range("D11").Value Me.Label2.Caption = Format(ss, "#,#") ss2 = Sheets("計算用").Range("E11").Value Me.Label3.Caption = Format(ss2, "#,#") If Not IsError(Sheets("計算用").Range("D11").Value) Then Else MsgBox "シート計算用rangeD11セルにエラーが発生しています" & vbCrLf & "フォームを最小化します" & vbCrLf & "エラー個所を確認・修正したのち、再度実行してください" Application.Visible = True Unload Me UserForm8.Show vbModeless Exit Sub End If If Not IsError(Sheets("計算用").Range("E11").Value) Then Else MsgBox "シート計算用rangeE11セルにエラーが発生しています" & vbCrLf & "フォームを最小化します" & vbCrLf & "エラー個所を確認・修正したのち、再度実行してください" Application.Visible = True Unload Me UserForm8.Show vbModeless Exit Sub End If If Sheets("計算用").Range("D11").Text = "0" Then MsgBox "シート計算用rangeD11セルの値が０になっています" & vbCrLf & "フォームを最小化します" & vbCrLf & "エラー個所を確認・修正したのち、再度実行してください" Application.Visible = True Unload Me UserForm8.Show vbModeless Exit Sub End If If Me.Label3.Caption = "" Then MsgBox "シート計算用rangeE11セルの値が０になっています" & vbCrLf & "フォームを最小化します" & vbCrLf & "エラー個所を確認・修正したのち、再度実行してください" Application.Visible = True Unload Me UserForm8.Show vbModeless Exit Sub End If Application.ScreenUpdating = True end sub
Visual Basic
