Excel VBA質問箱 IV

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

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


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

52047 / 76732

←次へ　｜　前へ→


	【29529】Re:ワークシート間の検索集計

ponpon - 05/10/6(木) 23:34 -


	引用なし

	パスワード

▼toki さん：
>▼ponpon さん：
>アドバイスありがとうございます。ひとつずつ追っかけてみたところ、やはりFor文が無限ループになっていました。
>myRの要素がなくなったらループは終わるかと思ったのですが、空白のままループしてしまうようです。
>そこで、
> If c.Value = "" Then
>　　Exit For
>を入れたところ、うまく抜けられました。

Set myR = .Range("C7", "C65536").SpecialCells(xlCellTypeVisible)
　　　　　　 ↓
Set myR = .Range("C7", .Range("C65536").End(xlUp).SpecialCells(xlCellTypeVisible)

としないとC65536までいくようです。（無限ではありませんが確認しました）
　myR.Selectと入れてみるとわかったと思います。

>ところで、点数のコピペのところなのですが、変数cを起点に、offsetをかけると、4月単月はよいのですが、5月以降も変数cを起点にすると
>4月のデータが張り付いてしまうことがわかりました。

>そこで、各月のC列から社員番号の行を拾いだして起点のセルを変数tenにSetしてＲｅｓｉｚｅしたところうまくいきました。
　↑
これをやっているつもりでしたが・・・・
仕様の全景が見えているわけではないので何ともいえませんが、
With Worksheets("5月")
　　Set myR = .Range("C7", .Range("C65536").End(xlUp).SpecialCells(xlCellTypeVisible)
　For Each c In myR
・・・・・・・・・
・・・・・・・・・
　Next

End With
となっていれば、そんなことにはならないと思いますし、
>変数cをオブジェクト（セル）として考えていたのですが
でよいと思います。
.Rangeの.の前は、何の省略なのか。親は何なのか？
With節の使い方に間違いがあるのかもしれません。

私がわかるのは、これだけです。
がんばってください。

0 hits

▼

【28969】ワークシート間の検索集計 toki 05/9/19(月) 23:13