2007年12月04日

第7回繰り返し処理

第5回で作成したマクロでは、1件しか処理できません。
複数件処理できる様にマクロを修正します。

[初期設定]
ファイル名:Book1.xls
シート名:Sheet1
下記の値を設定する
1行A列:35
2行A列:80
3行A列:100
4行A列:25
5行A列:70

[マクロの処理]
1行A列の数字が70未満なら1行B列に"不合格"
1行A列の数字が70以上なら1行B列に"合格"を設定する。

2行目以降も同様の処理を行う。

まずは、Macro1を下記の様に修正して下さい。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/3 ユーザー名 :
'

'行を格納する変数を整数型で宣言する
Dim gyou As Integer
'1行目から処理を行うので、1を代入する
gyou = 1
'1行1列から値がなくなるまで、処理を繰り返す
Do Until Trim(Workbooks("book1.xls").Worksheets("sheet1").Cells(gyou, 1)) = ""
'70以上なら合格、そうでなければ不合格を設定する
If 70 <= Workbooks("book1.xls").Worksheets("sheet1").Cells(gyou, 1) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyou, 2) = "合格"
Else
Workbooks("book1.xls").Worksheets("sheet1").Cells(gyou, 2) = "不合格"
End If
'次の行の処理の為、1加算する
gyou = gyou + 1
Loop

End Sub

マクロの修正が終わったら、実行し、下記の様な結果
になる事を確認して下さい。

1行A列:35 B列:不合格
2行A列:80 B列:合格
3行A列:100 B列:合格
4行A列:25 B列:不合格
5行A列:70 B列:合格

マクロのソースコードについては次回説明します。

ではまた・・・
posted by ぷろぐらまー at 09:08| Comment(0) | TrackBack(0) | 入門偏 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。
※ブログオーナーが承認したコメントのみ表示されます。

この記事へのトラックバック
Google
 
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。