Excel VBA質問箱 IV

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

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


27618 / 76736 ←次へ | 前へ→

【54436】Re:データの抽出
発言  VBWASURETA  - 08/3/12(水) 22:48 -

引用なし
パスワード
   一応、ポン太さんのソースからSumProduct関数で使用する
サンプルを置いておきます。

Sub main()
  Dim ws1       As Worksheet
  Dim ws2       As Worksheet
  Dim DataMaxRow   As Long
  Dim MstMaxRow    As Long
  Dim i        As Long
  Dim ret       As Long
  Dim strSumprdct   As String
  Dim strSearch    As String
  Dim strSumSearch  As String
  
  Set ws1 = ThisWorkbook.Worksheets(1)  '処理対象のシートを明確にするために変数にセット
  Set ws2 = ThisWorkbook.Worksheets(2)
  
  DataMaxRow = ws1.Range("A65536").End(xlUp).Row
  
  '↓このシート2の最大行数が何故F列なのかわからないのでデータがあるE列にしました。
  ' 多分、今日も暇人さんのソースもここをE列にすると動きます。
  MstMaxRow = ws2.Range("E65536").End(xlUp).Row

  strSumSearch = "Apple" '合計条件
  
  With ws1
    For i = 7 To DataMaxRow 'ws1のA7〜A最終行まで
      'シート1のA列条件
      strSearch = ws1.Cells(i, 1).Value
      
      'Sumproduct関数の文字列
      strSumprdct = "=SUMPRODUCT((" & ws2.Name & "!E1:E" & MstMaxRow & " = """ & strSearch & """)*"
      strSumprdct = strSumprdct & "(" & ws2.Name & "!AJ1:AJ" & MstMaxRow & " = """ & strSumSearch & """)*"
      strSumprdct = strSumprdct & "(" & ws2.Name & "!G1:G" & MstMaxRow & "))"
            
      'シート関数の実行
      ret = Application.Evaluate(strSumprdct)
      
      If (ret > 0) Then
        'シート1のB列に結果を書く
        ws1.Cells(i, 2) = ret
      End If
    Next i
  End With
  
  '最後にシートオブジェクトのインスタンス解放は必ずしましょう。
  Set ws1 = Nothing
  Set ws2 = Nothing
End Sub
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 お礼

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