Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7167 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【40760】教えてください 初心者です 06/7/23(日) 12:09 質問[未読]
【40766】Re:教えてください Kein 06/7/23(日) 14:53 発言[未読]
【40770】ありがとうございました 初心者です 06/7/23(日) 19:26 お礼[未読]
【40775】Re:ありがとうございました Kein 06/7/24(月) 0:30 発言[未読]
【40760】教えてください
質問  初心者です  - 06/7/23(日) 12:09 -
引用なし
パスワード
   同僚転勤に伴い引き継いだマクロなんですけど、動かすと以下の部分でとまってしまします。

以下のマクロはどうゆう意味か？
またどう対処すればいいか教えてください。

a=0

d=7
Do Until Workbooks("集計.xls"）.Worksheets（"data").Cells(d,1)＝ Workbooks(file(a)).Worksheets(sheet(a)).Cells(6,2)
d=d+1
Loop
【40766】Re:教えてください
発言  Kein  - 06/7/23(日) 14:53 -
引用なし
パスワード
   >file(a)
というところは、file という配列がないと意味がなくなりますね・・。あと
>Worksheets(sheet(a))
は、おかしいです。明確なシート名が分からないので確実な回答にはならない
かも知れませんが、少なくともここは

Worksheets("sheet" & a)

などとしないといけません。
とにかく部分的なコードだけでは回答が難しいので、できれば全文を提示
してみて下さい。
【40770】ありがとうございました
お礼  初心者です  - 06/7/23(日) 19:26 -
引用なし
パスワード
   ちなみに一番上に

Dim file As Variant
Dim sheets As variant
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer

とあります。
このVariantとはどうゆう意味なんでしょうか？
【40775】Re:ありがとうございました
発言  Kein  - 06/7/24(月) 0:30 -
引用なし
パスワード
   >Variantとはどうゆう意味
中身の型を問わない、ナンでもOKという型です。
なので、よく配列を入れる変数に使います。どこかに

file = Array("Book1", "Book2", "Book3")

などと、静的配列を作っているコードがありませんか ?
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7167 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free