Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26088 / 76732

←次へ　｜　前へ→


	【55980】条件を満たした場合の文字の変換

はなはな - 08/5/28(水) 0:17 -


	引用なし

	パスワード

　条件を満たした場合に文字を太字かつ赤色に変換させたい。
同一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

2 hits

▼

【55980】条件を満たした場合の文字の変換 はなはな 08/5/28(水) 0:17

≪