Excel VBA質問箱 IV

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

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


65593 / 76734 ←次へ | 前へ→

【15714】間違えをさがしてください2
質問  ピース  - 04/7/3(土) 21:58 -

引用なし
パスワード
   Sub henka()
  Dim k As Long, n As Long, a As Boolean

  a = False
  With Worksheets("Sheet1")
   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 And Not a Then
       a = True
       .Cells(n, 9).Interior.ColorIndex = 3
      Else
       a = k > 0
       .Cells(n, 9).Interior.ColorIndex = 2
      End If
     End If
   Next n
  End With
End Sub
以上のプログラムがあるとして、赤で表示された数字から2つ目から赤で表示された数字を引いたときの値を求めるプログラムを作成しようとしています。
以下のようなプログラムを作成しましたが、うまくいきません。
間違いが分かる方は返信おねがいします。
PS 引いた値は赤く表示された数字の隣に表示する。
  引く値は赤く表示されたところのみとします。


Sub mouke()
  Dim k As Integer
  With Worksheets("Sheet1")
  For n = 1 To 49
      If .Cells(n, 9).Interior.ColorIndex = 3 Then
        k = .Cells(n + 2, 9).Value - .Cells(n, 9).Value
        Cells(n + 2, 10) = k * 1000
        .Cells(n + 2, 10).Interior.ColorIndex = 5
      End If
  Next n
  End With
End Sub
0 hits

【15714】間違えをさがしてください2 ピース 04/7/3(土) 21:58 質問
【15715】Re:間違えをさがしてください2 [名前なし] 04/7/3(土) 22:57 発言
【15716】Re:間違えをさがしてください2 ピース 04/7/3(土) 23:21 質問
【15717】Re:間違えをさがしてください2 [名前なし] 04/7/3(土) 23:38 発言
【15719】Re:間違えをさがしてください2 ピース 04/7/4(日) 0:15 発言
【15720】Re:間違えをさがしてください2 [名前なし] 04/7/4(日) 0:33 発言
【15721】Re:間違えをさがしてください2 ピース 04/7/4(日) 0:41 発言
【15722】Re:間違えをさがしてください2 ピース 04/7/4(日) 0:52 発言
【15723】Re:間違えをさがしてください2 [名前なし] 04/7/4(日) 1:02 回答
【15724】Re:間違えをさがしてください2 ピース 04/7/4(日) 10:25 発言
【15725】Re:間違えをさがしてください2 [名前なし] 04/7/4(日) 10:48 回答
【15731】Re:間違えをさがしてください2 ピース 04/7/4(日) 17:49 お礼
【15734】Re:間違えをさがしてください2 [名前なし] 04/7/4(日) 18:17 発言
【15737】Re:間違えをさがしてください2 ピース 04/7/4(日) 21:35 お礼

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