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/

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段階評価をするのに使いたいからです

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

>>475
発達障害はそういう感じじゃないよ、何か思い込み違いしてない？
どちらかっていうとアスペっぽい。

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

>>496
さすがアスペは詳しいなw

498 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 18:20:56.35 .net

>>493
このVBAマクロは、A1から始まる列の中でのみ動作します。開始場所がA1以外の場合は、以下のように変更する必要があります：

cColumn変数にTarget.Columnを代入する
If Target.Column > 10 Or Target.Row > 5 Then Exit SubのOr条件にTarget.Row > 5を追加する
For i = 1 + cColumn To 5 + cColumnの場合に1 + cColumnをcColumnに変更する
このように変更することで、開始場所がA1以外のセルからでも動作するようになります。また、5つのまとまった列の2番目や3番目の開始のセルの指定もできますが、具体的な指定方法は、このマクロを変更することで行う必要があります。

499 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 18:25:15.09 .net

これらのデータの中から重複している単語を取り除きたいです。

A
1 RED BLUE APPLE
2 RED BLUE BANANA
3 RED BLUE GREEN ORANGE
4 RED BLUE YELLOW WHITE GRAPE
5 RED BLUE WHITE CHERRY

↑これらのデータを↓のように整形したいです。

B
1 APPLE
2 BANANA
3 GREEN ORANGE
4 YELLOW GRAPE
5 CHERRY

ご教示いただけますと幸いです。よろしくお願いいたします。

500 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 18:38:17.90 .net

>>499
以下のVBAマクロを実行することで、データAから重複している単語を取り除いてデータBに整形することができます。

Sub RemoveDuplicates()
Dim LastRow As Long
Dim i As Long
Dim j As Long
Dim arr As Variant

scss
Copy code
'最終行を取得
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

'配列にデータを格納
arr = Range("A1:A" & LastRow)

'重複している単語を取り除く
For i = 1 To LastRow
For j = 1 To 4
arr(i, 1) = Replace(arr(i, 1), "RED BLUE", "")
Next j
arr(i, 1) = Trim(arr(i, 1))
Next i

'配列をシートに出力
Range("B1").Resize(LastRow, 1) = arr
End Sub

このマクロを実行するには、Excelの「開発」タブの「Visual Basic」をクリックして、VBAエディタを開きます。マクロを貼り付けて実行ボタンをクリックしてください。

501 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 18:38:50.37 .net

1セル内に半角スペースで区切られてんの？
あとexcelのバージョンは？

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

>>499
GREEN、ORANGE、YELLOWを残しているのはどうして？

503 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 19:22:30.73 .net

>>500
実行してもエラーに成ります。どこか間違っていると思います。どこを直せばいいですか？

504 ：493：2023/02/01(水) 19:49:58.99 .net

>>498
詳しく説明していただきありがとうございました
明日頑張って試します

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

>499
=MAP(A1:A5,LAMBDA(a,TEXTJOIN(" ",TRUE,IFERROR(VLOOKUP(TEXTSPLIT(a,," "),UNIQUE(TEXTSPLIT(TEXTJOIN(" ",TRUE,A1:A5),," "),,TRUE),1,FALSE),""))))

506 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 20:18:49.47 .net

惑わされるな！　それはChatGPTの返答をそのまま書き込んでるだけだ
ファクトチェックも為されていない

507 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 20:27:24.57 .net

ファクトってなに

508 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 20:47:18.70 .net

日本の、「答えは一つ」の教育しか受けてこなかったバカは、
・物事の解決方法は幾通りもあること
・物事の見方・切り口は多面的に存在し得ること
・物事を故意にねじ曲げて言いふらす／強弁する／報道すること
をごちゃごちゃにして区別を付けられない、
自分で吟味しようともしないから、他人の責任にして垂れ流し、
挙げ句の果てに何でも「ファクトチェック」とか言い出す。

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

13年前の丸川珠代ばりに
「この愚か者めが」

510 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 22:00:28.41 .net

