VBA：ワークシート名の変数格納

ユーザーフォームを使用して、ワークシート名を表示しまして、選択したワークシート名を変数に収めて、Workshees(変数）みたいな感じで処理の対象にしていきたいと考えています。
何が適切な方法かわからない状態です。　もしよろしければコードも教えてください。よろしくお願いします。

No.1 ベストアンサー 回答者： onlyrom 回答日時： 2008/04/20 13:49

＞ユーザーフォームを使用して、ワークシート名を表示しまして、選択したワークシート名を変数に収めて

どこに表示したシート名を選択するのかが定かではないのでなんですが、
選択とあるので、ComboBoxかListBoxでしょうから。
　
'-------------------------------------------------

　　Dim mySheet

'コンボボックスの場合

　　mySheet = ComboBox1.List(ComboBox1.ListIndex)

'リストボックスの場合

　　mySheet = ListBox1.List(ListBox1.ListIndex)

'選択したシートのセルＢ７に"７７７"を代入する

　　Sheets(mySheet).Range("B7").Value = 777

'-----------------------------------------------

以上。
　

この回答へのお礼

ありがとうございました。
お蔭様で解決しました。

お礼日時：2008/04/21 22:46