Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8418 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33414】with の使い方？ ケンケン 06/1/11(水) 15:31 質問[未読]
【33416】Re:with の使い方？ ガクガク 06/1/11(水) 15:51 回答[未読]
【33418】Re:with の使い方？ Statis 06/1/11(水) 16:12 発言[未読]
【33434】Re:with の使い方？ ケンケン 06/1/11(水) 23:43 お礼[未読]
【33414】with の使い方？
質問  ケンケン  - 06/1/11(水) 15:31 -
引用なし
パスワード
   私の書いているユーザーフォームのプログラムに

sub 〜〜
　 With workbooks("A.xls").worksheets("A")
　　　　〜〜
　 End with
End sub
sub 〜〜
　 With workbooks("A.xls").worksheets("A")
　　　　〜〜
　 End with
End sub
sub 〜〜
　 With workbooks("A.xls").worksheets("A")
　　　　〜〜
　 End with
End sub

といった具合に沢山workbooks("A.xls").worksheets("A")を参照させているのですが、ふと疑問に思ったのですが、

With workbooks("A.xls").worksheets("A")
　　　sub 〜〜　　 　　　
　　　End sub

　　　sub 〜〜　　 　　　
　　　End sub

　　　sub 〜〜　　 　　　
　　　End sub
End with

の形にする事は出来ないのでしょうか？？？
どなたかご教授下さいせ！
【33416】Re:with の使い方？
回答  ガクガク  - 06/1/11(水) 15:51 -
引用なし
パスワード
   残念ながら出来ません。
【33418】Re:with の使い方？
発言  Statis  - 06/1/11(水) 16:12 -
引用なし
パスワード
   こんにちは
もし私なら「Set ステートメント」を使います。
例：

’UserFormのモジュールの先頭にて宣言
Dim Sh As Worksheet

Private Sub UserForm_Initialize()
Set Sh = Workbooks("A.xls").Worksheets("A")
End Sub

Private Sub 〜()
Sh.Range("A1").Value=1
End Sub
【33434】Re:with の使い方？
お礼  ケンケン  - 06/1/11(水) 23:43 -
引用なし
パスワード
   有難うございます。

助かりました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8418 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free