Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
27370 / 76738 ←次へ　｜　前へ→
【54690】Re:オブジェクトを選択状態でmsgbox表示
発言  VBWASURETA  - 08/3/26(水) 12:56 -
引用なし
パスワード
   ▼ichinose さん：
ちょっとデバッグして見ました。

理由が一部わかったのですが、
> Private sobj() As Object

がNothingになるタイミングがあるようです。
後、次の図形_Clickメソッドを呼びながら削除_Click()
を呼び出していたのでどうも歯抜けになったようですね。
多分これが原因ですね。すみません。

因みにそいう感じになったので、

Function get_sobj() As Object
　　Set get_sobj = Nothing
　　If sidx <= UBound(sobj()) Then
　　　　Set get_sobj = sobj(sidx)
　　　　sidx = sidx + 1
　　Else
　　　　sidx = 1
　　End If
End Function

という感じに添え字クリアする部分入れてできるようになりました＾＾；
なので、環境ではなかったみたいです。すみません・・・
0 hits
▼ 【54635】オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 10:31 質問
【54638】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 11:00 発言
【54639】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:04 発言
【54643】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 11:33 発言
【54646】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:51 発言
【54655】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 14:51 発言
【54657】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 14:57 お礼
【54660】Re:オブジェクトを選択状態でmsgbox表示 Jaka 08/3/25(火) 15:47 発言
【54683】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 9:14 発言
【54686】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 10:30 発言
【54688】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 12:02 発言
【54689】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 12:38 発言
【54690】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/26(水) 12:56 発言≪
【54701】Re:オブジェクトを選択状態でmsgbox表示 ichinose 08/3/26(水) 17:32 発言
【54640】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:06 発言
【54644】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:34 発言
【54645】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:47 発言
【54647】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 11:53 発言
【54648】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 11:57 発言
【54649】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 12:01 発言
【54650】Re:オブジェクトを選択状態でmsgbox表示 ひげくま 08/3/25(火) 12:01 お礼
【54651】Re:オブジェクトを選択状態でmsgbox表示 VBWASURETA 08/3/25(火) 12:42 発言
【54682】Re:オブジェクトを選択状態でmsgbox表示 再... ichinose 08/3/26(水) 7:07 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
27370 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free