0

VBA サブルーチンに次のコードを入力しました。 

Sub copy2sheet()
Dim wkSht As Worksheet    
    For Each wkSht In Sheets
        If IsNumeric(wkShrt.Name) Then
            Worksheets("Anleitung").Range("A1") = "a"
        Else
            Worksheets("Anleitung").Range("B1") = "a"
        End If
    Next
End Sub

数字の名前を持つシートのみを使用して、次のプロセスに進む必要があります (それらはすべて「yymmdd」の形式です)。ただし、実行すると 424 ランタイム エラーが発生します。

何か案は？

ありがとう！

4

1 に答える 1

4

4行目にタイプミスがあり、次のようになりError 424 Object Requiredます：

If IsNumeric(wkShrt.Name) Then

する必要があります

If IsNumeric(wkSht.Name) Then
于 2013-07-24T15:40:50.217 に答える