Excel VBA質問箱 IV

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

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


23322 / 76732 ←次へ | 前へ→

【58779】Re:IFの色の塗りつぶし
お礼  WJ  - 08/11/10(月) 8:56 -

引用なし
パスワード
   Abeboboさん
どうもありがとうございました。すごくわかりやすかったです、本当に感謝しています。今までプログラムを書いたりしたことがないので、本当苦労しています。どうも、お手数おかけしました。


▼Abebobo さん:
>ちょっと見やすいようにまとめてみました。
>
>Sub ウィズでまとめて()
>Dim lCnt As Long
>Dim rCnt As Long
>Dim i As Long
>
>lCnt = 1
>rCnt = 30
>With Sheets("Reuters")
>
>  .Range(.Cells(7, 1), .Cells(7, lCnt)).Select
>  With Selection.Interior
>   .ColorIndex = 20
>   .Pattern = xlSolid
>  End With
> 
>  i = 8
>  If .Range("C" & i).Text <> .Range("C7").Text Then
>   .Range(.Cells(i, 1), .Cells(i, lCnt)).Select
>   With Selection.Interior
>     .ColorIndex = 15
>     .Pattern = xlSolid
>   End With
>  Else
>   .Range(.Cells(i, 1), .Cells(i, lCnt)).Select
>   With Selection.Interior
>     .ColorIndex = 20
>     .Pattern = xlSolid
>   End With
>  End If
>  
>  Do Until i > rCnt + 9
>   If .Range("C" & i + 1).Text <> .Range("C" & i).Text Then
>    .Range(.Cells(i + 1, 1), .Cells(i + 1, lCnt)).Select
>    With Selection.Interior
>      .ColorIndex = 20
>      .Pattern = xlSolid
>    End With
>   Else
>    .Range(.Cells(i + 1, 1), .Cells(i + 1, lCnt)).Select
>    With Selection.Interior
>      .ColorIndex = 15
>      .Pattern = xlSolid
>    End With
>   End If
>   i = i + 2   
>  Loop
>  End With
> 
>End Sub
>
>シートの構成がどうなってるか解らないので、
>Do Until i > rCnt + 9
>にしておきました。 i = i + 2 で i = rCnt + 9 だと ちょうど飛ばしちゃう可能性がありますから・・・。 あービックリした
>
>どううまくいかないのか? と コードにコメントを入れておいたほうが良いと思います。
0 hits

【58762】IFの色の塗りつぶし WJ 08/11/7(金) 15:43 質問
【58765】Re:IFの色の塗りつぶし Abebobo 08/11/7(金) 23:08 発言
【58766】Re:IFの色の塗りつぶし Abebobo 08/11/7(金) 23:11 発言
【58779】Re:IFの色の塗りつぶし WJ 08/11/10(月) 8:56 お礼

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