Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41137 / 76736

←次へ　｜　前へ→


	【40681】Re:抽出の条件

質問（初心者Ａ氏） - 06/7/20(木) 13:05 -


	引用なし

	パスワード

ありがとうございました。
すきりして見やすくなりました。

▼KAZU さん：
>良くわかんないですが・・・。
>
>こんな方法もありかも・・・。
>
>===================================================
>やりたい事はこんな感じなんだと思いました。
>
>行変数：　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】抽出の条件 質問（初心者Ａ氏） 06/7/18(火) 15:46