|
村長 さん、こんにちわ。
アドインを作成する場合、組み込まれたままエクセルを起動したときにエラーになるので、ちょっと修正。
↓標準モジュールへ
Function AAAAA() As String
'関数の挿入ダイアログで、全て表示にしたときに一番上になる名前
AAAAA = Format(Date, "ggge年m月d日")
End Function
↓Thisworkbookへ
Private Sub Workbook_Open()
With Application
If .Workbooks.Count = 0 Then .Workbooks.Add 'エラー回避のため
'関数の挿入ダイアログに新しいカテゴリで追加
.MacroOptions Macro:=.ThisWorkbook.Name & "!AAAAA", _
Description:="今日の日付を和暦文字列で返します", _
Category:="自作関数なのよ", _
HelpFile:=.ThisWorkbook.Path & .PathSeparator & "Project1.hlp"
End With
End Sub
アドインと同じフォルダにヘルプファイルを入れておけば、ちゃんと表示されました。
|
|