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で質問しましょう!

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

  • 縦書きと横書きはどちらが読みやすい?

    普段何気なく読んでいる文章ですが、縦書きか横書きか、意識したことはありますか?制作側としては読み手はどちらの方が読みやすいと思うかはとても大きな問題です。教えて!gooには、 「『横書き』と『縦書き』、...

  • 昭和の日ってどういう日?

    ゴールデンウィーク初日の4月29日は「昭和の日」です。今や平成生まれの人も多い時代ですが、「なぜ昭和の日があるの?」という疑問をもったことはありませんか?和暦を挙げるのなら、大正の日、明治の日、平成の日...

  • Excelの意外な使い方とは?

    会社のパソコンに必ず入っている、と言っても過言ではない、Office系ソフトの「Word」と「Excel」。PCを使う職場にいた方なら、一度は触ったことがあるかと思います。Wordは仕事以外に使う方法がすぐ浮かびそうです...

  • 男のタイツ、許せる?許せない?

    身を切る寒風が体の芯まで冷え込ませる冬。女性は裏起毛や発熱性のあるインナーやタイツで少しでも寒さを凌ごうとするものだ。では、男性はどうなのだろうか。「教えて!goo」を調べてみたところ、「なぜ寒い時に男...

  • 【知らないだけで損をする】自然災害が起こった時の相続税と贈与税

    鳥取地震からもう2ヶ月が経とうとしてる。地震の被害に遭われた地域や人々のいち早い日常の回帰を願っている。地震を始めとした自然災害の被害は、時として私達の想定を超えるものとなる。いろいろなものが破損・散...

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

お題をもっとみる

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


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

おすすめ情報

カテゴリ