Excel VBA質問箱 IV

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

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


41138 / 76732 ←次へ | 前へ→

【40676】Re:抽出の条件
発言  KAZU  - 06/7/20(木) 12:26 -

引用なし
パスワード
   良くわかんないですが・・・。

こんな方法もありかも・・・。

===================================================
やりたい事はこんな感じなんだと思いました。

行変数: i
繰り返し定義
26列が空白になる迄

前提条件
26列目を文字列変換した値がtori
28列目を文字列変換した値が"1"
18列目を文字列変換した値がnentuki
27列目を文字列変換した値が"500"

直条件
17列目を文字列変換した値が"2"

T: goke1 = goke1 - Cells(i, 11).Value
  i = i + 1
F: goke1 = goke1 + Cells(i, 11).Value
  i = i + 1

前提条件を満たさない場合
繰り返しを終了

===================================================

Dim Chk As Boolean


Do While .Cells(1, 26).Value <> ""
With Rows(i)
  Chk = CStr(.Cells(1, 26).Value) = tori
  Chk = Chk And CStr(.Cells(1, 28).Value) = "1"
  Chk = Chk And CStr(.Cells(1, 18).Value) = nentuki
  Chk = Chk And CStr(.Cells(1, 27).Value) = "500"

  If Chk Then
    goke1 = goke1 + (IIf(CStr(.Cells(1, 17).Value) = "2", -1 * Cells(i, 11).Value, Cells(i, 11).Value))
    i = i + 1
  Else
    Exit Do
  End If
End With
Loop

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

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