Excel VBA質問箱 IV

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

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


69993 / 76738 ←次へ | 前へ→

【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に書かれているシート名が存在しない(たとえば空白セルとか)とエラーになります。

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

0 hits

【11251】変数の指定方法について 初心者です 04/3/3(水) 21:23 質問
【11257】Re:変数の指定方法について かみちゃん 04/3/3(水) 22:22 回答
【11258】Re:変数の指定方法について アイエネス 04/3/3(水) 22:36 回答
【11259】Re:変数の指定方法について かみちゃん 04/3/3(水) 23:16 回答
【11297】ありがとうございます。 初心者です 04/3/4(木) 21:08 お礼

69993 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free