Excel総合相談所 152

1 ：名無しさん＠そうだ選挙にいこう：2022/12/25(日) 07:38:10.99 .net

【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 151
https://mevius.5ch.net/test/read.cgi/bsoft/1664405768/

396 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:16:36.43 .net

法則
馬鹿は質問すらまともにできないから馬鹿である

397 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:19:20.95 .net

>>395
ここは馬鹿が馬鹿にするスレです

398 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:21:40.12 .net

>>395

Excel 365についての質問ですね。週に1度、他からデータを受け渡して、sheet1に丸ごとコピーし、作業を行っているということですね。大きさは列がAからFまで固定で、行数は1000から2500ぐらいの幅があるデータです。sheet2はsheet1の同じセル番地を参照した式がA1からF3000まで入っています。sheet3はsheet2を参照した式が入っており、また他のsheetも8個あり、セル計算で重たいということですね。

このような状況では、以下のような対処法が考えられます：

計算式の簡略化
不要なシートの削除
VBAマクロを使用して、データの自動処理
複数のブックに分割する
外部データベースソフトウェアを使用する。
どの方法が適切なのかは、お客様の状況によって異なりますので、確認してから選択することをお勧めします。

399 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:26:21.32 .net

>>396
どう読んでも質問に見えないだろ
この後の質問に続くための前提でしかない

400 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:27:35.76 .net

でもAIはきちんと質問とみなして回答する辺りはここにいる↑馬鹿よりも賢いやw

401 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:32:08.09 .net

AIに負ける馬鹿w

402 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:35:36.71 .net

>>399
質問で始まって続きはないけど？

403 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:37:14.51 .net

>>402

>>398

404 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:42:21.70 .net

零細企業のVBAすらわからない馬鹿が荒らしてる

405 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:50:20.44 .net

>>402
だから質問書くのに時間かかってるんだろ

406 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 12:56:47.18 .net

>>395
もしかしたら質問内容は、
｢こんなことを気にしていたら最近髪の毛が薄くなってきました。元のようにふさふさな髪の毛になるにはどうしたら良いでしょうか？｣
かもしれん

407 ：395：2023/01/30(月) 13:05:44.05 .net

こんなことを毎日毎日繰り返さなければならない仕事を退職したいです
退職届を作成するのに使い易いテンプレートを探しています
ご存じでしたらご教示をお願いします

408 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 13:12:36.50 .net

もうスルーでいいよ

409 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 13:14:42.07 .net

　> 週に1度、他からデータを受け渡され、それをsheet1に「丸ごとコピーし」て
もう既にこの段階でExcel使いじゃ無い　素人なら素人でも仕方無いけど、無暗と張り切って8Sheetにも加工してしまっている　阿呆かと
Sheet1がA-F列なのに他のSheetもA-F列で「参照した計算式」を入れている　この段階で四則演算式ですら無い事をゲロっているも同然
AIはインプットされたものは何であれ「質問」と見做して処理するかも知らんが、こと、人間相手ではそうはイカのきんたま　コミュ力絞り出して欲しい

410 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 13:20:38.36 .net

>>371
なんとなくやが、
不等号付きの連立方程式組んで、
解となる数値群を導き出す。
その後、その数値群に当てはまるアイテムをフィルタかなんかで抜き出すって感じでできそうや。

自分頭悪いから半月程かかりそうや。
面倒いからやらんけど、面白いテーマやね

411 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 13:52:47.57 .net

もう全部零細の仕業

412 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 15:29:41.47 .net

>>395
AIがどう答えたか知らんけど
週1度の元データが定型なら、
俺だったらVBAはまだ使わずに、地点ごと1つのフォルダにブックを放り込み、
引用数式のsheet2、3はまず放っておいて、
原始データのsheet1だけPowerQueryで結合して
DBにする方向で考えちゃう。

