[[20141022084601]]　『条件にあてはまるセルの色を染めたい』（まんじゅう）　ページの最後に飛ぶ

『条件にあてはまるセルの色を染めたい』（まんじゅう）

条件にあてはまるセルの色を黄色にそめるＶＢＡを作っています。

自分なりに考えたのですが、なぜか思った通りの結果が返ってきません。
そしていきずまりました。

・セルＫの３行目から値が入っている最終行までを検索
・セルＭに文字列を含んでいて、なおかつＫの値が空白の場合にセルを黄色にする

というＶＢＡを組みたいです。

↓ここまででわからなくなりました。

Sub 提出有無()

  Dim i
    For i = 3 To Cells(Rows.Count, 5).End(xlUp).Row
        If Range("K" & i) = ""　and　Range("M" & i).　　Then
          Range("M" & i).Interior.ColorIndex = 27
        End If
    Next i

End Sub

宜しくお願い致します。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 K列の最終行を調べるので
 For i = 3 To Cells(Rows.Count, 11).End(xlUp).Row
 　　　　　　　　　　　　　　　 ↑

 K列が空白でかつM列に文字列を含むという条件なので
 If Range("K" & i) = "" And Range("M" & i) <> "" Then
 　　　　　　　　　　　　　　　　　　　　　　↑

 ですかね？
（se_9） 2014/10/22(水) 09:03

文字列だったらというなら

 If Range("K" & i) = "" And VarType(Range("M" & i).Value) = vbString Then
かな
（デイト） 2014/10/22(水) 09:11

コメント返信：

[ 一覧(最新更新順) ]

[[20141022084601]] 『条件にあてはまるセルの色を染めたい』（まんじゅう） ページの最後に飛ぶ

[[20141022084601]]　『条件にあてはまるセルの色を染めたい』（まんじゅう）　ページの最後に飛ぶ