Excel2016 で特殊なカウントをしたいです。

質問

１度同じ質問をしたのですが、上手くいかなかったのでリトライします。
Excel2016で特殊なカウントがしたいのですができません。そこでご助力頂ければ幸いです。内容は以下に説明します。

範囲D6 : G8 の3×4の１マスずつにアイウエオカキクケコのいずれかがランダムに入ります。
この3×4を１範囲とし、(D6 :G20)までに合計5範囲あると考えて下さい。
他の4範囲は(D9:G11)、(D12:G14)、(D15:G17)、(D18:G20)で、同じく上の様にとなります。

次に、K10にア～コを１つずつ順に入れると入れた値に応じて範囲D6 : G20 にある同値が黄色く塗りつぶされるという形になっています。
ここからが私にとって特殊カウントであり難題になります。

K10の値に応じて黄色くなった値を特殊な形でカウントします。

そのルールは次になります。

K10の値に応じて、3×4の１範囲内に、上下と斜め(必ずしも連なる必要はない)、で重複したものを1個と捉え、水平に重複しても1個と捉えない。(水平上の重複以外の重複ならカウントすると言う意味です。それらが重複しても1個カウントだけです。 )
例え３行内に、上下斜めに重複する形が複数確認できたとしたも1個としてカウントします。

5範囲ありますので最大合計値は5個になります。最小合計値は0ですが、空白(空白でなくてもOK )にします。

次に、その合計値を、範囲(AA10:AJ10)に左から順にア～コと付ってますので、その下の範囲(AA11:AJ11)に、0無し(0入りでもOK)で入れたいです。
範囲(AA11:AJ11)が満杯になると範囲(D6:G20 )に新しくア～コの記号をランダムに入れます。
再び特殊カウントされると範囲(AA11:AJ11)のその下の行へ下の行へと合計値が射出される繰り返しの形を希望します。

それと併せて、範囲(AA11:AJ11)の合計数値が3個以上のア～コの記号はその行数の(M11:R11)に、２個だけの記号はその行数の(S11:X11)にと、左りから入れる形にして、特殊カウントがされる度に上の繰り返しの形と併せて、下から下にと、反映する形を希望します。

ご協力お願い致します。

回答No.13

kkkkkm · ベストアンサー

> 漢字やごちゃごちゃしたのが混ざってました。

こちらから見えないことを言われてもわかりませんし、スマホからパソコンに云々というのも私には関係のない事なのでわかりません。

お礼

バッチリできました。気持ちが良かったです。今度は図も載せられるように工夫してみたいと思います。
ありがとうございました。

回答No.2

m5048172715

VBAを使って良いとも書いてなかったぞ。でも特別にその方法を書いてみようか。セルを黄色く塗る関数の作り方だけだけど。コーディングなんて20年ぶりだ。

おおよそ、
(1) マクロ記録でどこかのセルを黄色く塗るマクロを記録。
(2) (1)をfunctionに書き換え、y, x座標を引数に設定。セレクトの範囲指定も引数を反映するように書き換え。
(3) (2)を主のサブルーチンから呼ぶ。

同様に他の処理も小さい関数の組み合わせを適度に行う。

forステートメント、ifステートメント使用や任意のセルを読み書きをできれば、目的達成にかなり近づく。

マクロの例
Sub main()
Z = セル黄(3, 10)
End Sub

Function セル黄(y, x)
Cells(y, x).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Function

目的をVBA抜きで出来るユーザーは達人だろう。たぶん。私には出来ない。

お礼

ご協力の気持ち、ありがとうございます。決してVBA無しではないので。

細かい内容をマクロで繋げるのも有りなんですが、VBA ソースで作った方が計算時間が早いんです。

１度主旨に沿った内容で作って貰ったんですがカウントができてたり、できてなかったりと、後バグったのかなぁってのも有りまして混乱(希望でない形で黄色にそまったままだったりと…)。

でもその方はVBA コードをバッチリ書いてくれてまして、問題以外は完璧にできてました。
後少しなんですが…。私の方も問題があるのだろうと推測もしてるんですが…不慣れなもんで。

回答No.1

m5048172715

Excel2016 がVBAを使えれば、可能でしょう。処理がVBAならユーザーはゆったりとコーディングできるので。

VBA抜きでやる方を難しいと私は感じる。

お礼

VBA 抜きとは書いてませんよ。返答ありがとうございます。