Excel VBA質問箱 IV

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

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


46102 / 76732 ←次へ | 前へ→

【35609】Re:D0 LOOP
質問  ゆか  - 06/3/8(水) 14:48 -

引用なし
パスワード
   ▼Jaka さん、ありがとうございます。学校の宿題でLOOPを使用しなければならないのですが、応用できました。だた、、、1点だけ解けないところがありまして、

  Application.Goto Reference:="FirstEmployee"
  Do Until ActiveCell = ""
    ActiveCell.Range("A1:F1").Select
    If ActiveCell.Offset(0, 5) = ">" & "4000" And _
    ActiveCell.Offset(0, 2) = "Manager" Then
    Selection.Font.ColorIndex = 3
    End If
    ActiveCell.Offset(1, 0).Select
    Loop
End Sub

If ActiveCell.Offset(0, 5) = "4000" And _ 
4000のみの時は大丈夫なのですが、
If ActiveCell.Offset(0, 5) = ">" & "4000" And _ あるいは
If ActiveCell.Offset(0, 5) = ">4000" And _ 
に変更すると動かないのです。どうしたものでしょうか?
宜しくお願いします。
ゆか
10 hits

【35582】D0 LOOP ゆか 06/3/8(水) 8:01 質問
【35593】Re:D0 LOOP Jaka 06/3/8(水) 12:17 回答
【35594】Re:D0 LOOP Jaka 06/3/8(水) 12:26 発言
【35609】Re:D0 LOOP ゆか 06/3/8(水) 14:48 質問
【35611】Re:D0 LOOP Jaka 06/3/8(水) 15:19 発言
【35613】Re:D0 LOOP ゆか 06/3/8(水) 15:38 お礼

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