エクセルで名簿を作ります。
各チームごとにリーダーとメンバーがいます
こんなカンジ
リーダー| メンバー
Aさん|○○さん ○○さん ○○さん・・・
Bさん|○○さん ○○さん ○○さん・・・
Cさん|○○さん ○○さん ○○さん・・・
Dさん|○○さん ○○さん ○○さん・・・
で、あるリーダーは別なチームのメンバーになる場合があるんですね。
例えばAさんがCさんのチームのメンバーになる、など。
それはいいのですが、その場合、お互いがお互いのリーダーになることは避けたい。
リーダー| メンバー
Aさん|○○さん Cさん ○○さん・・・
Bさん|○○さん ○○さん ○○さん・・・
Cさん|○○さん Aさん ○○さん・・・
Dさん|○○さん ○○さん ○○さん・・・
こんな感じです。
名簿を更新する時、入力中にそれを自動的に検出することはできないでしょうか?
例えばAさんとCさんのセルに色をつけるとかです。
INDERECT関数とかを組み合わせていたのですが、うまく行きません。
できれば関数の組み合わせで実現できればと思っています。
No.2ベストアンサー
- 回答日時:
「できれば関数で」とのことでしたので関数でも考えてみたのですが、縦横の二重の検索処理で非常に複雑になり実用的ではありませんでした。
やはりマクロの方が簡単ですね。マクロがNGなら読み飛ばして下さい。以下のマクロをALT+F11でVBE画面を開き、「VBAProjectエクスプローラのシート名右クリック」→「挿入」→「標準モジュール」で表示される画面にペーストして下さい。実行はシート画面に戻って、ALT+F8を押してマクロ一覧からマクロ名を選択して実行します。
Sub Macro5()
Dim idx As Long
Dim rng As Range
Dim res
Application.ScreenUpdating = False
With ActiveSheet
.Range("A2:IV65536").SpecialCells(xlCellTypeConstants, 3).Interior.ColorIndex = xlNone
For Each rng In .Range("B2:IV65536").SpecialCells(xlCellTypeConstants, 3)
For idx = 2 To .Range("A65536").End(xlUp).Row
If rng.Value = .Cells(idx, "A") Then
res = Application.Match(.Cells(rng.Row, "A"), _
.Range(.Cells(idx, "B"), .Cells(idx, "B").End(xlToRight)), 0)
If IsNumeric(res) Then
rng.Interior.ColorIndex = 6
.Cells(idx, "A").Interior.ColorIndex = 6
End If
End If
Next idx
Next rng
End With
Application.ScreenUpdating = True
End Sub
実行前に必ずデータはセーブしておいてください(結果が気に召さない場合にUNDOは利きませんので)
ありがとうございます。
マクロNGというのは
私自身マクロに精通していないことと、
関数ならば「少しだけ分かる」という人と共同作業することになるので、なにか関数を組み合わせるだけで実現できないかな~と思っていたからです。
実はマクロでの処理も検討していて、実際取り掛かり始めてました。(慣れないので時間かかる)
とても助かりますm(_ _)m
ありがとうございましたm(_ _)m
No.1
- 回答日時:
メンバ列にリーダ列の名前が重複した場合、そのセルに色付けする方法ですが如何でしょうか。
(1)仮に名簿表がA1:D5で見出し行ありとし、メンバ入力セル範囲B2:D5を選択
(2)書式→条件付き書式
(3)「数式が」を選択、=COUNTIF($A:$A,B2)を入力
(4)書式→パターンタブで任意の色を選択→OK
ありがとうございます。
この場合リーダーは検出できるのですが、実際の状況はほとんどのリーダーがどこかのメンバーになっているんですね。
逆を言えば、大部分のメンバーがリーダーでもあるので、リーダーを検出するだけではあまり意味がありません。(なので更新時に見逃してしまう)
「お互いにリーダーであること」のみを検出できないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 仕事術・業務効率化 部署内のチームのリーダーを務めることになったのですが、「さて組織のリーダーをやっていくにはどんなこと 3 2022/10/26 10:20
- 友達・仲間 ゲームのチーム対戦にて。 各グループが割り振られ、リーダーが決まりました。 その各グループはメンバー 1 2023/01/23 09:50
- 日本語 切迫という熟語について 4 2022/09/26 17:28
- Excel(エクセル) エクセルの設定一覧のようなものは出力できますか? 同じエクセルのファイルを開いた時にチームのメンバー 2 2023/02/16 16:45
- オンラインゲーム ゲーム友達に犯人と疑われていて困っています。 2 2023/07/10 08:35
- 学校 学校でとあるリーダーになってしまいました。 じゃんけんに負けてしまってリーダーになったのですが、じゃ 4 2023/04/23 10:39
- 会社・職場 公務員にて、課の中のあるチームにて1人は子供の保育園のため残業できないママがいるのですが、別のメンバ 1 2023/03/20 12:31
- その他(就職・転職・働き方) 公務員にて、課の中のあるチームにて1人は子供の保育園のため残業できないママがいるのですが、別のメンバ 3 2023/03/20 12:46
- いじめ・人間関係 至急!もう我慢の限界です。相談乗って下さい。18歳男です。私は一週間前から専門学校に通いはじめました 3 2022/04/15 19:21
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
(Excel2003)すぐ左の最後の行...
-
条件に応じて特定の行を非表示...
-
Excelで連続印刷をするマクロ
-
Excelでセル内の数式は残し値だ...
-
行の入れ替えってどうするの?
-
Excel2007で、太字にした行のみ...
-
Excel(VBA)データ入力に応じて...
-
並べ替えのマクロで対象行の範...
-
Excelで連続した1以上の数値の...
-
エクセル VBA 小数点を含む数字...
-
Excel にて非表示行を探すワー...
-
エクセルで全ての数字間にカン...
-
整数行を残し小数点の行を削除...
-
エクセルを使って英文から単語...
-
Excel2007 セルを右方向に削除...
-
エクセルで数値を簡単に加算したい
-
値貼り付けをしても書式も貼り...
-
「マクロ」の足し算の式を教え...
-
エクセルで、行ごとの並び替え...
-
Excelで更新日を自動的に入れたい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
条件に応じて特定の行を非表示...
-
Excel2007で、太字にした行のみ...
-
「マクロ」の足し算の式を教え...
-
Excelで連続印刷をするマクロ
-
Excelでセル内の数式は残し値だ...
-
エクセル VBA 小数点を含む数字...
-
エクセルで、行ごとの並び替え...
-
エクセルで全ての数字間にカン...
-
Excel(VBA)データ入力に応じて...
-
Excel にて非表示行を探すワー...
-
Excel2007 セルを右方向に削除...
-
VBA コピーを有効行までループ...
-
Excelで周期的に列を削除する方法
-
excel ある部分だけをコピペし...
-
wordのvbaでハイパーリンク設定...
-
エクセルで連番をマクロで
-
値貼り付けをしても書式も貼り...
-
エクセル マクロ オートシェ...
-
Excel 2013 文字列内の文字重複...
-
並べ替えのマクロで対象行の範...
おすすめ情報