- 14 名前：デフォルトの名無しさん mailto:sage [2019/04/27(土) 12:20:27.60 ID:S53FxUuZ0.net]
- Sheet1, Sheet2, Sheet3 がある状態で
A1 =fnEnumSheetName() と入力すると
A1 シート名一覧
A2 Sheet1
A3 Sheet2
A4 Sheet3
と表示されるようにしたいのですが
A1に#VALUE!と表示されDebug.PrintがSheet1しか表示しません
期待通りにするにはどう修正すればいいですか？
For文3行目のコメントアウトを外すとDebug.PrintとA1の表示は期待通りです
'シート名列挙
Public Function fnEnumSheetName() As String
Dim iIndex As Integer
For iIndex = 1 To Worksheets.Count
Debug.Print Worksheets(iIndex).Name
' ActiveCell.Offset(iIndex, 0).Value = Worksheets(iIndex).Name
Next iIndex
fnEnumSheetName = "シート名一覧"
End Function
|
 |
