Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8653 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【31957】条件に当てはまるものを転記したい おーちゃん 05/12/2(金) 22:27 質問[未読]
【31958】Re:条件に当てはまるものを転記したい ponpon 05/12/2(金) 22:35 発言[未読]
【31961】Re:条件に当てはまるものを転記したい ぽんかん 05/12/2(金) 23:13 回答[未読]
【31976】Re:条件に当てはまるものを転記したい Kein 05/12/3(土) 13:19 回答[未読]
【32036】Re:条件に当てはまるものを転記したい おーちゃん 05/12/5(月) 7:11 お礼[未読]
【31957】条件に当てはまるものを転記したい
質問  おーちゃん  - 05/12/2(金) 22:27 -
引用なし
パスワード
   氏名　国語　社会　理科　合計
石川　９３　５２　８７　２３２
田中　３２　６５　６４　１６１
鈴木　７０　７５　７３　２１８
木村　３０　４０　３０　１００

上記のようなデーターがあったとします。VBAで合計が２００以上のもの
だけを選びだして別シートへ転記したいのですが、どうしてもその方法が
わかりませんどなたかわかる方アドバイスをおねがいします。
【31958】Re:条件に当てはまるものを転記したい
発言  ponpon  - 05/12/2(金) 22:35 -
引用なし
パスワード
   こんばんは。
オートフィルターで抽出し、コピペ
これをマクロの記録でやれば、基本のコードができます。

オートフィルターで検索するとたくさんヒットすると思います。
【31961】Re:条件に当てはまるものを転記したい
回答  ぽんかん  - 05/12/2(金) 23:13 -
引用なし
パスワード
   ▼おーちゃん さん：

今晩は。
こんな感じか？っと思って作りました。試してみてください。
シート１に元原稿がありシート２に２００点以上の列を貼り付けています。

Sub test()

Dim R As Range
Dim myR As Range

Set myR = Range(Range("E2"), Cells(65536, 5).End(xlUp))

For Each R In myR
If R.Value >= 200 Then
Range(R.Offset(, -4), R).Copy Destination:=Sheets(2).Range("a65536").End(xlUp).Offset(1)
End If
Next R
End Sub
【31976】Re:条件に当てはまるものを転記したい
回答  Kein  - 05/12/3(土) 13:19 -
引用なし
パスワード
   アクティブシートにその表があるとして、Sheet2 に転記するなら

Application.ScreenUpdating = False
Range("E:E").AutoFilter 1, ">=200"
With ActiveSheet
　 .AutoFilter.Range.SpecialCells(12) _
　 .Copy Sheets("Sheet2").Range("A1")
　 .AutoFilterMode = False
End With
Application.ScreenUpdating = True

というようなコードで、出来ると思います。
【32036】Re:条件に当てはまるものを転記したい
お礼  おーちゃん  - 05/12/5(月) 7:11 -
引用なし
パスワード
   みなさん　ありがとうございます　　週末忙しくてお礼の返事が
おくれてごめんなせい。　早速、いただいたアドバイスで
やってみたいと思います。
またつまずいたらよいアドバイスをくださいね。　
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8653 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free