Excel VBA質問箱 IV

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

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


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

52125 / 76732

←次へ　｜　前へ→


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

Jaka - 05/10/5(水) 13:16 -


	引用なし

	パスワード

Set myR = .Range("C7", "C65536").SpecialCells(xlCellTypeVisible)
これで抽出セルをセットしているのですから、この後のMatch関数による検索は2度手間になります。
myRをループして回せば良いです。
あまし良く見てないので、違ってたらすみません。

　　'点数集計
　　'****************************************
　　'職務によるオートフィルター絞込み
　　'****************************************
　　With Worksheets("4月")
　　　　'4月A列に職務によるオートフィルターをかける
　　　　.Range("A6", "A65536").AutoFilter field:=1, Criteria1:=sentakuI
　　　　'抽出されたC列をmyRに格納
　　　　Set myR = .Range("C7", "C65536").SpecialCells(xlCellTypeVisible)

　　　　'C列を上から順に（C＝社員番号）
　　　　For Each c In myR
　　　　　　myten1 = c.Offset(0, 0).Resize(1, 5).Value 'はじめの５つ
　　　　　　myten2 = c.Offset(0, 5).Resize(1, 5).Value '次の５つ
　　　　　　mycomiT = c.Offset(0, -1).Value 'コミット取り出し
　　　　　　'人事評価シートへ
　　　　　　With Worksheets("人事評価シート")
　　　　　　　　.Cells(9, 2).Value = mycomiT 'コミット貼り付け
　　　　　　　　.Cells(13, 2).Resize(5, 1).Value = Application.Transpose(myten1)
　　　　　　　　.Cells(19, 2).Resize(5, 1).Value = Application.Transpose(myten2)
　　　　　　End With

　　　　　　'オートフィルターの解除
　　　　　　Worksheets("4月").AutoFilterMode = False
　　　　　　'プリントアウト
　　　　　　Worksheets("人事評価シート").PrintOut
　　　　　　DoEvents
　　　　Next
　　End With

0 hits

▼

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