挟まれた数字を変換するマクロ

Question

上図の様なエクセルで、１に挟まれた0を１に変換するマクロを作成したいと思っています。

ですが、全く見当がつかないので何か助言をいただければ。。。と思います。

よろしくお願いします。

Comments

[himakuma]

もう少し具体的な例を記載していただけませんか？１に変換する前、後の状態が知りたいです。

[himakuma]

多分オセロ的な感じですか？

[lain]

挟まれるというのは列、行のどちらなのでしょう？

[torisan]

0が1に変わって、また新たに1と1に挟まれた0ができると思うのですが、それについての処理はどうすれば良いのでしょうか？また処理が１回のみで、処理する方向が複数(縦と横 等)の場合、処理する順番によって結果が変わってしまう事がありますが、それについてもお答えください。

[churi_yuzuki]

曖昧で申し訳ありませんでした。挟まれる、というのは行方向で、新たに出来た１に関しては想定しておりませんでした。。

Answer 1

塗りつぶしの条件が曖昧でしたが、サンプルで掲載いただいたシート内容からオセロ的なものではなく、横方向の範囲塗りつぶしと推測して回答させていただきます。
（掲載いただいたサンプルシートを参考に、各行に１は２回出現し、その範囲を塗りつぶすものとしています。）

---

処理の流れは以下のようになると思います。

①対象行をループ処理する。
（行ループ開始）２行目～４行目
 ②各行のB列からI列の範囲で最初の１を探す。
 ③見つけた1のセルの右隣のセルからI列の範囲で１を探す。
 ④見つけた始点～終点の間のセルを１に書き換える
 （列ループ開始）始点列～終点列
   該当行・列のセルの値を１にする
 （列ループ終了）
（行ループ終了）

今回はご自身で作成されたコードの掲載がありませんでしたので、回答でもコード記載は控えさせていただきました。
処理手順のアドバイスのみさせていただきましたので、これを参考にコードを起こしてみてください。

その過程でまたわからないことなどが出てきたら、作成コードとともに追記していただければより具体的なアドバイスができると思います。

※前提条件にかなり推測が含まれていますので、見当違いなアドバイスとなっていたらすみません。

Comments

[churi_yuzuki]

アドバイスありがとうございます！
ロジックは理解できたので無事記述できそうです。
やってみます。

Answer 2

単純に自分の周辺８方向を調べればわかるとは思います（さして速度を気にしないなら）
アルゴリズムだけまとめた擬似言語だと下記のような感じでしょうか。後は頑張ってVBAのコードで書いてみてください。

if (自分==0)
{
    if ( (左上==1 and 右下==1)
       or (上==1 and 下==1)
       or (右上==1 and 左下==1)
       or (右==1 and 左==1) )
    {
        // 1に挟まれているので１に書き換える
    }
}

// 後はこれを全マスに対して行うfor文を書く

Comments

[churi_yuzuki]

なるほど、、そういう走査方法もあるのですね、やってみます、ありがとうございます！