解答例/世界のナベアツ問題/Excel VBA の履歴ソース(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• 履歴 を表示
• 解答例/世界のナベアツ問題/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