引用数式のsheet2、3相当は複数持たずに1つだけ、
ピボットテーブルか、関数仕込んだ別テーブルの計算表にする。

元DBの年月日から週番号を作り、
ピボットテーブルのフィルタ機能だけ使って、スライサー化。
週絞込みの再クエリーは、スライサー選択肢を変えたときのイベントでVBAにより、

例）
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Dim tbl As ListObject
Set tbl = ThisWorkbook.Sheets("sheet名").ListObjects("クエリー名")
tbl.QueryTable.Refresh BackgroundQuery:=False
End Sub

でクエリー更新、
→関数仕込んだ集計テーブルのワークシート関数計算
→グラフに反映・・・
とか。

413 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 15:39:01.87 .net

質問に対する回答は？

414 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 15:39:15.32 .net

定期的に質問コピペしてるんだけど
毎回違う反応があって面白い
脳が縮小してるのか
覚えてないらしい

415 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 15:57:43.62 .net

「人間が答えているのか、AIが答えているのか分からなくなる」
・・・てのが今回のChatGPTの性能で露見した訳だが、
これを逆手にとって、
「【チャレンジAI】ChatGPTよりも粋な回答を目指すExcel総合相談所-別室」
みたいなスレあったら面白い。

質問者がお題をスレとChatGPTに出し、ChatGPTの答えはまだスレには出さない。
一定期間回答を募った時点で答え合わせして
AIと人間の違いを味わうのが趣旨。

416 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 17:32:27.18 .net

>>414
いかに質問クレクレ君が多いかw

417 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 17:52:03.18 .net

助けてください。

A1に 「2」 、A2に 「3」、A3に 「55」 と 入力したときに

次のシートの C２（3行目２列目）に 「５５」 と自動で数字を入れるにはどうしたらいいでしょうか。
玄人の方　ご回答よろしくお願いいたします。

418 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 18:04:47.72 .net

>>417
Excelの「IF」関数を使用すると、条件に合った場合に数字を入力することができます。
具体的には次のように入力します：

=IF(A1=2,IF(A2=3,55,""),"")

このように記述することで、A1が2でA2が3の時にC2に55が入力されます。

419 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 18:17:09.35 .net

>>414　ご回答ありがとうございます。
ただすみません、質問の仕方が悪かったA3の数字はです。

A1、A2 で 別シートの列と行、A3で任意の数字を　自動で打ちたいのです。
行 列 は範囲は1〜30ぐらいですが、A3の数字は0〜200ぐらいまであり、決まってません。

420 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 18:28:14.47 .net

>>417
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12274774397

421 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 18:35:50.52 .net

法則
｢助けて｣で始まる質問を書く奴は馬鹿

422 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 19:30:57.57 .net

よろしくお願いします。

【1 OSの種類 　 　 　 　 .】 Windows 10
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A列の項目とB列の項目で、C列に答えを表示させたいです。
A列が○でB列が□であれば、C列にOK
A列が○でB列が△であれば、C列にNG

判定する単語はA列が3種類、B列は4種類で組み合わせが12通りになりますが、Ｃ列は2種類です。

IFSとSWITCHは2016なので使えません。
列は増やして計算結果を置いて、再度そのセルから数式は入れられます。
マクロは使えないエクセルです。

423 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 19:39:49.86 .net

>>400
質問じゃないのに質問と書いてあるから質問とみなす
これは馬鹿のする判断では？

424 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 19:57:10.90 .net

エクセルで
1枚目のシートの
A列に　A〜Z＋1〜26の ランダムな文字列　（例　A3にG20、A6にD4とランダム）
B列に　1〜200までのランダムな数字　（例　B3に198、B6に54）　

が入っているときに、

2枚目のシートで
1枚目A列で指定したセルに、1枚目B列の数字を自動で出てくるようにするにはどうしたらいいですか。

例えば
1枚目A１にG20、B1に125　なら
2枚目　G20のセル に 125

