解答例/世界のナベアツ問題/Excel VBA の履歴差分(No.2)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 履歴 を表示
• 解答例/世界のナベアツ問題/Excel VBA へ行く。
  • 1 (2013-07-13 (土) 00:21:59)
  • 2 (2013-07-13 (土) 01:07:09)

• 追加された行はこの色です。
• 削除された行はこの色です。

[[練習問題]]
Sub ナベアツ()
Dim num As Integer
num = Range("A1").Value
   For i = 1 To num
        If i Mod 3 = 0 Then
            Cells(i, 2).Value = "Aho"
        ElseIf i Like "*3*" Then
            Cells(i, 2).Value = "Aho"
        Else
            Cells(i, 2).Value = i
        End If
   Next i
End Sub
 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
文字列比較演算子の変わりにStr関数を使ったプログラム。
 Sub ナベアツStr()
 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