[[20180810190451]] 『この条件で関数またはマクロが組めませんか?』(名無し) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『この条件で関数またはマクロが組めませんか?』(名無し)

データシート(sheet1) の L行(L2) が 〇or× ならば
まとめシート(sheet2) の C行(C2) に まとめシート の K行(K2) の日付を入れる。
でも、データシート の L行(L2)が▲ならば、
データシート の P行(P2) が 〇or× であるか確認し 〇or× であれば、
まとめシート の C行(C2) に データシート の O行(O2) の日付を入れる。

ちなみにデータシートもまとめシートもたくさんデータが入っております。
例として(カッコで)セルを指定していますが
本当はもっと同条件をたくさん使用したいです。

よろしくお願いいたします。

< 使用 Excel:unknown、使用 OS:unknown >


読み間違えてるかもしれませんが、
>でも、データシート の L行(L2)が▲ならば、 〜
ということですが、分岐の順番はコレが一番最初になりますよね。
そうなると、

 数式1:IF(データシートのL2="▲",数式2,"数式3")
 数式2:IF(OR(データシートのP2="〇",データシートのP2="×"), データシートのO2を参照、"L2が▲だけどP2が条件満たしてない")
 数式3:IF(OR(データシートのL2="〇",データシートのL2="×"), まとめシートのK2を参照、"L2が▲、〇、×のどれでもない")

という感じで入れ子にすればいいんじゃないでしょうか?

(もこな2) 2018/08/10(金) 20:22


ありがとうございます。
すみません!わたしが入力ミスをしております!

データシート(sheet1) の L行(L2) が 〇or× ならば
まとめシート(sheet2) の C行(C2) に まとめシート の K行(K2) の日付を入れる。

ではなく、
データシート(sheet1) の L行(L2) が 〇or× ならば
まとめシート(sheet2) の C行(C2) に データシート の K行(K2) の日付を入れる。

です!
申し訳ありません
(名無し) 2018/08/10(金) 21:10


ありがとうございます。
すみません、入れ子とはなんでしょうか?

Excelのセルに、
=IF(データシートのL2="▲",数式2,"数式3")
=IF(OR(データシートのP2="〇",データシートのP2="×"), データシートのO2を参照、"L2が▲だけどP2が条件満たしてない")
=IF(OR(データシートのL2="〇",データシートのL2="×"), まとめシートのK2を参照、"L2が▲、〇、×のどれでもない")
といれればいいのでしょうか??

(名無し) 2018/08/10(金) 21:16


>すみません、入れ子とはなんでしょうか?
聞くよりネット検索したほうがはやいかも。
https://www.excelspeedup.com/ireko/
https://www.tschoolbank.com/excel/function-if-nest/
(もこな2) 2018/08/10(金) 22:36

参考になれば幸いです。

Sub マクロ()

    Dim データ As Worksheet, まとめ As Worksheet, Lr As Long, i As Long
    Set データ = ThisWorkbook.Sheets("Sheet1")
    Set まとめ = ThisWorkbook.Sheets("Sheet2")
    With データ
        Lr = .Cells(.Rows.Count, "L").End(xlUp).Row 'L列最終行
        For i = 2 To Lr
            Select Case .Cells(i, "L")
            Case "○", "×"
                まとめ.Cells(i, "C") = .Cells(i, "K")
            Case "▲"
                If .Cells(i, "P") = "○" Or .Cells(i, "P") = "×" Then
                    まとめ.Cells(i, "C") = .Cells(i, "O")
                Else
                    'どれにも当てはまらないときの処理
                End If
            End Select
        Next i
    End With
End Sub

(TAKA) 2018/08/18(土) 11:18


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.