1枚目A6にM3、B6に22なら
2枚目　M3のセル に 22

とでるようにしたいのです。

また、1枚目のA列に対応するセルがなければ　2枚目のセルは何も表示されないようにしたいです。

例えば1枚目A列に　B2がなければ　2枚目B2は何も表示されない状態にしたいです。

ご回答よろしくお願いいたします。

425 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 20:21:54.84 .net

Excel 2016版で一見IFS、SWITCH関数が追加されたように見えて
実は「サブスクライバー限定」というトラップがあるのか。

IFS関数やSWITCH関数など利用できない関数がある
https://pcclick.seesaa.net/article/453492468.html

旧Office 365 SoloとかのExcelでなくて、
単体買い切り版のExcel 2016だと新関数は追加されなかった？

426 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 20:26:27.17 .net

>>422
IFSとSWITCHを使えないため、条件に応じてC列に値を入力するには、IF関数を使用することができます。次のように入力します:

C1: =IF(A1="○" & B1="□", "OK", IF(A1="○" & B1="△", "NG", ""))

このIF関数を、C列全てにコピーします。

427 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 20:29:31.37 .net

>>424
Excel の 2 枚目のシートには、1 枚目のシートからの情報を参照するための「関数」を使用します。以下は例です：

2枚目 シート の 任意のセル（例：A1）に次のコードを入力します：
=VLOOKUP(A1, Sheet1!A:B, 2, FALSE)

このコードは、1 枚目のシートの列 A に対応する値を検索し、その値に対応する B 列の値を返します。

A1 セルをコピーして、2 枚目のシート内の他のセルにペーストします。

これにより、2 枚目のシートに 1 枚目のシートからのデータを参照することができます。もし 1 枚目のシートに対応するセルが存在しない場合、「#N/A」エラーが表示されます。

428 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:15:55.43 .net

１桁と２桁の日付が混在しているので
並べ替えるとこんな風になってしまいます
データはこのままで正常に並べ替える方法はありますか？
ひとつのセルの中に年月日と時間が入力されてます
2022年10月9日 21時23分
2022年1月29日 17時25分
2022年1月2日 19時41分
2022年1月30日 16時25分
2022年1月3日 12時35分

429 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:34:40.49 .net

>>428
このようなデータを正しく並べ替えるためには、日付情報をExcelの「日付」型に変換することが必要です。以下の手順を実行してください:

セル内の日付と時間を文字列として選択します。
右クリックして「書式セル」を選択します。
「日付」または「日付時刻」を選択します。
「OK」をクリックします。
日付列を選択して、「並べ替え」を選択します。
これで、日付を正しく並べ替えることができます。

430 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:39:08.52 .net

>>422
組み合わせが12通りなら
OK/NGの組み合わせをあらかじめ書いといて
それをvlookupなどで拾うのはどうかと。
d列に文字の組み合わせ、e列に判定を書いたとして
c列に入れる関数としては

=vlookup(A1&B1,D1:E12,2,false)

431 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:39:36.20 .net

既存のテーブルにパワークエリを設定する方法はある？

432 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:42:02.56 .net

>>431
はい、パワークエリを既存のテーブルに設定する方法があります。具体的には、次の手順を実行することで実現できます：

テーブルを開く
"クエリの作成" オプションを選択する
クエリのタイプを "パワークエリ" に設定する
クエリの設計ウィンドウで、使用するテーブルを選択する
必要なフィールドを選択し、必要な条件を設定する
クエリを保存する
このようにすることで、既存のテーブルにパワークエリを設定することができます。

433 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:43:36.31 .net

>>423
少なくともお前よりはAIの方がコミュニケーション能力あるな

434 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:44:42.28 .net

expand関数はどういった時に使えば良いですか？
使い道が思いつきません。

435 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:46:28.81 .net

>>434
expand 関数は、疑似要素（例えば :before、:after）が生成するボックスを持つ要素に対して使用すると役立ちます。これにより、疑似要素が生成するボックスが要素の外側に拡大することができます。

