Excel VBA質問箱 IV

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

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


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

65795 / 76734

←次へ　｜　前へ→


	【15510】Re:間違えをさがしてください

kein - 04/6/27(日) 22:58 -


	引用なし

	パスワード

>連続して７列目(G)の数が９列目(I)の数を超えるときの、最初の値だけを赤
で、間違いないですね ? 行と列が正確に認識されてないみたいですが。

Sub Test()
　 Dim MyR As Range, C As Range
　
　 On Error GoTo ErLine
　 With Sheets("Sheet1").Range("G1:G49").Offset(, 26)
　　　.Formula = "=IF($G1>$I1,1,"""")"
　　　Set MyR = .SpecialCells(3, 1)
　　　.ClearContents
　 End With
　 For Each C In MyR.Areas
　　　If C.Cells.Count > 1 Then
　　　　 C.Range("A1").Offset(, -24) _
　　　　 .Interior.ColorIndex = 3
　　　End If
　 Next
ErLine:
　 Set MyR = Nothing
End Sub

4 hits

▼

【15501】間違えをさがしてください ピース 04/6/27(日) 21:03