Excel VBA質問箱 IV

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

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


18443 / 76736 ←次へ | 前へ→

【63735】Re:If〜thenの条件式について
質問  ぼこ  - 09/12/5(土) 23:58 -

引用なし
パスワード
   ▼kanabun さん:
ご丁寧にありがとうございました。
kanabunさんの方法を試させていただきました。

解決といいながら,追加の質問をして大変申し訳ないのですが,
kanabunさんの方法で,条件にあう行が塗りつぶされることは
確認できました。

>A1="0" かつ B1="0" ならば,
>B1セルの色は何もなし。
>それ以外は,
>B1セルの色を赤くする。

[質問1]↑行全体ではなく,条件にあう行のかつB列のみを塗りつぶしたい
      という場合は,kanabunさんのコードをどのように修正すれば
      よいでしょうか?

 〉Dim LastRow As Long

 〉'A、B列の最終行を求める
 〉With Cells(Rows.Count, 1)
 〉  LastRow = WorksheetFunction.Max( _
 〉       .End(xlUp).Row, _
 〉       .Offset(, 1).End(xlUp).Row)
 〉End With

[質問2]↑応用して,A,B,C列の最終行(A列とB列とC列の最終行が
      異なるばあいに大きいほうをLastRow とする)を求めるとしたい
      ときはコードをどのようにすればよいでしょうか?


>▼ぼこ さん:
>
>解決後にすみません。
>実をいうと
>Sub Try1b()
>でも、条件にあう行が塗りつぶされませんでした。
>その理由をずっと考えても分からなかったので、
>他の掲示板に質問しましたところ、すぐ理由が分かりました
>
>Sub Try1c()
>  Dim LastRow As Long
>  With Cells(Rows.Count, 1)
>    LastRow = WorksheetFunction.Max( _
>         .End(xlUp).Row, _
>         .Offset(, 1).End(xlUp).Row)
>  End With
>  With Range("A1:B" & LastRow)
>   .Interior.ColorIndex = xlNone
>   .Cells(1).Select       '◆ここを追加 
>   With .FormatConditions
>    .Delete
>    .Add Type:=xlExpression, _
>       Formula1:="=NOT(ASC($A1)&ASC($B1)=""00"")"
>    .Item(1).Interior.ColorIndex = 6
>   End With
>  End With
>End Sub
>
>マクロ記録のコードがうまく行って、Select Selectionを取り払った
>コードがうまくいかなかったのは、
>数式中で使っている $A1 というアドレスと 選択範囲の先頭セルが
>対応するということを指定するために、[A1]をアクティブにしてやら
>ないとダメだったんですね。
>以上、事後談となりましたが、何かの機会に参考になれば
>と思いまして投稿させていただきました
>では (^^)

0 hits

【63629】If〜thenの条件式について ぼこ 09/11/23(月) 2:02 質問
【63630】Re:If〜thenの条件式について MI 09/11/23(月) 6:54 発言
【63678】Re:If〜thenの条件式について ぼこ 09/11/29(日) 15:11 質問
【63680】Re:If〜thenの条件式について kanabun 09/11/29(日) 16:11 発言
【63681】Re:If〜thenの条件式について kanabun 09/11/29(日) 16:22 発言
【63682】Re:If〜thenの条件式について kanabun 09/11/29(日) 16:54 発言
【63683】Re:If〜thenの条件式について ぼこ 09/11/29(日) 20:05 お礼
【63695】Re:If〜thenの条件式について kanabun 09/11/30(月) 21:31 発言
【63735】Re:If〜thenの条件式について ぼこ 09/12/5(土) 23:58 質問
【63736】Re:If〜thenの条件式について kanabun 09/12/6(日) 0:21 発言
【63737】Re:If〜thenの条件式について ぼこ 09/12/6(日) 13:29 お礼
【63631】Re:If〜thenの条件式について ホーキング 09/11/23(月) 13:22 回答
【63684】Re:If〜thenの条件式について ぼこ 09/11/29(日) 20:11 お礼

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