■ このスレッドは過去ログ倉庫に格納されています
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/
- 374 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 15:53:02.89 .net
- 125の4乗として2.4億パターン
- 375 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 15:54:17.16 .net
- どこで何を聞けば良いのやらと困ってまして
ゴールシークなるワードも始めて耳にしました。
これをヒントにちょっと模索してみます。
ありがとうございました。
- 376 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 17:55:34.60 .net
- 和暦の年・月を入力して日付を含んだ文章を出力したいです
20日が区切りなため月を跨ぎ、1月だと年を跨いだりします
例
A1セルに「5」を手動で入力
A2セルに「1」を手動で入力
A3セルに「R5年1月(令和4年12月21日~令和5年1月20日)」と出力
年度の概念はないです
関係ないセルは計算用に使ってもいい
よろしくお願いします
- 377 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 18:01:27.73 .net
- >>376
回答じゃないけど
令和をRで表す時で一桁の場合は0を付ける
令和5年ならR05
これはJISで規定されている
- 378 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 18:35:16.23 .net
- 回答じゃないこと書かないでください
独り言はTwitterで
- 379 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 18:39:33.46 .net
- >>378
私の振りしておかしなこと書かないでください
JISの件は知りませんでした
例
A1セルに「5」を手動で入力
A2セルに「1」を手動で入力
A3セルに「R05年1月(令和4年12月21日~令和5年1月20日)」と出力
これでお願いします
- 380 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 19:15:00.29 .net
- >>376
以下のExcel関数を使って実現できます:
A3セル:
sql
Copy code
="R"&A1&"年"&A2&"月(令和"&TEXT(YEAR(DATE
- 381 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 19:17:50.22 .net
- ="R"&A1&"年"&A2&"月(令和"&TEXT(YEAR(DATE(A1-3,A2,20))-4,"0")&"年"&TEXT(MONTH(DATE(A1-3,A2,20)),"0")&"月21日~令和"&TEXT(YEAR(DATE(A1,A2+1,19))-4,"0")&"年"&TEXT(MONTH(DATE(A1,A2+1,19)),"0")&"月20日)"
- 382 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 19:22:46.37 .net
- >>376
令和4年12月21日
TEXT(EDATE(DATEVALUE("R"&A1&"/"&A2&"/21"),-1),"ggge年m月d日")
令和5年1月20日
TEXT(DATEVALUE("R"&A1&"/"&A2&"/20"),"ggge年m月d日")
- 383 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 19:27:13.24 .net
- 惜しいな、AI
- 384 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 19:58:58.68 .net
- ChatGPTの勝負してみる?
- 385 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 20:13:42.34 .net
- >>379
="R"&A1&"年"&A2&"月("&TEXT(EDATE(DATEVALUE("R"&A1&"/"&A2&"/21"),-1),"ggge年m月d日")&"~"&TEXT(DATEVALUE("R"&A1&"/"&A2&"/20"),"ggge年m月d日")&")"
- 386 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 20:15:23.44 .net
- 以上、零細おじさんですた
- 387 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 21:57:36.48 .net
- >>381
ちっちゃい
- 388 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 22:59:47.93 .net
- chatgptすげぇ・・・
https://i.imgur.com/CuIIplv.png
- 389 :名無しさん@そうだ選挙にいこう:2023/01/29(日) 23:18:44.40 .net
- >>376
=LET(
_a,DATE(2018+A1,A2,20),
_b,EDATE(_a,-1)+1,
TEXT(_a,"ge年m月(")
&TEXT(_b,"ggge年m月d日~")
&TEXT(_a,"ggge年m月d日)")
)
- 390 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 00:16:28.63 .net
- >>388
その結果がこれ
>>381
- 391 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 01:40:03.41 .net
- ただたまにというかそこそこ間違えるんだよな
まあ方向性とかのヒントにはなったりする
- 392 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 07:40:16.16 .net
- ヒントにするのは賢い使い方
- 393 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 07:41:11.46 .net
- ヒントになってるのかな
父親が面倒くさいんですけど
申し訳ありませんが、私には解決方法を提供することはできません。あなたが感じているトラブルに対しては、専門家やカウンセリングサービスを活用することをお勧めします。
- 394 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 12:10:01.93 .net
- 自覚してるなら黙ってて
役立たずって
- 395 :名無しさん@そうだ選挙にいこう:2023/01/30(月) 12:12:29.72 .net
- 質問
エクセル365なのですが、週に1度、他からデータを受け渡され、それをsheet1に丸ごとコピーして作業してます
大きさは列はAからFまで固定、行数が1000~2500くらいまで幅があるデータです
sheet2はsheet1の同じセル番地をそれぞれ参照した式がA1:F3000まで入ってます(計算漏れがあるといけないので3000行まで計算式を入れてあります)
sheet3はsheet2を参照した式が入っており、、、問うようなsheetが8個もありましてセル計算ばかりで重たい
- 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」 と 入力したときに
次のシートの C2(3行目2列目)に 「55」 と自動で数字を入れるにはどうしたらいいでしょうか。
玄人の方 ご回答よろしくお願いいたします。
- 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通りになりますが、C列は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枚目A1に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
- 1桁と2桁の日付が混在しているので
並べ替えるとこんな風になってしまいます
データはこのままで正常に並べ替える方法はありますか?
ひとつのセルの中に年月日と時間が入力されてます
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は荒らしにも勝つのか
すごい時代だw
- 449 :名無しさん@そうだ選挙にいこう:2023/01/31(火) 11:17:49.50 .net
- 【1 OSの種類 .】 Windows11 Pro x64
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
A1:A5に1~5の数字を並べて入れて
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
その返し秀逸ですきw
これから平和になるなぁ
- 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
- バカって言うヤツが1番バカなんだよ? 知らなかったかい?
- 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
- しまったw ちがうかw
1 2 3 4 5 と入っていて、クリックしたセルの数値に〇付けるだけかw それが択一だと
まぁ、上を改良すればすぐできるだろ がんがれw いかんな、事前の確認が疎かだった 反省w
- 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
- って、ここで化けたコード書くとちゃんと〇付き数字で表示されるのかw まだまだだな、おれw
>>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に聞いた方が早いしストレスが無いと。。
総レス数 1001
282 KB
新着レスの表示
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200