練習問題

Sub ナベアツLike()
Dim num As Integer
Dim i As Integer
num = Range("A1").Value
   For i = 1 To num
        If i Mod 3 = 0 Or i Like "*3*" Then
            Cells(i, 2).Value = "Aho"
        Else
            Cells(i, 2).Value = i
        End If
   Next i
End Sub

文字列比較演算子の変わりにInStr関数を使ったプログラム。

Sub ナベアツInStr()
Dim num As Integer
Dim i As Integer
num = Range("A1").Value
   For i = 1 To num
        If i Mod 3 = 0 Or InStr(i, "3") Then
            Cells(i, 2).Value = "Aho"
        Else
            Cells(i, 2).Value = i
        End If
   Next i
End Sub

そのほかはhttp://www.env.kochi-tech.ac.jp/monma/vba_seminar/pages/quizzes/nabeatsu.html

トップ   編集 凍結 差分 履歴 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-02-23 (木) 23:33:34