[[20160311103119]]　『色セル間の行数』（北太郎）　ページの最後に飛ぶ

『色セル間の行数』（北太郎）

 a列　　　　　b列　　　　色セル　青、黄、青、黄、と規則的です
 青色セル　　　　　　　　色セル　間は　ランダムです
 ー
 ー　　　　　　　　　　　b列に　色セル間の行数を算出するマクロ
 ー　　　　　　　　　　　を作成したいのですが教えて下さい
 黄色セル　　４　　　　　　　　　　　　　　
 ー　　　　　　　　　　　a列には　数値（シングル）データが連続して
 ー　　　　　　　　　　　３０００行以上　””まで有ります　 
 ー　　　　　　　　　　　　　　　　　　　　　　　　　
 ー
 ー　　　　　　　　　　　色セル間が規則性なら　いいのですがラン
 ー　　　　　　　　　　　ダムなので作成方法がわかりません
 青色セル　　６　　　　　教えて下さい　お願いします
 ー
 ー
 ー
 ー
 ー
 黄色セル　　７

 ※改行位置修正しました。（稲葉）

＜使用 Excel：Excel2007、使用 OS：WindowsXP ＞

 稲葉さんが修正する前のレイアウトのずれ具合が
[[20160310085831]]『原因分からず、困っています。』（リンゴ）
 とかなり似ていたけど、同一人物？
（bi） 2016/03/11(金) 12:44

 色があるかないかで作りました。
 青と黄以外で塗られている場合はだめです。
 青青青黄でもそれぞれ計算してしまいます。

 多分、青色セル６は７で、黄色セル７は６の間違いですかね？
    Option Explicit

    Sub ColorSpace()
        Dim r As Range
        Dim n As Long
        For Each r In Range("A1:A3000")
            If r.Interior.ColorIndex <> xlNone Then
                r.Offset(, 1).Value = r.Row - n
                n = r.Row
            End If
        Next r
    End Sub

 あああ、レイアウト訂正、すみません。

（稲葉） 2016/03/11(金) 12:47

 修正前のレイアウト↓

　a列　　　　　b列　　　　　　　　　　色セル　青、黄、青、黄、と規則的です
　青色セル　　　　　　　　　　　　　　　　　　　色セル　間は　ランダムです　ー
　ー　　　　　　　　　　　　　　　　　b列に　色セル間の行数を算出するマクロ
　ー　　　　　　　　　　　　　　　　　　　　を作成したいのですが教えて下さい
　黄色セル　　４　　　　　　　　　　　　　　
　ー　　　　　　　　　　　　　　　　　a列には　数値（シングル）データが連続してー　　　　　　　　　　　　　　　　　　　　　３０００行以上　””まで有ります　ー　　　　　　　　　　　　　　　　　　　　　　　　　
　ー
　ー　　　　　　　　　　　　　　　　　色セル間が規則性なら　いいのですが　ラン
　ー　　　　　　　　　　　　　　　　　　ダムなので　作成方法が　わかりません　　　青色セル　　６　　　　　　　　　　教えて下さい　お願いします
　ー
　ー
　ー
　ー
　ー
　黄色セル　　７
　、
　、

　””
（bi） 2016/03/11(金) 14:15

　作成してもらい　有難うございます
　すぐ　御返答したのですが　なにか　他の人との投稿と重なり　だめになり
　再度　お礼します　　修正下された件　　編集で治したつもりでしたが
　そのままで　送られてしまいました　　　
青　　　　　　　　　色セル間ーランダム数になり（rows関数で青セルー黄セルを範囲指定して　
ー
ー　　　　　　　　　　　　　　　　　　　　　　　　　　　　黄セルー青セルを範囲指定して算出したものです　　　　　　　　　　　　　　　　　　　　　　　青ー黄ー青ー黄―青―黄、、、と規則的です
　　　　　　　　　　　　　　　　マクロで　色セル間の行数を算出したいと思い　お願いしたしだいです
　　　　　　　　　　作成くだされた　マクロ　早速実行したいと思います　　（rows関数での算出値より　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　１つ少ない値になるかもーー）　　　　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
黄　４
ー
ー
青　８
ー
ー
黄　１５
、
、
、
、
””

（北太郎） 2016/03/11(金) 17:49

実行しました　　見事に算出されマクロの偉大さが　分かりました　有難うございます

また　お願いすると　思いますが　宜しくーーーー　　　　　　　稲葉　様　　
（北太郎） 2016/03/11(金) 20:22

コメント返信：

[ 一覧(最新更新順) ]

[[20160311103119]] 『色セル間の行数』（北太郎） ページの最後に飛ぶ

[[20160311103119]]　『色セル間の行数』（北太郎）　ページの最後に飛ぶ