練習問題 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


トップ   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS