Excel VBA質問箱 IV

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

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


65798 / 76734 ←次へ | 前へ→

【15507】Re:間違えをさがしてください
回答  [名前なし]  - 04/6/27(日) 22:31 -

引用なし
パスワード
   Sub henka()
  Dim k As Long, n As Long
 
  With Worksheets("Sheet1")
   Range(Cells(1, 9), Cells(49, 9)).Interior.ColorIndex = 2
   For n = 1 To 49
     If IsNumeric(.Cells(n, 7).Value) And _
      IsNumeric(.Cells(n, 9).Value) Then
      k = .Cells(n, 7).Value - .Cells(n, 9).Value
      If k < 0 Then
       .Cells(n, 9).Interior.ColorIndex = 3
       Exit For
      End If
     End If
   Next n
  End With
End Sub

1 hits

【15501】間違えをさがしてください ピース 04/6/27(日) 21:03 質問
【15504】Re:間違えをさがしてください kein 04/6/27(日) 21:18 回答
【15505】Re:間違えをさがしてください ピース 04/6/27(日) 21:51 質問
【15507】Re:間違えをさがしてください [名前なし] 04/6/27(日) 22:31 回答
【15508】Re:間違えをさがしてください ピース 04/6/27(日) 22:43 回答
【15510】Re:間違えをさがしてください kein 04/6/27(日) 22:58 回答
【15512】Re:間違えをさがしてください [名前なし] 04/6/27(日) 23:07 回答
【15540】Re:間違えをさがしてください ピース 04/6/28(月) 20:36 お礼
【15509】Re:間違えをさがしてください kein 04/6/27(日) 22:47 回答

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