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 質問
【28972】Re:ワークシート間の検索集計 Statis 05/9/20(火) 9:09 回答
【28996】Re:ワークシート間の検索集計 toki 05/9/20(火) 21:45 お礼
【28995】Re:ワークシート間の検索集計 ponpon 05/9/20(火) 19:25 発言
【28997】Re:ワークシート間の検索集計 toki 05/9/20(火) 21:46 質問
【29000】Re:ワークシート間の検索集計 ponpon 05/9/20(火) 22:52 発言
【29002】Re:ワークシート間の検索集計 toki 05/9/21(水) 7:19 お礼
【29035】Re:ワークシート間の検索集計 ponpon 05/9/22(木) 2:46 発言
【29052】Re:ワークシート間の検索集計 toki 05/9/22(木) 15:21 お礼
【29086】Re:ワークシート間の検索集計 toki 05/9/23(金) 16:56 お礼
【29091】Re:ワークシート間の検索集計 ponpon 05/9/23(金) 21:05 発言
【29096】Re:ワークシート間の検索集計 toki 05/9/23(金) 22:03 質問
【29097】Re:ワークシート間の検索集計 ponpon 05/9/24(土) 0:23 発言
【29099】Re:ワークシート間の検索集計 toki 05/9/24(土) 12:46 お礼
【29104】Re:ワークシート間の検索集計 ponpon 05/9/24(土) 21:40 発言
【29106】Re:ワークシート間の検索集計 toki 05/9/24(土) 23:14 お礼
【29108】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 5:49 発言
【29109】Re:ワークシート間の検索集計 toki 05/9/25(日) 8:27 お礼
【29122】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 16:50 発言
【29126】Re:ワークシート間の検索集計 toki 05/9/25(日) 19:45 質問
【29128】Re:ワークシート間の検索集計 ponpon 05/9/25(日) 21:41 発言
【29188】Re:ワークシート間の検索集計 toki 05/9/27(火) 12:01 質問
【29199】Re:ワークシート間の検索集計 toki 05/9/27(火) 14:21 お礼
【29437】Re:ワークシート間の検索集計 toki 05/10/4(火) 23:08 質問
【29448】Re:ワークシート間の検索集計 Jaka 05/10/5(水) 13:16 発言≪
【29454】Re:ワークシート間の検索集計 ponpon 05/10/5(水) 18:34 発言
【29463】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:21 質問
【29467】Re:ワークシート間の検索集計 ponpon 05/10/5(水) 22:55 発言
【29526】Re:ワークシート間の検索集計 toki 05/10/6(木) 21:57 お礼
【29529】Re:ワークシート間の検索集計 ponpon 05/10/6(木) 23:34 発言
【29461】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:08 質問
【29462】Re:ワークシート間の検索集計 toki 05/10/5(水) 22:12 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
52125 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free