Excel VBA質問箱 IV

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

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


27636 / 76732 ←次へ | 前へ→

【54413】Re:データの抽出
発言  ポン太  - 08/3/12(水) 12:03 -

引用なし
パスワード
   未だ出来ず。
上書きされないように
Exit Forを入れてみたものの、
全然効果ナシでした。

  With ws1
    For i = 7 To Lr
      For Each App In wsa.Range("AJ2:AJ" & Rmax)
        If App.Value = T Then
          Ans = Application.WorksheetFunction.SumIf _
            (wsa.Range("E2:E" & Rmax), ws1.Range("A" & i).Value, wsa.Range("G2:G" & Rmax))
    Exit For

        End If
      Next
      .Range("C" & i).Value = Ans
    Next i
  End With

こういう抽出はマクロでは出来ないのですかねー。
あったら便利なのに。

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 お礼

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