はぃい？ｗ　おれかよｗ　じゃあ検証してみ？じぶんで　回答となるべき重要なポイントには一切触れて無いのが理解できるから
正当性・妥当性を検証する行為を「何でも」と形容するからには自分では既に検証済みかも知らんけど、検証してもその言が出てるとしたら相当だぞ？

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

>>490
安価はきちんと打とう。
開始がA列でない場合、A列からずれた分だけ引くことで対応。

前提として、予め開始場所の列に何かを入力しておくこと。
(何も入力してない状態だと、D列以降をダブルクリックすることでD列から開始となる。
D列以降のどのセルをクリックしても開始はD列)。

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

　Dim i As Long, cColumn As Long, X(1) As Long　←X()は列の値を取得。X(0)は開始列、X(1)は開始列-1
　If Cells(Target.row, 1) <> "" Then　←開始列が1(A列)の時
　　X(0) = 1
　Else
　　X(0) = Cells(Target.row, 1).End(xlToRight).Column Mod 5　開始列がA列以外の時
　End If
　X(1) = X(0) - 1

　If Target.row > 10 Or Target.Column < X(0) + cColumn Then Exit Sub　←対象外のセルをクリックした時に何もしない為の記述。○列目までという記述はないので必要なら追加。
　cColumn = 5 * (WorksheetFunction.RoundUp((Target.Column - X(1)) / 5, 0) - 1)　←2回(2順)目以降の補正。これがないと6、7、となる。

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

512 ：名無しさん＠そうだ選挙にいこう：2023/02/01(水) 23:37:47.67 .net

何でそんな面倒なことさせるのか
しかも目的達成できてない

513 ：505：2023/02/02(木) 00:00:47.03 .net

>>499
=MAP(A1:A5,LAMBDA(a,TEXTJOIN(" ",TRUE,IFERROR(VLOOKUP(TEXTSPLIT(a,," "),UNIQUE(TEXTSPLIT(TEXTJOIN(" ",TRUE,A1:A5),," "),,TRUE),1,FALSE),""))))

https://i.imgur.com/ri7bTed.png

514 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 01:15:46.34 .net

vbaがわからない零細企業社員のせいで荒れ放題

515 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 01:29:47.65 .net

>>514
違う
vbaは中小零細企業の方が強い
大企業は専用システムがあるからエクセルすらまともに使えない、というか使う理由がない

516 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 02:22:46.40 .net

>>515
そういう自己紹介の糖質基地害がいるんだよ
そいつがあちこちで荒らしてる

517 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 02:34:14.51 .net

ここ最近えらいペースで回答があるのは例のアレか？

518 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 02:40:59.78 .net

こいつ

Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/

519 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 04:49:06.33 .net

>>516
ここほとんどが中小零細社員なんだが？

520 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 05:57:28.15 .net

AIに人間性も実力も負けたらもうこの世に存在する理由無いよなお前はw

521 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 12:09:34.96 .net

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

パワークエリでWEBページ取得するとき
存在しないページをクエリの追加をするとエラーで止まります

具体的には
株価高値更新情報のページが50社ずつページに分かれている
100社まで取り込むため2ページ目（51位～100位）を取り込んだクエリを1ページ目のクエリ（1位～50位）の追加で足していたが
40社くらいしかない日は2ページ目が存在しないためエラーになります
https://finance.yahoo.co.jp/stocks/ranking/yearToDateHigh?market=tokyo2&term=daily

このような場合に1ページだけでも取り込む方法はありますか？

522 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 12:14:07.08 .net

>>521
はい、パワークエリでWEBページからデータを取得する際に存在しないページをクエリするとエラーになることがあります。このような場合には、エラーが発生した際に特別な処理を行うことで、存在するページのみのデータを取り込むことができます。具体的には、VBAマクロを利用して、エラーが発生した際に特別な処理を行うように設定することができます。

523 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 12:16:21.32 .net

>>521
VBAマクロを利用して、エラーが発生した際に特別な処理を行うことができます。具体的には、次のようなVBAコードを作成することができます。

