Function内でシート名取得

投稿者 : y     投稿日時 : 2024/11/26(Tue) 17:05:38     OS : Windows 11     EXCEL : Excel 2021

---

Private sub内でワークシートをループしデータを配列に取り込むのですが、
Private Functionでエラーが発生した際に、ループしているワークシート名もメッセージに表示させたいのですが、可能でしょうか？
Private Functionでなく、Private sub内で全てを行うように変更する必要がありますか？
====================
Private Sub Button1_Click()

'ワークシート分ループ
For Each ws In wb.Worksheets
　　・
　　・ 
　　・
      '配列に記入内容取込
      arr(1) = ws.Cells(wrow, i).Value
      arr(2) = ret_ope(ws.Cells(wrow + 1, i).Value)
      arr(3) = ws.Cells(wrow + 1, i).Value

Next
　　・
　　・ 
　　・

End Sub

Private Function ret_ope(ope_name) As String

Dim tmpope As String

    Select Case True
        Case ope_name Like "*(D)*"
            tmpope = "Discharge"
        Case Else
            MsgBox "判定エラー。処理を終了します。【" & ope_name & "】"
            End
    End Select

ret_ope = tmpope

End Function

投稿者 : ごんぼほり     投稿日時 : 2024/11/26(Tue) 17:35:38

---

これでわかりますか？

Sub sample()
  ret_ope Worksheets(1).Range("A1")
End Sub

Private Function ret_ope(ope_name_cell As Range) As String
  Dim ope_name As String
  ope_name = ope_name_cell.Value
  MsgBox ope_name_cell.Parent.Name
End Function

投稿者 : y     投稿日時 : 2024/11/27(Wed) 11:14:06

---

■[返信 1] ごんぼほりさん（2024-11-26 17:35:38）の記事

ご教授ありがとうございます！
無事エラー処理できました！