エクセルの学校：全文検索：Hyper Estraier：リスト

Results of 1 - 1 of about 8926 for リスト (0.007 sec.)

[[20240423144738]]: #score: 2746; @digest: 4820220fef3aa9010efe10da4ebc3a43; @id: 96648; @mdate: 2024-04-23T07:36:37Z; @size: 3606; @type: text/plain; #keywords: 準値 (31411), 年55 (21971), 年87 (21971), 年59 (15497), updown (15241), lower (11079), 値50 (9020), 値以 (8855), upper (8767), 値未 (7330), 値"& (7323), 年49 (7323), 値up (7323), 基準 (6246), が基 (5142), 年", (5095), ・y (4917), ・r1 (4907), 満", (4621), 上") (4345), msg1 (3461), res (3244), msg2 (3011), 年で (2865), textjoin (2414), 未満 (2264), dat (2166), 、", (2075), replace (2030), 満と (1949), 2024 (1786), 上と (1274); 『抽出したデータを並べて文章をつくりたい』（ぽむ）
元データ Aさん Bさん Cさん Dさん R1年 87 77 42 78 R2年 55 32 90 40 R3年 59 22 15 30 基準値 50 こういったデータから、関数で下記のような文章を作成したいのですが、どういった関数で組み立てることができるでしょうか。・R1年では、Aさん、Bさん、Dさんが基準値以上となり、Cさんが基準値以下となった。・R2年では、Aさん、Cさんが基準値以上となり、Bさん、Dさんが基準値以下となった。・R3年では、Aさんが基準値以上となり、Bさん、Cさん、Dさんが基準値以下となった。＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- 基準値以上は基準値を含む。基準値以下も基準値を含む。ちょうど基準値ちょうどの人は両方に表示させるのだろうか? （ねむねむ） 2024/04/23(火) 15:27:29 ---- あとどちらかが一人もいない場合にはどう表示させるのだろうか? （ねむねむ） 2024/04/23(火) 15:32:58 ---- すみません、誤っておりました。基準値以下→基準値未満です。どちらかが一人もいない場合は、 R○年では、全ての人が基準値以上（未満）となった。という表示にしたいです。（ぽむ） 2024/04/23(火) 15:46:22 ---- A B C D E F G 1 Aさん Bさん Cさん Dさん 50 2 R1年 87 77 42 78 3 R2年 55 32 90 40 4 R3年 59 22 15 30 のようなレイアウトだとして。 =A2&"では"&IF(OR(COUNTIF(B2:E2,"<"&G$1)=0,COUNTIF(B2:E2,">="&G$1)=0),"すべての人が基準値"&IF(COUNTIF(B2:E2,"<"&G$1),"未満","以上")&"となった。",TEXTJOIN("、",TRUE,IF(B2:E2>=G$1,B$1:E$1,""))&"が基準値以上となり、"&TEXTJOIN("、",TRUE,IF(B2:E2<G$1,B$1:E$1,""))&"が基準値未満となった。") と入力して下へフィルコピーではどうだろうか? ただ、現在2016でしか確認できないため確実に上記でOKというチェックができていないためダメだったらすまない。（ねむねむ） 2024/04/23(火) 16:24:05 ---- ＞ねむねむさん試してみた結果、成功しました。ご教授ありがとうございます。感謝いたします。（ぽむ） 2024/04/23(火) 16:30:09 ---- 解決済みですが、せっかく作ったので置いておきます。 A B C D E 1 Aさん Bさん Cさん Dさん 2 R1年 87 77 42 78 3 R2年 55 32 90 40 4 R3年 49 22 15 30 5 6 基準値 50 上記のレイアウトで結果はG列に出力 Sub Sample() Const Msg1 = _ "・Y年では、Upperが基準値以上となり、Lowerが基準値未満となった。" Const Msg2 = _ "・Y年では、全員が基準値UpDownとなった。" Dim dat As Range Set dat = Cells(1).CurrentRegion Set dat = Intersect(dat, dat.Offset(1, 1)) Dim ref As Long ref = Range("B6").Value Dim Upper As String, Lower As String Dim res As String Dim r As Range, c As Range For Each r In dat.Rows Upper = "": Lower = "" For Each c In r.Cells If c.Value >= ref Then Upper = Upper & "、" & Cells(1, c.Column).Value Else Lower = Lower & "、" & Cells(1, c.Column).Value End If If Upper = "" Then res = Replace(Replace(Msg2, "Y年", Cells(c.Row, 1).Value), "UpDown", "未満") ElseIf Lower = "" Then res = Replace(Replace(Msg2, "Y年", Cells(c.Row, 1).Value), "UpDown", "以上") Else res = Replace(Msg1, "Y年", Cells(c.Row, 1).Value) res = Replace(res, "Upper", Mid(Upper, 2)) res = Replace(res, "Lower", Mid(Lower, 2)) End If Next Cells(r.Row, "G") = res Next End Sub （hatena） 2024/04/23(火) 16:36:37 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202404/20240423144738.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