Excel VBA質問箱 IV

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

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


32526 / 76734 ←次へ | 前へ→

【49444】Newキーワードの使用法について
質問  Lindy  - 07/6/5(火) 11:23 -

引用なし
パスワード
   VBAを独学で初めて1年程度、
ほとんどヘルプとオブジェクトブラウザと、ここの掲示板で
勉強させて頂いて色々と開発(もどき)してまいりましたが
ふと疑問に思い独自解決に至らないので識者の御意見を賜りたく
初めて質問させて頂きます。

当初、色々なプロシージャやファンクションで
いちいち With ThisWorkbook.Sheets("Sheet1") などとするのが面倒で

Public sh_i as Object
Public sh_p as Object

Private Sub Auto_Open()
 SheetnameSet
End Sub

Sub SheetnameSet()
 Set sh_i = ThisWorkbook.Sheets ("Sheet1")
 Set sh_p = ThisWorkbook.Sheets ("Sheet2")
End Sub

としていました。
で、勉強していくうちにNewキーワードというものを発見し

Public sh_i As New Sheet1
Public sh_p As New Sheet2

と、してみたら・・・うまく行ったのです

しかし、さらにシートを追加してやってみようとしたり
新しいブックで同じような事をしようとすると
「New キーワードの使用法が不正です。」とエラーメッセージが出ます。
また、シート名(ワークシートオブジェクト?)がオブジェクトブラウザでも出てこず、
同様に記述できません。

いったい何が違うのか、そもそも使い方が間違っているのか・・・
偶然出来てしまったが為に勘違いしているのか?

と、悩み果てて質問させて頂きました。
御教授よろしくお願い致します。
2 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 お礼

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