vbnet
Copy code
Sub GetDataFromWeb()
On Error GoTo ErrorHandler

' パワークエリを実行する
With ThisWorkbook.Queries.Add("", Connection:= _
"URL;https://finance.yahoo.co.jp/stocks/ranking/yearToDateHigh?market=tokyo2&term=daily")
.Refresh
.SaveData
End With

Exit Sub

ErrorHandler:
' エラーが発生した際の処理
MsgBox "ページが存在しません"
End Sub

このVBAマクロを実行すると、エラーが発生した際に「ページが存在しません」というメッセージが表示されます。このように、エラーが発生した際に特別な処理を行うことで、存在するページのみのデータを取り込むことができます。

524 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 12:56:08.95 .net

>>521
2ページ目のURLをPowerQueryのパラメータで生成しているのか、
ワークシートで生成しているのか分からないけど
try otherwise の記述でなんか出来るんでないか？
https://learn.microsoft.com/ja-jp/power-query/error-handling

525 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 13:04:42.73 .net

try otherwiseではまだやったことないけど、
以前、複数ページになる場合は
・最初のページのHTML記述を先行クエリーとしてテキストで読込んで、最終ページ数を特定
・これをワークシートに落として関数でURLを生成
・VBAで if for then でURLを順番に本体クエリーを更新
させてた。

526 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 15:03:33.58 .net

>>519
え？そうなの？？
昔は大手の社員がいたような記憶

527 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 15:36:09.13 .net

マクロ、VBAに潜むセキュリティリスクとか
属人的な可読性、引き継ぎの問題で
社内研修でもVBA講座はなぜかやらない、嫌っていたけど、
今はどうなのかね、非IT計大企業の情シスは。

やれ、グループウェア、ERP、CRM、
Teamsだ、BIツールのダッシュボードでKPIマネージングだと、
なんだかんだと入れてきても、
結局、データについては小回りが必要な、あるいは前処理として、
VBAやPowerQuery、Pythonとかを使いたい場面は残るし、
利用出来る社外のビッグデータもいろんなところで公開されるようになってんだけど。

そのたびにプログラマーに依頼して作って貰えるほど
予算も人材もいないのは大所帯でも変わってないのでは？

528 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 15:41:44.88 .net

Yahoo！ファイナンスはそもそもスクレイピング禁止だろ
有料コンテンツの「VIP倶楽部」なら苦労せずにExcelファイルとしてDL出来るんだし、金払えってハナシに成る
相手にとっての迷惑行為を助長するようなアドバイスは自重しろよ
第一、株価DLサイトなんか昨今いっぱいある　無料・有料さまざま　しかもサイトの作り方次第でそこ(html)にデータは無いまである

529 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 16:16:49.45 .net

なんでそうして株価をエクセルで取ろうとするのかねー
サイトに分析機能なんて山ほどあるのに

530 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 16:25:57.89 .net

どこも予算ケチってマクロの講習会すら開催しないのが現状らしいからね。
コンサル会社もキツイみたいね。

531 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 16:40:57.08 .net

気象庁のデータは利用規約の範囲内でスクレイピングしていいと。
https://www.jma.go.jp/jma/kishou/info/coment.html

ただし、多数アクセスの場合は輻輳遅延があり得るのは了解してね
ということか。

532 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 17:08:38.15 .net

日本気象協会は
利用規約 第8条（禁止行為）
6. 本ウェブサイト及びアプリ内の情報をブラウザ・RSSリーダー以外のものを用いて取得し利用する行為
により、「スクレイピングはダメよ」と。
https://tenki.jp/docs/help/#a00-00

ウェーザーニュースは・・・？
https://weathernews.jp/subscription/agreement.html
批評や研究（引用）、私的利用の範囲なら認めている？
https://jp.weathernews.com/terms-of-use/
聞いてみないと分からん。

同じYahoo!でも、Yahoo!天気・災害は、
「二次利用はご遠慮下さい」だが、
批評・研究のための引用、私的利用のためのスクレイピングについては
それらしき記述が見当たらず、
聞いてみないと分からん。
https://support.yahoo-net.jp/PccWeather/s/article/H000007750

