Excel VBA質問箱 IV

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

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


41227 / 76732 ←次へ | 前へ→

【40586】抽出の条件
質問  質問(初心者A氏)  - 06/7/18(火) 15:46 -

引用なし
パスワード
   抽出の条件で教えて下さい。
 色々処理していますが下のようなif文で条件は満たしました。
 しかし、この書き方だとソートを工夫しないとなりません。
 もっと簡単に記載できないものでしょうか?

 tori   変数
 nentuki  変数

概要)
 条件に一致したらデータを加算したり減算したりする。
 
Do While Cells(i, 26) <> ""
  If CStr(Cells(i, 26).Value) = tori Then
    If CStr(Cells(i, 28).Value) = "1" Then
     If CStr(Cells(i, 18).Value) = nentuki Then
       If CStr(Cells(i, 27).Value) = "500" Then
         If CStr(Cells(i, 17).Value) = "2" Then
          goke1 = goke1 - Cells(i, 11).Value
          i = i + 1
         Else
          goke1 = goke1 + Cells(i, 11).Value
          i = i + 1
         End If
       Else
         If CStr(Cells(i, 17).Value) = "2" Then
          goke2 = goke2 - Cells(i, 11).Value
          i = i + 1
         Else
          goke2 = goke2 + Cells(i, 11).Value
          i = i + 1
         End If
       End If
     Else
        Exit Do
     End If
    Else
        Exit Do
    End If
  Else
        Exit Do
  End If
    
  Loop
1 hits

【40586】抽出の条件 質問(初心者A氏) 06/7/18(火) 15:46 質問
【40587】Re:抽出の条件 m2m10 06/7/18(火) 15:51 発言
【40599】Re:抽出の条件 質問(初心者A氏) 06/7/18(火) 17:37 発言
【40600】Re:抽出の条件 いなば 06/7/18(火) 18:09 発言
【40635】Re:抽出の条件 ハチ 06/7/19(水) 14:40 発言
【40676】Re:抽出の条件 KAZU 06/7/20(木) 12:26 発言
【40681】Re:抽出の条件 質問(初心者A氏) 06/7/20(木) 13:05 お礼

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