Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10335 / 76807

←次へ　｜　前へ→


	【72022】実行時エラー'9'　インデックスが有効ではありません

kazu - 12/5/17(木) 9:39 -


	引用なし

	パスワード

何が原因でエラーになっているのかが分かりません。
皆様のお力添えを貸してください。

「資料作成.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行目から入力します。

2 hits

▼

【72022】実行時エラー'9'　インデックスが有効ではありません kazu 12/5/17(木) 9:39

≪