533 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 18:56:25.19 .net

もしかして年収低いの？

534 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 18:59:10.91 .net

>>528
それは個別の株価だけで4000社あるから
自分でランキングデータ集計しようとすればcsvを4000個もダウンロードしなきゃいけない

535 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:04:45.13 .net

今回やろうとしてるのは出来高ランキング2ページ分と値上がりランキング2ページ分の4ページだけ

100行固定と最大100行でマージしてフィルターして10社くらいに絞る

536 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:06:55.34 .net

ていうか株価なんて要らんわけよ
上位100社の会社名がほしいだけ

537 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:35:03.14 .net

だから相手にとって迷惑行為してもいいのか？どうなってんだ？倫理観
4000必要だろうとも、それは単に個人的な理由でしか無いだろ
ぼくがよんせんのでーたひつようだからなにしてもいい　　のか？幼稚園からやり直せ
大人はちゃんと4000のファイルだろうと効率的にルールを守ってDLする術を模索するもの

538 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:37:27.34 .net

4000も要らんて言ってるのに何も理解できてないみたいだね
ただでも要らんわ

539 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:40:04.42 .net

ブラウザで4ページみてマウスでなぞってコピペするのと
エクセルで4ページ読みに行くのとどっちが迷惑なんだろう

540 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 19:41:28.10 .net

タダでもいらないものは「本当にいらない」

541 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 20:07:31.45 .net

データ泥棒の屁理屈　最初に自分で書いた言い訳のクセにそれは無かったことにするんだ、へー

542 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 20:36:38.55 .net

最初からそんなこと書いてないし

543 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 20:58:31.37 .net

ここで質問しようと思って質問文を書いてみたけど、試しにAIに聞いてみたらこんな回答を得た
これを上回る回答出来るイケメンはおるん？


EXCELで
A列に日付
B列に借方金額
C列に借方勘定科目
D列に貸方勘定科目
E列に貸方金額
F列に摘要
を会計ソフトからCSV形式で吐き出しました
これを元に資金繰表を作るにはどうすれば良いですか？

資金繰表を作るには、Excelのピボットテーブルを使うことができます。

以下の手順で資金繰表を作成することができます:

データを選択します。

[データ]タブをクリックし、[ピボットテーブルの作成]を選択します。

[ピボットテーブルのフィールド]ウィンドウが開くので、必要な列（日付、借方金額、貸方金額）を「値」欄にドラッグアンドドロップします。

「列」欄に「勘定科目」列をドラッグアンドドロップします。

「行」欄に「日付」列をドラッグアンドドロップします。

[ピボットテーブルのフィールド]ウィンドウを閉じます。

これで、資金繰表が作成されます。「摘要」列は不要なので、「借方金額」と「貸方金額」の合計を算出するために使用することができます。

544 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:08:29.29 .net

おまえ、企業の資金繰り表作りに携わったこと無いだろ？おれもねーよ
それでもそのデータだけじゃ資金繰り表作成に決定的に足りないものがあることぐらい見当つくわ

545 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:12:13.81 .net

日々の取引をただDB化した総勘定元帳からだけでは
一時的な取引なのか、定期的な取引なのかわからんから、
資金繰表作成は無理

546 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:15:37.78 .net

コード 銘柄名
2162 ｎｍｓ　ＨＬＤＧ
2410 キャリアデザインセンター
2479 ジェイテック
2884 ヨシムラ・フード・ＨＬＤＧ
2927 ＡＦＣ―ＨＤアムスライフ
3073 ＤＤ　ＨＬＤＧ
3539 ＪＭ　ＨＬＤＧ
3987 エコモット
5128 ＷＯＷ　ＷＯＲＬＤ　ＧＲＯＵＰ
5933 アルインコ
6086 シンメンテＨＬＤＧ
9066 日新

547 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:18:55.58 .net

>>545
単純に期首から前月までの資金繰表を勝手にまとめてくれるだけで良いのです
ここから先は自分で作るから

