hama1226pyのブログ https://ameblo.jp/hama1226py/ ブログの説明を入力します。 ja 条件分岐と繰り返し Sub 条件分岐と繰り返し()
    Dim RowIdx
    For RowIdx = 1 To 13　　　　　　　　　　　　　　　'cellのA1からA13まで指定
        If Cells(RowIdx, 1).Value >= 100 Then　　　　'変数Valueが100より上の場合
            Cells(RowIdx, 2).Value = "合格"　　　　　 '隣のcellに合格と表示する
        Else
           Cells(RowIdx, 2).Clear
        End If
        
    Next


End Sub

]]> https://ameblo.jp/hama1226py/entry-12667430270.html Thu, 08 Apr 2021 23:29:59 +0900