436 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:47:16.17 .net

>>432
GPTさんありがとう

437 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:48:35.28 .net

>>436
どういたしまして。お力になれてうれしいです。

438 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:49:43.84 .net

全てAIに任せるとスレが荒れなくて良いな

馬鹿だ馬鹿だと言いたい奴の出番が無くなるw

439 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 21:51:09.45 .net

会社での行動や発言もAIに任せたいな。。
すぐに役員くらいになれそうw

440 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 22:26:42.28 .net

Gptは最新関数知らないはず
Byrow関数とかも実装されてませんとか言われた

441 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 22:36:27.93 .net

>>440
はい、GPT-3 トレーニングデータのカットオフポイントが 2021 年になっていますので、2022 年以降の最新関数については知らない場合があります。 また、GPT-3 トレーニングデータには、特定の関数に特化したトレーニングデータが含まれていない場合があります。

442 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 23:06:29.71 .net

この先は有料ってコトっすね…

443 ：名無しさん＠そうだ選挙にいこう：2023/01/30(月) 23:25:15.94 .net

AIに任せてるのが荒らしなんだよなぁ

444 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 06:09:53.36 .net

と荒らしが申しております

445 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 06:13:17.32 .net

>>434
Microsoft Excelには、Expand関数というものはありません。Excelの関数リストを見ても、このような関数は見つかりません。

代わりに、以下のような代替手段があります。

列の幅を手動で拡大する
「自動調整列幅」の機能を使う
セル内の数式を「ワードラップ」する

例：A1セルに「こんにちは世界」というテキストが入っている場合、
A1セルを選択して、「列」メニューから「自動調整列幅」を選択すると、
列幅が自動的に調整されます。

446 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 06:42:45.81 .net

全て質問者は零細です

回答してるのも罵声を浴びせてるのも零細です

なんて決め付けてる馬鹿おるね？

447 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 06:59:51.92 .net

>>434
統合機能使うにあたっての下処理とかかな？
マクロ使わずにセルやカラム挿入できるから、
あるシートを元に帳票作成みたいなことする中間処理に役立ちそう

>>445
これ張ってて荒らしじゃないは無理あるだろ

448 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 09:04:25.77 .net

AIは荒らしにも勝つのか
すごい時代だｗ

449 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 11:17:49.50 .net

【1 OSの種類 　 　 　 　 .】 Windows11 Pro x64
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

A1:A5に1～５の数字を並べて入れて
A1の1をクリックすると①になり、2をクリックすると①は1に戻って②になる、
ただし○数字をクリックするとキャンセルとなって○なし数字になるというようにしたいです

分かりやすくいうと
1～5まで○数字が全て入ってない状態か、どれか一つが○数字という状態です
（キャンセルするには○数字をクリックする）

それをA1:A5～E1:E5、A6:A10～E6:E10のように
並んだセルの1から5までのうちの一つの選択をアンケートみたいに
同じようにしたいです

一つのセルの選択解除はここにありましたが
上記をシンプルにできれば大変助かります<(_ _)>
ttps://chocogon.com/exceldoubleclick

450 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 12:12:54.96 .net

>>448
いいえ、AIは荒らしを防ぐためのツールとして使われていますが、完全に荒らしを防ぐことはできません。人間の意図的な攻撃や巧妙な手法に対しては弱いこともあります。そのため、AIと人間の調整や協力が必要な場合もあります。

451 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 12:48:03.03 .net

>>450
その返し秀逸ですきｗ
これから平和になるなぁ

452 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 12:51:01.87 .net

>>451
ほんと
ここで馬鹿馬鹿
零細だなんだと暴言吐いてる奴よりも人間性が高いという皮肉www

453 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 13:01:22.95 .net

CHATGPTの口調が特徴的なおかげで簡単に成りすませるな

