Excel VBA質問箱 IV

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

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


4553 / 13644 ツリー ←次へ | 前へ→

【55980】条件を満たした場合の文字の変換 はなはな 08/5/28(水) 0:17 質問[未読]
【55981】Re:条件を満たした場合の文字の変換 カウボーイズ 08/5/28(水) 0:40 回答[未読]
【55982】Re:条件を満たした場合の文字の変換 スマイル君 08/5/28(水) 10:31 発言[未読]

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

引用なし
パスワード
    条件を満たした場合に文字を太字かつ赤色に変換させたい。
同一Sheetの、A列2行目以降に金額がランダムに入力されており、B列2行目以降にはローン期間が月数でランダムに入力されている。
 A列を検索し、1200000以上ならその数値を太字かつ赤色に変換、B列を検索し、12以上ならその数値を太字かつ赤色に変換させたい。

以下のようにしてみたが、 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

【55981】Re:条件を満たした場合の文字の変換
回答  カウボーイズ  - 08/5/28(水) 0:40 -

引用なし
パスワード
   試しに
Sub test()
  Range("B2").CurrentRegion.Select
End Sub

を同じデータでやってみて、選択されている範囲を見てみてください。
もしくはCrrentRegion でヘルプ検索してみるといいかもしれません

ちなみに 検索A列() もたまたま上手くいってるだけです。
A2セルに0、B2セルに1200000を入れて検索A列()を実行すると、意図した結果にはならないはずです。

A列だけのデータ、B列だけのデータとして分けて考えると上手くいくと思います

【55982】Re:条件を満たした場合の文字の変換
発言  スマイル君  - 08/5/28(水) 10:31 -

引用なし
パスワード
   条件付き書式ならもっと簡単に出来ると思うけど、ダメなの?

A列
 セルの値が 次の値以上 1200000 → 赤字&太字

B列
 セルの値が 次の値以上 12    → 赤字&太字

4553 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free