金額が1万円以上なら印を付ける
金額を調べ、条件に合う行のとなりへ「確認」と入力します。
実行前に確認
- 条件に合うC列だけ上書きします。1万円未満・文字・空白・エラー値の行は変更しないため、以前の「確認」も残ります。
1サンプルコード
Sub 金額を判定する()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim amount As Variant
Dim lastRow As Long
Dim rowNumber As Long
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
For rowNumber = 2 To lastRow
amount = ws.Cells(rowNumber, "B").Value
If Not IsError(amount) Then
If IsNumeric(amount) And Not IsEmpty(amount) Then
If CDbl(amount) >= 10000 Then
ws.Cells(rowNumber, "C").Value = "確認"
End If
End If
End If
Next rowNumber
End Sub表で見る処理のイメージ実行前・実行後のセルを見比べる
B列が10000以上の数値なら、C列へ「確認」を入力します。
A・B・Cは列、1・2・3は行です。例えば「B2」はB列の2行目のセルです。この表は説明用のサンプルです。
実行前
Sheet1
| A | B | C | |
|---|---|---|---|
| 1 | 商品 | 金額 | 判定 |
| 2 | 商品A | 10000 | — |
| 3 | 商品B | 9999 | 保留 |
| 4 | 商品C | 未定 | — |
実行後
Sheet1
| A | B | C | |
|---|---|---|---|
| 1 | 商品 | 金額 | 判定 |
| 2 | 商品A | 10000 | 確認（注目セル） |
| 3 | 商品B | 9999 | 保留 |
| 4 | 商品C | 未定 | — |
色付きは注目する場所です。「—」は未入力、「（空文字）」は数式などが返す空の文字列を表します。
B5以降は未入力。条件に合わない行のC列は消去せず、そのまま残ります。 強調は注目するセルの目印です。実際のセルの色・書式を再現するものではありません。
使い方・実行手順を確認する4つの手順で、コードの使い方を確認できます
- 1
Windows版のデスクトップExcelで練習用ブックを.xlsm形式で保存します。Alt＋F11→［挿入］→［標準モジュール］に、この例だけを貼り付けます。
- 2
このブックのSheet1のB1を見出し、B2以降を金額にします。C列を出力先として空け、必要ならコードのシート名を変更します。
- 3
実行するSubの内側にカーソルを置き、F5キーを押します。
- 4
1万円以上の行のC列に「確認」が入ります。数値にできない文字・空白・エラー値の行や1万円未満の行は変更されません。