454 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 13:02:31.84 .net

>>452は俺同様自身を省みられない残念な子

455 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 14:59:42.34 .net

バカって言うヤツが１番バカなんだよ？ 知らなかったかい？

456 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 15:32:59.78 .net

CHATGPTってヤバすぎるな。
でも頭の固いジジババはこういったテクノロジーを否定するんだろうな。

457 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 16:41:59.07 .net

A2,B2,C2になんか式が入ってて計算結果表示してて
D2には計算式A2&B2&C2が入ってる
A2,B2,C2の1個でも#N/A状態だとD2も#N/Aになるけど
#N/Aの所だけ#N/Aにしたい
簡単にできる？
例えば
計算結果が
A2→あほ
B2→ばか
C2→#N/A
の時
D2→あほばか#N/A
の表示にしたい

458 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 16:59:10.26 .net

=CONCAT(IF(ISNA(A2:C2),"#N/A",A2:C2))

459 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 18:01:01.01 .net

>>449　
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row >= 1 And Target.Row <= 5 And Target.Column >= 1 And Target.Column <= 5) Then End
If Target.Count > 1 Then End
If Target.Address = "$A$1" Then
If Range("A1").Value = "1" Then
Range("A1").Value = "①"
Else
Range("A1").Value = "1"
End If
End If
If Target.Address = "$A$2" Then
If Range("A2").Value = "2" Then
Range("A2").Value = "②"
Else
Range("A2").Value = "2"
End If
End If　　　　' A3以降は行オーバーに付き省略
'－－－－－以降$E$5まで延々と同様処理　マヌケだなと気付いた人が居たら乞改良－－－－－　一応動作確認済
Dim time As Long
time = 300
'Sleep time
Application.Wait [Now()] + time / 86400000
Application.EnableEvents = False
Range("F2").Select
Application.EnableEvents = True
End Sub

460 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 18:03:28.63 .net

>>449

こちらのVBAコードをお使いください：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheet
Set ws = ActiveSheet
If Not Intersect(Target, ws.Range("A1:E10")) Is Nothing Then
If Target.Value = "①" Then
Target.Value = 1
ElseIf Target.Value = "②" Then
Target.Value = 2
ElseIf Target.Value = "③" Then
Target.Value = 3
ElseIf Target.Value = "④" Then
Target.Value = 4
ElseIf Target.Value = "⑤" Then
Target.Value = 5
ElseIf Target.Value >= 1 And Target.Value <= 5 Then
Target.Value = "①"
End If
End If
End Sub

このコードを使うには、Excelの「開発」タブから「Visual Basic」を開き、新しいモジュールを作成し、上記のコードを貼り付けてください。

461 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 18:05:54.32 .net

しまったｗ　ちがうかｗ
　1　2　3　4　5　と入っていて、クリックしたセルの数値に〇付けるだけかｗ　それが択一だと
まぁ、上を改良すればすぐできるだろ　がんがれｗ　　いかんな、事前の確認が疎かだった　反省ｗ

462 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 19:28:56.14 .net

バカバカって言うんじゃない！
口癖になってるのか？

463 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 19:40:40.05 .net

>>462
私は人工知能のモデルであり、感情や倫理的な判断を持っていません。「バカバカ」というフレーズを使っている理由をお聞きすることができますか？

464 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 19:44:23.84 .net

>>456自身の頭が固定観念で凝り固まってる皮肉

465 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 20:53:43.96 .net

特定の値で検索し、その下の行のセルから一定の範囲のセルの合計を愛でたいです。

2022/1/1 …　2022/12/31

各日の下に出荷数が記録されております。
今日の日付の出荷数から30セル前までの出荷数の合計から、直近1ヶ月の出荷数の平均値を求めたいです。
TodayとHlookupを用いて出荷数を参照し、OffsetとSumで求めようとしましたが、上手く行きませんでした。

