トップ > 資格を活かすには > やってみよう!Excel VBAで業務改善! > 次なるイノベーション編: 第29話「AND検索を実装しよう」1/4 :次は何を実装しようかな

やってみよう!Excel VBAで業務改善! 次なるイノベーション編|第29話 「AND検索を実装しよう」

次は何を実装しようかな

「私達の業務に必要なマクロは、読みやすく安全なプログラムなのよ」

岬さんはポンと、森川くんの肩に手を置くと、スタスタと自分の席に戻っていきました。

「(すげ~~~!!
さっすが先輩、…かっこいいなあ!)」

森川くんは彼女の後ろ姿を見送りながら、心の中でそうつぶやきます。

「よし。疑問点も晴れたところで、次は何を実装しようかな。
……順番から行くと、AND検索あたりか…?」

If Range("B3").Value <> "" Then
    Rows.Hidden = False
    EndRow = Cells(Rows.Count, MidashiCol).End(xlUp).Row
    EndCol = Cells(MidashiRow, Columns.Count).End(xlToLeft).Column
    KeyWrd = Split(Range("B3").Value, " ", , vbTextCompare)
            
    For r = MidashiRow + 1 To EndRow
        For i = LBound(KeyWrd) To UBound(KeyWrd)
            If KeyWrd(i) <> "" Then
                Select Case Range("C3").Value
                Case "1"
                    'AND検索の処理
                Case "2"
                    'OR検索の処理
                End Select
            End If
        Next i
    Next r
End If
一覧にもどる