Excel VBA質問箱 IV

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

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


32494 / 76734 ←次へ | 前へ→

【49476】Re:Newキーワードの使用法について 追伸
お礼  Lindy  - 07/6/6(水) 9:32 -

引用なし
パスワード
   ▼ichinose さん:
おはようございます。

すばらしい・・・感服致しました。
一種のバグのような現象だったのですね。

ちなみに私の現在の環境はExcel2003 SP2 です
別場所でも一旦モジュールの変更を行い保存しました。
そちらの環境は覚えておりませんが^^;

>標準モジュールに
>'======================================================
>Sub main()
>  Dim sht1 As Object
>  Dim sht11 As Object
>  Dim sht111 As Object
   Set sht11 = Worksheets("sheet1") 'ここと
  Set sht111 = Worksheets("sheet1") 'ここはインデックスが見つかりませんエラー
>  Set sht1 = New Sheet1
>  MsgBox sht1 Is sht11
>  MsgBox sht11 Is sht111
>End Sub
>
>というコードを実行してみてください。

現在、Public sht As New Sheet1 が正常動作しているブックにて
上記のモジュールを実効しましたが、表記のとおりの場所でエラーとなります。
先にPublic宣言でSheet1のインスタンスを生成してしまっているためのエラーでしょうか?

いずれにしても・・・
・一種のバグであること。
・偶然、そのバグが起こり得る環境で開発してしまった事。
・そもそも「普通そんな使い方はしない」(苦笑)
と、言う事がハッキリと認識できました。

私ごとき素人がこのような間違いを実際に犯しているのですから
今後、同様な方が現れるかもしれません。

恥は私だけで終わるように参考にして頂ければと思います。
本当にありがとうございました。

8 hits

【49444】Newキーワードの使用法について Lindy 07/6/5(火) 11:23 質問
【49445】Re:Newキーワードの使用法について ハチ 07/6/5(火) 12:34 発言
【49446】Re:Newキーワードの使用法について Lindy 07/6/5(火) 13:19 お礼
【49447】Re:Newキーワードの使用法について Lindy 07/6/5(火) 14:13 質問
【49448】Re:Newキーワードの使用法について neptune 07/6/5(火) 14:16 回答
【49450】Re:Newキーワードの使用法について Lindy 07/6/5(火) 14:34 お礼
【49458】Re:Newキーワードの使用法について Kein 07/6/5(火) 18:02 発言
【49478】Re:Newキーワードの使用法について Lindy 07/6/6(水) 9:41 お礼
【49449】Re:Newキーワードの使用法について neptune 07/6/5(火) 14:18 発言
【49467】Re:Newキーワードの使用法について ichinose 07/6/5(火) 22:07 発言
【49474】Re:Newキーワードの使用法について 追伸 ichinose 07/6/6(水) 7:09 発言
【49476】Re:Newキーワードの使用法について 追伸 Lindy 07/6/6(水) 9:32 お礼
【49479】Re:Newキーワードの使用法について 追伸 Lindy 07/6/6(水) 9:54 発言
【49484】Re:Newキーワードの使用法について 追伸 neptune 07/6/6(水) 11:22 発言
【49486】Re:Newキーワードの使用法について 追伸 neptune 07/6/6(水) 11:39 発言
【49487】Re:Newキーワードの使用法について 追伸 Lindy 07/6/6(水) 11:56 お礼
【49490】Re:Newキーワードの使用法について 追伸 Lindy 07/6/6(水) 13:37 お礼
【49492】Re:Newキーワードの使用法について 追伸 Lindy 07/6/6(水) 14:28 お礼
【49498】Re:Newキーワードの使用法について 追伸 ichinose 07/6/7(木) 7:33 発言
【49500】Re:Newキーワードの使用法について 追伸 Lindy 07/6/7(木) 9:20 お礼

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