Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5033 / 76735 ←次へ | 前へ→

【77316】実行時エラー91について
質問  ぴょん  - 15/7/5(日) 17:27 -

引用なし
パスワード
   ”実行時エラー:91 オブジェクト変数またはWithブロック変数が設定されていません”が出る時があります。

・オブジェクト型変数はプロジェクト内で共通参照できるように、Publicで宣言。
ブックオープン時に1回だけSetを実施。
・ワークシート2に2つあるボタン(チェックボックスの作成、削除)を、交互に動かすと早い時は1往復くらいで、たまに3往復目くらいまで行く時がありますが上記エラーになってしまいます。
(エラーが発生する回数、エラーが発生する場所とも不特定。場所はいずれもWsを参照している箇所ですが、複数個所あります)

何か解放漏れとかですか?

ちなみに、Workbook_BeforeClose時に、Set Wb = Nothing、Set Ws1 = Nothing、Set Ws2 = Nothingはしてます。

力不足のため、ご教授のほどよろしくお願いします。

■標準モジュール
Public Wb As Workbook       'ワークブック
Public Ws1 As Worksheet       'ワークシート
Public Ws2 As Worksheet       'ワークシート

■ワークブックプロシージャ
Private Sub Workbook_Open()

  Set Wb = Workbooks("Book.xlsm")
  Set Ws1 = Wb.Worksheets("Sheet1")
  Set Ws2 = Wb.Worksheets("Sheet2")

  Ws1.Cells(1, 1).Value
  Ws2.Cells(1, 1).Value

End Sub

■ワークシート2
Private Sub チェックボックス作成_Click()
  For CheckBoxIndex = 1 To XX
    
    'チェックボックスを作成する
    With Ws2.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, DisplayAsIcon:=False)
      .Object.Caption = Ws2.Cells(省略)
      以下省略
    End With
    
  Next CheckBoxIndex

End Sub

Private Sub チェックボックス削除_Click()

  For Each tCtrl In Ws2.Shapes
    
    If Left(tCtrl.Name, 8) = "CheckBox" Then
      Ws2.Shapes(tCtrl.Name).Delete
    End If
  
  Next

End Sub
0 hits

【77316】実行時エラー91について ぴょん 15/7/5(日) 17:27 質問[未読]
【77317】Re:実行時エラー91について β 15/7/5(日) 18:03 発言[未読]
【77318】Re:実行時エラー91について β 15/7/5(日) 19:26 発言[未読]
【77319】Re:実行時エラー91について ichinose 15/7/5(日) 19:51 発言[未読]
【77321】Re:実行時エラー91について ぴょん 15/7/5(日) 22:29 発言[未読]
【77325】Re:実行時エラー91について ichinose 15/7/5(日) 23:18 発言[未読]
【77320】Re:実行時エラー91について β 15/7/5(日) 20:56 発言[未読]
【77322】Re:実行時エラー91について ichinose 15/7/5(日) 22:31 発言[未読]
【77323】Re:実行時エラー91について ぴょん 15/7/5(日) 22:34 発言[未読]
【77324】Re:実行時エラー91について β 15/7/5(日) 23:18 発言[未読]
【77326】Re:実行時エラー91について β 15/7/5(日) 23:26 発言[未読]
【77327】Re:実行時エラー91について ぴょん 15/7/6(月) 20:29 質問[未読]

5033 / 76735 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free