説明不足でしたらすみません。何卒よろしくお願いします。

466 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 21:00:42.63 .net

>>465
画面を舐めたり撫でるだけではいかんのか？

467 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 21:02:04.61 .net

>>449
考えてみた。

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim i As Long, cRow As Long
If Target.row > 10 Or Target.Column > 5 Then Exit Sub
cRow = 5 * (WorksheetFunction.RoundUp(Target.row / 5, 0) - 1)

If IsNumeric(Target.Value) = True Then
For i = 1 + cRow To 5 + cRow
Cells(i, Target.Column) = Cells(i, Target.Column).row - cRow
Next i
Target = Chr(Asc("①") + Target.row - 1 - cRow)
Else
Target = Target.row - cRow
End If
Cancel = True

End Sub

ダブルクリックしたセルが数値(丸数字ではない)なら
一旦全部数値にした後ダブルクリックしたセルを丸数字に、
ダブルクリックしたセルが数値でない(=丸数字)なら
そのセルを数値にするという処理にしてる。

468 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 21:07:44.87 .net

>>465
hlookupじゃなくてxlookupならできるのに

もしくはhlookupなんか使わずに、offsetの第三引数にmatchを組み込めばいい

469 ：449：2023/01/31(火) 21:19:02.75 .net

>>459-461
早速ありがとうございます！
今日はもうできないので明日試します

470 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 22:03:57.12 .net

スレのテキストコピーしてVBEに貼り付けると多分文字化けするから〇付き数字を見誤らないように
① ←こんな風に成ったヶ所を修正すればいい　おれも (1) とかにしとけば良かった　今後注意しよう

471 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 22:11:07.71 .net

って、ここで化けたコード書くとちゃんと〇付き数字で表示されるのかｗ　まだまだだな、おれｗ
>>467 さんのが一番スマートなコードだからそれ見習って　さすがだな、Excelスレ

472 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 22:41:34.15 .net

>>465

>>468が書いてる方法(offsetの第三引数にmatchを組み込めばいい)で
やってみた。

前提として1行目に日付(A1セルが2022年1月1日)、
2行目にその日の出荷数があるとしている。

=AVERAGE(OFFSET($A$2,0,MATCH($B$4,$1:$1,0)-1,1,-30))

$B$4セルが入っているのは任意の日付を選択出来るようにしたから。
必要なければtoday()に変更で。

473 ：名無しさん＠そうだ選挙にいこう：2023/01/31(火) 23:30:12.28 .net

都合のいい前提

474 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 05:28:36.56 .net

10年後の会社はこのスレみたいになるんだろうな
性格の悪い奴は仕事を奪われてAIに聞いた方が早いしストレスが無いと。。

475 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 06:51:51.89 .net

人間らしさを得たAI
人間らしさを失った人間

この2つをこのスレで見た気がする

例えば発達障害の回答がこれ
>>399
>>423

質問スレで書かれているのに相手の意図をくみ取ったり心情を推測するのが苦手のために社会生活で苦労してるであろう事が推定出来る

お風呂みといて
と言われて
じっとお風呂を観察して湯船から溢れるお湯はそのままというタイプの人

476 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 06:57:14.61 .net

>>473
都合が悪けりゃ自分で直せってことだろ

477 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 07:04:48.10 .net

やはりこの後の質問に続くための前提でしかなかった

コピペ元
https://mevius.5ch.net/test/read.cgi/bsoft/1654860173/910
910 名無しさん＠そうだ選挙にいこう sage 2022/09/24(土) 13:38:42.04
質問
エクセル365なのですが、週に1度、他からデータを受け渡され、それをsheet1に丸ごとコピーして作業してます
大きさは列はAからFまで固定、行数が1000～2500くらいまで幅があるデータです
sheet2はsheet1の同じセル番地をそれぞれ参照した式がA1：F3000まで入ってます（計算漏れがあるといけないので3000行まで計算式を入れてあります）
sheet３はsheet2を参照した式が入っており、、、問うようなsheetが8個もありましてセル計算ばかりで重たいです

