シート名が「8月」のひと月前のシート名は「7月」だとすると
アクティブシートの名前から一月前のシート名を求めるユーザー関数を作成しています

以下では上手くワークシートでは作動しません。
どう変更すれば良いでしょうか　？

Option Explicit

Function BeforSheet()
Dim AsName As String
Dim BsName As String

AsName = ActiveSheet.Name
BsName = Left(AsName, 1) - 1
BsName = BsName & "月"

End Function

---- windows11, Office 2021 ------

すいません。

以下に訂正します


Function BeforSheet()
Dim AsName As String
Dim BsName As String

AsName = ActiveSheet.Name
BsName = Left(AsName, 1) - 1
BeforSheet = BsName & "月"

End Function

無理やり案です。

Sub test()
 Dim WsNameA As String
 Dim WsNameb As String
   WsNameA = "1月"
   WsNameb = Format(DateSerial(Year(Date), Replace(WsNameA, "月", "") * 1 - 1, 1), "m月")
   MsgBox WsNameb
End Sub

無理やりではない案です。

Sub test()
 Dim wsA As String
 Dim wsB As String
  wsA = "1月"
  wsB = BeforSheet(wsA)
  MsgBox wsB
End Sub

Function BeforSheet(ByVal wsName As String) As String
 Dim tuki As Integer
  tuki = Replace(wsName, "月", "") - 1
  If tuki = 0 Then tuki = 12
  BeforSheet = tuki & "月"
End Function

MKさん、アドバイスありがとうございます。

月が10-12月の場合、Leftで１個を取り出す案は採用出来ないですね。

コードを修正しました。

セレクトシート（アクティブシート）でユーザー関数(BeforeWsName)を利用したいので
コード中に「 ActiveSheet.Name」を必ず含めたいと思います。
この場合は、ユーザー関数(BeforeWsName)の引数が必要ないので
ユーザー関数としてワークシート上で利用する場合は、
BeforeWsName()と入力することになると思いますが違っていますか　？

　　ｗｓさんは�Asubからfunctionを呼び出すのを想定していますが
　　私は、ワークシート上で利用する事を想定しています。


もう一つ疑問点があります。

シート名の月以外の数値部（1-12）は全て全角ですが
修正後のコードで問題ないでしょうか　？



Function BeforeWsName()
      Dim WsNameActive As String
      Dim WsNameBefore As String
     
      WsNameActive = ActiveSheet.Name
     
      WsNameBefore = Left(WsNameActive, Len(WsNameActive) - 1) - 1
      If WsNameBefore <> 0 Then
            BeforeWsName = WsNameBefore & "月"
      Else
            BeforeWsName = 12 & "月"
      End If
     

すいません。
前回の書き込みで文字化けがありました。
以下に訂正します


wsさんは�Asubからfunctionを呼び出すのを想定していますが

↓で試した限りは問題ないようです。月の数字部分が全角でも半角でも前の月を取得してくれました。
返ってくるのは半角数字+「月」ですけど。

Sub test()
 Call BeforeWsName
End Sub

Function BeforeWsName()
      Dim WsNameActive As String
      Dim WsNameBefore As String
     
      WsNameActive = ActiveSheet.Name
     
      WsNameBefore = Left(WsNameActive, Len(WsNameActive) - 1) - 1
      If WsNameBefore <> 0 Then
            BeforeWsName = WsNameBefore & "月"
      Else
            BeforeWsName = 12 & "月"
      End If
     MsgBox BeforeWsName
End Function

2021ではTEXTAFTERが使用できませんでした。

=LET(
    p,CELL("filename"),
    sn,RIGHT(p,LEN(p)-FIND("]",p)),
    JIS(TEXT(EDATE(sn&"1日",-1),"m月"))
)

未解決なんですか？

Function preWsName()
    Dim temp
    temp = Application.Caller.Worksheet.Name
    temp = Replace(temp, "月", "") + 10
    preWsName = StrConv((temp Mod 12) + 1, vbWide) & "月"
End Function


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞コード中に「 ActiveSheet.Name」を必ず含めたいと思います。

ところで、その方針って大丈夫なんですか？
他のシートに入れたのも同じ月に変わる気がするんですが。