Excel VBA質問箱 IV

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

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


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

69988 / 76733

←次へ　｜　前へ→


	【11258】Re:変数の指定方法について

アイエネス - 04/3/3(水) 22:36 -


	引用なし

	パスワード

ちなみに、正しくは

Sub 転記()

For i = 2 To 1179 Step 11
sheetname = Worksheets("氏名一覧").Cells((i - 2) / 11 + 1, 1)
With Worksheets(sheetname)
　.Range("c3") = "=集計!b" & i
　.Range("d10") = "=集計!e" & i + 1
　.Range("e10") = "=集計!g" & i + 1
　.Range("g10") = "=集計!k" & i + 1
　.Range("h10") = "=集計!p" & i + 1
End With
Next i

End Sub

こういうコードですだと思います。
「nextの後にi」と「stepの後ろにスペース」です。
まぁ、ただの写し間違いかとは思いますが。

>このコードだと氏名一覧シートのA1～A108に書かれているシート名が存在しない（たとえば空白セルとか）とエラーになります。

シート名または氏名一覧シートの名前の前後どちらかにスペースが含まれていたりしないですか？
シート名にスペースが入っているとタブの大きさが違うので一目でわかりますが、セル内のデータは後ろにスペースが入っていると見ただけではわからないので要注意です。

1 hits

▼

【11251】変数の指定方法について 初心者です 04/3/3(水) 21:23