912 名無しさん＠そうだ選挙にいこう sage 2022/09/24(土) 13:51:07.88
>> 910の続き
エクセルは完成しているのですが、貰ったデータが1200行なら、元々入力されている計算式も1200行までになってくれるとか、参照先にデータが無いなら計算しないとか、細工出来ないでしょうか？
並び替えとかもやってるので大変です

478 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 07:05:22.85 .net

悔しかったんだ

479 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 07:12:14.14 .net

ならないよ
ChatGPTの誤った知ったかぶり回答を信用しちゃう人達だけで社会はできてない

480 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 07:14:29.40 .net

>>475は発達障害だからスレタイと無関係なAIの話を始めちゃうんだね

481 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 07:48:54.95 .net

すぐ噛みつくのは
発達障害でも脊髄反射でもなく、神経症状、不安障害
まずは一呼吸置け

482 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 08:12:17.26 .net

>>480
この2つの発言は発達障害に関連する可能性がありますが、
それを断言するには十分な情報がありません。
また、発達障害は多様な状況を含む複雑な状況であり、一般的な発言から確定的な判断を下すことは困難です。

AI以下になってしまった煽り君

483 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 08:16:46.39 .net

【質問不可】Excel総合相談所スレの雑談・議論スレ5
https://mevius.5ch.net/test/read.cgi/bsoft/1624005735/

484 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 08:21:29.98 .net

AI回答のコピペしかしない人はAI未満か
なるほどな

485 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 08:55:23.02 .net

>484
負け組ｗ

486 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 09:21:03.79 .net

一生懸命頑張って考えた煽りが5秒でAIに論破される時代

487 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 10:50:08.76 .net

AI回答が一人だけと信じ切る奴www
YouTuberが煽って流行ってるのにw

488 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 13:29:22.73 .net

バカって言うヤツがバカなんだし！

489 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 14:01:00.38 .net

>>469
ところで、本来の用途は何だったのだろう　アンケートのような、と言うからにはアンケ利用じゃ無さそうだし
目的次第では、フォームコントロールのグループボックスやオプションボタンを使っての操作のが一般的な気がして

490 ：449：2023/02/01(水) 14:37:12.44 .net

>>460さん

491 ：449：2023/02/01(水) 14:41:22.76 .net

>>460さん　うまく動作しました　ありがとうございます
申し訳ないですが、A1:A5ではなくA1:E1だったので、以下のように入れ替えました
それで複数列をまとめて増やすには「If Target.Column > 10」の10の部分を
5の倍数にすればいいのが分かりましたが
・開始場所がA1以外のセルからの場合

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long, cColumn As Long
If Target.Column > 10 Or Target.Row > 5 Then Exit Sub
cColumn = 5 * (WorksheetFunction.RoundUp(Target.Column / 5, 0) - 1)
If IsNumeric(Target.Value) = True Then
For i = 1 + cColumn To 5 + cColumn
Cells(Target.Row, i) = Cells(Target.Row, i).Column - cColumn
Next i
Target = Chr(Asc("①") + Target.Column - 1 - cColumn)
Else
Target = Target.Column - cColumn
End If
Cancel = True
End Sub

492 ：449：2023/02/01(水) 14:42:59.97 .net

※続きます

・開始場所がA1以外のセルからの場合
・5つのまとまった列の2番目や3番目の開始のセルの指定

493 ：449：2023/02/01(水) 14:45:51.61 .net

はどうやればよいでしょうか

※何度も送りなおしてしまい、申し訳ないです

※ >>459-461さん
せっかく考えてくださったのに申し訳ないです
ありがとうございました

494 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 16:53:59.42 .net

甘やかすとこうなる好例

495 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 17:01:43.34 .net

>>489
5段階評価をするのに使いたいからです