
No.3ベストアンサー
- 回答日時:
補足を参考に行単位の網掛け条件に合致する個数をカウントするモデルのマクロです。
単に、網掛けの条件を羅列しているだけです。
使い方は、=AmikakeTTL(行数) です。
合計したい行のどこかに =AmikakeTTL(ROW()) とすればコピーもできます。
同一列でのカウントも同じようにできることになります。
ご参考に。
Public Function AmikakeTTL(rw As Long)
Dim TTL As Integer '網掛け個数
Application.Volatile '自動再計算関数にする
With ActiveSheet 'Sheetが決まっていたら固定していい
'列Hでは10未満(の会社)
If IsNumeric(.Range("H" & rw)) And .Range("H" & rw) < 10 Then
TTL = TTL + 1
End If
'列Iでは100以上
If IsNumeric(.Range("I" & rw)) And .Range("I" & rw) >= 100 Then
TTL = TTL + 1
End If
'列Jでは・・・・・
'列Kでは・・・・・
End With
AmikakeTTL = TTL
End Function
nishi6さま
たびたびほんとうにありがとうございます。
私には、ぱっと見ただけでは理解できませんが、マクロを全く未体験というわけではないので、本を参考にしながら、理解し、トライしてみようと思います。
とにかく、お返事を頂き感激致しましたので、まずはお礼まで。
No.2
- 回答日時:
>条件付き書式の網掛けはだめなんですか。
今回まさにそれなので条件付き書式の場合、網掛けをする条件さえわかれば簡単でしょう。
COUNTIF(範囲,条件) か 面倒な条件なら網掛けをする条件をコード化すればいいでしょう。
質問からは条件付き書式とは読みきれないですね。デハ。
この回答への補足
ふたたびのご回答、本当にありがとうございます。m(__)m
>質問からは条件付き書式とは読みきれないですね。
教えて頂くには、どういう情報が必要なのか、なかなか判断が付きかねてしまい・・・。説明不足ですみませんでした。
>条件付き書式の場合、網掛けをする条件さえわかれば簡単でしょう。
>COUNTIF(範囲,条件) か 面倒な条件なら網掛けをする条件をコード化すればいいでしょう。
それが、各列に入っている条件が、ちがうのです。例えば列Lでは50以上、列Mでは10以下、というように。ですので、難しいと思うのですが。
ご厚意に甘えて、もう少し説明させて頂くと、行5は○○商事、行6は○○食品、というように、各行が会社ごとの情報になっています。そして、列Hでは取引年数、列Iでは従業員数、などの項目となっています。そして、列Hでは10未満(の会社)、列Iでは100以上が網掛けされるように設定してあります。そして、タテの合計(取引年数10年未満の会社は何社あるか)は、設定できましたが、ヨコの合計(○○商事は、いくつの項目が当てはまるか)の設定に苦労している次第です。
もし何かお知恵を拝借できるととても助かります。
No.1
- 回答日時:
通常のワークシート関数では難しいでしょう。
ユーザー定義関数を作ってみました。ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに下記コードを貼り付けます。
シートに戻り、例えば、範囲A1:B10を調べる場合は、
=PatternCellsCount(A1:B10) のようにします。
対象範囲の網掛け設定を変更した場合は、再計算を行ってください。また、これは条件付書式の網掛けは感知できません。
↓ここから
Function PatternCellsCount(rgSel As Range)
Dim rg As Range 'セル
Dim ct As Long 'カウンタ
Application.Volatile '自動再計算関数にする
For Each rg In rgSel
'網掛け設定されていればカウントする
If rg.Interior.ColorIndex <> xlNone Then
ct = ct + 1
End If
Next
PatternCellsCount = ct
End Function
nishi6さま、いつもいつもありがとうございます。
ありゃ、条件付き書式の網掛けはだめなんですか。今回まさにそれなので、じゃあせっかく教えて頂いたけれど、だめですね。
申し訳ありません、でも勉強になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
今、見られている記事はコレ!
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
-
なぜ批判コメントをするの?その心理と向き合い方をカウンセラーにきいた!
今や生活に必要不可欠となったインターネット。手軽に情報を得られるだけでなく、ネットを介したコミュニケーションも一般的となった。それと同時に顕在化しているのが、他者に対する辛らつな意見だ。ネットニュース...
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで社歴管理をしており4年...
-
セルを結合したA4とA5の条件付...
-
Excelで表を作り、自動で今月の...
-
ある倍数だけを塗りつぶす方法 ...
-
excel:条件付き書式の適用範囲...
-
色のリンクは出来ますか?【エク...
-
エクセルの条件付き書式による...
-
エクセルの小計のみに色をつけ...
-
vba 条件付き書式を一般書式に...
-
Excelの塗りつぶしの反映
-
エクセルで
-
未来の日付日欄を無色(空白)...
-
(エクセル)該当の場合、自動で...
-
Excel2010 日付列を結合した予...
-
エクセル 条件付き書式が反映さ...
-
Excelを使ったメタボ判定の式を...
-
エクセル2010の書式の条件設定...
-
【Excel】ガントチャートの作成...
-
EXCELで違う値の場合色を変えたい
-
左列の文字の色と同じ文字の色...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルを結合したA4とA5の条件付...
-
Excelで表を作り、自動で今月の...
-
Excelで社歴管理をしており4年...
-
ある倍数だけを塗りつぶす方法 ...
-
excel:条件付き書式の適用範囲...
-
左列の文字の色と同じ文字の色...
-
エクセル 条件付書式で時刻の...
-
色のリンクは出来ますか?【エク...
-
【Excel】ガントチャートの作成...
-
Excelの塗りつぶしの反映
-
エクセルで
-
条件付き書式設定で色をつけた...
-
スプレッドシートにて、条件付...
-
Excel2010 日付列を結合した予...
-
エクセル 文字列に数字を含む場...
-
条件付き書式のやり方。隣のセ...
-
Excelを使ったメタボ判定の式を...
-
エクセルの折られたセルを戻したい
-
(エクセル)該当の場合、自動で...
-
エクセルで毎年同じ月が来ると...
おすすめ情報