548 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:21:41.95 .net

>>544
いや20年くらい前職で資金繰表を作ってきた

資金繰表の要素としては十分な条件が揃ってる

転職した先が縦方向に時系列が進む資金繰表に変わったのと、期の中途で作り始めたので過去の物を集計したい

549 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:25:16.84 .net

例えば
5日単位の資金繰表を作る場合

1日～5日の間に入金した売掛金は合計金額を出したい
同じように
受取手形合計
電子記録債権合計
とか集計して欲しい

グループ化の方が良いかな
詳細が見たかったら詳細確認して摘要まで見れるような

550 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:32:07.20 .net

自分の愚かさ、あさましさをこれ以上お披露目するな　出来ないものは出来ない　重要なものが半分も足りない
資金繰り表では無く〇〇〇表だ　ってんならまだしも　　31行も使って煽っておきながら泣き言書くんじゃ無い
って書いてたら、キャリア20年あってそのザマかよ　諦めろ　若い人に仕事変わって貰え　会社のためだ

551 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:43:23.50 .net

>>548
こいつは例の零細企業の馬鹿か？

552 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:44:00.99 .net

>>550
資金繰表も分からんなら無理して答えなくても良いよ

553 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:44:29.04 .net

>>551
どんだけ零細企業好きなの

554 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:46:14.80 .net

夢に出てたり
零細企業

555 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:49:06.34 .net

確かに零細企業に心をまるで奪われてるかのようだね
口を開けば零細企業零細企業

556 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:49:56.30 .net

これって恋かしら♥

557 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:52:03.87 .net

図星かよ

558 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:52:45.96 .net

必死であると指摘する事の無意味さ、及びその裏面から考察できる事もあちこちで述べてきたことだが・・・。

まず一つ目に重要なのは、必死であるかどうかの確認など誰にもできないという事。
実際にそうであるかどうかを確認し、それを第三者に納得させる為には書き込み者の画像を撮影し、アップロードするくらいのことをしないと確認できない。

第二に、必死である事が何かの問題を発生させるのか、という事。
必死である事をあざ笑う風潮は世間の、特に若年層で広まっている風潮であるが、
本来必死である事そのものは賞賛こそされ、決して侮りの対象にはならない。
世の中には必死さに感動する例はいくらでもあるからな。
必死にやってる事が間違っていればそれは嘲笑の対象になるが、
それは間違っていることが前提としてあるからその対象になる。
間違ってることそのものの上に、必死さがあるという滑稽さが笑いの対象になるのであって、必死である事そのものが笑われるべきものではない。

以上の二点から、必死であるという事だけを、こういったWEB上で何の根拠もなく指摘し、
それを嘲笑う人間というのは、次の二つのタイプに分類できる。

一つ目は先に述べたように、必死になる事に空しさを感じ、無条件に嘲笑おうとする事で必死でない自分の優等性を逆説的に導き出そうとする、
悲しい人間性しか持たない人間だ。
これは世の中を斜めに見ている若者に多いといえる。

二つ目は、自分自身だけが必死である事を認めたくなく、相手もそうであると思いこむことで精神安定を図ろうとするタイプの人間だ。
今回の君の場合はこちらになるだろうな。


まあどちらにせよ、議論の場というのは言説の正否を問い、よりよい結論を導き出す為に開かれているものだ。
そこで個人の精神安定と自尊心を満たす為だけの言葉を使おうと選択してしまう時点で、君の人間性は知れたものだと言う事ができるわけだ。

とりあえず、立証しろと言われたので立証してこようか。
少々時間がかかるがね。

559 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:54:10.52 .net

EPSONアプリの所定の枠に20年間ものあいだ金額とかをペシペシ打ち込んでたってだけだろ？
資金を繰るとはどういうことかも理解しないでオペレータしてたってだけ
「EXCELできます・パソコン使えます」枠で再雇用してもらったんだろ？
キャリアとChatGPTを存分に発揮して採用してもらったことに応えろよ　実力発揮してりゃそのうちおちんぎんも上がるぜ

