[[20211026144222]]　『特定範囲内の図形(オブジェクト数）をカウントし刀x（Era）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『特定範囲内の図形(オブジェクト数）をカウントし特定セルに書き込みたい』（Era）

お世話になります。
特定範囲内にある図形をすべてカウントし特定のセルに書き込みたい。
条件：
図形はサイズの異なる四角形
例：A1：H10のカウントをK2に書き込む
　　A15:H25のカウントをK16に書き込む

対策お願いします。

＜ 使用 Excel：Excel2016、使用 OS：Windows10 ＞

---

左上セルのTopとLeftを取得
右下セルのTop+HeightとLeft+Widthを取得
すべての図形の同様の値を取得し条件にあった場合カウントを増やす
集計が終わったらセルに書き込む
（砂糖） 2021/10/26(火) 15:12

---

数式でやる方法はわかりませんが、ＶＢＡであれば

 (1)For Each 〜 Nextステートメントで、シート上の全図形（シェイプ）を巡回して
 (2)Intersectメソッドを使い【"特定の範囲"と Range(シェイプ.TopLeftCell, シェイプ.BottomRightCell)】を求め
 (3)(2)のAddressが【Range(シェイプ.TopLeftCell, シェイプ.BottomRightCell)】のAddressと合致したら、カウントアップ
 (4)(3)でカウントした結果を出力

と考えてみてはどうでしょうか？

（もこな２） 2021/10/26(火) 17:43

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.