• ベストアンサー

うるさい老人を有無を言わせず仕分けるには？

tom04の回答

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは！ 面白そうなのでちょっとやってみました。 クリックではなくダブルクリックにしています。 ↓の画像のような表を作成しておきます。 A2～C6（実際はC5まで）にF列の氏名が入るようにしています。 E2セルを =RAND() としてオートフィルでE15セルまでコピーしておきます。 （最終的にはE列は非表示にした方がよいと思います） 画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に ↓のコードをコピー＆ペーストしてみてください。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'この行から If Application.Intersect(Target, Range("F2:F15")) Is Nothing Then Exit Sub Dim i As Long Dim myArea As Range Set myArea = Range("A2:C6") Cancel = True Application.Calculation = xlManual i = WorksheetFunction.Rank(Target.Offset(, -1), Range("E2:E15")) myArea(i) = Target Target.Font.ColorIndex = 2 If WorksheetFunction.CountA(myArea) = WorksheetFunction.CountA(Range("F2:F25")) Then Application.Calculation = xlAutomatic End If End Sub Sub リセット() Range("A2:C6").ClearContents Range("F2:F15").Font.ColorIndex = xlAutomatic End Sub 'この行まで F列セル（本人の氏名セル）をダブルクリックしてもらいます。 そうするとA2～C5セルのどこかにその氏名が表示され、F列フォントが「白」になります。 （全員がダブルクリックするまで、再計算はしないようにしています） ※　リセットの操作も必要だと思いますので、別マクロを一緒に乗せています。 リセットの場合は Alt+F8キー　→　マクロ　→　マクロ実行 の操作をしたのちに、F9キーを押下！ これで再計算されますので、どこに配置されるかわかりません。 こんなんではどうでしょうか？m(_ _)m

画像を拡大する
72amenhotep
質問者

お礼

tom04　様　　早速のご回答ありがとうございました。VBAのコードまでご提示くださっての解説非常に参考になりました。３つのご回答の中こちらの要望にもっとも合致した内容として評価させていただきます。ありがとうございました。