560 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:58:36.56 .net

>>558
長過ぎるのでまとめさせました

必死であるかどうかは誰にも確認できないということが第一に重要です。必死であることを嘲笑する人は、必死になる事に空しさを感じ、自分の優等性を高めようとするタイプと、自分自身が必死であることを認めたくないタイプの2種類に分類できます。議論の場は言説の正否を問い、より良い結論を導くために開かれていますが、個人の精神安定や自尊心を満たすためだけの言葉を使うことは、議論の場の意味を無視していることを示します。

561 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 21:59:33.60 .net

ま～たタテとヨコが変わっただけで大混乱か？頭の中どうなってんだ？

562 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 22:00:46.13 .net

全てが中小企業に見えるのかな？
質問する人、みんな中小企業

563 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 22:09:36.12 .net

価値の低い仕事で生き延びてるんだね

564 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 22:10:48.77 .net

プルダウンから今月を選ばせたいのですが、
データ⇒入力規則からダイアログだしてカンマで区切って
2022/1,2022/2,2022/3
とか12か月入れたらなぜか自動的にプルダウンの中身がAug-2022みたいな形式に変換されてしまいました。
入れたままの表示をしたいのですがどうすればいいですか？

"2022/1"とすると選択肢自体にダブルクォートが出てきてしまいます。
また、あとからEOMONTH関数でその月の日数を出したいです

565 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 22:30:15.65 .net

https://pbs.twimg.com/media/DM_M70lVQAAqOvu.jpg
それよりどれがいい？
右かな？

566 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 22:38:29.76 .net

>>564
入力規則のリスト用に、別のセル範囲に　2022/09 2022/10 2022/11 2022/12 2023/01 2023/02 等と入力しておきます
ダイアログ内に直接手打ちすると勝手にそう変換されてしまいます　リストの範囲をセルの範囲にするのがミソです
また、その範囲のセルの書式設定を [yyyy"/"mm] などとしておく必要もあります

567 ：名無しさん＠そうだ選挙にいこう：2023/02/02(木) 23:02:04.29 .net

どうせオカマでしょ？
オカマバーはいいぞ～
お前らもきっとハマるはずた

568 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 00:18:34.39 .net

>>564

入力規則を下記のとおりにする。

・空白を無視するにチェック
・2022/1の前に空白とカンマをつける。

空白を入れることで書式が変換されるのを防止し、
かつ空白を無視することでリストに表示させないようにしてる。

尚、実際に入力される値は「2022/1/1」となるので
セルの書式でyyyy/mあたりを設定。

エクセル2021で確認。
他のバージョンは未検証。

569 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 00:46:37.30 .net

資金繰表て

>>543
の要素以外で必要な物って何？
答えられる人いるの？

570 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 01:19:03.48 .net

>>559
凄いな
零細の人が気になって気になってその人のプロフィールまで覚えちゃったんだw

571 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 07:14:30.70 .net

>>569
何を持って資金繰り表と言うかにもよるだろうけど単に日々の資金の状態だけ見せられてもどうしょうもないだろ
最低この程度の分解能がないと意味のある資金繰り表にはならないと思うよ
https://j-net21.smrj.go.jp/qa/financial/Q0225.html

572 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 07:18:04.71 .net

ある範囲内で、特定の文字が書かれたセルを全て選択するにはctrl+F→ctrl+Aでいけますが、特定文字の含まないセルを全て選択するにはどうすればいい？

573 ：名無しさん＠そうだ選挙にいこう：2023/02/03(金) 07:43:05.19 .net

>>571
だから経理の人はその区別は付くのだよ
勘定科目とその属性とかは
だから勘定科目さえ分かれば後は属性に応じて集合セルにまとめるだけ

支払手数料他一般的な費用の科目は「経費」のセルにまとめるとか

それから資金繰表は過去の実績と未来の予測の2要素で成り立つけど、今ここで質問となっているのは過去の実績を会計ソフトから引っ張るという話
ソフトに先行して入力している場合には未来予測の基礎データとなるけど