ユーザ定義関数がうまく動きません。

質問

ユーザ定義関数がうまく動きません。
2月のA1セル値が1になっていたりします。
どこがおかしいのかわかりません。解決方法を教えていただけませんでしょうか。
よろしくお願いします。

【シートの設定】
シート名は1月・・・12月です。
各シートの
A1セルは「=sheetname()」
B1セルは「月のチェックシート」
が入っています。

【VBAの設定】
Function SheetName() As String
'Application.Volatile
If Len(ActiveSheet.Name) = 3 Then
SheetName = Left(ActiveSheet.Name, 2)
Else
SheetName = Left(ActiveSheet.Name, 1)
End If
End Function

回答No.2

kybo · ベストアンサー

「ActiveSheet」になっているからです。
「=sheetname()」が各シートのA1に入力されてあったら、関数が更新されるたびにすべてのシートの「=sheetname()」の答えは、アクティブでないシートの答えもアクティブなシート名から答えを出すので当然です。

どこかセルを参照するようにした方がよいです。
「=sheetname(B1)」のように入力します。

Function SheetName(C As Range) As String
Application.Volatile
If Len(C.Parent.Name) = 3 Then
SheetName = Left(C.Parent.Name, 2)
Else
SheetName = Left(C.Parent.Name, 1)
End If
End Function

お礼

ばっちりです！ありがとうございます！

回答No.3

hallo-2007

既に回答がでていましたので
一般関数を使ってみました。
=MID(CELL("filename",C1),FIND("]",CELL("filename",C1))+1,FIND("月",CELL("filename",C1))-FIND("]",CELL("filename",C1))-1)
の関数をセルに入れておいて、シート名を色々と変更してみてください。
関数の更新も簡単でしょう。

お礼

回答ありがとうございます！
これもいいですね。勉強になりました。

回答No.1

tadagenji

ＶＢＡを実行しているのは、SHEET１ですね。
だから　変数sheetnameには１が入っていますよ。
どの時点で、２や３に替えるのですか？

ＶＢＡを使わずに単純にsheet１！Ａ１に入れた数値から＋１づつしたらいいのでは。

お礼

回答ありがとうございます。
そうですね。確かに+1ずつしていけばすみますね。

各シート（1月～12月）に同じ式を貼り付けたかったので、
ユーザ定義関数でどうにかならないものか考えていました。

これも勉強になりました。
また機会がありましたら、よろしくお願いします。