この回答がついた質問に戻る
回答 全件
ベストアンサー
乱数を使う方法の難点の一つは、そのエクセルをちょっと他の事に使うと、今…
なるほど、面白そうなので私もちょっと参加させてくださいませ。 各人が…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • 30枚ほどのデジカメ画像をアルバム形式にしてメールで送るには？

    同好会のイベントで写した30枚ほどのデジカメ画像を会員各人にメールで送る予定です。枚数も多く、受信後のことも考えアルバム形式にして送りたいのですが、もっとも簡便なのはどういう方法でしょうか（web上でのアルバム公開等ではなく）。ご教示願います。出来ればメッセージ、コメントなども入れたいのでワードに画像を貼り付けることも考えたのですが、出来上がったファイルがメール添付に適したサイズに縮小できるのか、またその方法も判らず困惑しています。（WindowsXP/HE,Outlook Express6）

  • エクセル　参加者リスト

    自治会の組毎の有料参加者のみを、算出する方法 現在OS Windows 11 Office 2019 Excel を使用しています 行事参加者リストに於いて、子供以外の参加費は、一人５００円とし、 組毎の参加者数は、 SUMIF関数で算出していますが、大人のみの会費 を組毎に出す方法を、教えて下さい。 又、エクセルファイルを、添付する方法が判りません、これも併せて 教えて下さい、宜しくお願いします。

  • EXCELの関数で教えてください。

    こんばんは。 ただいま、同窓会の参加・不参加をEXCELで作成しているところです。 参加者には『○』 不参加者には『×』 未定者には『△』 としたいのですが、どうすればいいか迷ってます。 IF関数でお願いします！！

  • 親のご近所トラブルについて

    親がご近所トラブルで、精神的に悩んで、「死にたい」とまで言い出しました。 きっかけは、ご近所の路上駐車で、警察に通報した人がいるらしく、なぜか私の母が通報したと言ううわさになり、１０年以上濡れ衣で仲間はずれのようにされてきました。もちろん通報はしていません。 路上駐車していたうちは元市議会議員の家なので、みんな嫌われては困る的な感じなんです。 最近は、仲間はずれにされてても慣れてきたようで、老人会に入り、グランドゴルフをするなどげんきにしていました。 しかし、グランドゴルフにもその情報が回り、会長から嫌がらせを受けたり、お花見会の参加、不参加に勝手に不参加に○をされてたり。 せっかく気晴らしができていたのに「ゴルフはやりたいけど、嫌がらせがひどすぎる」と悲しんでいます。そしてやめてしまいました。 でも、どれも素人の私から見ると、物的証拠もなく、文句をいいに行くにも「やってない」「いってない」と言われても仕方ないとも思うのです。 市役所に相談に行きましたし、民生委員も来てくれたりしましたが、何も変わりませんでした。 そのうち、定年退職した父に毎日母が「つらいつらい」言っているうちに、父まで欝のようになってしまい、家から出れません。 外に出ると、みんながいやな顔をするというのです。 私は隣町に嫁に来ているので、よく実家に行くのですが、私自身はあまり気にならないのですが、「きのせいじゃない？」と言うととたんに顔色を変えて気のせいではないと怒り出します。 それも、証拠がなく、個人の感じ方もあるのでなんともできないところがあります。 引越しを勧めていますが、年金暮らしで、アパートを借りて、初めての土地ですむのも勇気がかなりいるようで。 でも、無理やりにでも引越しさせたほうがいいのでしょうか？ うちで一緒に住めればいいのですが、我が家は８坪の狭小住宅で・・・。 ほかに何か相談するところや、私ができそうなことがあれば意見をいただきたいです。 長くなりましたが、よろしくお願いします。

  • Excelで割り振りしたい。

    Excelを使って以下の割り振りをしたいと思います。 (添付ファイル参照) ・No1～10の10人がそれぞれA～Fの６つの部屋のうちから３つの部屋を選びます。 ・選んだ部屋で行われる説明会に参加します。 ・各説明会は３回行われるので、10人は１回目～３回目で選んだ３つの部屋を回ることになります。 ・各部屋の各回の人数はなるべく均等になるようにします。 　例えば添付ファイルでは、会場別のべ希望数がEは３なので、１回目～３回目の参加者数は1,1,1とし、Bは6なので2,2,2となるようにします。 このような条件に当てはまるように、各人の１回目～３回目に参加する部屋を割り振りたいのです。 なるべくマクロは使わずに割り振り表を作成したいのですが、Excelでできますでしょうか？ よろしくお願いいたします。

  • ポイント制にて選手選考をしたい

    ゴルフ場の研修会幹事をしているものです。 選手選考にポイント制を使いたい ※現在は15回の内ベスト5のスコアの平均にて決定 ※偏差値を使って算出したい （平日の参加者が少ないためポイントを考慮したい） また偏差値を使用したエクセルにて作成を試みましたが うまくいかず（自分の技量不足だと思います） どのように計算式（関数）を入力するか等 詳しく教えて頂ける方いらっしゃらないでしょうか？ 分からない部分は補足していきたいと思います よろしくお願い致します。

  • エクセルでランダムに隠しホールを設定する方法No2

    数日前にゴルフの新ぺリア方式のときの隠しホールをエクセルで ランダムに設定する方法を質問させていただいたものです。 IF関数で対象ホールを絞り込みSMALL関数で抽出し、 その後、MOD関数でホールNoを切り出す方法をここで 教えていただいたのですが、どうしてもうまくいかず、 #VALUE! が帰ってきてしまいます。 簡便化するため以下のように検定してみました。 A列に1-9までの番号。 B列には2-5までの任意の数。 仮にB列の数字が"4"であるものの中から どれか一つを選ぶという条件を付け、 D列のD2にその番号(1-9)を返す。 というサンプルにいたしました。 しかし、やはりD2の結果には#VALUE!が帰ってきます。 ただ、B2が"4"で有った場合のみ#VALUE!ではなく 数値が表示されますが、この場合も、B列に"4"が 割り当てられている番号だけでなく、A列の番号の どの番号でも再計算のたびに表示されます。 A列 B列 1 3 2 2 3 5 4 3 5 4 6 3 7 5 8 2 9 4 C列には抽選のためのランダム数を割り当てるため C2=RANDBETWEEN(1,99)*100+A2 D2には抽選の結果当選した番号を表示するため D2=MOD(SMALL(IF(B2:B10=4,C2:C10,""),1),100) と入力しました。 検証していただき、訂正の必要がある箇所がありましたら ご指摘いただきたく存じます。

  • ★同好会（野球）の運営について相談に乗ってください！

    こんにちは。 野球の同好会に加入している、 または運営している方いらっしゃいませんか？ この度、同好会を作ることになり、 運営方法がいまいち不案内なので困っています・・・ 全部ご回答いただかなくても、わかる範囲でお答えいただければ嬉しいです。 よろしくお願いします！ ＜当チーム事情＞ ＊２０代～３０代半ば中心（２０名程度） ＊女子マネージャー有り ＊全員が社会人 ＊チームコンセプトは「楽しくやろう！（勝敗にはこだわらない）」 ＊練習は２回／月程度を予定 ＊ボール・バット等はあるので、新規購入の予定はしばらくナシ。 ＊公営グランド中心（安価） ＊ユニフォームは追々検討。 ＜質問＞ １）運営費（会費）は月にいくらくらいですか？ ２）会費の徴収はどのようなシステムですか？ 　　その都度、参加者で割り勘？月会費を決めて初日に徴収？ ３）練習の連絡等はどうしていますか？ 　　ＨＰ・掲示板使用？メール連絡？電話連絡網？ ４）会費の取りまとめはどうしていますか？ 　　専用口座を準備？会計係が現金で管理？ ５）中心となって動いているメンバーは何名くらいですか？ 　　例：主将１名、副主将１名、会計１名　計３名 その他、同好会を続けて行くにあたって、 必要なことや、考えておくべきこと等、なんでも結構です。 ぜひアドバイスをお願いします。

  • 団地内の親睦会

    市営住宅に住んでいるのですが、今年は住んでいる棟の役員をしているのですが、来月に毎年親睦会というものをやっていまして、晴れていれば、近所の小学校でパターゴルフ、雨なら体育館でカーリング？をやっているのですが、日曜日ということもあって参加者が毎年、そろわなくて役員になった人が大変だと聞きました。私個人としては中止にしてほしいのですが、そうもういかないみたいなので、小学校のグランドや体育館で子供から大人がいっしょに楽しめて、評判が良かった何かがあれば知りたいと思って、質問させていただきました。

  • 町内にある福祉施設の位置づけ

    郊外にある４０年ほど前から人が住み始めた住宅地域です。 ほぼ同時期に同じ域内に建てられた特別擁護施設がこのほど区域内の町内会のメンバーに法人として入会されることになって、施設の防火訓練の打ち合わせに行きました。 私はボランテアとして町内会の独居老人の見回りなどを行っているのですが、施設の世話役さんから、構内での祭りやクラブ、同好会への参加や、髪すきとかの地域のボランテアもお願いできればという話がありました(人手が足りないのでしょうか）。 確かに施設の動けない老人たちと健常者とのふれあいが多くなれば活性化がはかられ、いいことにはまちがいありません。囲碁や将棋などの遊戯に参加しておられる町内ご近所のかたもぼちぼち増えています。でもそういう動きは基本的に入居者の係累が優先するべきだとも思います。むづかしい話かもしれませんし、それが出来ないからこその施設であるのでしょうけれど。 　町内の独居老人と擁護施設の入居者とはカテゴリーが違いますし、われわれの本来の意図とはずれもありますので、私は彼らのお話にちょっと違和感がありました。もちろん後ろ向きの気分は出さず、そういう地域との融和に成功した例を聞かせて欲しいといいましたが、それはあるでしょう、という軽い返答だけでした。 重度の養護施設へのボランテアに詳しいかたがおられましたら、これらについての前向きのお話とか実例をお聞かせいただければ幸せです。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する