| |
何が原因でエラーになっているのかが分かりません。
皆様のお力添えを貸してください。
「資料作成.xls」を開いて
単価を自動計算しシート名を日付"yyyymmdd"へ変更するvbaマクロの作成します。
僕は下記のコードを作成しました。
Sub Macro5()
'
Macro5 Macro
'
Workbooks.Open Filename:= _
"S:\Documents and Settings\administrator\デスクトップ\資料作成.xls"
Dim intDataCnt As Long
intDataCnt = 2
Do While Range("B" & intDataCnt).Value <> ""
If Range("C" & intDataCnt).Value <> "" Then
Range("D" & intDataCnt).Formula = Range("E" & intDataCnt).Value / Range("C" & intDataCnt).Value
End If
intDataCnt = intDataCnt + 1
Loop
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.NumberFormatLocal = "yyyymmdd"
★Sheets("Sheet1").Select
Sheets("Sheet1").Name = Format(Date, "yyyymmdd")
End Sub
「★Sheets("Sheet1").Select
Sheets("Sheet1").Name = Format(Date, "yyyymmdd")」
この部分でエラーになり
「実行時エラー'9' インデックスが有効ではありません」
と出てきます。
Sheetの名前は「Sheet1」となっているのにこのようなエラーになってしまうのはなぜなんでしょう。
＜補足＞数量はC列、単価はD列、合価はE列、すべて2行目から入力します。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
