Excel VBA質問箱 IV

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

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


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

10256 / 76734

←次へ　｜　前へ→


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

Abebobo - 12/5/17(木) 14:57 -


	引用なし

	パスワード

ブックをいっぱい開くと、どのブックのどのシートとはっきりさせておかないと
>自分でも訳が分かりません。。。
となりやすいです。私もしょっちゅうです。

Sub Macro5()

Dim My_Wb　　　 As Workbook
Dim Data_Wb　　 As Workbook
Dim intDataCnt　As Long

Set My_Wb = ThisWorkbook
Set Data_Wb = Workbooks.Open(Filename:= _
　　　　"S:\Documents and Settings\administrator\デスクトップ\資料作成.xls")

intDataCnt = 2

With Data_Wb.Sheets("何ですか？")

　Do While .Range("B" & intDataCnt).Value <> ""
　
　　If .Sheets("何ですか？").Range("C" & intDataCnt).Value <> "" Then
　　　　　.Range("D" & intDataCnt).Formula = .Range("E" & intDataCnt).Value / Range("C" & intDataCnt).Value
　　End If

　　intDataCnt = intDataCnt + 1
　　
　 Loop
　
End With

'ここからはマクロが書いてあるブックなのかなぁ？
'なら、
My_Wb.Activate

ActiveCell.FormulaR1C1 = "=TODAY()"
　　Selection.NumberFormatLocal = "yyyymmdd"
　　
　
My_Wb.Sheets("Sheet1").Select
　　Sheets("Sheet1").Name = Format(Date, "yyyymmdd")
　　
　　
End Sub

まだ、いろいろ直したほう良いかもしてませんが、取り急ぎ

7 hits

▼

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