エクセルマクロでインプットボックスを使い…

質問

エクセルのマクロでインプットボックスを使い、氏名を入力させ、
その入力された値を、別のブックにコピーする方法を教えてください。
VBAは初心者で、具体的なアドバイスがあると助かります。

Private Sub Workbook_Open()
Dim name As String
name = InputBox("名前を入力してください")
End Sub
ここまではできました。
このブックはc:\データ\個別入力です。
このあと、インプットボックスに入力された氏名をコピーし、
c:\データ\集計というファイルのシート1を開き
セルG5に値コピーをしたいのです。
できれば、インプットボックスに氏名を入力せずにキャンセルボタンが押されたり
閉じるボタンが押された場合には
「氏名を入力してください」と再度入力を促すようなメッセージが出ると大変感激です。

わかる方には簡単なんでしょうけど、
なにぶん初心者ですので…

どうぞよろしくお願いします。

回答No.1

GreatDragon · ベストアンサー

こんにちは。

Excel VBA をどれ位ご存知なのか分かりませんので
適当にヒントを書き込みします。

＞インプットボックスに氏名を入力せずにキャンセルボタンが押されたり
＞閉じるボタンが押された場合には
＞「氏名を入力してください」と再度入力を促すようなメッセージが出ると

キャンセルボタンや閉じるボタンをクリックした場合のInputBox 関数の戻り値は
長さ 0 桁の文字列ですから、例えば次のように記述します。

（例）
name = InputBox("名前を入力してください")
Do Until name <> ""
　　MsgBox "氏名を入力してください"
　　name = InputBox("名前を入力してください")
Loop

＞c:\データ\集計というファイルのシート1を開き

別のブックを開くには Workbooks コレクションを利用します。
開いたブックは通常、アクティブです。

（例）
Workbooks.Open "C:\データ\集計.xls"
Sheets("シート1").Select

以上ですが、お役に立てますか？

お礼

自己解決しました。ありがとうございました。