| |
条件を満たした場合に文字を太字かつ赤色に変換させたい。
同一Sheetの、A列２行目以降に金額がランダムに入力されており、B列２行目以降にはローン期間が月数でランダムに入力されている。
A列を検索し、１２０００００以上ならその数値を太字かつ赤色に変換、B列を検索し、１２以上ならその数値を太字かつ赤色に変換させたい。
以下のようにしてみたが、 Sub 検索A列はOKとなるが、Sub B列検索がうまくいきません。どこが拙いのかこ教示ください。（当方 初心者です）
Sub 検索A列()
Dim i As Integer
Dim My_Range As Object
i = 0
For Each My_Range In Range("A2").CurrentRegion
If IsNumeric(My_Range.Value) = True And My_Range.Value >＝ 1200000T hen
Cells(My_Range.Row, 1).Font.Bold = True
Cells(My_Range.Row, 1).Font.ColorIndex = 3
End If
Next
End Sub
Sub B列検索()
Dim i As Integer
Dim My_Range As Object
i = 0
For Each My_Range In Range("B2").CurrentRegion
If IsNumeric(My_Range.Value) = True And My_Range.Value > =12 Then
Cells(My_Range.Row, 2).Font.Bold = True
Cells(My_Range.Row, 2).Font.ColorIndex = 3
End If
Next
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
