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 -

引用なし
パスワード
   氏名 国語 社会 理科 合計
石川 93 52 87 232
田中 32 65 64 161
鈴木 70 75 73 218
木村 30 40 30 100

上記のようなデーターがあったとします。VBAで合計が200以上のもの
だけを選びだして別シートへ転記したいのですが、どうしてもその方法が
わかりませんどなたかわかる方アドバイスをおねがいします。

【31958】Re:条件に当てはまるものを転記したい
発言  ponpon  - 05/12/2(金) 22:35 -

引用なし
パスワード
   こんばんは。
オートフィルターで抽出し、コピペ
これをマクロの記録でやれば、基本のコードができます。

オートフィルターで検索するとたくさんヒットすると思います。

【31961】Re:条件に当てはまるものを転記したい
回答  ぽんかん  - 05/12/2(金) 23:13 -

引用なし
パスワード
   ▼おーちゃん さん:

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

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