Excel VBA質問箱 IV

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

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


27991 / 76736 ←次へ | 前へ→

【54058】Re:データの抽出
発言  今日も暇人  - 08/2/22(金) 11:42 -

引用なし
パスワード
   みなさん今日は
一番最初は、これがやりたかったのかな?

>コンボで「AprWk1」と選択すると、1.シートのデータを2.シートに抽出する物を作成したいです。
>
>1.1.シートには品目と数値が入っている。
> 2.シートはそれをまとめるためのシートである。
>2.1.シートと2.シートで一致する品目の数値を2.シートに反映させたいのだが、
> 1.シートのAJ列に【Adapter】【Book】【Castle】等々書いてあり、
> 【Apple】の場合にのみ2.シートのC列に数値を反映させたい。
>上記条件があるのだが、それを下記に書いてみたものの、
>どうしても動きません。
>何がおかしいのでしょうか?
>インデックスが有効範囲にありませんと言われます。
>
> Select Case (コンボ)
>  Case "AprWk1"


Dim ws1  As Worksheet
Dim ws2  As Worksheet
Dim Ws1_Lr As Single
Dim Rmax  As Long
Dim i   As Long
Dim App   As Range
Dim Ans  As Long
Dim T   As String
 
  Set ws1 = ThisWorkbook.Worksheets(1) '処理対象のシートを明確にするために変数にセット
  Set ws2 = ThisWorkbook.Worksheets(2)
 
  Ws1_Lr = ws1.Range("A65536").End(xlUp).Row '集計シート最下行*キーになるA列で判定
  Rmax = ws2.Range("F65536").End(xlUp).Row '集計対象シート最下行*キーになるF列で判定
  T = "Apple" 'SUMIFで合計する
  i = 7    '開始行
  Ans = 0   '合計収納
  With ws1
    For i = 7 To Ws1_Lr     'ws1のA7〜A最終行まで
      For Each App In ws2.Range("AJ1:AJ" & Rmax) 'ws2のAJ1〜AJ最終行まで
        If App.Value = T Then  'AJ* が Apple だったとき
          'ws2の E* がws1の A* だったとき
          If .Range("A" & i).Value = ws2.Range("E" & App.Row).Value Then
            Ans = Ans + ws2.Range("G" & App.Row).Value 'Ansに加算
          End If
        End If
      Next
      .Range("C" & i).Value = Ans '合計書き込み
    Next i

違ってたらすみません (~o~)

0 hits

【53995】データの抽出 ポン太 08/2/19(火) 17:55 質問
【53997】Re:データの抽出 maka 08/2/19(火) 20:24 発言
【54001】Re:データの抽出 neptune 08/2/19(火) 22:07 回答
【54008】Re:データの抽出 VBWASURETA 08/2/20(水) 0:40 回答
【54009】Re:データの抽出 VBWASURETA 08/2/20(水) 0:49 回答
【54032】Re:データの抽出 カウボーイズ 08/2/20(水) 18:58 発言
【54043】Re:データの抽出 ポン太 08/2/21(木) 14:08 質問
【54045】Re:データの抽出 ポン太 08/2/21(木) 14:53 発言
【54046】Re:データの抽出 VBWASURETA 08/2/21(木) 17:05 回答
【54048】Re:データの抽出 ポン太 08/2/21(木) 17:18 発言
【54050】Re:データの抽出 わさび 08/2/21(木) 18:17 発言
【54047】Re:データの抽出 ポン太 08/2/21(木) 17:15 質問
【54058】Re:データの抽出 今日も暇人 08/2/22(金) 11:42 発言
【54120】Re:データの抽出 ポン太 08/2/25(月) 17:10 質問
【54121】Re:データの抽出 VBWASURETA 08/2/25(月) 17:40 回答
【54122】Re:データの抽出 VBWASURETA 08/2/25(月) 18:00 発言
【54194】Re:データの抽出 ポン太 08/2/28(木) 23:28 発言
【54137】Re:データの抽出 今日も暇人 08/2/26(火) 8:46 発言
【54193】Re:データの抽出 ポン太 08/2/28(木) 23:26 回答
【54202】Re:データの抽出 VBWASURETA 08/2/29(金) 13:09 質問
【54204】Re:データの抽出 VBWASURETA 08/2/29(金) 14:17 発言
【54207】Re:データの抽出 VBWASURETA 08/2/29(金) 15:22 発言
【54288】Re:データの抽出 ポン太 08/3/3(月) 13:39 発言
【54413】Re:データの抽出 ポン太 08/3/12(水) 12:03 発言
【54415】Re:データの抽出 VBWASURETA 08/3/12(水) 13:26 質問
【54418】Re:データの抽出 ポン太 08/3/12(水) 13:45 発言
【54428】Re:データの抽出 今日も暇人 08/3/12(水) 15:20 発言
【54429】Re:データの抽出 VBWASURETA 08/3/12(水) 15:40 質問
【54430】Re:データの抽出 VBWASURETA 08/3/12(水) 16:11 発言
【54436】Re:データの抽出 VBWASURETA 08/3/12(水) 22:48 発言
【54443】Re:データの抽出 ポン太 08/3/13(木) 11:02 お礼

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