解答例/世界のナベアツ問題/Excel VBA
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
]
開始行:
[[練習問題]]
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_semin...
終了行:
[[練習問題]]
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_semin...
ページ名:
