Excel/VBA 2021. 05. 色付きのセルを数える、カンタンなユーザー定義関数で数えるFor Each～を使って Excel塾のマクロ講座 動画編 17回. 06 本日はエクセル関数で任意の色を数える関数CountColorのご紹介をしたいと思います。 Excel全バージョン対応 背景色のついたセルをカウントする為に ここのページに辿りついた方のやりたい事はきっと、セル背景色の色毎に数を数えて数値を出す。 そしてその数値を利用して他の関数と混ぜて使いたい って所じゃないでしょうか? 先ず初めにお伝えしたいのが、 エクセル標準搭載の関数では出来ません。色々調べたのであれば薄々察しているかと思いますがVBA(マクロ)を利用するしかないです。 でも、あぁやっぱりか…と回れ右するのは少し待って欲しい。思ってる以上にVBAは敷居が低いし、コピペするだけで願いを叶える事が出来るので腹を括って是非トライしてみよう! リンク VBE (Visual Basic Editor) を起動する エクセルを起動した状態で、Alt+F11 を押します。すると↓こんなのが出てきます。 出てきたら左側のプロジェクトの追加したいエクセルにカーソルを合わせて右クリック➡標準モジュールを選択 すると何もないまっさらな画面が出てきたと思います。 後はここに後述するコードをコピペするだけの簡単なお仕事になります。 コピペするコード:CountColor とりあえず何も考えず下記を張り付けてみましょう。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 Function CountColor ( Color As String, Rng As Range) As Long ' カウントする範囲の変数 Dim myRng As Range ' 数を数える変数 Dim nCol_cnt As Long ' ColorIndexの変数 Dim nColor As Integer ' 再計算を行わせる Application. Volatile ' 初期化 nCol_cnt = 0 nColor = 0 ' ColorIndex 必要な色が無ければ追加も可 Select Case Color Case "black" nColor = 1 Case "white" nColor = 2 Case "red" nColor = 3 Case "green" nColor = 4 Case "blue" nColor = 5 Case "yellow" nColor = 6 Case "pink" nColor = 7 Case Else ' ここに無い色の場合は終了 Exit Function End Select ' 指定範囲をぐーるぐる For Each myRng In Rng If myRng.
まず、この計算は縦1列にしか対応していません。A1:C10のように複数列の場合はエラーとなります。 次回記事でこの問題について対応しております。そちらの方法を使えば複数列でも合計出来るようになります。 もう1点は、関数を入れた後にセル色を変更した場合。たとえばA7はやっぱり赤だった、と色を変更してもC3の計算結果は更新されません。色を変更しただけではExcelは再計算行われないのです。 対処法としては、Alt+Ctrl+F9を押して強制的にSheetを更新させるのが良いでしょう。 続き [ 色付きセルの件数をカウントする [CountColor] ] 関連記事 [ 自分で関数を作ってみる ] アドインダウンロード ダウンロードページ に当記事で紹介したCountColorのアドインファイルを掲載しております。
エクセルマクロで効率化する 2021. 06.
※当日場所が分からなければ、お店までお電話下さい。TEL03-5391-0311 --------------------- 【Q&A】 Q:林原めぐみさんをよく知らない。 A:教えます♪というより皆が教えてくれます(笑) Q:ラジオ(アニメ)とか、最近聴いてない(見ていない) A:幹事もオフ会開始当時7年程振りの出戻りリスナーでした( TДT) Q:グッズ持参orコスプレしたい。 A:グッズ持参OK!コスプレもOK!ただし、管理は自己責任で! ※簡易更衣室もあります♪ Q:カラオケでのサイリウム、コールは大丈夫ですか? A:大丈夫!むしろやって(笑)幹事もサイリウム折ったりするかもしれません(笑) 但し、お店の中なので他の人や店内の物品にぶつからないようにしてください。 また、コールはカラオケを歌っている人の邪魔にならないように願います。 ● ● 下記を書き込み【参加ボタン】を押して下さい● ● 「定時」or「遅刻」 (早退等) 好きなめぐさんキャラ、曲、台詞etc.
当サイトのすべての文章や画像などの無断転載・引用を禁じます。 Copyright XING Rights Reserved.
Give a reason~Ballade version~ 目まぐるしい 時間の群れが 走り抜ける 都市はサバンナ かわるがわる シュールなニュース 明日になれば 誰も忘れてる 生きている 今 生きている そんな中で 何かを求め もがくように 抜け出すように この力を 試してみたくて きっとどこかに「答」ある 生まれてきた答が 人は皆 それを求め やるせない のがせない 夢に向かうの 傷つく事は恐くない だけどけして強くない ただ 何もしないままで 悔やんだりはしたくない Here we go! go! 走り続ける 誰にも止められはしない 未来の自分へと Give a reason for life 届けたい 計り知れない 大きな闇が 音を立てて 向かって来ても 朝が来れば 誰かが居れば 心にある 絶望は消せる もっと強くイメージして 微笑んでる自分を 信じてる思い それが 何よりも 誰よりも 夢に近づく ゴールにもたれたりしない たとえ 辿り着いたって 新しい夢がきっと 私の背中押すから Here we go! go! 走り続ける 誰にも止められはしない 未来の自分へと Give a reason for life 届けたい 傷つく事は恐くない だけどけして強くない ただ 何もしないままで 悔やんだりはしたくない Here we go! go! 走り続ける 誰にも止められはしない 未来の自分へと Give a reason for life 届けたい