Function LoginName() As String
LoginName = CreateObject("WScript.Network").UserName
End Function

上記の内容をエクセル起動に実行されるようにしたいのですが
Auto_Openの記述方法が分からないので教えて下さい

A 回答 (2件)

LoginName 関数を Workbook_Openイベントプロシジャに書きたいということですか?百歩譲っても Workbook_Open イベントプロシジャに書くのは、LoginName関数を呼び出して、それを表示する等の命令ではないでしょうか?



ブックを開いたときに、ユーザ名を表示するような場合は、こんな感じになります。
Workbook_Openイベントプロシジャを書く場所は、ThisWorkbookの下です。

Private Sub Workbook_Open()
MsgBox LoginName
End Sub

Function LoginName() As String
LoginName = CreateObject("WScript.Network").UserName
End Function
    • good
    • 1
この回答へのお礼

ご回答ありがとうございます。

お礼日時:2016/02/15 17:16

Auto_Openの記述は、以下通りです。


Function LoginName() As String
Public Sub Auto_Open()
 ここに本文を書く
End Sub
    • good
    • 1
この回答へのお礼

ご回答ありがとうございます。

本文を書くに「LoginName = CreateObject("WScript.Network").UserName」を
記述して実行すると下記のエラーがでます。何が悪いのでしょうか?

代入式の左辺の関数呼び出しは、バリアント型またはオブジェクト型の値を返さなければなりません。

お礼日時:2016/02/14 19:32

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

今、見られている記事はコレ!

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード

コンピュータやスピーカーなどのオーディオ、スマートフォンをはじめとした携帯電話とそのサービスに関する質問が充実。急なトラブルの対策案もここで得られるかもしれません。

このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