Excel VBA質問箱 IV

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

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


45405 / 76732 ←次へ | 前へ→

【36320】Re:35行9列に仕上げる
回答  Kein  - 06/3/28(火) 21:46 -

引用なし
パスワード
   Sub 集計2()
  Dim Ws As Worksheet
  Dim Ary As Variant
  Dim MyC As Integer

  For Each Ws In Worksheets
   If Ws.Name <> "集計表" And Ws.Name <> "XYZ" Then
     Ary = Array(Ws.Range("A2").Value, _
     Ws.Range("B2").Value, Ws.Range("D4").Value)
     Select Case Val(Ary(0))
      Case Is < 36: MyC = 1
      Case Is < 71: MyC = 4
      Case Else: MyC = 7
     End Select
     Sheets("集計表").Cells(65536, MyC).End(xlUp) _
     .Offset(1).Resize(, 3).Value = Ary
     Erase Ary
   End If
  Next
End Sub

で、どうでしょーか ?

1 hits

【36318】35行9列に仕上げる gako 06/3/28(火) 21:05 質問
【36320】Re:35行9列に仕上げる Kein 06/3/28(火) 21:46 回答
【36365】Re:35行9列に仕上げる gako 06/3/29(水) 22:44 お礼
【36366】Re:35行9列に仕上げる Kein 06/3/29(水) 23:00 回答
【36475】Re:35行9列に仕上げる gako 06/3/31(金) 23:15 お礼
【36321】Re:35行9列に仕上げる とおりすがり 06/3/28(火) 21:50 発言

45405 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free